|
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: »ME.K«
└─⟦926f9d5a7⟧ Bits:30003577 ESDUMP kursus
└─⟦this⟧ »ME.K«
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
0x000…024 Line {l1=0x22, l2=»0100 REM OPRETTELSE AF NYE RECORDS«, l3=0x22}
0x024…04a Line {l1=0x24, l2=»0110 DIM VARETEKST$(30),VAREFIL$(20)«, l3=0x24}
0x04a…064 Line {l1=0x18, l2=»0115 DIM VARETEKST1$(30)«, l3=0x18}
0x064…085 Line {l1=0x1f, l2=»0120 VAREFIL$="KURSUS:VAREFILA"«, l3=0x1f}
0x085…093 Line {l1=0x0c, l2=»0130 REPEAT «, l3=0x0c}
0x093…0a9 Line {l1=0x14, l2=»0140 OPEN VAREFIL$,W«, l3=0x14}
0x0a9…0cb Line {l1=0x20, l2=»0150 IF STATUS(VAREFIL$)>0 THEN «, l3=0x20}
0x0cb…0f1 Line {l1=0x24, l2=»0160 PRINT "**FEJL";STATUS(VAREFIL$)«, l3=0x24}
0x0f1…106 Line {l1=0x13, l2=»0170 CLOSE VAREFIL$«, l3=0x13}
0x106…111 Line {l1=0x09, l2=»0180 END «, l3=0x09}
0x111…11e Line {l1=0x0b, l2=»0190 ENDIF «, l3=0x0b}
0x11e…13f Line {l1=0x1f, l2=»0200 INPUT "INDTAST VARENR",VNR«, l3=0x1f}
0x13f…159 Line {l1=0x18, l2=»0210 IF VNR=0 THEN EXIT «, l3=0x18}
0x159…184 Line {l1=0x29, l2=»0220 INPUT "INDTAST VARETEKST",VARETEKST$«, l3=0x29}
0x184…1a6 Line {l1=0x20, l2=»0230 INPUT "INDTAST ANTAL",ANTAL«, l3=0x20}
0x1a6…1c6 Line {l1=0x1e, l2=»0240 INPUT "INDTAST PRIS",PRIS«, l3=0x1e}
0x1c6…1d5 Line {l1=0x0d, l2=»0250 EXEC LÆS«, l3=0x0d}
0x1d5…202 Line {l1=0x2b, l2=»0260 PUT VAREFIL$:VNR,VARETEKST$,ANTAL,PRIS«, l3=0x2b}
0x202…224 Line {l1=0x20, l2=»0270 IF STATUS(VAREFIL$)>0 THEN «, l3=0x20}
0x224…24a Line {l1=0x24, l2=»0280 PRINT "**FEJL",STATUS(VAREFIL$)«, l3=0x24}
0x24a…25f Line {l1=0x13, l2=»0290 CLOSE VAREFIL$«, l3=0x13}
0x25f…26a Line {l1=0x09, l2=»0300 END «, l3=0x09}
0x26a…277 Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x277…28c Line {l1=0x13, l2=»0320 CLOSE VAREFIL$«, l3=0x13}
0x28c…29e Line {l1=0x10, l2=»0330 UNTIL VNR=0«, l3=0x10}
0x29e…2a9 Line {l1=0x09, l2=»0340 END «, l3=0x09}
0x2a9…2b8 Line {l1=0x0d, l2=»0350 PROC LÆS«, l3=0x0d}
0x2b8…2c6 Line {l1=0x0c, l2=»0360 REPEAT «, l3=0x0c}
0x2c6…2f7 Line {l1=0x2f, l2=»0370 GET VAREFIL$:VNR1,VARETEKST1$,ANTAL1,PRIS1«, l3=0x2f}
0x2f7…316 Line {l1=0x1d, l2=»0380 UNTIL STATUS(VAREFIL$)>0«, l3=0x1d}
0x316…325 Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x325…340 00 00 30 29 24 1e 30 31 32 30 20 56 41 52 45 46 49 4c 24 3d 22 4b 55 52 53 55 53 ┆ 0)$ 0120 VAREFIL$="KURSUS┆
0x340…360 3a 56 41 52 45 46 49 4c 22 1e 0c 30 31 33 30 20 52 45 50 45 41 54 20 0c 14 30 31 34 30 20 4f 50 ┆:VAREFIL" 0130 REPEAT 0140 OP┆
0x360…380 45 4e 20 56 41 52 45 46 49 4c 24 2c 57 14 20 30 31 35 30 20 49 46 20 53 54 41 54 55 53 28 56 41 ┆EN VAREFIL$,W 0150 IF STATUS(VA┆
0x380…3a0 52 45 46 49 4c 24 29 3e 30 20 54 48 45 4e 20 20 24 30 31 36 30 20 50 52 49 4e 54 20 22 2a 2a 46 ┆REFIL$)>0 THEN $0160 PRINT "**F┆
0x3a0…3c0 45 4a 4c 22 3b 53 54 41 54 55 53 28 56 41 52 45 46 49 4c 24 29 24 13 30 31 37 30 20 43 4c 4f 53 ┆EJL";STATUS(VAREFIL$)$ 0170 CLOS┆
0x3c0…3e0 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┆
[…0xf…]