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 - metrics - download

⟦244a8dca3⟧ 

    Length: 736 (0x2e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »LIGE_ULI«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »LIGE_ULI« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »LIGE_ULI«

Text

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"