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

⟦761f48196⟧ TextFile

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

Derivation

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

Mikados K File

0010 // --------------------- måned3 ---------------------------
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,3,5,7,8,10,12
0070 PRINT "Den ";MÅNED;". måned har 31. dage."
0080 WHEN 4,6,9,11
0090 PRINT "Den ";MÅNED;". måned har 30. dage."
0100 WHEN 2
0110 PRINT "Den ";MÅNED;". måned har 28. eller 29. dage."
0120 OTHERWISE 
0130 PRINT "Denne måned eksisterer vist ikke. Prøv en gang til."
0140 ENDCASE

Mikados K File

0x000…042 Line {l1=0x40, l2=»0010 // --------------------- måned3 ---------------------------«, 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…0a7 Line {l1=0x31, l2=»0040 INPUT "Indtast månedens nummer:      ":MÅNED«, l3=0x31}
0x0a7…0bc Line {l1=0x13, l2=»0050 CASE MÅNED OF «, l3=0x13}
0x0bc…0d7 Line {l1=0x19, l2=»0060 WHEN 1,3,5,7,8,10,12«, l3=0x19}
0x0d7…108 Line {l1=0x2f, l2=»0070 PRINT "Den ";MÅNED;". måned har 31. dage."«, l3=0x2f}
0x108…11c Line {l1=0x12, l2=»0080 WHEN 4,6,9,11«, l3=0x12}
0x11c…14d Line {l1=0x2f, l2=»0090 PRINT "Den ";MÅNED;". måned har 30. dage."«, l3=0x2f}
0x14d…15a Line {l1=0x0b, l2=»0100 WHEN 2«, l3=0x0b}
0x15a…195 Line {l1=0x39, l2=»0110 PRINT "Den ";MÅNED;". måned har 28. eller 29. dage."«, l3=0x39}
0x195…1a6 Line {l1=0x0f, l2=»0120 OTHERWISE «, l3=0x0f}
0x1a6…1e8 Line {l1=0x40, l2=»0130 PRINT "Denne måned eksisterer vist ikke. Prøv en gang til."«, l3=0x40}
0x1e8…1f7 Line {l1=0x0d, l2=»0140 ENDCASE «, l3=0x0d}
0x1f7…200 00 00 63 63 63 63 63 63 63                                                                        ┆  ccccccc┆
0x200…220 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┆
          […0x6…]

Reduced view