10 REM: INITIALISATIE
20 OPEN "R",#1,"STANDARD.DAT",46:
    FIELD#1,5 AS P$,30 AS D$,7 AS S$,2 AS C$,2 AS Q$:
    GOSUB 200:PUT #1,1:CLOSE#1
30 OPEN "R",#2,"SPECIALS.DAT",46:
    FIELD#2,5 AS P$,30 AS D$,7 AS S$,2 AS C$,2 AS Q$:
    GOSUB 200:PUT #2,1:CLOSE#2
40 OPEN "R",#3,"MARKLIN.DAT",46:
    FIELD#3,5 AS P$,30 AS D$,7 AS S$,2 AS C$,2 AS Q$:
    GOSUB 200:PUT #3,1:CLOSE#3
50 OPEN "R",#1,"TANDWIEL.DAT",39:
    FIELD#1,5 AS P$,30 AS D$,4 AS T$:
    GOSUB 300:PUT #1,1:CLOSE#1
60 OPEN "R",#2,"KETTING.DAT",39:
    FIELD#2,5 AS P$,30 AS D$,4 AS T$:
    GOSUB 300:PUT #2,1:CLOSE#2
70 OPEN "R",#3,"GROFTAND.DAT",39:
    FIELD#3,5 AS P$,30 AS D$,4 AS T$:
    GOSUB 300:PUT #3,1:CLOSE#3
80 OPEN "R",#4,"BEVEL.DAT",39:
    FIELD#4,5 AS P$,30 AS D$,4 AS T$:
    GOSUB 300:PUT #4,1:CLOSE#4
90 OPEN "R",#5,"COMBI.DAT",39:
    FIELD#5,5 AS P$,30 AS D$,4 AS T$:
    GOSUB 300:PUT #5,1:CLOSE#5
100 RUN "MECCANO":END
200 LSET P$="-":LSET D$="EINDE":LSET S$="-":LSET C$="-":LSET Q$="-":RETURN
300 LSET P$="-":LSET D$="EINDE":LSET T$="-":RETURN
00 LSET P$="-":LSET D$="EINDE":LSET S$="-":LSET C$="-":LSET Q$="-":RETURN
300 LSET P$="-