|
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 - download
Length: 1472 (0x5c0)
Types: TextFile
Notes: Mikados_K
Names: »EKSMD1.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EKSMD1.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EKSMD1.K«
0010 // -------------------- eksmåned1 -------------------- 0020 // Udskriver antal dage i en måned, når man indtaster 0030 // månedens nummer. 0040 // 0045 INTEGER NUMMER,DAGE 0050 CLEAR 0055 PRINT 0060 INPUT "Indtast månedens nummer: ":NUMMER 0070 IF NUMMER=1 THEN DAGE:=31 0080 IF NUMMER=2 THEN DAGE:=28 0090 IF NUMMER=3 THEN DAGE:=31 0100 IF NUMMER=4 THEN DAGE:=30 0110 IF NUMMER=5 THEN DAGE:=31 0120 IF NUMMER=6 THEN DAGE:=30 0130 IF NUMMER=7 THEN DAGE:=31 0140 IF NUMMER=8 THEN DAGE:=31 0150 IF NUMMER=9 THEN DAGE:=30 0160 IF NUMMER=10 THEN DAGE:=31 0170 IF NUMMER=11 THEN DAGE:=30 0180 IF NUMMER=12 THEN DAGE:=31 0190 IF NUMMER<>2 THEN 0200 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage." 0210 ELSE 0220 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage eller ";DAGE+1;" dage" 0230 ENDIF
0x000…03d Line {l1=0x3b, l2=»0010 // -------------------- eksmåned1 --------------------«, l3=0x3b}
0x03d…079 Line {l1=0x3a, l2=»0020 // Udskriver antal dage i en måned, når man indtaster«, l3=0x3a}
0x079…093 Line {l1=0x18, l2=»0030 // månedens nummer.«, l3=0x18}
0x093…09d Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x09d…0b7 Line {l1=0x18, l2=»0045 INTEGER NUMMER,DAGE«, l3=0x18}
0x0b7…0c4 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0c4…0d1 Line {l1=0x0b, l2=»0055 PRINT «, l3=0x0b}
0x0d1…102 Line {l1=0x2f, l2=»0060 INPUT "Indtast månedens nummer: ":NUMMER«, l3=0x2f}
0x102…122 Line {l1=0x1e, l2=»0070 IF NUMMER=1 THEN DAGE:=31«, l3=0x1e}
0x122…142 Line {l1=0x1e, l2=»0080 IF NUMMER=2 THEN DAGE:=28«, l3=0x1e}
0x142…162 Line {l1=0x1e, l2=»0090 IF NUMMER=3 THEN DAGE:=31«, l3=0x1e}
0x162…182 Line {l1=0x1e, l2=»0100 IF NUMMER=4 THEN DAGE:=30«, l3=0x1e}
0x182…1a2 Line {l1=0x1e, l2=»0110 IF NUMMER=5 THEN DAGE:=31«, l3=0x1e}
0x1a2…1c2 Line {l1=0x1e, l2=»0120 IF NUMMER=6 THEN DAGE:=30«, l3=0x1e}
0x1c2…1e2 Line {l1=0x1e, l2=»0130 IF NUMMER=7 THEN DAGE:=31«, l3=0x1e}
0x1e2…202 Line {l1=0x1e, l2=»0140 IF NUMMER=8 THEN DAGE:=31«, l3=0x1e}
0x202…222 Line {l1=0x1e, l2=»0150 IF NUMMER=9 THEN DAGE:=30«, l3=0x1e}
0x222…243 Line {l1=0x1f, l2=»0160 IF NUMMER=10 THEN DAGE:=31«, l3=0x1f}
0x243…264 Line {l1=0x1f, l2=»0170 IF NUMMER=11 THEN DAGE:=30«, l3=0x1f}
0x264…285 Line {l1=0x1f, l2=»0180 IF NUMMER=12 THEN DAGE:=31«, l3=0x1f}
0x285…29e Line {l1=0x17, l2=»0190 IF NUMMER<>2 THEN «, l3=0x17}
0x29e…2d8 Line {l1=0x38, l2=»0200 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage."«, l3=0x38}
0x2d8…2e4 Line {l1=0x0a, l2=»0210 ELSE «, l3=0x0a}
0x2e4…333 Line {l1=0x4d, l2=»0220 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage eller ";DAGE+1;" dage"«, l3=0x4d}
0x333…340 Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x340…360 00 00 6e 65 64 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 3a 18 30 30 33 30 20 2f ┆ ned, når man indtaster: 0030 /┆
0x360…380 2f 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 2e 18 08 30 30 34 30 20 2f 2f 20 08 18 30 30 ┆/ månedens nummer. 0040 // 00┆
0x380…3a0 34 35 20 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 44 41 47 45 18 0b 30 30 35 30 20 43 4c 45 ┆45 INTEGER NUMMER,DAGE 0050 CLE┆
0x3a0…3c0 41 52 20 0b 0b 30 30 35 35 20 50 52 49 4e 54 20 0b 2f 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e ┆AR 0055 PRINT /0060 INPUT "In┆
0x3c0…3e0 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 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0xf…]
;0010 // -------------------- eksmåned1 --------------------;:0020 // Udskriver antal dage i en måned, når man indtaster:▶18◀0030 // månedens nummer.▶18◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER NUMMER,DAGE▶18◀▶0b◀0050 CLEAR ▶0b◀▶0b◀0055 PRINT ▶0b◀/0060 INPUT "Indtast månedens nummer: ":NUMMER/▶1e◀0070 IF NUMMER=1 THEN DAGE:=31▶1e◀▶1e◀0080 IF NUMMER=2 THEN DAGE:=28▶1e◀▶1e◀0090 IF NUMMER=3 THEN DAGE:=31▶1e◀▶1e◀0100 IF NUMMER=4 THEN DAGE:=30▶1e◀▶1e◀0110 IF NUMMER=5 THEN DAGE:=31▶1e◀▶1e◀0120 IF NUMMER=6 THEN DAGE:=30▶1e◀▶1e◀0130 IF NUMMER=7 THEN DAGE:=31▶1e◀▶1e◀0140 IF NUMMER=8 THEN DAGE:=31▶1e◀▶1e◀0150 IF NUMMER=9 THEN DAGE:=30▶1e◀▶1f◀0160 IF NUMMER=10 THEN DAGE:=31▶1f◀▶1f◀0170 IF NUMMER=11 THEN DAGE:=30▶1f◀▶1f◀0180 IF NUMMER=12 THEN DAGE:=31▶1f◀▶17◀0190 IF NUMMER<>2 THEN ▶17◀80200 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage."8 0210 ELSE M0220 PRINT "Måned nummer: ";NUMMER;" har ";DAGE;" dage eller ";DAGE+1;" dage"M▶0b◀0230 ENDIF ▶0b◀▶00◀▶00◀ned, når man indtaster:▶18◀0030 // månedens nummer.▶18◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER NUMMER,DAGE▶18◀▶0b◀0050 CLEAR ▶0b◀▶0b◀0055 PRINT ▶0b◀/0060 INPUT "Incccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc