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

⟦05cffb4a7⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »LP«

Derivation

└─⟦710e052c9⟧ Bits:30004678 Myresnak Release 010784 boot diskette
    └─ ⟦this⟧ »LP«

TextFile

0010 PRINT CHR$(12)
0020 INPUT "Pris pr. pølse:   ": a
0030 INPUT "pris pr. brød :   ": b
0040 INPUT "Pris pr. øl   :   ": c
0050 INPUT "Pris pr. vand :   ": d
0060 PRINT CHR$(12)
0070 ZONE 20
0080 PRINT "PØLSER","BRØD","ØL","VAND"
0090 FOR i:= 1 TO 20 DO
0100   p:= i*a
0110   pb:= i*b
0120   øl:= i*c
0130   vand:= i*d
0140   PRINT p,pb,øl,vand
0150 NEXT i
0160 END 
«eof»