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