|
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/LOKAL.ISE«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »DB/LOKAL.ISE«
7000 PROC lokaliser(søgenøgle$,fra,til,REF fundetnr) CLOSED 7010 IMPORT antalfelter,feltnavne$,antalposter,postlængde 7020 DIM svar$ OF 1,postindhold$(antalfelter) OF 25,post$ OF postlængde 7030 fundetnr:= -1 7040 READ FILE 1,101: antalposter 7050 IF fra<1 THEN fra:= 1 7060 IF til>antalposter THEN til:= antalposter 7070 nr:= fra-1 7080 REPEAT 7090 nr:= nr+1 7100 READ FILE 1,nr: post$ 7110 IF søgenøgle$ IN post$ THEN fundetnr:= nr 7120 UNTIL fundetnr>0 OR nr>=til 7130 ENDPROC lokaliser «eof»