home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST914.PRG < prev    next >
Encoding:
Text File  |  1989-10-04  |  11.9 KB  |  272 lines
  1. ********************
  2.  
  3. PROCEDURE Pop_help
  4.  
  5.    PARAMETERS p, l, v
  6.  
  7.    IF TYPE("scrleft_1") = "U"
  8.       scrleft_1 = "Steve Straley's ToolKit"
  9.       scrleft_2 = "Version 2.0"
  10.    ENDIF
  11.  
  12.    IF TYPE("scrcursor") = "U"
  13.       scrcursor = .T.
  14.    ENDIF
  15.  
  16.    PRIVATE _pophrow, _pophcol, _ocolor, _temp, _tstring
  17.  
  18.    _pophrow = ROW()
  19.    _pophcol = COL()
  20.    _ocolor = SETCOLOR()
  21.    SETCOLOR(IF(ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), "W/B", ""))
  22.    _temp = ""
  23.    _temp = SAVESCREEN(0,0,23,79)
  24.    SET CURSOR OFF
  25.    DO WHILE .T.
  26.       BEGIN SEQUENCE
  27.       @ 00,00 CLEAR TO 23,79
  28.       @ 00,00 SAY ""
  29.       _tstring = TITLE( scrleft_1 + " / " + scrleft_2 + " / Page 1", "Pop Help Menu ▓", 78)
  30. TEXT
  31. ═════════════════════════════════════════════════════════════════════════════
  32. &_tstring.
  33. ╔═══════╦════════════════════════╤══════════════════════════════════════════╗▓
  34. ║ ALT H ║ This Screen            │ Any Key to Continue                      ║▓
  35. ║ ALT Z ║ DOS Shell              │ 'EXIT' at DOS prompt to return           ║▓
  36. ║ ALT V ║ Program Location       │ Any Key to Continue                      ║▓
  37. ║ ALT M ║ Available Memory       │ Any Key to Continue                      ║▓
  38. ║ ALT L ║ On-Line Calendar       │ Arrow Keys for date / ESC key to return  ║▓
  39. ║ ALT K ║ Display Time Elapsed   │ ESC key to return                        ║▓
  40. ║ ALT R ║ Bug Report             │ F10 for Report / ESC key to Abort        ║▓
  41. ║ ALT I ║ Inkey Values           │ Any Key for Display / ESC key to return  ║▓
  42. ║ ALT O ║ Tree of Directories    │ ESC key to EXIT without selection        ║▓
  43. ║ ALT T ║ Statistics             │ Any Key to Continue                      ║▓
  44. ║ ALT P ║ Phone Directory        │ ESC Key to return                        ║▓
  45. ║ ALT A ║ Calculator             │ ESC Key to return                        ║▓
  46. ║    F7 ║ Display Memory         │ Q to Quit                                ║▓
  47. ║    F1 ║ On-Line Help           │                                          ║▓
  48. ╟───────────────────────────────────────────────────────────────────────────╢▓
  49. ║ Other Procedures Include:                                                 ║▓
  50. ║   Report Writer/Coder                   Word Processor with Mail Merge  ║▓
  51. ║   Screen Initialization w/ Windows      Database Generator / Coder      ║▓
  52. ╚═════════════════════════════════════════════════════════< Pg Down >═══════╝▓
  53.  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  54. ENDTEXT
  55.       DO WHILE .T.
  56.          @ 1,29 SAY ""
  57.          INKEY(0)
  58.          IF LASTKEY() = 27
  59.             EXIT
  60.          ELSEIF LASTKEY() = 3
  61.             PAGE2()
  62.             BREAK
  63.          ENDIF
  64.       ENDDO
  65.       EXIT
  66.       END
  67.       IF NEXTKEY() = 27
  68.          EXIT
  69.       ENDIF
  70.    ENDDO
  71.    KEYBOARD ""
  72.    SET CURSOR (scrcursor)
  73.    SETCOLOR(_ocolor)
  74.    RESTSCREEN(0,0,23,79, _temp)
  75.    @ _pophrow, _pophcol SAY ""
  76.  
  77. ********************
  78.  
  79. PROCEDURE Page2
  80.  
  81.    DO WHILE .T.
  82.       @ 00,00 SAY ""
  83.       _tstring = TITLE( scrleft_1 + " / " + scrleft_2 + " / Page 2", "Pop Help Menu ▓", 78)
  84. TEXT
  85. ═════════════════════════════════════════════════════════════════════════════ 
  86. &_tstring.
  87. ╔════════╦════════════════════════╤═════════════════════════════════════════╗▓
  88. ║  ALT S ║ Shows Gratitude Screen │ Reads from GRATITUD.TXT ... ESC Key ..  ║▓
  89. ║     F1 ║ On-Line Help           │                                         ║▓
  90. ║ ALT F1 ║ Edits On-Line Help     │                                         ║▓
  91. ╟────────╨────────────────────────┴─────────────────────────────────────────╢▓
  92. ║ This version of the ToolkiT comes with many features and enhancements.    ║▓
  93. ║ On the following pages is a brief run-down on all new items.              ║▓
  94. ║                                                                           ║▓
  95. ║ 1. Complete Table Logic: Adding, Looking up, Storing to arrays.           ║▓
  96. ║ 2. Complete Windowing with TRUE shadow lines.                             ║▓
  97. ║ 3. Backup/Restore ANY type of file.                                       ║▓
  98. ║ 4. Protect/Unprotect Databases.                                           ║▓
  99. ║ 5. More generic variables to control SETs and Cursor environment.         ║▓
  100. ║ 6. Reconfigurable HOT KEY system.                                         ║▓
  101. ║ 7. Able to trace memory variables.                                        ║▓
  102. ╟───────────────────────────────────────────────────────────────────────────╢▓
  103. ║ Includes NEW 550+ page manual with topical-based index.                   ║▓
  104. ║ Tested with dLESKO's FUNCky Library.                                      ║▓
  105. ║                                                                           ║▓
  106. ╚═══════════════════════════════════════< TAB >< Page Up >< Pg Down >═══════╝▓
  107.  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  108. ENDTEXT
  109.       DO WHILE .T.
  110.          @ 1,29 SAY ""
  111.          INKEY(0)
  112.          IF LASTKEY() = 27
  113.             KEYBOARD CHR(27)
  114.             BREAK
  115.          ELSEIF LASTKEY() = 3
  116.             PAGE3()
  117.             EXIT
  118.          ELSEIF LASTKEY() = 18
  119.             RETURN
  120.          ELSEIF LASTKEY() = 9
  121.             BREAK
  122.          ENDIF
  123.       ENDDO
  124.    ENDDO
  125.  
  126. ********************
  127.  
  128. PROCEDURE Page3
  129.  
  130.    DO WHILE .T.
  131.       @ 00,00 SAY ""
  132.       _tstring = TITLE( scrleft_1 + " / " + scrleft_2 + " / Page 3", "Pop Help Menu ▓", 78)
  133. TEXT
  134. ═════════════════════════════════════════════════════════════════════════════ 
  135. &_tstring.
  136. ╔═══════════════════════════════════════════════════════════════════════════╗▓
  137. ║                                                                           ║▓
  138. ║  8. Complete set of Statistical Functions.                                ║▓
  139. ║  9. Complete set of Array Functions including to variables and to disk.   ║▓
  140. ║ 10. Complete set of File tagging for demos and for serialization.         ║▓
  141. ║ 11. Enhanced set of Pop-up routines including note-pad on calendar.       ║▓
  142. ║ 12. Enhanced set of Low-level Functions.                                  ║▓
  143. ║ 13. Enhanced set of Extended Macro Functions.                             ║▓
  144. ║ 14. Enhanced set of Help Logic incl. Copy Screen and Text Dump.           ║▓
  145. ║ 15. Supports Data-Driven Programming.                                     ║▓
  146. ║ 16. Complete set of Trigonometric Functions.                              ║▓
  147. ║ 17. Complete set of Password, Checksum, and ASCIISUM() calculations.      ║▓
  148. ║ 18. Complete set of Date and Time functions.                              ║▓
  149. ║ 19. Complete set of Enhanced Keyboard routines.                           ║▓
  150. ║                                                                           ║▓
  151. ╟───────────────────────────────────────────────────────────────────────────╢▓
  152. ║ Comes with numerous demonstration programs.                               ║▓
  153. ║ Comes with Tom Rettig Help Reader File.                                   ║▓
  154. ║                                                                           ║▓
  155. ╚═══════════════════════════════════════< TAB >< Page Up >< Pg Down >═══════╝▓
  156.  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  157. ENDTEXT
  158.       DO WHILE .T.
  159.          @ 1,29 SAY ""
  160.          INKEY(0)
  161.          IF LASTKEY() = 27
  162.             KEYBOARD CHR(27)
  163.             BREAK
  164.          ELSEIF LASTKEY() = 3
  165.             PAGE4()
  166.             EXIT
  167.          ELSEIF LASTKEY() = 18
  168.             RETURN
  169.          ELSEIF LASTKEY() = 9
  170.             BREAK
  171.          ENDIF
  172.       ENDDO
  173.    ENDDO
  174.  
  175. ********************
  176.  
  177. PROCEDURE Page4
  178.  
  179.    DO WHILE .T.
  180.       @ 00,00 SAY ""
  181.       _tstring = TITLE( scrleft_1 + " / " + scrleft_2 + " / Page 4", "Pop Help Menu ▓", 78)
  182. TEXT
  183. ═════════════════════════════════════════════════════════════════════════════ 
  184. &_tstring.
  185. ╔═══════════════════════════════════════════════════════════════════════════╗▓
  186. ║                                                                           ║▓
  187. ║     Generates Code from the Report Writer.                                ║▓
  188. ║     Generates a Database from one line of code.                           ║▓
  189. ║     Generates an Index series from one line of code.                      ║▓
  190. ║     Generates a Menu from one line of code.                               ║▓
  191. ║                                                                           ║▓
  192. ║                                                                           ║▓
  193. ║                                                                           ║▓
  194. ║                                                                           ║▓
  195. ║                                                                           ║▓
  196. ║                                                                           ║▓
  197. ║                                                                           ║▓
  198. ║                                                                           ║▓
  199. ║                                                                           ║▓
  200. ╟───────────────────────────────────────────────────────────────────────────╢▓
  201. ║ Comes with a LIB file, with script file.                                  ║▓
  202. ║ Comes with ALL of the source code.                                        ║▓
  203. ║                                                                           ║▓
  204. ╚═══════════════════════════════════════< TAB >< Page Up >< Pg Down >═══════╝▓
  205.  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  206. ENDTEXT
  207.       DO WHILE .T.
  208.          @ 1,29 SAY ""
  209.          INKEY(0)
  210.          IF LASTKEY() = 27
  211.             KEYBOARD CHR(27)
  212.             BREAK
  213.          ELSEIF LASTKEY() = 3
  214.             PAGE5()
  215.             EXIT
  216.          ELSEIF LASTKEY() = 18
  217.             RETURN
  218.          ELSEIF LASTKEY() = 9
  219.             BREAK
  220.          ENDIF
  221.       ENDDO
  222.    ENDDO
  223.  
  224.  
  225. ********************
  226.  
  227. PROCEDURE Page5
  228.  
  229.    DO WHILE .T.
  230.       @ 00,00 SAY ""
  231.       _tstring = TITLE( scrleft_1 + " / " + scrleft_2 + " / Page 5", "Pop Help Menu ▓", 78)
  232. TEXT
  233. ═════════════════════════════════════════════════════════════════════════════ 
  234. &_tstring.
  235. ╔═══════════════════════════════════════════════════════════════════════════╗▓
  236. ║                                                                           ║▓
  237. ║  Disclaimer:                                                              ║▓
  238. ║                                                                           ║▓
  239. ║  The ToolkiT does not work in conjunction with the following packages:    ║▓
  240. ║                                                                           ║▓
  241. ║                     Grumpfish.lib - by Grumpfish                          ║▓
  242. ║                             TLINK - by Borland                            ║▓
  243. ║                   Nantucket Tools - by Nantucket                          ║▓
  244. ║                                                                           ║▓
  245. ║  This is due either to a naming convention conflict (Tools & Grumpfish)   ║▓
  246. ║  or in the inability to support a Microsoft C convention (TLINK).  If     ║▓
  247. ║  you have the Tools, we suggest you to switch to FUNCky; if you have      ║▓
  248. ║  TLINK, we suggest you switch to MSLINK.                                  ║▓
  249. ║                                                                           ║▓
  250. ╟───────────────────────────────────────────────────────────────────────────╢▓
  251. ║                                                                           ║▓
  252. ║   The ToolkiT - 100% Clipper Code, 100% upgradable, 100% serviceable!     ║▓
  253. ║                                                                           ║▓
  254. ╚═══════════════════════════════════════< TAB >< Page Up >══════════════════╝▓
  255.  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  256. ENDTEXT
  257.       DO WHILE .T.
  258.          @ 1,29 SAY ""
  259.          INKEY(0)
  260.          IF LASTKEY() = 27
  261.             KEYBOARD CHR(27)
  262.             BREAK
  263.          ELSEIF LASTKEY() = 18
  264.             RETURN
  265.          ELSEIF LASTKEY() = 9
  266.             BREAK
  267.          ENDIF
  268.       ENDDO
  269.    ENDDO
  270.  
  271. * End of File
  272.