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

⟦f3535df2c⟧ TextFile

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

Derivation

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

TextFile

0010 INPUT "indtast to tal: ": x,y
0015 max:= 0 // kun nødvendig i RC-comal
0020 EXEC maximum(x,y,max)
0030 a:= 9*max
0040 PRINT USING "a = #####.##": a
0050 END  // ----------------------
0060 //
0070 PROC maximum(a,b,REF max) CLOSED
0080   IF a<b THEN
0090     max:= b
0100   ELSE 
0110     max:= a
0120   ENDIF 
0130 ENDPROC maximum
«eof»