|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »LIGE_ULI.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LIGE_ULI.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LIGE_ULI.K«
0010 // -------- lige_ulige ------------ 0020 // 0030 PROC FNLIGE(N) // boolsk funktion 0040 FNLIGE:=((N MOD 2)=0) 0050 ENDPROC FNLIGE 0060 // 0070 CLEAR 0075 PRINT 0080 INPUT "Indtast et helt tal: ":M 0090 PRINT M;"er "; 0100 IF NOT FNLIGE(M) THEN PRINT "u"; 0110 PRINT "lige"
0x000…02a Line {l1=0x28, l2=»0010 // -------- lige_ulige ------------«, l3=0x28}
0x02a…034 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x034…05c Line {l1=0x26, l2=»0030 PROC FNLIGE(N) // boolsk funktion«, l3=0x26}
0x05c…078 Line {l1=0x1a, l2=»0040 FNLIGE:=((N MOD 2)=0)«, l3=0x1a}
0x078…08d Line {l1=0x13, l2=»0050 ENDPROC FNLIGE«, l3=0x13}
0x08d…097 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x097…0a4 Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x0a4…0b1 Line {l1=0x0b, l2=»0075 PRINT «, l3=0x0b}
0x0b1…0d9 Line {l1=0x26, l2=»0080 INPUT "Indtast et helt tal: ":M«, l3=0x26}
0x0d9…0ee Line {l1=0x13, l2=»0090 PRINT M;"er ";«, l3=0x13}
0x0ee…115 Line {l1=0x25, l2=»0100 IF NOT FNLIGE(M) THEN PRINT "u";«, l3=0x25}
0x115…128 Line {l1=0x11, l2=»0110 PRINT "lige"«, l3=0x11}
0x128…140 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccc┆
0x140…160 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┆
[…0xc…]