home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / dcn-ts25.lha / REXX.lha / Rexx / MoveCharacter.tsrx < prev    next >
Encoding:
Text File  |  1994-01-17  |  530 b   |  27 lines
  1. /* MOVE A CHARACTER */
  2. /* Copyright 1993 Soft-Logik Publishing Corporation */
  3. /* May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4. /* $VER: 2.0 */
  5.  
  6. ADDRESS 'TYPESMITH'
  7. OPTIONS RESULTS
  8. TRACE OFF
  9.  
  10. /* Screen to front */
  11. to_front
  12.  
  13. /* get the move amounts */
  14.  
  15. get_string 'Move character horizontally: |Continue|Exit'
  16. IF RC=5 THEN EXIT
  17. movex=RESULT
  18. get_string 'Move character vertically: |Continue|Exit'
  19. IF RC=5 THEN EXIT
  20. movey=RESULT
  21.  
  22. select_all
  23.  
  24. MOVE movex movey
  25.  
  26. /* SHORT AND SWEET! */
  27.