|
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: 1387 (0x56b)
Notes: Mikados TextFile, Mikados_K
Names: »MÅNED_NA«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MÅNED_NA«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MÅNED_NA«
0010 // -------------------------------- måned_navn -------------------- 0020 // Programmet udskriver en måneds navn samt antallet 0030 // af dagen i måneden, når man indtaster den pågældende 0040 // måneds navn. 0050 // 0055 INTEGER FALSE,TRUE,FUNDET,ANTAL 0056 FALSE:=0;TRUE:=1 0060 CLEAR 0070 FUNDET:=FALSE 0080 DIM MÅNED$ OF 30,MÅNED2$ OF 80 0090 CURSOR 1,3 0100 PRINT "Antal af dage i en måned: " 0110 CURSOR 1,4 0120 PRINT "------------------------- " 0130 REPEAT 0140 CURSOR 1,6 0150 INPUT "Indtast månedens navn (fx. April): ":MÅNED2$ 0160 UNTIL LEN(MÅNED2$)>2 0170 // 0180 FOR I:=1 TO 12 DO 0190 READ MÅNED$,ANTAL 0200 IF MÅNED2$ IN MÅNED$ AND MÅNED2$<>"Februar" THEN 0210 CURSOR 1,10 0220 PRINT "Måneden: ";MÅNED$;" har ";ANTAL;" dage." 0230 CURSOR 1,11 0240 PRINT "----------------------------------------" 0250 FUNDET:=TRUE 0260 ELSE 0265 IF MÅNED2$ IN MÅNED$ AND MÅNED2$="Februar" THEN 0270 CURSOR 1,10 0280 PRINT "Måneden: ";MÅNED$;" har ";ANTAL;"dage eller ";ANTAL+1;"dage." 0290 CURSOR 1,11 0300 PRINT "-----------------------------------------------------------" 0310 FUNDET:=TRUE 0320 ENDIF 0325 ENDIF 0330 NEXT I 0340 IF NOT FUNDET THEN 0350 CURSOR 1,16 0360 PRINT "Jeg kender desværre ikke den måned." 0370 ENDIF 0380 // 0390 DATA "Januar",31,"Februar",28,"Marts",31,"April",30,"Maj",31 0400 DATA "Juni",30,"Juli",31,"August",31,"September",30,"Oktober",31 0410 DATA "November",30,"December",31