|
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: 1472 (0x5c0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »EKSMD1«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EKSMD1«
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
;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