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

⟦23b91f7cc⟧ TextFile

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

Derivation

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

TextFile

0010 INPUT "tast månedsnummer: ": måned
0020 CASE måned OF
0030 WHEN 1,3,5,7,8,10,12
0040   PRINT "den har 31 dage"
0050 WHEN 4,6,9,11
0060   PRINT "den har 30 dage"
0070 WHEN 2
0080   PRINT "den har 28 eller 29 dage"
0090 OTHERWISE 
0100   PRINT "umuligt månedsnummer!"
0110 ENDCASE 
«eof»