DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d64e10fcf⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »SIDE123B«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »SIDE123B«

TextFile

0010 INPUT "indtast to tal: ": x,y
0020 a:= 9*max(x,y)
0030 PRINT USING "a = #####.##": a
0040 END  // ----------------------
0050 //
0060 FUNC max(a,b) CLOSED
0070   IF a<b THEN
0080     RETURN b
0090   ELSE 
0100     RETURN a
0110   ENDIF 
0120 ENDFUNC max
«eof»