home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / LIST / GEMPRINT.LBR / GEMPRINT.PZS / GEMPRINT.PAS
Pascal/Delphi Source File  |  2000-06-30  |  3KB  |  104 lines
  1. program Gem_Print;
  2.  
  3. var ZZ, CHAR, PITCH, LINEF, LMAR, RMAR  : integer;
  4.     XX : string[1];
  5.  
  6. procedure Clear_Screen;
  7.     begin
  8.         clrscr;
  9.         gotoXY(1,5);
  10.     end;
  11.  
  12. procedure Enter_Sel;
  13.     begin
  14.         writeln;
  15.         writeln('Enter the appropriate number for');
  16.         writeln('your selection...');
  17.     end;
  18.  
  19. procedure Title_Screen;
  20.     begin
  21.         Clear_Screen;
  22.         writeln('Gem Print Support Program V1.2');
  23.         writeln('by Ted Watkins   03/20/87');
  24.         writeln;
  25.         writeln('Setup program for the Gemini 10x');
  26.         writeln('printer.');
  27.         writeln; writeln; writeln;
  28.         writeln('Press RETURN to continue...');
  29.         readln(XX);
  30.     end;
  31.  
  32. procedure Char_Setup;
  33.     begin
  34.         Clear_Screen;
  35.         writeln('Print Style Setup');
  36.         writeln;writeln;
  37.         writeln('1 - Standard Print');
  38.         writeln('2 - Italic Print Style');
  39.         Enter_Sel;
  40.         readln(ZZ);
  41.         if ZZ = 1 then CHAR := 53 else CHAR := 52;
  42.     end;
  43.  
  44.  
  45. procedure Pitch_Setup;
  46.     begin
  47.         Clear_Screen;
  48.         writeln('Print Pitch Setup');
  49.         writeln;writeln;
  50.         writeln('1 - Pica (10 characters per inch)');
  51.         writeln('2 - Elite (12 characters per inch)');
  52.         writeln('3 - Condensed (17 characters per inch)');
  53.         Enter_Sel;
  54.         readln(PITCH);
  55.     end;
  56.  
  57. procedure Line_Feed;
  58.     begin
  59.         Clear_Screen;
  60.         writeln('Line Feed Setup');
  61.         writeln;writeln;
  62.         writeln('1 - 8 Lines per inch');
  63.         writeln('2 - 7 Lines per inch');
  64.         writeln('3 - 6 Lines per inch');
  65.         Enter_Sel;
  66.         readln(ZZ);
  67.         if ZZ = 1 then LINEF := 18;
  68.         if ZZ = 2 then LINEF := 21;
  69.         if ZZ = 3 then LINEF := 24;
  70.     end;
  71.  
  72.  
  73. begin
  74.         CHAR := 53; PITCH := 1; LINEF := 24;
  75.         Title_Screen;
  76.         repeat;
  77.         Clear_Screen;
  78.         writeln('Gem Print Main Menu');
  79.         writeln;
  80.         writeln('A - Character Selection');
  81.         writeln('    (default - Standard)');
  82.         writeln('B - Pitch Selection');
  83.         writeln('    (default - 10 characters per inch)');
  84.         writeln('C - Line Feed Selection');
  85.         writeln('    (default - 6 lines per inch)');
  86.         writeln('E - Make changes and exit program');
  87.         writeln;
  88.         writeln('Enter the appropriate letter for');
  89.         writeln('your selection...');
  90.         readln(XX);
  91.             if XX = 'A' then Char_Setup;
  92.             if XX = 'B' then Pitch_Setup;
  93.             if XX = 'C' then Line_Feed;
  94.         until XX = 'E';
  95.         writeln(Lst, chr(27),chr(CHAR));
  96.         writeln(Lst, chr(27),chr(66),chr(PITCH));
  97.         writeln(Lst, chr(27),chr(51),chr(LINEF));
  98.         writeln(Lst);
  99.         Clear_Screen;
  100. end.
  101.  
  102.  
  103.  
  104.