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

⟦4a86944a3⟧

    Length: 448 (0x1c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »AFRUND«

Derivation

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

0010 // ------------- afrund ----------
0020 // 
0030 PROC AFRUND(AFTAL)
0040 AFRUND:=INT(AFTAL*100+0.5)/100
0050 ENDPROC AFRUND
0060 // 
0070 CLEAR 
0075 PRINT 
0080 INPUT "Indtast et tal:    ":TAL
0090 PRINT TAL
0100 PRINT AFRUND(TAL)