|
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: 1504 (0x5e0)
Types: TextFile
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
H0010 // -------------------------------- måned_navn --------------------H90020 // Programmet udskriver en måneds navn samt antallet9<0030 // af dagen i måneden, når man indtaster den pågældende<▶14◀0040 // måneds navn.▶14◀▶08◀0050 // ▶08◀$0055 INTEGER FALSE,TRUE,FUNDET,ANTAL$▶15◀0056 FALSE:=0;TRUE:=1▶15◀▶0b◀0060 CLEAR ▶0b◀▶12◀0070 FUNDET:=FALSE▶12◀#0080 DIM MÅNED$ OF 30,MÅNED2$ OF 80#▶0f◀0090 CURSOR 1,3▶0f◀'0100 PRINT "Antal af dage i en måned: "'▶0f◀0110 CURSOR 1,4▶0f◀'0120 PRINT "------------------------- "'\f 0130 REPEAT \f ▶0f◀0140 CURSOR 1,6▶0f◀;0150 INPUT "Indtast månedens navn (fx. April): ":MÅNED2$;▶19◀0160 UNTIL LEN(MÅNED2$)>2▶19◀▶08◀0170 // ▶08◀▶17◀0180 FOR I:=1 TO 12 DO ▶17◀▶16◀0190 READ MÅNED$,ANTAL▶16◀60200 IF MÅNED2$ IN MÅNED$ AND MÅNED2$<>"Februar" THEN 6▶10◀0210 CURSOR 1,10▶10◀50220 PRINT "Måneden: ";MÅNED$;" har ";ANTAL;" dage."5▶10◀0230 CURSOR 1,11▶10◀50240 PRINT "----------------------------------------"5▶11◀0250 FUNDET:=TRUE▶11◀ 0260 ELSE 50265 IF MÅNED2$ IN MÅNED$ AND MÅNED2$="Februar" THEN 5▶10◀0270 CURSOR 1,10▶10◀I0280 PRINT "Måneden: ";MÅNED$;" har ";ANTAL;"dage eller ";ANTAL+1;"dage."I▶10◀0290 CURSOR 1,11▶10◀H0300 PRINT "-----------------------------------------------------------"H▶11◀0310 FUNDET:=TRUE▶11◀▶0b◀0320 ENDIF ▶0b◀▶0b◀0325 ENDIF ▶0b◀▶0b◀0330 NEXT I▶0b◀▶18◀0340 IF NOT FUNDET THEN ▶18◀▶10◀0350 CURSOR 1,16▶10◀00360 PRINT "Jeg kender desværre ikke den måned."0▶0b◀0370 ENDIF ▶0b◀▶08◀0380 // ▶08◀A0390 DATA "Januar",31,"Februar",28,"Marts",31,"April",30,"Maj",31AE0400 DATA "Juni",30,"Juli",31,"August",31,"September",30,"Oktober",31E%0410 DATA "November",30,"December",31%▶00◀▶00◀ccccccccccccccccccccccccc