home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / pandor23.arj / SAMPAN.ZIP / 123.PAN next >
Encoding:
Text File  |  1991-09-09  |  1.6 KB  |  66 lines
  1.         ****************************************************************
  2.         ***                                                          ***
  3.         *** Pandora script for adding an opening menu to Lotus 1-2-3 ***
  4.         ***             (Tested only with version 2.01)              ***
  5.         ***                                                          ***
  6.         ****************************************************************
  7.  
  8. IfLoad "c:\123\123.exe"
  9. Else
  10.     Output "^M^J^GPandora is unable to load Lotus 1-2-3.  Please edit the file 123.PAN and^M^J"
  11.     Output "correct the 'IfLoad' command to include the appropriate pathname for Pandora to^M^J"
  12.     Output "locate the file 123.EXE on your PC."
  13.     Quit
  14. EndIf
  15. Go ""
  16.  
  17. * Wait for Lotus 1-2-3 to initialize
  18.  
  19. WaitScreen 0 75 "READY"
  20.  
  21. * Draw the menu in reverse video
  22.  
  23. Video 70
  24. Screen 07 30 / ╔═══════════════════════╗ /
  25. Screen 08 30 / ║ Select a spreadsheet: ║ /
  26. Screen 09 30 / ║      1. Expenses      ║ /
  27. Screen 10 30 / ║      2. Income        ║ /
  28. Screen 11 30 / ║      3. Budget        ║ /
  29. Screen 12 30 / ╚═══════════════════════╝ /
  30.  
  31. * Get and interpret a keypress
  32.  
  33. Video 07
  34. Label try_again
  35. Flush
  36. GetKey
  37. IfKey "1"
  38.     * Select: Worksheet Erase Yes to clear the menu
  39.     Key "/wey"
  40.     * Select: File Retrieve to load a spreadsheet
  41.     Key "/frexpenses[Enter]"
  42.     Jump out
  43. EndIf
  44. IfKey "2"
  45.     Key "/wey"
  46.     Key "/frincome[Enter]"
  47.     Jump out
  48. EndIf
  49. IfKey "3"
  50.     Key "/wey"
  51.     Key "/frbudget[Enter]"
  52.     Jump out
  53. EndIf
  54. IfKey "[Esc]"
  55.     Key "/wey"
  56.     Jump out
  57. EndIf
  58. Output "^G"
  59. Jump try_again
  60.  
  61. * Out
  62.  
  63. Label out
  64. WaitChild
  65. Quit
  66.