|
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 - metrics - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »MÅNED2«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MÅNED2«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MÅNED2«
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