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

⟦ac0b6bea9⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »DB/SLETP.OST«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »DB/SLETP.OST«

TextFile

4500 PROC sletpost(nr) CLOSED
4510   IMPORT antalfelter,feltnavne$,antalposter,postlængde
4520   DIM svar$ OF 1,postindhold$(antalfelter) OF 25,post$ OF postlængde
4530   IF 0<nr AND nr<=antalposter THEN
4540     READ FILE 1,antalposter: post$
4550     WRITE FILE 1,nr: post$
4560     post$:= " "
4570     WRITE FILE 1,antalposter: post$
4580     antalposter:= antalposter-1
4590     WRITE FILE 1,101: antalposter
4600   ENDIF 
4610 ENDPROC sletpost
«eof»