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 / DRAW2.PRO < prev    next >
Text File  |  1979-12-31  |  896b  |  23 lines
  1. procedure DRAW2;
  2.  
  3. {   Procedure developed for Turbo Pascal
  4.      LORES Graphics on the MicroBee by
  5.                Bob Burt                    }
  6.  
  7. { This procedure is the second half of the
  8.    procedure DRAW used for PLOT routines
  9.  Use this for setting and resetting points }
  10.  
  11. begin
  12.   inline ($3A/*+97/$67/$3A/*+94/$6F/$3A/*+91/
  13.          $F5/$5C/$7D/$CB/$3B/$16/0/$30/1/$14/
  14.          6/$FF/4/$D6/3/$F2/*-4/$C6/3/7/$82/$4F/$68/$26/0/$D5/6/4/
  15.          $29/$10/$FD/$54/$5D/$29/$29/$19/$D1/$16/0/$19/$11/0/$F0/
  16.          $19/6/0/$F1/$B7/$20/$0C/$DD/$21/*+22/$DD/9/$7E/$DD/$B6/0/
  17.          $77/$C9/
  18.          $DD/$21/*+16/$DD/9/$7E/$DD/$A6/0/$18/$F2/
  19.          $81/$82/$84/$88/$90/$A0/
  20.          $BE/$BD/$BB/$B7/$AF/$9F/
  21.          0/0/0);
  22. end; {procedure draw2}
  23.