|
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: 750 (0x2ee)
Notes: Mikados TextFile, Mikados_K
Names: »COMPR80«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─⟦this⟧ »COMPR80«
0100 // COMPR80 - MH 791102, PNM 050980, DI 050182, DI 210182 0110 // COMAL80 VERSION 24.04.1982 0120 DIM DREVN$ OF 2 0130 INTEGER FLAG,FOREVER 0140 PRINT 0150 PRINT "COMPR80- Komprimering af een plade" 0160 PRINT "Programmet stoppes ved at trykke paa ESC" 0170 REPEAT 0180 FLAG,FOREVER:=0 0190 PRINT 0200 REPEAT 0210 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$ 0220 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0230 EXEC KOMP 0240 UNTIL FOREVER 0250 PROC KOMP 0260 PRINT " " 0270 PRINT "Aktuelt spor Sidste spor" 0280 PRINT " " 0290 CALL "SYSPROG:KOMPNM" 0300 PRINT "" 0310 PRINT " " 0320 IF FLAG<>0 THEN 0330 PRINT "Komprimeringen mislykkedes. Fejlkode ";FLAG 0340 STOP 0350 ELSE 0360 PRINT DREVN$;" er nu komprimeret" 0370 ENDIF 0380 ENDPROC KOMP