|
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)
Notes: Mikados TextFile, Mikados_K
Names: »PCOPY«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─ ⟦this⟧ »PCOPY«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─ ⟦this⟧ »PCOPY«
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