home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff330.lzh / Vt100 / RexxSamples / TestDisplay.vt100 < prev    next >
Text File  |  1990-03-02  |  861b  |  30 lines
  1. /*   This routine shows the capabilities of the DISPLAY VT100 script command.
  2. ** It will write data to the screen both one character at a time as well as
  3. ** a string at a time and makes use of the defined VT100 escape sequences to
  4. ** cause the cursor to move non-destructively.
  5. **
  6. ** ACS 08/28/89
  7. **/
  8. trace Off
  9.  
  10. cr = "^M"
  11. lf = "^J"
  12.  
  13. "display" cr    /* Cursor back to first column */
  14. "display" lf    /* Cursor down one line        */
  15.  
  16. "display ""Here is some data" || cr || lf || '"'
  17.  
  18. "display ""Gonna delete this line."""
  19. address COMMAND 'WAIT 3 SEC'
  20. 'display "^[[M"'    /* Issue escape sequence to delete 1 line */
  21.  
  22. "display" cr    /* Cursor back to first column */
  23. "display" lf    /* Cursor down one line        */
  24.  
  25. /*   Write "Move" on one line, move the cursor up one line without changing
  26. ** the column and write "up one line". */
  27. 'display "Move^[[Aup one line"'
  28.  
  29. exit 0
  30.