|
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: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »COMPR80«
└─⟦445130f5c⟧ Bits:30003620 MIKADOS start diskette (flerbruger) med DDE COMAL-80 version 1.5
└─ ⟦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