|
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)
Types: TextFile
Notes: Mikados_K
Names: »EL.K«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─⟦this⟧ »EL.K«
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
0x000…025 Line {l1=0x23, l2=»0100 PRINT "TILLÆG TIL OPGAVE 13.1"«, l3=0x23}
0x025…04b Line {l1=0x24, l2=»0110 DIM VARETEKST$(30),VAREFIL$(20)«, l3=0x24}
0x04b…06b Line {l1=0x1e, l2=»0120 VAREFIL$="KURSUS:VAREFIL"«, l3=0x1e}
0x06b…081 Line {l1=0x14, l2=»0130 OPEN VAREFIL$,W«, l3=0x14}
0x081…0a4 Line {l1=0x21, l2=»0140 IF STATUS(VAREFIL$)<>0 THEN «, l3=0x21}
0x0a4…0cc Line {l1=0x26, l2=»0150 PRINT "**FEJL**";STATUS(VAREFIL$)«, l3=0x26}
0x0cc…0e1 Line {l1=0x13, l2=»0160 CLOSE VAREFIL$«, l3=0x13}
0x0e1…0ec Line {l1=0x09, l2=»0170 END «, l3=0x09}
0x0ec…0f9 Line {l1=0x0b, l2=»0180 ENDIF «, l3=0x0b}
0x0f9…107 Line {l1=0x0c, l2=»0190 REPEAT «, l3=0x0c}
0x107…130 Line {l1=0x27, l2=»0200 INPUT "INDTAST VARENUMMER ",VARENR«, l3=0x27}
0x130…14d Line {l1=0x1b, l2=»0210 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x14d…177 Line {l1=0x28, l2=»0220 INPUT "INDTAST ARTIKEL ",VARETEKST$«, l3=0x28}
0x177…199 Line {l1=0x20, l2=»0230 INPUT "INDTAST ANTAL",ANTAL«, l3=0x20}
0x199…1ba Line {l1=0x1f, l2=»0240 INPUT "INDTAST PRIS ",PRIS«, l3=0x1f}
0x1ba…1ea Line {l1=0x2e, l2=»0250 PUT VAREFIL$:VARENR,VARETEKST$,ANTAL,PRIS«, l3=0x2e}
0x1ea…20d Line {l1=0x21, l2=»0260 IF STATUS(VAREFIL$)<>0 THEN «, l3=0x21}
0x20d…235 Line {l1=0x26, l2=»0270 PRINT "**FEJL**";STATUS(VAREFIL$)«, l3=0x26}
0x235…24a Line {l1=0x13, l2=»0280 CLOSE VAREFIL$«, l3=0x13}
0x24a…255 Line {l1=0x09, l2=»0290 END «, l3=0x09}
0x255…262 Line {l1=0x0b, l2=»0300 ENDIF «, l3=0x0b}
0x262…277 Line {l1=0x13, l2=»0310 UNTIL VARENR=0«, l3=0x13}
0x277…28c Line {l1=0x13, l2=»0320 CLOSE VAREFIL$«, l3=0x13}
0x28c…2b0 Line {l1=0x22, l2=»0330 PRINT "INDTASTNING AFSLUTTET"«, l3=0x22}
0x2b0…2bb Line {l1=0x09, l2=»0340 END «, l3=0x09}
0x2bb…2c0 00 00 00 00 00 ┆ ┆
0x2c0…2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆