home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug013.arc / SETRESET.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  2KB  |  79 lines
  1. program SETRESET;
  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 set or reset any x,y
  8.     coordinates, assuming a screen with
  9.             80 x 24 format
  10.  
  11.        x coordinate range: 0 to 159
  12.        y coordinate range: 0 to 71
  13.        0,0 at top left of screen              }
  14.  
  15. const
  16.   title = '*** Setting or Resetting points LORES Graphics ***';
  17.   space14 = '              ';
  18. var
  19.   count : integer;
  20.   x,y,s,count2 : byte;
  21.   saveX,saveY : array[1..300] of byte;
  22.  
  23. {$I normal.pro}
  24. {$I lores80.pro}
  25. {$I draw2.pro}
  26. {$I point.pro}
  27. {$I sets.pro}
  28.  
  29. begin {main}
  30.   clrscr;
  31.   write(space14);
  32.   writeln(title);
  33.   gotoxy(22,8);
  34.   writeln('Address of "draw2" is :',addr(draw2));
  35.   gotoxy(18,10);
  36.   write('Enter Starting POINT position (x y) : ');
  37.   readln(x,y);
  38.   lores80;
  39.   randomize;
  40.   for count2 := 1 to 4 do
  41.   begin
  42.     sets(0);
  43.     for count := 1 to 300 do
  44.     begin
  45.       point(x,y);
  46.       saveX[count] := x; saveY[count] := y;
  47.       x := random(160); y := random(72);
  48.       delay(15)
  49.     end; {count}
  50.     sets(1);
  51.     for count := 1 to 300 do
  52.     begin
  53.       point(saveX[count],saveY[count]);
  54.       delay(15)
  55.     end {count}
  56.   end; {count2}
  57.   for y := 30 to 32 do
  58.   begin
  59.     for x := 0 to 159 do
  60.     begin
  61.       sets(0); point(x,y); delay(5);
  62.       sets(1); point(x,y); delay(5)
  63.     end; {x}
  64.     for x := 159 downto 0 do
  65.     begin
  66.       sets(0); point(x,y); delay(5);
  67.       sets(1); point(x,y); delay(5)
  68.     end {x}
  69.   end; {y}
  70.   sets(0); point(80,36);
  71.   write(^G);
  72.   repeat until keypressed;
  73.   clrscr;  {replace chr(128) with chr(32)}
  74.   normal;
  75.   writeln(^G)
  76. end {main}.
  77.  
  78.  
  79.