|
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: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »EL«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─ ⟦this⟧ »EL«
0100 PRINT "TILLÆG TIL OPGAVE 13.1" 0110 DIM VARETEKST$(30),VAREFIL$(20) 0120 VAREFIL$="KURSUS:VAREFIL" 0130 OPEN VAREFIL$,W 0140 IF STATUS(VAREFIL$)<>0 THEN 0150 PRINT "**FEJL**";STATUS(VAREFIL$) 0160 CLOSE VAREFIL$ 0170 END 0180 ENDIF 0190 REPEAT 0200 INPUT "INDTAST VARENUMMER ",VARENR 0210 IF VARENR=0 THEN EXIT 0220 INPUT "INDTAST ARTIKEL ",VARETEKST$ 0230 INPUT "INDTAST ANTAL",ANTAL 0240 INPUT "INDTAST PRIS ",PRIS 0250 PUT VAREFIL$:VARENR,VARETEKST$,ANTAL,PRIS 0260 IF STATUS(VAREFIL$)<>0 THEN 0270 PRINT "**FEJL**";STATUS(VAREFIL$) 0280 CLOSE VAREFIL$ 0290 END 0300 ENDIF 0310 UNTIL VARENR=0 0320 CLOSE VAREFIL$ 0330 PRINT "INDTASTNING AFSLUTTET" 0340 END