home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / TE2_134T / te2inst.003 / Button1.scr next >
Text File  |  1997-07-03  |  2KB  |  41 lines
  1. /* ---------------------------------------------------------------------- */
  2. /* Button1.Scr -- TE/2 REXX Syntax Script                                 */
  3. /*                Copyright 1994, Oberon Software                         */
  4. /*                All rights reserved                                     */
  5. /*                                                                        */
  6. /* Sample script to document the use of TE2PWin                           */
  7. /*                                                                        */
  8. /* ---------------------------------------------------------------------- */
  9.  
  10. Txt.0  = 20
  11. Txt.1  = "Congratulations!  If you're seeing this you have either already"
  12. Txt.2  = 'successfully installed TE2PWin.Exe with the sample profile'
  13. Txt.3  = '(or you got curious and executed this script directly).  Assuming'
  14. Txt.4  = 'the latter case, here is a brief outline of how to install and'
  15. Txt.5  = 'use TE2PWin.'
  16. Txt.6  = ''
  17. Txt.7  = 'First:   Make sure that the TE2PIPE setting in your TE2.INI file'
  18. Txt.8  = '         is defined.  The TE/2 install sets this up for you with'
  19. Txt.9  = '         a default pipe name of \pipe\TE2Pipe.'
  20. Txt.10 = 'Second:  Make sure that the PIPE setting in TE2PWin.pro reads'
  21. Txt.11 = '         the same as the TE2PIPE setting (again, the default is'
  22. Txt.12 = '         set at \pipe\TE2Pipe.'
  23. Txt.13 = 'Finally: Execute TE2PWin.Exe with the name of the profile file'
  24. Txt.14 = '         on its command line.'
  25. Txt.15 = ''
  26. Txt.16 = "That's it!  Next you'll want to customize your profile.  Press"
  27. Txt.17 = 'button 2 in TE2PWin to execute BUTTON2.Scr which talks about'
  28. Txt.18 = 'how to do that.'
  29. Txt.19 = ''
  30. Txt.20 = 'Press any key to clear this display and return control to TE/2.'
  31.  
  32. 'WindowMinMax(2)'
  33. 'sprintf("[%ld", OpenDialog(0, 2, 23, 76, DLogNormAttr))'
  34. h = substr(rc, 2)
  35. do i = 1 to Txt.0
  36.   'StrPut('i+1', 6, DLogNormAttr, "%s", "'Txt.i'")'
  37. end
  38. 'getc()'
  39. 'CloseDialog('h')'
  40. exit 0
  41.