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 - metrics - download

⟦761f48196⟧

    Length: 736 (0x2e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »MÅNED3«

Derivation

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

Text

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