home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / POINT.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  164 b   |  5 lines
  1. procedure point(x%,y%)
  2.    print "P"+chr$(shift%(x%,-6)+1)+chr$((x% and 63)+1)+\
  3.                          chr$(shift%(y%,-6)+1)+chr$((y% and 63)+1);
  4.    endproc
  5.