|
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: »PCOPY.K«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─⟦this⟧ »PCOPY.K«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─⟦this⟧ »PCOPY.K«
0100 REM 050980, DI 060182, DI 210182 0110 DIM DREVN$(2) 0120 PRINT 0130 PRINT "PCOPY - Kopiering af disketter" 0140 PRINT "Programmet stoppes ved at trykke paa ESC" 0150 REPEAT 0160 FLAG,FOREVER=0 0170 PRINT 0180 REPEAT 0190 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette" 0200 PRINT 0210 INPUT "som der kopieres fra: ",DREVN$ 0220 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0230 LET DREVFRA=ORD(DREVN$(2)) 0240 PRINT 0250 REPEAT 0260 INPUT "som der kopieres til: ",DREVN$ 0270 LET DREVTIL=ORD(DREVN$(2)) 0280 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9") 0290 EXEC COPY 0300 UNTIL FOREVER 0310 PROC COPY 0320 PRINT " " 0330 PRINT "Aktuelt spor Sidste spor" 0340 PRINT " " 0350 CALL "SYSPROG:CPCOP" 0360 PRINT " " 0370 IF FLAG<>0 THEN 0380 PRINT "Copy mislykkedes. Fejlkode";FLAG 0390 STOP 0400 ELSE 0410 PRINT "P";CHR(DREVFRA);" er kopieret til ";DREVN$ 0420 ENDIF 0430 ENDPROC
0x000…027 Line {l1=0x25, l2=»0100 REM 050980, DI 060182, DI 210182«, l3=0x25}
0x027…03b Line {l1=0x12, l2=»0110 DIM DREVN$(2)«, l3=0x12}
0x03b…048 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x048…075 Line {l1=0x2b, l2=»0130 PRINT "PCOPY - Kopiering af disketter"«, l3=0x2b}
0x075…0ac Line {l1=0x35, l2=»0140 PRINT "Programmet stoppes ved at trykke paa ESC"«, l3=0x35}
0x0ac…0ba Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x0ba…0cf Line {l1=0x13, l2=»0160 FLAG,FOREVER=0«, l3=0x13}
0x0cf…0dc Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x0dc…0ea Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x0ea…12e Line {l1=0x42, l2=»0190 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette"«, l3=0x42}
0x12e…13b Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x13b…167 Line {l1=0x2a, l2=»0210 INPUT "som der kopieres fra: ",DREVN$«, l3=0x2a}
0x167…190 Line {l1=0x27, l2=»0220 UNTIL DREVN$>"P0" AND DREVN$<="P9"«, l3=0x27}
0x190…1b1 Line {l1=0x1f, l2=»0230 LET DREVFRA=ORD(DREVN$(2))«, l3=0x1f}
0x1b1…1be Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x1be…1cc Line {l1=0x0c, l2=»0250 REPEAT «, l3=0x0c}
0x1cc…1f8 Line {l1=0x2a, l2=»0260 INPUT "som der kopieres til: ",DREVN$«, l3=0x2a}
0x1f8…219 Line {l1=0x1f, l2=»0270 LET DREVTIL=ORD(DREVN$(2))«, l3=0x1f}
0x219…259 Line {l1=0x3e, l2=»0280 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9")«, l3=0x3e}
0x259…269 Line {l1=0x0e, l2=»0290 EXEC COPY«, l3=0x0e}
0x269…27d Line {l1=0x12, l2=»0300 UNTIL FOREVER«, l3=0x12}
0x27d…28d Line {l1=0x0e, l2=»0310 PROC COPY«, l3=0x0e}
0x28d…29d Line {l1=0x0e, l2=»0320 PRINT " "«, l3=0x0e}
0x29d…2d6 Line {l1=0x37, l2=»0330 PRINT "Aktuelt spor Sidste spor"«, l3=0x37}
0x2d6…2e6 Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2e6…301 Line {l1=0x19, l2=»0350 CALL "SYSPROG:CPCOP"«, l3=0x19}
0x301…311 Line {l1=0x0e, l2=»0360 PRINT " "«, l3=0x0e}
0x311…328 Line {l1=0x15, l2=»0370 IF FLAG<>0 THEN «, l3=0x15}
0x328…356 Line {l1=0x2c, l2=»0380 PRINT "Copy mislykkedes. Fejlkode";FLAG«, l3=0x2c}
0x356…362 Line {l1=0x0a, l2=»0390 STOP «, l3=0x0a}
0x362…36e Line {l1=0x0a, l2=»0400 ELSE «, l3=0x0a}
0x36e…3a6 Line {l1=0x36, l2=»0410 PRINT "P";CHR(DREVFRA);" er kopieret til ";DREVN$«, l3=0x36}
0x3a6…3b3 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x3b3…3c2 Line {l1=0x0d, l2=»0430 ENDPROC «, l3=0x0d}
0x3c2…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 ┆ ┆
0x3e0…400 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 ┆ ┆
[…0xd…]
0x5a0…5c0 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 63 ┆ c┆