500 REM: MECCANO TANDWIELBER. - MENU 505 GOSUB 5950:PRINT" M E N U van Vertragingen-programma":GOSUB 6000 510 PRINT:PRINT"Mogelijkheden:":PRINT" 1. Informatie": PRINT" 2. Ander bestand binnenhalen":PRINT" 3. Entry-bewerkingen ";: PRINT"(overschrijven,":PRINT" toevoegen,tussenvoegen)" 515 PRINT" 4. Bestanden afdrukken" 520 PRINT" 5. Een exacte vertraging uitzoeken": PRINT" 6. Een vertraging-met-marge uitzoeken": PRINT" 7. Naar Voorraadprogramma gaan":PRINT" 8. Stoppen" 525 PRINT:PRINT"Geef gewenste nummer: ";:KEUS$=INPUT$(1):KEUS=VAL(KEUS$): PRINT KEUS:IF KEUS<1 OR KEUS>8 THEN PRINT:PRINT"Foutieve keuze !":GOTO 510 530 IF KEUS=8 THEN GOSUB 6300:END 535 IF KEUS=7 THEN GOSUB 6300:K$="1":GOTO 45 ELSE ON KEUS GOSUB 1000,1500,2000,3000,4000,5000:GOTO 510 1000 REM: INFORMATIE 1005 GOSUB 5950:PRINT TAB(15) "INFORMATIE":PRINT: PRINT"Het Vertragingen-programma werkt met 5":PRINT"bestanden:": PRINT" 1. Voor gewone tandwieloverdracht": PRINT" 2. Voor kettingoverdracht met ketting-" 1010 PRINT" wielen en/of tandwielen": PRINT" 3. Voor overdracht in de 'large":PRINT" toothed' sectie": PRINT" 4. Voor overdracht met 'bevel gears'": PRINT" 5. Voor overdracht met combinaties van" 1015 PRINT" kettingwiel / universeel tandwiel /" 1020 PRINT" (Marklin) tandkrans":PRINT: PRINT"Bij het opstarten van het programma is": PRINT"bestand 1 direct voor gebruik beschik-": PRINT"baar. Het veranderen van bestand gaat":PRINT"via het Menu.":PRINT 1025 PRINT"Alle antwoorden en gegevens dient U met": PRINT"hoofdletters in te typen.":PRINT:GOSUB 6800 1030 PRINT"Voor antwoorden, die nooit meer dan 1": PRINT"teken groot kunnen zijn, behoeft geen": PRINT"RETURN-toets gebruikt te worden.": PRINT"Wanneer de lengte zou kunnen varieren," 1035 PRINT"moet men echter wel de RETURN-toets" 1040 PRINT"gebruiken.":PRINT: PRINT"Het programma kan uitzoeken met welke": PRINT"onderdelen (Meccano en Marklin) een": PRINT"gewenst vertraging gerealiseerd kan":PRINT"worden.": PRINT"Marklin-onderdelen zijn herkenbaar aan" 1045 PRINT"nummers met 5 cijfers.":PRINT 1050 PRINT"Indien men een vertraging <1 opgeeft,": PRINT"een versnelling dus, dient men er": PRINT"rekening mee te houden, dat het pro-": PRINT"gramma de theoretische mogelijkheden": PRINT"aanbiedt. Het is aan de gebruiker om de" 1055 PRINT"praktische mogelijkheid te beoordelen.": PRINT:GOSUB 6800:PRINT:PRINT"Indien een gewenste vertraging niet met": PRINT"twee onderdelen te realiseren blijkt en": PRINT"de opgegeven verhouding is te ontbinden" 1060 PRINT"in twee of meer, die wel te maken zijn,": PRINT"dan kan men een zgn. 'gear train'":PRINT"overwegen.":PRINT: PRINT"Overigens zijn sommige tandwielen met": PRINT"ketting en kettingwielen bruikbaar. De" 1065 PRINT"ketting pakt twee tanden van een gewoon": PRINT"tandwiel.":PRINT:PRINT"Aarzel niet gebroken getallen op te": PRINT"geven ! (een verhouding van 1 op 6.75":PRINT"bestaat !)":PRINT 1070 PRINT"Het programma licht zichzelf verder":PRINT"voldoende toe.": PRINT:GOSUB 6800:RETURN 1500 REM: ANDER BESTAND BINNENHALEN 1505 PRINT:PRINT"Momenteel is bestand";FILE;"in bedrijf.":PRINT 1510 PRINT"De bestanden bevatten de onderdelen";: PRINT"betreffende":PRINT" 1. Gewone tandwieloverdracht": PRINT" 2. Kettingoverdracht met kettingwielen": PRINT" en/of tandwielen":PRINT" 3. Overdracht in de 'large toothed'" 1515 PRINT" sectie":PRINT" 4. De 'bevel gears'": PRINT" 5. Combinatie kettingwiel / universeel": PRINT" tandwiel / (Marklin) tandkrans": PRINT" 6. (Abuis ! Terug naar Menu !)" 1520 PRINT:PRINT"Keuzenummer ?";:FI$=INPUT$(1):PRINT FI$: IF ASC(FI$)<49 OR ASC(FI$)>54 THEN PRINT:PRINT"Foutieve keuze !":GOTO 1520 1525 IF FI$="6" THEN PRINT:PRINT"Bestand";FILE;"blijft in bedrijf !":RETURN 1530 GOSUB 6300 1535 IF FI$="1" THEN GOSUB 6005:GOTO 1560 1540 IF FI$="2" THEN GOSUB 6010:GOTO 1560 1545 IF FI$="3" THEN GOSUB 6015:GOTO 1560 1550 IF FI$="4" THEN GOSUB 6020:GOTO 1560 1555 IF FI$="5" THEN GOSUB 6025 1560 PRINT:PRINT"Bestand";FILE;"is nu in bedrijf.":RETURN 2000 REM: ENTRY-BEWERKINGEN 2005 GOSUB 5800:PRINT:PRINT"U kunt:":PRINT 2010 PRINT"1=Bestaande entry overschrijven": PRINT"2=Nieuwe entry toevoegen (achter evtl.":PRINT" bestaande)": PRINT"3=Nieuwe entry tussenvoegen": PRINT"4=Abuis ! (terug naar Menu)":PRINT:PRINT "Keuzenummer ?"; 2015 EN$=INPUT$(1):EN=VAL(EN$):PRINT EN:IF EN<1 OR EN>4 THEN PRINT:PRINT"1, 2, 3 of 4 ? ":GOTO 2015 2020 IF EN=4 THEN RETURN ELSE ON EN GOTO 2100,2400,2700 2100 REM: BESTAANDE ENTRY OVERSCHRYVEN 2105 PRINT:INPUT"Welk volgnummer ";VOLG:GOSUB 6100: DF$="Volgnr."+STR$(VOLG):VT$="": PRINT:GOSUB 6400:PRINT:PRINT"Overschrijven (J/N) ?"; 2110 OV$=INPUT$(1):PRINT OV$:IF OV$<>"J" AND OV$<>"N" THEN PRINT: PRINT"J of N ! ";:GOTO 2110 2115 IF OV$="N" THEN GOSUB 6850:GOTO 2125 2120 GOSUB 6700:GOSUB 6200:GOSUB 6850 2125 IF ME$="J" GOTO 2105 ELSE RETURN 2400 REM: ENTRY ACHTERAAN TOEVOEGEN 2405 GOSUB 6955:FOR I=1 TO EF:VOLG=I:GOSUB 6100: IF LEFT$(D$,5)="EINDE" GOTO 2415 2410 NEXT I 2415 GOSUB 6700:GOSUB 6200:GOSUB 6850 2420 IF ME$="J" THEN PRINT:VOLG=VOLG+1:GOTO 2415 2425 VOLG=VOLG+1:LSET P$="-":LSET D$="EINDE":TAND=0:LSET T$=MKS$(TAND): GOSUB 6200:RETURN 2700 REM: ENTRY TUSSENVOEGEN 2705 PRINT:INPUT"Als welk volgnummer ";J:GOSUB 6955:FOR I=EF TO 1 STEP -1: VOLG=I:GOSUB 6100:IF LEFT$(D$,5)="EINDE" THEN K=I+1:GOTO 2715 2710 NEXT I 2715 FOR I=K TO J+1 STEP -1:VOLG=I-1:GOSUB 6100:VOLG=I:GOSUB 6200:NEXT I:PRINT: PRINT"Nu de gegevens voor nieuwe entry:":VOLG=J:GOSUB 6700:GOSUB 6200: GOSUB 6850:IF ME$="J" GOTO 2705 ELSE RETURN 3000 REM: AFDRUKKEN 3005 GOSUB 5800:PRINT:INPUT"Hoeveel regels afdrukken ";AF:IF AF=1 THEN PRINT: INPUT"Welk volgnummer ";VOLG:PRINT:GOSUB 6100: DF$="Volgnr."+STR$(VOLG):VT$="":GOSUB 6400:RETURN 3010 PRINT:INPUT"Vanaf welk volgnummer ";VOLG 3015 GOSUB 6750 3020 GOSUB 5950:IF PR$="J" GOTO 3500 3025 A=VOLG:B=VOLG+AF-1:FOR I=A TO B:P=I-A:VOLG=I:GOSUB 6100: DF$="Volgnr."+STR$(VOLG):VT$="":IF P/6=INT(P/6) THEN GOSUB 6900:GOSUB 6400 ELSE GOSUB 6410 3030 P=P+1:IF P/6=INT(P/6) AND P<>(B-A+1) THEN GOSUB 6800 3035 NEXT I:GOSUB 6800:RETURN 3500 A=VOLG:B=VOLG+AF-1:FOR I=A TO B:P=I-A:VOLG=I:GOSUB 6100: DF$="Volgnr."+STR$(VOLG):VT$="":IF P/32=INT(P/32) THEN GOSUB 6930:GOSUB 6500 ELSE GOSUB 6510 3505 LPRINT:P=P+1:IF P/32=INT(P/32) THEN FOR J=1 TO 4:LPRINT:NEXT J: REM 4 KOPREG.+32*2 REG.+4 WITREG.=PRINTVELLEN V.72 REGELS (EVTL. AANPASSEN) 3510 NEXT I:RETURN 4000 REM: EEN EXACTE VERTRAGING UITZOEKEN 4005 PRINT:PRINT"Alle bestanden worden doorzocht.": PRINT:PRINT"De resultaten van het onderzoek kunnen": PRINT" 1. op het beeldscherm": PRINT" 2. of op de printer afgedrukt worden.": PRINT" 3. Abuis ! (terug naar Menu)" 4010 PRINT:PRINT"Keuzenummer ?";:KZ$=INPUT$(1):PRINT KZ$: IF ASC(KZ$)<49 OR ASC(KZ$)>51 THEN PRINT:PRINT"1, 2 of 3 !":GOTO 4010 4015 IF KZ$="3" THEN RETURN 4020 PRINT:INPUT"Gewenste vertraging 1 op hoeveel ";VT:GOSUB 5950: V=1/VT:Z=0:ZZ=0:MA=0:NP=1:IF FILE<>1 THEN GOSUB 6300:GOSUB 6005 4025 GOSUB 5900:IF ZZ=0 AND KZ$="1" THEN GOSUB 6450:PRINT "Niet te maken met tandwieloverdracht.":PRINT:PRINT:Z=Z+1:GOSUB 5700 4030 IF ZZ=0 AND KZ$="2" THEN GOSUB 6550:LPRINT "Niet te maken met tandwieloverdracht.":LPRINT:LPRINT:Z=Z+1:GOSUB 5750 4035 GOSUB 6300:GOSUB 6010:ZZ=0:GOSUB 5900:IF ZZ=0 AND KZ$="1" THEN GOSUB 6450: PRINT"Niet te maken met kettingoverdracht.":PRINT:PRINT:Z=Z+1:GOSUB 5700 4040 IF ZZ=0 AND KZ$="2" THEN GOSUB 6550:LPRINT "Niet te maken met kettingoverdracht.":LPRINT:LPRINT:Z=Z+1:GOSUB 5750 4045 GOSUB 6300:GOSUB 6015:ZZ=0:GOSUB 5900:IF ZZ=0 AND KZ$="1" THEN GOSUB 6450: PRINT"Niet te maken met 'large toothed parts'.":PRINT:PRINT: Z=Z+1:GOSUB 5700 4050 IF ZZ=0 AND KZ$="2" THEN GOSUB 6550:LPRINT "Niet te maken met 'large toothed parts'.":LPRINT:LPRINT:Z=Z+1:GOSUB 5750 4055 GOSUB 6300:GOSUB 6020:ZZ=0:GOSUB 5900:IF ZZ=0 AND KZ$="1" THEN GOSUB 6450: PRINT "Niet te maken met 'bevel gears'.":PRINT:PRINT:Z=Z+1:GOSUB 5700 4060 IF ZZ=0 AND KZ$="2" THEN GOSUB 6550:LPRINT "Niet te maken met 'bevel gears'.":LPRINT:LPRINT:Z=Z+1:GOSUB 5750 4065 GOSUB 6300:GOSUB 6025:ZZ=0:GOSUB 5900:IF ZZ=0 AND KZ$="1" THEN GOSUB 6450: PRINT"Niet te maken met de combinaties.":PRINT:PRINT 4070 IF ZZ=0 AND KZ$="2" THEN GOSUB 6550:LPRINT "Niet te maken met de combinaties.":LPRINT:LPRINT 4075 NP=0:GOSUB 6300:GOSUB 6005:PRINT"Einde opgave.":GOSUB 6800:RETURN 5000 REM: EEN VERTRAGING MET MARGE UITZOEKEN 5005 PRINT:PRINT"Alle bestanden worden doorzocht.": PRINT:PRINT"De resultaten van het onderzoek kunnen": PRINT" 1. op het beeldscherm": PRINT" 2. of op de printer afgedrukt worden.": PRINT" 3. Abuis ! (terug naar Menu)" 5010 PRINT:PRINT"Keuzenummer ?";:KZ$=INPUT$(1):PRINT KZ$: IF ASC(KZ$)<49 OR ASC(KZ$)>51 THEN PRINT:PRINT "1, 2 of 3 !":GOTO 5010 5015 IF KZ$="3" THEN RETURN 5020 PRINT:INPUT"Gewenste vertraging 1 op hoeveel ";VT: V=1/VT:Z=0:ZZ=0:NP=1:IF FILE<>1 THEN GOSUB 6300:GOSUB 6005 5025 PRINT:INPUT"Hoeveel marge naar boven/beneden ";MG:GOSUB 5950: MA=1/(VT-MG)-V:GOTO 4025 5700 REM: +++ ROUTINE-BLOK +++ 5705 REM: END OF PAGE BEELDSCHERMOUTPUT VERTRAGINGEN 5710 IF Z/2=INT(Z/2) THEN GOSUB 6800:NP=1 5715 RETURN 5750 REM: END OF PAGE PRINTEROUTPUT VERTRAGINGEN 5755 IF Z/20=INT(Z/20) THEN FOR J=1 TO 6:LPRINT:NEXT J:NP=1: REM 6 KOPREG.+20x3 REG.+6 WITREG.=PRINTVELLEN V.72 REGELS (EVTL. AANPASSEN) 5760 RETURN 5800 REM: WELK BESTAND? 5805 PRINT:PRINT"U werkt nu met de ";TI$:RETURN 5900 REM: VERTRAGING OPZOEKEN 5905 GOSUB 6955 5910 FOR D=1 TO EF:FOR F=1 TO EF:VOLG=D:GOSUB 6100: IF LEFT$(D$,5)="EINDE" THEN RETURN ELSE X=CVS(T$) 5915 VOLG=F:GOSUB 6100:IF LEFT$(D$,5)="EINDE" THEN GOTO 5935 ELSE Y=CVS(T$) 5920 VE=Y/X:IF X/Y>=(V-MA) AND X/Y<=(V+MA) AND P$<>"32 " THEN OK=1:VOLG=D:GOSUB 6100:ZZ=ZZ+1:IF KZ$="1" THEN GOSUB 6600 ELSE GOSUB 6650: REM (PARTNR 32 IS WORMWIEL - KAN NOOIT 'FOLLOWER' ZIJN) 5925 IF OK=1 THEN OK=0:VOLG=F:GOSUB 6100:IF KZ$="1" THEN GOSUB 6630:Z=Z+1: GOSUB 5700 ELSE GOSUB 6680:Z=Z+1:GOSUB 5750 5930 NEXT F 5935 NEXT D:RETURN 5950 REM: SCHERM SCHOON CURSOR HOME 5955 PRINT CHR$(12);:RETURN 6000 REM: FILES OPENEN 6005 OPEN"R",#1,"TANDWIEL.DAT",39: FIELD#1,5 AS P$,30 AS D$,4 AS T$:FILE=1:TI$="Tandwielen":RETURN 6010 OPEN"R",#2,"KETTING.DAT",39: FIELD#2,5 AS P$,30 AS D$,4 AS T$:FILE=2:TI$="Kettingwielen":RETURN 6015 OPEN"R",#3,"GROFTAND.DAT",39: FIELD#3,5 AS P$,30 AS D$,4 AS T$:FILE=3:TI$="Large Toothed Gears":RETURN 6020 OPEN"R",#4,"BEVEL.DAT",39: FIELD#4,5 AS P$,30 AS D$,4 AS T$:FILE=4:TI$="Bevel Gears":RETURN 6025 OPEN"R",#5,"COMBI.DAT",39: FIELD#5,5 AS P$,30 AS D$,4 AS T$:FILE=5:TI$="Combinaties":RETURN 6100 REM: ENTRY OPHALEN 6105 IF FILE=1 THEN GET#1,VOLG:RETURN 6110 IF FILE=2 THEN GET#2,VOLG:RETURN 6115 IF FILE=3 THEN GET#3,VOLG:RETURN 6120 IF FILE=4 THEN GET#4,VOLG:RETURN 6125 IF FILE=5 THEN GET#5,VOLG:RETURN 6200 REM: ENTRY NAAR FILE STUREN 6205 IF FILE=1 THEN PUT#1,VOLG:RETURN 6210 IF FILE=2 THEN PUT#2,VOLG:RETURN 6215 IF FILE=3 THEN PUT#3,VOLG:RETURN 6220 IF FILE=4 THEN PUT#4,VOLG:RETURN 6225 IF FILE=5 THEN PUT#5,VOLG:RETURN 6300 REM: FILES SLUITEN 6305 IF FILE=1 THEN CLOSE#1:RETURN 6310 IF FILE=2 THEN CLOSE#2:RETURN 6315 IF FILE=3 THEN CLOSE#3:RETURN 6320 IF FILE=4 THEN CLOSE#4:RETURN 6325 IF FILE=5 THEN CLOSE#5:RETURN 6400 REM: AFDRUKKEN OP SCHERM 6405 PRINT "PARTNR OMSCHRIJVING"SPC(15)"TANDEN":PRINT 6410 PRINT DF$:PRINT P$;" ";D$;:PRINT USING "####";CVS(T$):PRINT VT$:RETURN 6450 IF NP=1 THEN PRINT"VERTRAGING 1 OP";VT; 6455 IF NP=1 AND MG<>0 THEN PRINT"MARGE";MG:PRINT:GOSUB 6900:NP=2:RETURN 6460 IF NP=1 THEN PRINT:PRINT:GOSUB 6900:NP=2:RETURN ELSE PRINT:GOSUB 6900: RETURN 6500 REM: AFDRUKKEN OP PRINTER 6505 WIDTH 80:LPRINT TAB(12) "PARTNR OMSCHRIJVING"SPC(19)"TANDEN":LPRINT 6510 WIDTH 80:LPRINT DF$ TAB(12) P$ " " D$ CVS(T$) TAB(56) VT$:WIDTH 40:RETURN 6550 WIDTH 80:IF NP=1 THEN LPRINT"VERTRAGING 1 OP";VT; 6555 IF NP=1 AND MG<>0 THEN LPRINT"MARGE";MG:LPRINT:GOSUB 6930:NP=2:WIDTH 40: RETURN 6560 IF NP=1 THEN LPRINT:LPRINT:GOSUB 6930:NP=2:WIDTH 40:RETURN ELSE LPRINT: GOSUB 6930:Z=Z+1:GOSUB 5750:WIDTH 40:RETURN 6600 REM: VERTRAGINGSMOGELIJKHEDEN OP SCHERM 6605 DF$="Driver":VT$=CHR$(23):IF NP=0 AND ZZ=1 THEN PRINT:GOSUB 6900: GOSUB 6410:RETURN: REM CHR$(23) ZONDER ; NEGEERT AFDRUK VT$ WANT ZET CURSOR UP 1x EN TERUG 6610 IF NP=2 AND ZZ=1 THEN PRINT:GOSUB 6900:GOSUB 6400:NP=0:RETURN 6615 IF NP=1 THEN GOSUB 6450:NP=0:GOSUB 6400:RETURN ELSE GOSUB 6410:RETURN 6630 DF$="Follower":IF MA=0 THEN VT$="":GOSUB 6410:PRINT ELSE VT$="(1 OP"+STR$(VE)+")":GOSUB 6410:PRINT 6635 RETURN 6650 REM: VERTRAGINGSMOGELIJKHEDEN OP PRINTER 6655 DF$="Driver":VT$="":IF NP=0 AND ZZ=1 THEN LPRINT:GOSUB 6930:Z=Z+1: GOSUB 5750:GOSUB 6510:RETURN 6660 IF NP=2 AND ZZ=1 THEN LPRINT:GOSUB 6930:Z=Z+1:GOSUB 5750: GOSUB 6500:NP=0:RETURN 6665 IF NP=1 THEN GOSUB 6550:NP=0:GOSUB 6500:RETURN ELSE GOSUB 6510:RETURN 6680 DF$="Follower":IF MA=0 THEN VT$="":GOSUB 6510:LPRINT ELSE VT$="(1 op"+STR$(VE)+")":GOSUB 6510:LPRINT 6685 RETURN 6700 REM: INPUT VOOR ENTRY 6705 PRINT:PRINT"Volgnr.";VOLG:INPUT"Part number ";PART$:LSET P$=PART$: INPUT"Omschrijving ";DESC$:LSET D$=DESC$: INPUT"Aantal tanden ";TAND:LSET T$=MKS$(TAND):RETURN 6750 REM: OP PRINTER? 6755 PRINT:PRINT"Resultaat op printer (J/N) ? "; 6760 PR$=INPUT$(1):PRINT PR$:IF PR$<>"J" AND PR$<>"N" THEN PRINT: PRINT"J of N ! ";:GOTO 6760 6765 RETURN 6800 REM: VERDERGAAN? 6805 PRINT:PRINT"Verdergaan ? (Druk willekeurige toets)";: VE$=INPUT$(1):GOSUB 5950:RETURN 6850 REM: NOG MEER? 6855 PRINT:PRINT"Nog meer (J/N) ?"; 6860 ME$=INPUT$(1):PRINT ME$:IF ME$<>"J" AND ME$<>"N" THEN PRINT: PRINT"J of N !";:GOTO 6860 6865 RETURN 6900 REM: PAGE TITEL 6905 IF FILE=1 THEN PRINT TAB(10)"TANDWIELOVERDRACHT":PRINT:RETURN 6910 IF FILE=2 THEN PRINT TAB(10)"KETTINGOVERDRACHT":PRINT:RETURN 6915 IF FILE=3 THEN PRINT TAB(7)"LARGE TOOTHED MOGELIJKHEID":PRINT:RETURN 6920 IF FILE=4 THEN PRINT TAB(7)"OVERDRACHT MET BEVEL GEARS":PRINT:RETURN 6925 IF FILE=5 THEN PRINT TAB(10)"ANDERE COMBINATIES":PRINT:RETURN 6930 IF FILE=1 THEN LPRINT TAB(20)"TANDWIELOVERDRACHT":LPRINT:RETURN 6935 IF FILE=2 THEN LPRINT TAB(20)"KETTINGOVERDRACHT":LPRINT:RETURN 6940 IF FILE=3 THEN WIDTH 80:LPRINT TAB(20)"LARGE TOOTHED MOGELIJKHEID":LPRINT: WIDTH 40:RETURN 6945 IF FILE=4 THEN WIDTH 80:LPRINT TAB(20)"OVERDRACHT MET BEVEL GEARS":LPRINT: WIDTH 40:RETURN 6950 IF FILE=5 THEN LPRINT TAB(20)"ANDERE COMBINATIES":LPRINT:RETURN 6955 REM: END OF FILE (AANPASSEN VOOR GROTERE OF KLEINERE BESTANDEN, MAAR ALTIJD IETS MEER VOOR DUMMY-RECORD 'EINDE' EN TOEVOEGMOGELIJKHEDEN VAN PROGRAMMA) 6960 IF FILE=1 THEN EF=30:RETURN 6965 IF FILE=2 THEN EF=25:RETURN 6970 IF FILE=3 THEN EF=5:RETURN 6975 IF FILE=4 THEN EF=5:RETURN 6980 IF FILE=5 THEN EF=20:RETURN 7000 REM * PROGRAMMA VAN HERMINE BAKKER, UTRECHT 1983 * 6975 IF FILE=4 THEN EF=5:RETURN 6980 IF FILE=5 THEN EF=20:RETURN 7000 REM * PROGRA