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

⟦a0ba7def6⟧ TextFile

    Length: 736 (0x2e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »MÅNED2.K«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MÅNED2.K« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MÅNED2.K«

Mikados K File

0010 // --------------------- måned2 ---------------------------
0015 INTEGER MÅNED
0020 CLEAR 
0030 CURSOR 1,5
0040 INPUT "Indtast månedens nummer: ":MÅNED
0050 CASE MÅNED OF 
0060 WHEN 1,2,3
0070 PRINT "Måneden:  ";MÅNED;" ligger i første kvartal."
0080 WHEN 4,5,6
0090 PRINT "Måneden:  ";MÅNED;" ligger i andet kvartal."
0100 WHEN 7,8,9
0110 PRINT "Måneden:  ";MÅNED;" ligger i tredie kvartal."
0120 WHEN 10,11,12
0130 PRINT "Måneden:  ";MÅNED;" ligger i fjerde kvartal."
0140 OTHERWISE 
0150 PRINT "Denne måned eksisterer vist ikke. Prøv en gang til."
0160 ENDCASE

Mikados K File

0x000…042 Line {l1=0x40, l2=»0010 // --------------------- måned2 ---------------------------«, l3=0x40}
0x042…056 Line {l1=0x12, l2=»0015 INTEGER MÅNED«, l3=0x12}
0x056…063 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x063…074 Line {l1=0x0f, l2=»0030 CURSOR 1,5«, l3=0x0f}
0x074…0a2 Line {l1=0x2c, l2=»0040 INPUT "Indtast månedens nummer: ":MÅNED«, l3=0x2c}
0x0a2…0b7 Line {l1=0x13, l2=»0050 CASE MÅNED OF «, l3=0x13}
0x0b7…0c8 Line {l1=0x0f, l2=»0060 WHEN 1,2,3«, l3=0x0f}
0x0c8…103 Line {l1=0x39, l2=»0070 PRINT "Måneden:  ";MÅNED;" ligger i første kvartal."«, l3=0x39}
0x103…114 Line {l1=0x0f, l2=»0080 WHEN 4,5,6«, l3=0x0f}
0x114…14e Line {l1=0x38, l2=»0090 PRINT "Måneden:  ";MÅNED;" ligger i andet kvartal."«, l3=0x38}
0x14e…15f Line {l1=0x0f, l2=»0100 WHEN 7,8,9«, l3=0x0f}
0x15f…19a Line {l1=0x39, l2=»0110 PRINT "Måneden:  ";MÅNED;" ligger i tredie kvartal."«, l3=0x39}
0x19a…1ae Line {l1=0x12, l2=»0120 WHEN 10,11,12«, l3=0x12}
0x1ae…1e9 Line {l1=0x39, l2=»0130 PRINT "Måneden:  ";MÅNED;" ligger i fjerde kvartal."«, l3=0x39}
0x1e9…1fa Line {l1=0x0f, l2=»0140 OTHERWISE «, l3=0x0f}
0x1fa…23c Line {l1=0x40, l2=»0150 PRINT "Denne måned eksisterer vist ikke. Prøv en gang til."«, l3=0x40}
0x23c…24b Line {l1=0x0d, l2=»0160 ENDCASE «, l3=0x0d}
0x24b…260 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                    ┆  ccccccccccccccccccc┆
0x260…280 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x3…]

Reduced view