|
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: »ME«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─ ⟦this⟧ »ME«
0100 REM OPRETTELSE AF NYE RECORDS 0110 DIM VARETEKST$(30),VAREFIL$(20) 0115 DIM VARETEKST1$(30) 0120 VAREFIL$="KURSUS:VAREFILA" 0130 REPEAT 0140 OPEN VAREFIL$,W 0150 IF STATUS(VAREFIL$)>0 THEN 0160 PRINT "**FEJL";STATUS(VAREFIL$) 0170 CLOSE VAREFIL$ 0180 END 0190 ENDIF 0200 INPUT "INDTAST VARENR",VNR 0210 IF VNR=0 THEN EXIT 0220 INPUT "INDTAST VARETEKST",VARETEKST$ 0230 INPUT "INDTAST ANTAL",ANTAL 0240 INPUT "INDTAST PRIS",PRIS 0250 EXEC LÆS 0260 PUT VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS 0270 IF STATUS(VAREFIL$)>0 THEN 0280 PRINT "**FEJL",STATUS(VAREFIL$) 0290 CLOSE VAREFIL$ 0300 END 0310 ENDIF 0320 CLOSE VAREFIL$ 0330 UNTIL VNR=0 0340 END 0350 PROC LÆS 0360 REPEAT 0370 GET VAREFIL$:VNR1,VARETEKST1$,ANTAL1,PRIS1 0380 UNTIL STATUS(VAREFIL$)>0 0390 ENDPROC