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 - metrics - download

⟦18076e0cc⟧ TextFile

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

Derivation

└─⟦9d0d4fbd5⟧ Bits:30003931/piccolo-disk6.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »REGISTER«

TextFile

1000 //    register
1010 CREATE "registe.fil",(20*115)/1024+1
1020 OPEN FILE 1,"registe.fil", RANDOM 115
1030 DIM navn$ OF 34,adr$ OF 34,post$ OF 24,tlf$ OF 19
1040 FOR x:=1 TO 11 DO
1050   INPUT "Navn ?": navn$
1060   INPUT "Adr  ?": adr$
1070   INPUT "Post ?": post$
1080   INPUT "Tlf  ?": tlf$
1090   WRITE FILE 1,x: navn$,adr$,post$,tlf$
1100 NEXT x
«eof»