home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / db22re.zip / CURPOS.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-09  |  1KB  |  37 lines
  1. /*
  2.  ┌──────────────────────────────────────────────────────────────────┐
  3.  │  Name       : curpos.cmd                                         │
  4.  │  Purpose    : experiment with REXXUTILS functions                │
  5.  │  Platform   : DB2/2                                              │
  6.  │  Author     : Jeff Fisher                                        │
  7.  │               IBM Toronto Development Lab                        │
  8.  │  Disclaimer : This "sample" code is for demonstrations only, no  │
  9.  │               warrenties are made or implied as to correct       │
  10.  │               function. You should carefully test this code in   │
  11.  │               your own environment before using it.              │
  12.  │                                                                  │
  13.  └──────────────────────────────────────────────────────────────────┘
  14. */
  15.  
  16. call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  17. call SysLoadFuncs
  18.  
  19. tryit:
  20.     call SysCls
  21.  
  22.     say 'whats up doc?'
  23.  
  24.     row = 0
  25.     col = 14
  26.     pos = SysCurPos(row,col)
  27.  
  28.     key = SysGetKey()
  29.  
  30.     row = 1
  31.     col = 0
  32.     pos = SysCurPos(row,col)
  33.     say 'key pressed is = ' key
  34.  
  35.  
  36. exit
  37.