home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 08 / spielth / grsys.inc next >
Encoding:
Text File  |  1979-12-31  |  741 b   |  34 lines
  1. const  x_max = 640;
  2.        y_max = 400;
  3.  
  4. procedure EnterGraphic;
  5.   begin
  6.     ClrScr; Write(#27,'f')
  7.   end; (* of EnterGraphic *)
  8.  
  9. procedure LeaveGraphic;
  10.   begin
  11.     ClrScr; Write(#27,'e')
  12.   end; (* of LeaveGraphic *)
  13.  
  14. procedure Plot (x, y: integer);
  15.   begin
  16.     InLine($2A/x/$EB/$2A/y/$CD/$5A/$FC/$EA/$BB)
  17.   end; (* of Plot *)
  18.  
  19. procedure Draw (x, y: integer);
  20.   begin
  21.     InLine($2A/x/$EB/$2A/y/$CD/$5A/$FC/$F6/$BB)
  22.   end; (* of Draw *)
  23.  
  24. procedure Line (x1, y1, x2, y2: integer);
  25.   begin
  26.     Plot(x1, y1); Draw(x2,y2)
  27.   end; (* of Line *)
  28.  
  29. procedure WriteChar (x, y: integer; c: char);
  30.   begin
  31.     InLine($2A/x/$EB/$2A/y/$CD/$5A/$FC/$C0/$BB);
  32.     InLine($3A/c/$CD/$5A/$FC/$FC/$BB)
  33.   end; (* of WriteChar *)
  34.