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