(*******   LOCO1Z.INC  Includedatei zu LOCOCONZ.PAS   *******)

PROCEDURE Kasten(x,y,b,h :integer);
BEGIN
  gotoxy(x,y); write(#134);
  FOR n:=1 TO (b-2) DO write(#138); write(#140);
  gotoxy(x,y+h-1); write(#131);
  FOR n:=1 TO (b-2) DO write(#138); write(#137);
  FOR n:=1 TO (h-2) DO
    BEGIN
      gotoxy(x,y+n); write(#133);
      gotoxy(x+b-1,y+n); write(#133);
    END;
END;

PROCEDURE Anfang;
BEGIN
  ClrScr;
  write(CursorAus);
  FOR m:=1 TO 6 DO Kasten(2*m,2*m,93-4*m,33-4*m);
  gotoxy(36,15); write('L  O  C  O  C  O  N');
  gotoxy(16,17);
  write('Programm zur Konvertierung und ');
  write('Ausgabe von Dateien     (c)2.03');
  delay(1000);
  write(CursorEin);
END;

PROCEDURE Menuebild(Titel,Z0,Z1,Z2,Z3,Z4,Z5,Z6,Z7 :Zeile);
BEGIN
  Kasten(1,1,90,30);
  gotoxy(1,5); write(#135);
  FOR n:=1 TO 88 DO write(#138); write(#141);
  gotoxy(1,28); write(#130);
  FOR n:=1 TO 88 DO write(#154); write(#136);
  gotoxy((90-length(Titel))DIV 2,3); write(Titel);
  gotoxy(8,8); write(Z0);
  gotoxy(24,11); write(Z1);
  gotoxy(24,13); write(Z2);
  gotoxy(24,15); write(Z3);
  gotoxy(24,17); write(Z4);
  gotoxy(24,19); write(Z5);
  gotoxy(24,21); write(Z6);
  gotoxy(24,23); write(Z7);
  gotoxy(65,26); write('Bitte waehlen Sie !');
END;

PROCEDURE Weiter;
BEGIN
  writeln;writeln;
  gotoxy(62,30); write(#7,'Weiter mit <RETURN>');
  readln;
END;

PROCEDURE Geduld;
BEGIN
  ClrScr;
  Kasten(20,24,51,5);
  gotoxy(24,26);
  write('*  B i t t e    e t w a s   G e d u l d   *');
  gotoxy(90,30);
END;

PROCEDURE PapierEinlegen;
BEGIN
  ClrScr;
  Kasten(10,8,67,5);
  gotoxy(18,10);
  write(#7,'*  Bitte Papier einlegen, ');
  write('dann <RETURN> druecken  *');
  readln(Eingabe);
  Kasten(10,15,67,5);
  gotoxy(27,17);
  write('*  Die Daten werden ausgegeben  *');
  gotoxy(90,30);
END;

FUNCTION DruckAbbrechen : boolean;
BEGIN
  ClrScr;
  Kasten(12,8,66,5);
  gotoxy(23,10);
  write(#7,'Ausdruck abbrechen ?  j/n :  ');
  readln(Eingabe);
  IF upcase(Eingabe)='J' THEN DruckAbbrechen:=True
      ELSE BEGIN
             Druckabbrechen:=False;
             gotoxy(23,10);
             write(' *  Der Druckvorgang wird fortgesetzt  * ');
           END;
END;