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 / PLOT.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  52 lines
  1. program PLOT;
  2.  
  3. {  Demonstration program in Turbo Pascal for
  4.      the MicroBee developed by Bob Burt
  5.  
  6.   Program to set up  PCG on the MicroBee for
  7.   LORES graphics and  PLOT between any  pair
  8.   of x,y coordinates, assuming a screen with
  9.               64 x 16 format
  10.  
  11.         x coordinate range: 0 to 127
  12.         y coordinate range: 0 to 47            }
  13.  
  14. const
  15.   title = '*** Plotting with LORES Graphics ***';
  16.   space18 = '                  ';
  17. var
  18.   x1,y1,x2,y2 : real;
  19.   count : byte;
  20.  
  21. {$I set64.pro}
  22. {$I lores64.pro}
  23. {$I normal.pro}
  24. {$I draw64.pro}
  25. {$I plot.pro}
  26.  
  27. begin {main}
  28.   clrscr;
  29.   write(space18);
  30.   writeln(title);
  31.   writeln;
  32.   writeln('Address of "draw" is :',addr(draw));
  33.   writeln;
  34.   writeln('Plot values for x : 0 to 127');
  35.   writeln('Plot values for y : 0 to  47');
  36.   writeln('Coordinates 0,0 are at the top left of the screen');
  37.   writeln;
  38.   writeln('Note - enter plot values separated by spaces, NOT commas!');
  39.   writeln;
  40.   write('Enter plot values (x1 y1 x2 y2) : ');
  41.   readln(x1,y1,x2,y2);
  42.   set64;
  43.   lores64;
  44.   plot(x1,y1,x2,y2);
  45.   repeat until keypressed;
  46.   normal;
  47.   clrscr;
  48.   writeln(^G)
  49. end {main}.
  50.  
  51.  
  52.