|
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)
Types: TextFile
Notes: Mikados_K
Names: »EL1.K«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─⟦this⟧ »EL1.K«
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
0x000…016 Line {l1=0x14, l2=»0100 REM OPGAVE 13.2«, l3=0x14}
0x016…050 Line {l1=0x38, l2=»0110 DIM VARETEKST$(30),VAREFIL$(20),LIST$(2),LISTIN$(2)«, l3=0x38}
0x050…070 Line {l1=0x1e, l2=»0120 VAREFIL$="KURSUS:VAREFIL"«, l3=0x1e}
0x070…081 Line {l1=0x0f, l2=»0130 LIST$="JA"«, l3=0x0f}
0x081…0c4 Line {l1=0x41, l2=»0140 INPUT "ØNKES UDSKRIFT AF VARELAGER INDTAST JA -----",LISTIN$«, l3=0x41}
0x0c4…0da Line {l1=0x14, l2=»0150 OPEN VAREFIL$,R«, l3=0x14}
0x0da…0e8 Line {l1=0x0c, l2=»0160 REPEAT «, l3=0x0c}
0x0e8…10b Line {l1=0x21, l2=»0170 IF STATUS(VAREFIL$)<>0 THEN «, l3=0x21}
0x10b…135 Line {l1=0x28, l2=»0180 PRINT "***FEJL***",STATUS(VAREFIL$)«, l3=0x28}
0x135…14a Line {l1=0x13, l2=»0190 CLOSE VAREFIL$«, l3=0x13}
0x14a…155 Line {l1=0x09, l2=»0200 END «, l3=0x09}
0x155…162 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x162…18f Line {l1=0x2b, l2=»0220 GET VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS«, l3=0x2b}
0x18f…1b7 Line {l1=0x26, l2=»0225 IF STATUS(VAREFIL$)=19 THEN EXIT «, l3=0x26}
0x1b7…1c6 Line {l1=0x0d, l2=»0230 OUTPUT P«, l3=0x0d}
0x1c6…1f4 Line {l1=0x2c, l2=»0240 PRINT "VARENR","ARTIKEL","ANTAL","PRIS"«, l3=0x2c}
0x1f4…21a Line {l1=0x24, l2=»0250 PRINT VNR,VARETEKST$,ANTAL,PRIS«, l3=0x24}
0x21a…229 Line {l1=0x0d, l2=»0260 OUTPUT T«, l3=0x0d}
0x229…249 Line {l1=0x1e, l2=»0270 UNTIL STATUS(VAREFIL$)=19«, l3=0x1e}
0x249…25e Line {l1=0x13, l2=»0280 CLOSE VAREFIL$«, l3=0x13}
0x25e…26b Line {l1=0x0b, l2=»0290 ENDIF «, l3=0x0b}
0x26b…276 Line {l1=0x09, l2=»0300 END «, l3=0x09}
0x276…280 00 00 49 46 54 20 41 46 20 56 ┆ IFT AF V┆
0x280…2a0 41 52 45 4c 41 47 45 52 20 49 4e 44 54 41 53 54 20 4a 41 20 22 2c 4c 49 53 54 49 4e 3b 14 30 31 ┆ARELAGER INDTAST JA ",LISTIN; 01┆
0x2a0…2c0 35 30 20 4f 50 45 4e 20 56 41 52 45 46 49 4c 24 2c 52 14 0c 30 31 36 30 20 52 45 50 45 41 54 20 ┆50 OPEN VAREFIL$,R 0160 REPEAT ┆
0x2c0…2e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x7…]