DataMuseum.dk

top - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »DB/FINDI.POS«

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

TextFile

4000 PROC findipost(søgenøgle$) CLOSED
4010   IMPORT antalfelter,feltnavne$,antalposter,postlængde,skærmpå
4020   DIM svar$ OF 1,postindhold$(antalfelter) OF 25,post$ OF postlængde
4030   READ FILE 1,101: antalposter
4040   FOR nr:= 1 TO antalposter DO
4050     READ FILE 1,nr: post$
4060     FOR f:= 1 TO antalfelter DO postindhold$(f):= post$((f-1)*25+1:f*25)
4070     IF søgenøgle$ IN post$ THEN
4080       CLEAR 
4090       PRINT "en mulighed er:"
4100       FOR i:= 1 TO antalfelter DO
4110         PRINT AT(1,i+1),"felt nr ";i;"  ";feltnavne$(i);
4120         PRINT "                           <"
4130         PRINT AT(21,i+1),":";postindhold$(i)
4140       NEXT i
4150       PRINT 
4160       IF skærmpå THEN
4170         INPUT AT(60,22),"-tast return:": svar$
4180         CLEAR 
4190       ENDIF 
4200     ENDIF 
4210   NEXT nr
4220 ENDPROC findipost
«eof»