|
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 - metrics - download
Length: 967 (0x3c7)
Notes: Mikados TextFile, Mikados_K
Names: »PCOPY80«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─⟦this⟧ »PCOPY80«
0100 // 050980, DI 060182, DI 210182, C80 UDG. 27.04,9182 0110 // PROGRAM PCOPY80 0120 DIM DREVN$ OF 2 0130 INTEGER FOREVER,FLAG 0140 PRINT 0150 PRINT "PCOPY80 - Kopiering af disketter" 0160 PRINT "Programmet stoppes ved at trykke paa ESC" 0170 REPEAT 0180 FLAG,FOREVER:=0 0190 PRINT 0200 REPEAT 0210 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette" 0220 PRINT 0230 INPUT "som der kopieres fra: ":DREVN$ 0240 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0250 DREVFRA:=ORD(DREVN$(2)) 0260 PRINT 0270 REPEAT 0280 INPUT "som der kopieres til: ":DREVN$ 0290 DREVTIL:=ORD(DREVN$(2)) 0300 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9") 0310 EXEC COPY 0320 UNTIL FOREVER 0330 PROC COPY 0340 PRINT " " 0350 PRINT "Aktuelt spor Sidste spor" 0360 PRINT " " 0370 CALL "SYSPROG:CPCOP" 0380 PRINT " " 0390 IF FLAG<>0 THEN 0400 PRINT "Copy mislykkedes. Fejlkode ";FLAG 0410 STOP 0420 ELSE 0430 PRINT "P";CHR$(DREVFRA);" er kopieret til ";DREVN$ 0440 ENDIF 0450 ENDPROC COPY