PROGRAM TEKSTVEDL;TYPEPROCSTAT=RECORD NP,NROSTART:INTEGEREND;NPFILE=FILE OF PROCSTAT;'VAR LINE:ARRAY(1..22) OF STRING(72);' NRPF,CF:NPFILE; FIL:TEXT; FNAVN:STRING(20); I:INTEGER; QUQ:^INTEGER;BEGIN FNAVN:='BREV:P1:8:K'; CLEARSCREEN; GOTOXY(1,1);+ WRITELN('Oprettelse ell. {ndring (1/2)');+ REPEAT GOTOXY(35,1);READLN;READ(I)) UNTIL (IORESULT=0) AND (I>0) AND (I<3);) CLEARSCREEN; IF I=1 THEN  BEGIN FOR I:=1 TO 22 DO BEGIN  LINE(I):=L ' ';L+ GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);+ EDIT(LINE(I)) END END ELSE BEGIN REWRITE(FIL,FNAVN); READLN(FIL); FOR I:=1 TO 22 DO BEGIN  READLN(FIL,LINE(I));+ GOTOXY(1,I);WRITELN(I:2);GOTOXY(4,I);+ WRITELN(LINE(I)) END; CLOSE(FIL); END; REPEAT GOTOXY(1,23);0 WRITELN('[ndring i linie 0 for f{rdig');0 REPEAT " GOTOXY(17,23);READLN;READ(I)"- UNTIL (IORESULT=0) AND (I>-1) AND (I<23);- IF I>0 THEN BEGIN  GOTOXY(4,I); EDIT(LINE(I)) END UNTIL I=0;  REWRITE(FIL,FNAVN);) FOR I:=1 TO 22 DO WRITELN(FIL,LINE(I));) CLOSE(FIL);  CLEARSCREEN; FNAVN:='PROCSTAT:P2:0:I';(*$C-*) REPEAT REWRITE(NRPF,FNAVN); SEEK(NRPF,1) UNTIL IORESULT=0;(*$C+*) GET(NRPF);  NRPF^.NP:=1; SEEK(NRPF,1); PUT(NRPF);  REPEAT GOTOXY(1,20);3 WRITELN('S{t plade 1 i drev 1 og tryk RETURN');3 READLN; (*$C-*) REWRITE(CF,'C1:P1:0:J'); SEEK(CF,1)(*$C+*) UNTIL IORESULT=0; CLOSE(CF);  CLOSE(NRPF);$ CHAIN('INTRE *1','HOVSA:P1',QUQ)$END.cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc