|
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: 960 (0x3c0)
Notes: Mikados TextFile, Mikados_K
Names: »EL1«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─ ⟦this⟧ »EL1«
0100 REM OPGAVE 13.2 0110 DIM VARETEKST$(30),VAREFIL$(20),LIST$(2),LISTIN$(2) 0120 VAREFIL$="KURSUS:VAREFIL" 0130 LIST$="JA" 0140 INPUT "ØNKES UDSKRIFT AF VARELAGER INDTAST JA -----",LISTIN$ 0150 OPEN VAREFIL$,R 0160 REPEAT 0170 IF STATUS(VAREFIL$)<>0 THEN 0180 PRINT "***FEJL***",STATUS(VAREFIL$) 0190 CLOSE VAREFIL$ 0200 END 0210 ENDIF 0220 GET VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS 0225 IF STATUS(VAREFIL$)=19 THEN EXIT 0230 OUTPUT P 0240 PRINT "VARENR","ARTIKEL","ANTAL","PRIS" 0250 PRINT VNR,VARETEKST$,ANTAL,PRIS 0260 OUTPUT T 0270 UNTIL STATUS(VAREFIL$)=19 0280 CLOSE VAREFIL$ 0290 ENDIF 0300 END