DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »DB/INDL{.SPO«

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

TextFile

2500 PROC indlæspost CLOSED
2510   IMPORT antalfelter,antalposter,feltnavne$,postlængde
2520   DIM svar$ OF 1,postindhold$(antalfelter) OF 25
2525   DIM post$ OF postlængde
2526   post$:= ""
2530   nr:= antalposter+1
2540   CLEAR 
2550   FOR i:= 1 TO antalfelter DO
2560     PRINT AT(1,i),"felt nr ";i;"  ";feltnavne$(i);
2570     PRINT "                           <"
2580     INPUT AT(21,i),":": postindhold$(i)
2590   NEXT i
2600   INPUT AT(10,12),"- kan posten godkendes (J/N): ": svar$
2610   IF svar$ IN "Nn" THEN
2620     REPEAT 
2630       INPUT AT(10,14),"Hvilket feltnr skal rettes (0 stopper rettelse)?": i
2640       IF 0<i AND i<11 THEN
2650         PRINT AT(21,i),"                           <"
2660         INPUT AT(21,i),":": postindhold$(i)
2670       ENDIF 
2680       PRINT AT(10,14),"                              ";
2690       PRINT "                                   "
2700     UNTIL i<=0
2710   ENDIF 
2711   FOR i:= 1 TO antalfelter DO
2712     FOR j:= LEN(postindhold$(i))+1 TO 25 DO postindhold$(i)(j:j):= " "
2713     post$:= post$+postindhold$(i)
2714   NEXT i
2720   WRITE FILE 1,nr: post$
2730   antalposter:= antalposter+1
2740   WRITE FILE 1,101: antalposter
2750 ENDPROC indlæspost
«eof»