|
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: 960 (0x3c0)
Notes: Mikados TextFile, Mikados_K
Names: »COMPR«
└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
└─ ⟦this⟧ »COMPR«
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
└─ ⟦this⟧ »COMPR«
0100 REM COMPR - MH 791102, PNM 050980, DI 050182, DI 210182 0110 DIM DREVN$(2) 0120 PRINT 0130 PRINT "COMPR - Komprimering af een plade" 0140 PRINT "Programmet stoppes ved at trykke paa ESC" 0150 REPEAT 0160 FLAG,FOREVER=0 0170 PRINT 0180 REPEAT 0190 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ",DREVN$ 0200 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0210 EXEC KOMP 0220 UNTIL FOREVER 0230 PROC KOMP 0240 PRINT " " 0250 PRINT "Aktuelt spor Sidste spor" 0260 PRINT " " 0270 CALL "SYSPROG:KOMPNM" 0280 PRINT "" 0290 PRINT " " 0300 IF FLAG<>0 THEN 0310 PRINT "Komp mislykkedes. Fejlkode";FLAG 0320 STOP 0330 ELSE 0340 PRINT DREVN$;" er nu komprimeret" 0350 ENDIF 0360 ENDPROC