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