home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / pandor23.arj / SAMPAN.ZIP / 123FANCY.PAN < prev    next >
Encoding:
Text File  |  1991-09-09  |  2.7 KB  |  153 lines
  1.       *********************************************************************
  2.       ***                                                               ***
  3.       *** Pandora script for adding a fancy 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. WaitScreen 0 75 "READY"
  18. VideoFore White
  19. VideoBack Black
  20. Screen 08 30 / ╔══════════════════╗ /
  21. Screen 09 30 / ║  ■ Expenses      ║ /
  22. Screen 10 30 / ║  ■ Income        ║ /
  23. Screen 11 30 / ║  ■ Travel        ║ /
  24. Screen 12 30 / ║  ■ Budget        ║ /
  25. Screen 13 30 / ╚══════════════════╝ /
  26. *
  27. * Expenses
  28. *
  29. Label expenses
  30. VideoReverse
  31. Screen 09 34 /■ Expenses     /
  32. Flush
  33. GetKey
  34. IfKey "[Esc]"
  35.     Key "/qy[Enter]"
  36.     Jump out
  37. EndIf
  38. IfKey " "
  39.     Key "/wey[Enter]"
  40.     Jump out
  41. EndIf
  42. IfKey "[Enter]"
  43.     Key "/frexpenses[Enter]"
  44.     Jump out
  45. EndIf
  46. IfKey "[Down][Up][End]"
  47.     VideoNormal
  48.     Screen 09 34 /■ Expenses     /
  49. EndIf
  50. IfKey "[Down]"
  51.     Jump income
  52. EndIf
  53. IfKey "[Up][End]"
  54.     Jump budget
  55. EndIf
  56. Jump expenses
  57. *
  58. * Income
  59. *
  60. Label income
  61. VideoReverse
  62. Screen 10 34 /■ Income       /
  63. Flush
  64. GetKey
  65. IfKey "[Esc]"
  66.     Key "/qy[Enter]"
  67.     Jump out
  68. EndIf
  69. IfKey "[Enter]"
  70.     Key "/frincome[Enter]"
  71.     Jump out
  72. EndIf
  73. IfKey "[Down][Up][Home][End]"
  74.     VideoNormal
  75.     Screen 10 34 /■ Income       /
  76. EndIf
  77. IfKey "[Down]"
  78.     Jump travel
  79. EndIf
  80. IfKey "[Up][Home]"
  81.     Jump expenses
  82. EndIf
  83. IfKey "[End]"
  84.     Jump budget
  85. EndIf
  86. Jump income
  87. *
  88. * Travel
  89. *
  90. Label travel
  91. VideoReverse
  92. Screen 11 34 /■ Travel       /
  93. Flush
  94. GetKey
  95. IfKey "[Esc]"
  96.     Key "/qy[Enter]"
  97.     Jump out
  98. EndIf
  99. IfKey "[Enter]"
  100.     Key "/frtravel[Enter]"
  101.     Jump out
  102. EndIf
  103. IfKey "[Down][Up][Home][End]"
  104.     VideoNormal
  105.     Screen 11 34 /■ Travel       /
  106. EndIf
  107. IfKey "[Down]"
  108.     Jump budget
  109. EndIf
  110. IfKey "[Up]"
  111.     Jump income
  112. EndIf
  113. IfKey "[Home]"
  114.     Jump expenses
  115. EndIf
  116. IfKey "[End]"
  117.     Jump budget
  118. EndIf
  119. Jump travel
  120. *
  121. * Budget
  122. *
  123. Label budget
  124. VideoReverse
  125. Screen 12 34 /■ Budget       /
  126. Flush
  127. GetKey
  128. IfKey "[Esc]"
  129.     Key "/qy[Enter]"
  130.     Jump out
  131. EndIf
  132. IfKey "[Enter]"
  133.     Key "/frbudget[Enter]"
  134.     Jump out
  135. EndIf
  136. IfKey "[Down][Up][Home]"
  137.     VideoNormal
  138.     Screen 12 34 /■ Budget       /
  139. EndIf
  140. IfKey "[Down][Home]"
  141.     Jump expenses
  142. EndIf
  143. IfKey "[Up]"
  144.     Jump travel
  145. EndIf
  146. Jump budget
  147. *
  148. * Out
  149. *
  150. Label out
  151. WaitChild
  152. Quit
  153.