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 / SETS.PRO < prev    next >
Text File  |  1979-12-31  |  512b  |  16 lines
  1. procedure SETS(s : byte);
  2.  
  3. { Procedure developed in Turbo Pascal for
  4.        the MicroBee by Bob Burt               }
  5.  
  6. { To be used in conjunction with procedures
  7.     NORMAL.PRO, LORES80.PRO, DRAW2.PRO and
  8.               POINT.PRO
  9.  
  10. { Notes - sets(0) sets the point
  11.           sets(1) resets the point            }
  12.  
  13. begin
  14.   mem[addr(draw2)+100] := s;
  15. end; {procedure sets}
  16.