home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST907.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  3.9 KB  |  89 lines
  1. *******************
  2.  
  3. PROCEDURE Ssroutin
  4.  
  5.    PARAMETERS p, l, v
  6.  
  7.    PRIVATE _oldc, _poprow, _popcol, _temp
  8.  
  9.    IF TYPE("scrcursor") = "U"
  10.       scrcursor = .T.
  11.    ENDIF
  12.    _oldc = SETCOLOR()
  13.    _poprow = ROW()
  14.    _popcol = COL()
  15.    _temp = ""
  16.    _temp = SAVESCREEN(0,0,24,79)
  17.    SET CURSOR OFF
  18.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  19.       SET COLOR TO W/B
  20.    ENDIF
  21.    SSRSCREEN(FILE("GRATITUD.TXT"))
  22.    SETCOLOR(_oldc)
  23.    SET CURSOR (scrcursor)
  24.    RESTSCREEN(0,0,24,79, _temp)
  25.    @ _poprow, _popcol SAY ""
  26.  
  27. ********************
  28.  
  29. PROCEDURE Ssrscreen
  30.  
  31.    PARAMETERS _withfile
  32.  
  33.    IF _withfile
  34.       _showit = MEMOTRAN(MEMOREAD("GRATITUD.TXT"),"","")
  35.    ELSE
  36.       _showit = TEXT()
  37.    ENDIF
  38. @ 0,0 SAY ""
  39. TEXT
  40. ╔══ Steve Straley's ToolkiT - Version 2.0 ════════════════════════════════════╗
  41. ║                                                                             ║
  42. ║                                                                             ║
  43. ║                                                                             ║
  44. ║                                                                             ║
  45. ║                                                                             ║
  46. ║                                                                             ║
  47. ║                                                                             ║
  48. ║                                                                             ║
  49. ║                                                                             ║
  50. ║                                                                             ║
  51. ║                                                                             ║
  52. ║                                                                             ║
  53. ║                                                                             ║
  54. ║                                                                             ║
  55. ║                                                                             ║
  56. ║                                                                             ║
  57. ║                                                                             ║
  58. ║                                                                             ║
  59. ║                                                                             ║
  60. ╚═════════════════════════════════════════════════════════════════════════════╝
  61. ENDTEXT
  62. @ 22,05 SAY " ESC to Continue "
  63.    MEMOEDIT(_showit, 2,1,19,77,.F.)
  64.  
  65. *******************
  66.  
  67. FUNCTION Text
  68.  
  69.    RETURN("The ToolkiT has changed by leaps and bounds from the very first release."    + ;
  70.           "In this release, the best yet, version 2.0 gives a multitude of object-"     + ;
  71.           "oriented, window, file encryption, pop-up utilities, stand alone features,"  + ;
  72.           "a brand new manual with added demos and a reader file for Tom Rettig's"      + ;
  73.           "help program.   In addition to the source code, this version of the "        + ;
  74.           "ToolkiT comes with 1 LIB file."                                             + ;
  75.           CHR(13)+CHR(10)                                                               + ;
  76.           "Special acknowledgements are extended to:"                                   + ;
  77.           CHR(13)+CHR(10)+CHR(13)+CHR(10)+CHR(13)+CHR(10)                               + ;
  78.           "Joe King           Essor Maso        Joe Booth         David Karasek       " + ;
  79.           "Jack Tollefson     Tom Rettig        Dirk Lesko        Neil Weicher        " + ;
  80.           CHR(13)+CHR(10)+CHR(13)+CHR(10)                                               + ;
  81.           "And to the members of the staff at SJS & Assoicates!                       " + ;
  82.           CHR(13)+CHR(10)+CHR(13)+CHR(10)+CHR(13)+CHR(10)+CHR(13)+CHR(10)               + ;
  83.           "Take a trip on the SST and make your Clipper applications SOAR.....        ")
  84.  
  85.  
  86.  
  87.    
  88. * End of File
  89.