DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »DB/RETPO.ST«

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

TextFile

3000 PROC retpost(nr) CLOSED
3010   IMPORT antalfelter,feltnavne$,antalposter,postlængde
3020   DIM svar$ OF 1,postindhold$(antalfelter) OF 25,post$ OF postlængde
3030   IF 0<nr AND nr<=antalposter THEN
3040     READ FILE 1,nr: post$
3050     FOR f:= 1 TO antalfelter DO postindhold$(f):= post$((f-1)*25+1:f*25)
3060     CLEAR 
3070     FOR i:= 1 TO antalfelter DO
3080       PRINT AT(1,i+1),"felt nr ";i;"  ";feltnavne$(i);
3090       PRINT "                           <"
3100       PRINT AT(21,i+1),":";postindhold$(i)
3110     NEXT i
3120     REPEAT 
3130       INPUT AT(10,14),"Hvilket feltnr skal rettes (0 stopper rettelse)?": i
3140       IF 0<i AND i<11 THEN
3150         PRINT AT(21,i+1),"                           <"
3160         INPUT AT(21,i+1),":": postindhold$(i)
3170       ENDIF 
3180       PRINT AT(10,14),"                              ";
3190       PRINT "                                   "
3200     UNTIL i<=0
3210     post$:= ""
3220     FOR i:= 1 TO antalfelter DO
3230       FOR j:= LEN(postindhold$(i))+1 TO 25 DO postindhold$(i)(j:j):= " "
3240       post$:= post$+postindhold$(i)
3250     NEXT i
3260     WRITE FILE 1,nr: post$
3270   ENDIF 
3280 ENDPROC retpost
«eof»