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 / MBUG / MBUG013.ARC / LORES.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  40 lines
  1. program LORES;
  2.  
  3. { Demonstration program in Turbo Pascal for
  4.    the MicroBee, which sets up the PCG for
  5.             LORES Graphics
  6.          Written by Bob Burt                 }
  7.  
  8. const
  9.   title = '*** LORES Graphics Characters ***';
  10.   space18 = '                  ';
  11.  
  12. var
  13.   count : integer;
  14.  
  15. {$I normal.pro}
  16. {$I lores.pro}
  17.  
  18. begin {main}
  19.   clrscr;
  20.   write(space18);
  21.   writeln(title,^M^J);
  22.   write('Standard Inverse Characters :');
  23.   writeln; writeln;
  24.   for count := 128 to 256 do
  25.   begin
  26.     if (count mod 16) = 0 then write(^M^J^M^J,space18);
  27.     write(chr(count),' ')
  28.   end;
  29.   delay(3000);
  30.   GotoXY(1,3);write(^G,'Now changed to LORES :'); ClrEol; writeln;
  31.   lores;
  32.   delay(5000);
  33.   normal;
  34.   writeln;
  35.   writeln(^G,'      Changes back to Inverse Set on call to NORMAL');
  36.   writeln('(and also would default to Inverse Set on Exit from Program)')
  37. end {main}.
  38.  
  39.  
  40.