|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Types: TextFile
Names: »DB/BRUG«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »DB/BRUG«
2000 PROC brug(filnavn$) CLOSED 2005 CLOSE // lukker evt fejlagtigt åbne filer 2010 IMPORT antalfelter,postlængde,antalposter,feltnavne$ 2015 DIM felter$ OF 80 2020 OPEN FILE 2,filnavn$+".DEF", RANDOM 90 2030 READ FILE 2,1: antalfelter,felter$ 2040 CLOSE FILE 2 2041 FOR i:= 1 TO antalfelter DO feltnavne$(i):= felter$((i-1)*8+1:i*8) 2050 postlængde:= antalfelter*25 2060 OPEN FILE 1,filnavn$+".RAN", RANDOM postlængde+2 2070 READ FILE 1,101: antalposter 2080 ENDPROC brug 2090 // 2100 // «eof»