home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / TxEdStuff / serial.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  350 b   |  22 lines
  1. /* this is a test */
  2.  
  3. OPTIONS results
  4. OPTIONS FAILAT 5
  5. LOCK 1
  6. address command "set escape '^'"
  7. do i = 1
  8.  
  9.    JUMP i 0
  10.    STATUS L
  11.    statusline = result
  12.    num = right(100*i,8,'0')
  13.    newstatusline = overlay(num,statusline,73)
  14.    DEOL
  15.    insert '"'newstatusline'"'
  16.    Down
  17.    if rc ~= 0 then leave i
  18. end
  19. address command "set escape '*'"
  20. LOCK 0
  21. exit 0
  22.