home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / GR_PLOT.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  243 b   |  12 lines
  1. procedure gr_plot(x#,y#,pen%)
  2.   gr_ux% = gr_scalex(x#)
  3.   gr_uy% = gr_scaley(y#)
  4.   if pen% then
  5.     call line(gr_curx%,gr_cury%,gr_ux%,gr_uy%)
  6.   endif
  7.   gr_curx# = x#
  8.   gr_curx% = gr_ux%
  9.   gr_cury# = y#
  10.   gr_cury% = gr_uy%
  11.   endproc
  12.