|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1472 (0x5c0)
Notes: Mikados TextFile, Mikados_K
Names: »TAVLEOPG«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─ ⟦this⟧ »TAVLEOPG«
0100 DIM VARETEKST$(30),VAREFIL$(20) 0110 VAREFIL$="KURSUS:VAREFIL" 0120 REPEAT 0130 OPEN VAREFIL$,R 0140 IF STATUS(VAREFIL$)<>0 THEN 0150 PRINT "*** FEJL *** ";STATUS(VAREFIL$) 0160 CLOSE VAREFIL$ 0170 END 0180 ENDIF 0190 INPUT "INDTAST VARENR. ",VARENR 0200 IF VARENR=0 THEN EXIT 0210 REPEAT 0220 GET VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS 0230 IF STATUS(VAREFIL$)<>0 THEN EXIT 0240 UNTIL VNR=VARENR 0250 IF STATUS(VAREFIL$)=19 THEN PRINT "*** VARENR IKKE FUNDET ***" 0260 IF VNR=VARENR THEN PRINT VARENR;VARETEKST$;ANTAL;PRIS 0270 IF STATUS(VAREFIL$)<>19 AND STATUS(VAREFIL$)<>0 THEN 0280 PRINT "**** FEJL ****";STATUS(VAREFIL$) 0290 CLOSE VAREFIL$ 0300 END 0310 ENDIF 0320 CLOSE VAREFIL$ 0330 UNTIL VARENR=0 0340 CLOSE VAREFIL$ 0350 PRINT "PROGRAMMET ER NU FÆRDIG" 0360 END