DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LISTKUND.K«

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

Mikados K File

PROGRAM SKRIVFAK;
VAR S:STRING(20);SS:STRING(120);
    LINES:ARRAY (1..30) OF STRING(120);
    I:INTEGER;
    F:TEXT;
PROCEDURE FL(FLE:INTEGER);
BEGIN
  OUT80(84,24);
  OUT80(85,FLE+64);
  WHILE IN80(86,64)<>0 DO WRITE('Q');
  OUT80(86,1);
  OUT80(86,0)
END;
PROCEDURE FF;
BEGIN
  WHILE IN80(86,64)<>0 DO;
  OUT80(85,192);
  OUT80(85,64)
END;
BEGIN
FL(8); (*8 TOMMER*)
WRITELN(LIST,'<ShhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>');
WRITELN(LIST,'<SvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVVVVVVVVVVVVVVVV>');
WRITELN(LIST,'<Smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>');
  S:='KLISTE:P1:30:K';
  REWRITE(F,S);
  READLN(F);
  IF NOT EOF(F) THEN
  BEGIN
  FOR I:=1 TO 30 DO BEGIN
    READLN(F,LINES(I));
    IF LINES(I)='%P' THEN FF ELSE
    WRITELN(LIST,LINES(I));
    IF EOF(F) THEN I:=30
  END;
  REPEAT
  REPEAT
    CLEARSCREEN;
    GOTOXY(1,5);
    WRITELN('FLERE TESTPRINT, 0 FOR NEJ');
    GOTOXY(40,5);
    READLN;READ(I)
  UNTIL IORESULT=0;
  IF I<>0 THEN
  FOR I:=1 TO 30 DO
  IF LINES(I)='%P' THEN FF ELSE WRITELN(LIST,LINES(I));
  UNTIL I=0;
  WHILE NOT EOF(F) DO
  BEGIN
  READLN(F,SS);
  IF SS='%P' THEN FF ELSE
  WRITELN(LIST,SS)
 
  END;
  END;
  CLOSE(F);
END.