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 / LORES80.PRO < prev    next >
Text File  |  1979-12-31  |  768b  |  21 lines
  1. procedure LORES80;
  2.  
  3. { Procedure developed in Turbo Pascal
  4.      for use with the MicroBee by
  5.              Bob Burt                   }
  6.  
  7. { This procedure fills the PCG with the
  8.   LORES graphics set and also fills the
  9.   screen with  chr(128) in  preparation
  10.   for the PLOT routine - 80 X 24 format }
  11.  
  12. begin
  13.   inline ($F5/$C5/$D5/$E5/
  14.           $3E/8/$21/0/$F8/$0E/$80/$59/
  15.           $16/4/$AF/$CB/$43/$28/2/$F6/$F0/$CB/$4B/$28/
  16.           2/$F6/$0F/6/4/$77/$23/$10/$FC/$CB/$0B/$CB/$0B/
  17.           $15/$20/$E6/$0C/$20/$E0/
  18.           $21/0/$F0/1/$80/7/$16/$80/$72/$23/$0B/$78/$B1/$20/$F9/
  19.           $E1/$D1/$C1/$F1/$C9)
  20. end; {procedure lores}
  21.