home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PAGESTREAM3,0-1.DMS / in.adf / Macros.LHA / DisplayReadMe.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-08-04  |  891 b   |  30 lines
  1. /* DISPLAYREADME.REXX */
  2. /* $VER: AmigaGuide Text Displayer 1.0 alpha 3 */
  3. /* Copyright 1994 Soft-Logik Publishing Corporation */
  4. /* May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  5.  
  6. /* Purpose: Displays ReadMe.Now file from PageStream3: directory */
  7.  
  8. options results /* enable results */
  9. address 'PAGESTREAM'
  10.  
  11. getscreenname
  12. screen=result
  13.  
  14. cmd = 'version >t:temp'
  15. address command cmd
  16. if open(.IFile,'t:temp','R') then do
  17.     line = readln(.IFile)
  18.     ksver = strip(word(line,words(line)/2),t,' ,')   /* get kickstart version */
  19.     if (ksver>='39') then name='sys:utilities/multiview PageStream3:ReadMe.Now pubscreen '||screen
  20.         else name='sys:utilities/amigaguide PageStream3:ReadMe.Now pubscreen '||screen
  21. end
  22.  
  23. /* Display ReadMe File */
  24. address command name
  25.  
  26. /* Cleanup */
  27. call close(.IFile)
  28. address command 'delete t:temp quiet'
  29. EXIT
  30.