DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TEKSTVED.K«

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »TEKSTVED.K« 

Mikados K File

PROGRAM TEKSTVEDL;
TYPE
PROCSTAT=RECORD
       NP,NROSTART:INTEGER
END;
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):=
 '                                                                        ';
      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);
    WRITELN('Ændring i linie     0 for færdig');
    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);
    WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
    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.