DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦ce9c9b5a1⟧ TextFile

    Length: 960 (0x3c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »COMPR.K«

Derivation

└─⟦57a827f90⟧ Bits:30005247 COMAL A verson 2.24 (MIKADOS)
    └─⟦this⟧ »COMPR.K« 
└─⟦85259e8f7⟧ Bits:30005248 COMAL B verson 1.19 (MIKADOS)
    └─⟦this⟧ »COMPR.K« 

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 

0x000…041 Line {l1=0x3f, l2=»0100 REM COMPR -    MH 791102, PNM 050980, DI 050182, DI 210182«, l3=0x3f}
0x041…055 Line {l1=0x12, l2=»0110 DIM DREVN$(2)«, l3=0x12}
0x055…062 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x062…092 Line {l1=0x2e, l2=»0130 PRINT "COMPR - Komprimering af een plade"«, l3=0x2e}
0x092…0c9 Line {l1=0x35, l2=»0140 PRINT "Programmet stoppes ved at trykke paa ESC"«, l3=0x35}
0x0c9…0d7 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x0d7…0ec Line {l1=0x13, l2=»0160 FLAG,FOREVER=0«, l3=0x13}
0x0ec…0f9 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x0f9…107 Line {l1=0x0c, l2=»0180 REPEAT «, l3=0x0c}
0x107…143 Line {l1=0x3a, l2=»0190 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ",DREVN$«, l3=0x3a}
0x143…16c Line {l1=0x27, l2=»0200 UNTIL DREVN$>"P0" AND DREVN$<="P9"«, l3=0x27}
0x16c…17c Line {l1=0x0e, l2=»0210 EXEC KOMP«, l3=0x0e}
0x17c…190 Line {l1=0x12, l2=»0220 UNTIL FOREVER«, l3=0x12}
0x190…1a0 Line {l1=0x0e, l2=»0230 PROC KOMP«, l3=0x0e}
0x1a0…1b0 Line {l1=0x0e, l2=»0240 PRINT " "«, l3=0x0e}
0x1b0…1e9 Line {l1=0x37, l2=»0250 PRINT "Aktuelt spor                   Sidste spor"«, l3=0x37}
0x1e9…1f9 Line {l1=0x0e, l2=»0260 PRINT " "«, l3=0x0e}
0x1f9…215 Line {l1=0x1a, l2=»0270 CALL "SYSPROG:KOMPNM"«, l3=0x1a}
0x215…224 Line {l1=0x0d, l2=»0280 PRINT ""«, l3=0x0d}
0x224…234 Line {l1=0x0e, l2=»0290 PRINT " "«, l3=0x0e}
0x234…24b Line {l1=0x15, l2=»0300 IF FLAG<>0 THEN «, l3=0x15}
0x24b…279 Line {l1=0x2c, l2=»0310 PRINT "Komp mislykkedes. Fejlkode";FLAG«, l3=0x2c}
0x279…285 Line {l1=0x0a, l2=»0320 STOP «, l3=0x0a}
0x285…291 Line {l1=0x0a, l2=»0330 ELSE «, l3=0x0a}
0x291…2b9 Line {l1=0x26, l2=»0340 PRINT DREVN$;" er nu komprimeret"«, l3=0x26}
0x2b9…2c6 Line {l1=0x0b, l2=»0350 ENDIF «, l3=0x0b}
0x2c6…2d5 Line {l1=0x0d, l2=»0360 ENDPROC «, l3=0x0d}
0x2d5…2e0 00 00 00 00 00 00 00 00 00 00 00                                                                  ┆           ┆
0x2e0…300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x5…]
0x3a0…3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63   ┆                               c┆

Reduced view