'cnvarc - example referred to file "Articles"
path$ = "fa\arc\"
GOSUB Art: END

'Inserts the field "Brand" on the Article
Art:
f$ = "Articles": GOSUB 19000: OPEN "r", 10, x1$, 46: OPEN "r", 20, x$, 48
GOSUB 18000
FIELD 10, 38 AS i1$, 8 AS i2$
FIELD 20, 38 AS o1$, 2 AS br$, 8 AS o2$
LSET br$ = MKI$(1)'<-- loads the Brand = 1 on all Articles
FOR r% = 2 TO a: GET 10, r%: LSET o1$ = i1$: LSET o2$ = i2$
GOSUB 19010: NEXT: CLOSE : END

18000 FIELD 10, 4 AS nr$: GET 10, 1: a = CVS(nr$): PRINT a
IF a < 1 THEN esist% = 0: RETURN
esist% = 1: FIELD 10, 12 AS i$: FIELD 20, 12 AS o$: LSET o$ = i$: PUT 20, 1
a = a + 1: PUT 20, a: RETURN
19000 IF nocls% = 0 THEN CLS
GOSUB nomfl: x% = INSTR(x$, ".")
IF x% = 0 THEN x1$ = x$ ELSE x1$ = LEFT$(x$, x% - 1)
x1$ = x1$ + ".sav"
PRINT x$, x1$: NAME x$ AS x1$: RETURN
19010 PUT 20, r%: LOCATE 12, 1: PRINT r% - 1: RETURN

nomfl: LOCATE 5, 1: PRINT "conversion "; f$: x$ = path$ + f$: RETURN