home *** CD-ROM | disk | FTP | other *** search
/ Windows CE - The Ultimate Companion / ROMMAN_CE.iso / Files / Programming / Basice / LIB / GR_PLOT.UTL < prev    next >
Text File  |  1997-03-14  |  243b  |  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.