home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / tools / ee / rexx / insertfile.rexx < prev    next >
OS/2 REXX Batch file  |  1977-12-31  |  553b  |  33 lines
  1. /**/
  2. OPTIONS RESULTS
  3. OPTIONS FAILAT 10
  4.  
  5. PARSE ARG filename
  6.  
  7. IF filename="" THEN
  8. DO
  9.   SAY 'USAGE: INSERTFILE filename'
  10.   RETURN
  11. END
  12.  
  13. ADDRESS 'EE.0'
  14.  
  15. LockWindow
  16.  
  17. ?InsertMode; insertState=RESULT
  18. IF insertState THEN InsertMode
  19.  
  20. ?JustifyNewline; justifyState=RESULT
  21. IF justifyState THEN JustifyNewline
  22.  
  23. IF Open(inputFile, filename, 'R') THEN DO UNTIL eof
  24.   inputLine=Readln(inputFile)
  25.   eof=Eof(inputfile)
  26.   IF eof=0 THEN PutLine inputline
  27. END
  28. ELSE SAY 'Could not open file.'
  29.  
  30. IF insertState  THEN InsertMode
  31. IF justifyState THEN JustifyNewline
  32. UnlockWindow
  33.