home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / edit / polyed / rexx / getxxx.rexx < prev    next >
OS/2 REXX Batch file  |  1994-09-22  |  504b  |  29 lines
  1. /*
  2. ** $VER: getxxx.rexx 1.0 (30.8.94) written by Robert Brandner
  3. **
  4. ** Demo of the usage of the GETCHAR, GETWORD and GETLINE commands
  5. */
  6.  
  7. /* enable return codes */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. /* is PolyEd out there ? */
  12.  
  13. if ~SHOW("Ports", "POLYED.1") then do
  14.     say "Please start PolyEd before running this program."
  15.     exit
  16. end
  17.  
  18. ADDRESS POLYED.1.1
  19.  
  20. 'GETCHAR VAR C'
  21. 'GETWORD VAR W'
  22. 'GETLINE VAR L'
  23.  
  24. say "Current character is '"||C||"'."
  25. say "Current word is '"||W||"'."
  26. say "Current line is '"||L||"'."
  27.  
  28. /* The End */
  29.