10 REM ** MECCANO AUTOSTART **
15 WIDTH 40
20 OPEN"R",#1,"$$$.SUB",20:FIELD#1,20 AS Y$:LSET Y$=" MBASIC MECCANO/F:5":
    PUT#1,1:CLOSE#1
25 REM ** MECCANO MENU **
30 GOSUB 5950:PRINT TAB(15);"M E N U":PRINT:PRINT"U kunt kiezen uit:":
    PRINT"  1. MECCANO voorraadbeheer":PRINT"  2. Tandwielberekeningen":
    PRINT"  3. Programma hier afbreken."
35 PRINT:PRINT"Geef Uw Keuzenummer: ";:K$=INPUT$(1):PRINT K$:
    IF ASC(K$)<49 OR ASC(K$)>51 THEN PRINT"Geef 1, 2 of 3 !":PRINT:GOTO 35
40 IF K$="3" THEN END
45 IF K$="1" THEN CHAIN MERGE "MECCADM",500,DELETE 500-7000 ELSE CHAIN MERGE
    "GEARING",500,DELETE 500-7000
 
500 REM (DUMMY LINE TO DELETE)
 
5950 REM: SCHERM SCHOON CURSOR HOME
5955 PRINT CHR$(12);:RETURN
 
7000 REM * PROGRAMMA VAN HERMINE BAKKER, UTRECHT 1983 *

5950 REM: SCHERM SCHOON CURSOR HOME
5955 PRINT CHR$(12);:RETURN
 
7000 REM * PROGRAMMA VAN HERM