|
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)
Types: TextFile
Notes: Mikados_K
Names: »TAVLEOPG.K«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─⟦this⟧ »TAVLEOPG.K«
0100 DIM VARETEKST$(30),VAREFIL$(20) 0110 VAREFIL$="KURSUS:VAREFIL" 0120 REPEAT 0130 OPEN VAREFIL$,R 0140 IF STATUS(VAREFIL$)<>0 THEN 0150 PRINT "*** FEJL *** ";STATUS(VAREFIL$) 0160 CLOSE VAREFIL$ 0170 END 0180 ENDIF 0190 INPUT "INDTAST VARENR. ",VARENR 0200 IF VARENR=0 THEN EXIT 0210 REPEAT 0220 GET VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS 0230 IF STATUS(VAREFIL$)<>0 THEN EXIT 0240 UNTIL VNR=VARENR 0250 IF STATUS(VAREFIL$)=19 THEN PRINT "*** VARENR IKKE FUNDET ***" 0260 IF VNR=VARENR THEN PRINT VARENR;VARETEKST$;ANTAL;PRIS 0270 IF STATUS(VAREFIL$)<>19 AND STATUS(VAREFIL$)<>0 THEN 0280 PRINT "**** FEJL ****";STATUS(VAREFIL$) 0290 CLOSE VAREFIL$ 0300 END 0310 ENDIF 0320 CLOSE VAREFIL$ 0330 UNTIL VARENR=0 0340 CLOSE VAREFIL$ 0350 PRINT "PROGRAMMET ER NU FÆRDIG" 0360 END
0x000…026 Line {l1=0x24, l2=»0100 DIM VARETEKST$(30),VAREFIL$(20)«, l3=0x24}
0x026…046 Line {l1=0x1e, l2=»0110 VAREFIL$="KURSUS:VAREFIL"«, l3=0x1e}
0x046…054 Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x054…06a Line {l1=0x14, l2=»0130 OPEN VAREFIL$,R«, l3=0x14}
0x06a…08d Line {l1=0x21, l2=»0140 IF STATUS(VAREFIL$)<>0 THEN «, l3=0x21}
0x08d…0ba Line {l1=0x2b, l2=»0150 PRINT "*** FEJL *** ";STATUS(VAREFIL$)«, l3=0x2b}
0x0ba…0cf Line {l1=0x13, l2=»0160 CLOSE VAREFIL$«, l3=0x13}
0x0cf…0da Line {l1=0x09, l2=»0170 END «, l3=0x09}
0x0da…0e7 Line {l1=0x0b, l2=»0180 ENDIF «, l3=0x0b}
0x0e7…10d Line {l1=0x24, l2=»0190 INPUT "INDTAST VARENR. ",VARENR«, l3=0x24}
0x10d…12a Line {l1=0x1b, l2=»0200 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x12a…138 Line {l1=0x0c, l2=»0210 REPEAT «, l3=0x0c}
0x138…165 Line {l1=0x2b, l2=»0220 GET VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS«, l3=0x2b}
0x165…18d Line {l1=0x26, l2=»0230 IF STATUS(VAREFIL$)<>0 THEN EXIT «, l3=0x26}
0x18d…1a4 Line {l1=0x15, l2=»0240 UNTIL VNR=VARENR«, l3=0x15}
0x1a4…1e9 Line {l1=0x43, l2=»0250 IF STATUS(VAREFIL$)=19 THEN PRINT "*** VARENR IKKE FUNDET ***"«, l3=0x43}
0x1e9…225 Line {l1=0x3a, l2=»0260 IF VNR=VARENR THEN PRINT VARENR;VARETEKST$;ANTAL;PRIS«, l3=0x3a}
0x225…261 Line {l1=0x3a, l2=»0270 IF STATUS(VAREFIL$)<>19 AND STATUS(VAREFIL$)<>0 THEN «, l3=0x3a}
0x261…28f Line {l1=0x2c, l2=»0280 PRINT "**** FEJL ****";STATUS(VAREFIL$)«, l3=0x2c}
0x28f…2a4 Line {l1=0x13, l2=»0290 CLOSE VAREFIL$«, l3=0x13}
0x2a4…2af Line {l1=0x09, l2=»0300 END «, l3=0x09}
0x2af…2bc Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x2bc…2d1 Line {l1=0x13, l2=»0320 CLOSE VAREFIL$«, l3=0x13}
0x2d1…2e6 Line {l1=0x13, l2=»0330 UNTIL VARENR=0«, l3=0x13}
0x2e6…2fb Line {l1=0x13, l2=»0340 CLOSE VAREFIL$«, l3=0x13}
0x2fb…321 Line {l1=0x24, l2=»0350 PRINT "PROGRAMMET ER NU FÆRDIG"«, l3=0x24}
0x321…32c Line {l1=0x09, l2=»0360 END «, l3=0x09}
0x32c…340 00 00 50 45 41 54 20 0c 14 30 31 33 30 20 4f 50 45 4e 20 56 ┆ PEAT 0130 OPEN V┆
0x340…360 41 52 45 46 49 4c 24 2c 52 14 21 30 31 34 30 20 49 46 20 53 54 41 54 55 53 28 56 41 52 45 46 49 ┆AREFIL$,R !0140 IF STATUS(VAREFI┆
0x360…380 4c 24 29 3c 3e 30 20 54 48 45 4e 20 21 2b 30 31 35 30 20 50 52 49 4e 54 20 22 2a 2a 2a 20 46 45 ┆L$)<>0 THEN !+0150 PRINT "*** FE┆
0x380…3a0 4a 4c 20 2a 2a 2a 20 22 3b 53 54 41 54 55 53 28 56 41 52 45 46 49 4c 24 29 2b 13 30 31 36 30 20 ┆JL *** ";STATUS(VAREFIL$)+ 0160 ┆
0x3a0…3c0 43 4c 4f 53 45 20 56 41 52 45 46 49 4c 24 13 09 30 31 37 30 20 45 4e 44 20 09 0b 30 31 38 30 20 ┆CLOSE VAREFIL$ 0170 END 0180 ┆
0x3c0…3e0 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 ┆ ┆
[…0xf…]