home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / includes.lzh / GETCUR.RPG next >
Text File  |  1988-08-19  |  579b  |  13 lines
  1.       *  Read the cursor position as of when <enter> was pressed.
  2.       *  Read and translate the curor's row.
  3.       *  (Translate 1-byte binary form to decimal form.)
  4.      C                     Z-ADD0         ZROW
  5.      C                     MOVE XROW      YROW
  6.      C                     Z-ADDZROW      ROW
  7.       /SPACE
  8.       *  Read and translate the curor's column.
  9.       *  (Translate 1-byte binary form to decimal form.)
  10.      C                     Z-ADD0         ZCOL
  11.      C                     MOVE XCOL      YCOL
  12.      C                     Z-ADDZCOL      COL
  13.