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

⟦173c1e755⟧ TextFile

    Length: 1504 (0x5e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »MÅNED_NA.K«

Derivation

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

Mikados K File

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

Mikados K File

0x000…04a Line {l1=0x48, l2=»0010 // -------------------------------- måned_navn --------------------«, l3=0x48}
0x04a…085 Line {l1=0x39, l2=»0020 // Programmet udskriver en måneds navn samt antallet«, l3=0x39}
0x085…0c3 Line {l1=0x3c, l2=»0030 // af dagen i måneden, når man indtaster den pågældende«, l3=0x3c}
0x0c3…0d9 Line {l1=0x14, l2=»0040 // måneds navn.«, l3=0x14}
0x0d9…0e3 Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x0e3…109 Line {l1=0x24, l2=»0055 INTEGER FALSE,TRUE,FUNDET,ANTAL«, l3=0x24}
0x109…120 Line {l1=0x15, l2=»0056 FALSE:=0;TRUE:=1«, l3=0x15}
0x120…12d Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x12d…141 Line {l1=0x12, l2=»0070 FUNDET:=FALSE«, l3=0x12}
0x141…166 Line {l1=0x23, l2=»0080 DIM MÅNED$ OF 30,MÅNED2$ OF 80«, l3=0x23}
0x166…177 Line {l1=0x0f, l2=»0090 CURSOR 1,3«, l3=0x0f}
0x177…1a0 Line {l1=0x27, l2=»0100 PRINT "Antal af dage i en måned: "«, l3=0x27}
0x1a0…1b1 Line {l1=0x0f, l2=»0110 CURSOR 1,4«, l3=0x0f}
0x1b1…1da Line {l1=0x27, l2=»0120 PRINT "------------------------- "«, l3=0x27}
0x1da…1e8 Line {l1=0x0c, l2=»0130 REPEAT «, l3=0x0c}
0x1e8…1f9 Line {l1=0x0f, l2=»0140 CURSOR 1,6«, l3=0x0f}
0x1f9…236 Line {l1=0x3b, l2=»0150 INPUT "Indtast månedens navn (fx. April):    ":MÅNED2$«, l3=0x3b}
0x236…251 Line {l1=0x19, l2=»0160 UNTIL LEN(MÅNED2$)>2«, l3=0x19}
0x251…25b Line {l1=0x08, l2=»0170 // «, l3=0x08}
0x25b…274 Line {l1=0x17, l2=»0180 FOR I:=1 TO 12 DO «, l3=0x17}
0x274…28c Line {l1=0x16, l2=»0190 READ MÅNED$,ANTAL«, l3=0x16}
0x28c…2c4 Line {l1=0x36, l2=»0200 IF MÅNED2$ IN MÅNED$ AND MÅNED2$<>"Februar" THEN «, l3=0x36}
0x2c4…2d6 Line {l1=0x10, l2=»0210 CURSOR 1,10«, l3=0x10}
0x2d6…30d Line {l1=0x35, l2=»0220 PRINT "Måneden:  ";MÅNED$;" har ";ANTAL;" dage."«, l3=0x35}
0x30d…31f Line {l1=0x10, l2=»0230 CURSOR 1,11«, l3=0x10}
0x31f…356 Line {l1=0x35, l2=»0240 PRINT "----------------------------------------"«, l3=0x35}
0x356…369 Line {l1=0x11, l2=»0250 FUNDET:=TRUE«, l3=0x11}
0x369…375 Line {l1=0x0a, l2=»0260 ELSE «, l3=0x0a}
0x375…3ac Line {l1=0x35, l2=»0265 IF MÅNED2$ IN MÅNED$ AND MÅNED2$="Februar" THEN «, l3=0x35}
0x3ac…3be Line {l1=0x10, l2=»0270 CURSOR 1,10«, l3=0x10}
0x3be…409 Line {l1=0x49, l2=»0280 PRINT "Måneden: ";MÅNED$;" har ";ANTAL;"dage eller ";ANTAL+1;"dage."«, l3=0x49}
0x409…41b Line {l1=0x10, l2=»0290 CURSOR 1,11«, l3=0x10}
0x41b…465 Line {l1=0x48, l2=»0300 PRINT "-----------------------------------------------------------"«, l3=0x48}
0x465…478 Line {l1=0x11, l2=»0310 FUNDET:=TRUE«, l3=0x11}
0x478…485 Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x485…492 Line {l1=0x0b, l2=»0325 ENDIF «, l3=0x0b}
0x492…49f Line {l1=0x0b, l2=»0330 NEXT I«, l3=0x0b}
0x49f…4b9 Line {l1=0x18, l2=»0340 IF NOT FUNDET THEN «, l3=0x18}
0x4b9…4cb Line {l1=0x10, l2=»0350 CURSOR 1,16«, l3=0x10}
0x4cb…4fd Line {l1=0x30, l2=»0360 PRINT "Jeg kender desværre ikke den måned."«, l3=0x30}
0x4fd…50a Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x50a…514 Line {l1=0x08, l2=»0380 // «, l3=0x08}
0x514…557 Line {l1=0x41, l2=»0390 DATA "Januar",31,"Februar",28,"Marts",31,"April",30,"Maj",31«, l3=0x41}
0x557…59e Line {l1=0x45, l2=»0400 DATA "Juni",30,"Juli",31,"August",31,"September",30,"Oktober",31«, l3=0x45}
0x59e…5c5 Line {l1=0x25, l2=»0410 DATA "November",30,"December",31«, l3=0x25}
0x5c5…5e0 00 00 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                  ┆  ccccccccccccccccccccccccc┆

TextFile

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

Reduced view