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