home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug027.arc / PRINTER.INC < prev    next >
Text File  |  1979-12-31  |  1KB  |  56 lines
  1.  
  2. PROCEDURE print;
  3.  
  4. LABEL
  5.   ESCAPE;
  6.  
  7. VAR
  8.   k,ok    : INTEGER;
  9.   printer : BOOLEAN;
  10. BEGIN
  11.   DisDate;
  12.   dis(60,2,' ');
  13.   GotoXY(60,2);
  14.   Display_Recs_Used;
  15.   k := 0;
  16.   dis(1,17,'   |   |   |   |   |   |          | P = Printer Off |  <ESC> = MAIN   MENU');
  17.   f_table;
  18.   printer := FALSE;
  19.   REPEAT
  20.     IF NOT printer THEN
  21.           BEGIN
  22.             ASSIGN(Q,'CON:');
  23.             REWRITE(Q);
  24.             GotoXY(49,17);
  25.             Write('Off');
  26.           END;
  27.  select(74,17,' ',['P','1','2','3','4','5','6',#27],Ch);
  28.  IF ch = 'P' THEN
  29.           BEGIN
  30.             ASSIGN(Q,'LST:');
  31.             REWRITE(Q);
  32.             LowVideo;
  33.             GotoXY(49,17);
  34.             Write('On');
  35.             NormVideo;
  36.             Write(' ');
  37.           END;
  38.   IF printer
  39.         THEN printer := FALSE
  40.         ELSE printer := TRUE;
  41.   val(ch,k,ok);
  42.   UNTIL (k IN [1..6]) OR (ch = #27);
  43.   IF ch <> #27 THEN
  44.         BEGIN
  45.           IF (k IN [1..6]) AND (Animal_table[k].rec_no <> -1)
  46.             THEN Animal := Animal_table[k];
  47.           ClrScr;
  48.           IF printer
  49.             THEN BEGIN
  50.                    Writeln(Q);
  51.                    Writeln(Q);
  52.               END;
  53.           GotoXY(1,2);
  54.         END;
  55. END;
  56.