home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / pandor23.arj / SAMPAN.ZIP / HELP.PAN < prev    next >
Encoding:
Text File  |  1991-09-15  |  1.3 KB  |  61 lines
  1.       *******************************************************************
  2.       ***                                                             ***
  3.       *** Sample Pandora script for adding help screens to a program  ***
  4.       ***                                                             ***
  5.       *******************************************************************
  6.  
  7. Load "program.exe"
  8. Output "Press Alt-H for help..."
  9. Pause 2s
  10. Go ""
  11.  
  12. VideoFore LightGreen
  13. VideoBack Brown
  14. OnDeath Out
  15. Lock
  16. Label Loop
  17. WaitKey
  18. IfKey "[Alt]H"
  19.     WriteScreen "$screen$"
  20.     Label HelpMore
  21.     Screen 07 22 / ╔═╡ Help ╞══════════════╗ /
  22.     Screen 08 22 / ║ Select a topic:       ║ /
  23.     Screen 09 22 / ║      1. Commands      ║ /
  24.     Screen 10 22 / ║      2. Function Keys ║ /
  25.     Screen 11 22 / ║      3. Other         ║ /
  26.     Screen 12 22 / ║ Press [Esc] to return ║ /
  27.     Screen 13 22 / ╚═══════════════════════╝ /
  28.     Label Helper
  29.     GetKey
  30.     IfKey "[Esc]"
  31.         Jump HelpOut
  32.     EndIf
  33.     IfKey "123"
  34.         IfKey "1"
  35.             ReadScreen helpscrn.001
  36.         EndIf
  37.         IfKey "2"
  38.             ReadScreen helpscrn.002
  39.         EndIf
  40.         IfKey "3"
  41.             ReadScreen helpscrn.003
  42.         EndIf
  43.         GetKey
  44.         ReadScreen $screen$
  45.         Jump HelpMore
  46.     Else
  47.         Jump Helper
  48.     EndIf
  49.     Label HelpOut
  50.     ReadScreen $screen$
  51. Else
  52.     PassKey
  53. EndIf
  54. Jump Loop
  55.  
  56. * Control comes here when the program terminates
  57.  
  58. Label Out
  59. Flush
  60. Quit
  61.