home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
diags
/
pandor23.zip
/
123FANCY.PAN
< prev
next >
Wrap
Text File
|
1991-09-09
|
3KB
|
153 lines
*********************************************************************
*** ***
*** Pandora script for adding a fancy opening menu to Lotus 1-2-3 ***
*** (Tested only with version 2.01) ***
*** ***
*********************************************************************
IfLoad "c:\123\123.exe"
Else
Output "^M^J^GPandora is unable to load Lotus 1-2-3. Please edit the file 123.PAN and^M^J"
Output "correct the 'IfLoad' command to include the appropriate pathname for Pandora to^M^J"
Output "locate the file 123.EXE on your PC."
Quit
EndIf
Go ""
WaitScreen 0 75 "READY"
VideoFore White
VideoBack Black
Screen 08 30 / ╔══════════════════╗ /
Screen 09 30 / ║ ■ Expenses ║ /
Screen 10 30 / ║ ■ Income ║ /
Screen 11 30 / ║ ■ Travel ║ /
Screen 12 30 / ║ ■ Budget ║ /
Screen 13 30 / ╚══════════════════╝ /
*
* Expenses
*
Label expenses
VideoReverse
Screen 09 34 /■ Expenses /
Flush
GetKey
IfKey "[Esc]"
Key "/qy[Enter]"
Jump out
EndIf
IfKey " "
Key "/wey[Enter]"
Jump out
EndIf
IfKey "[Enter]"
Key "/frexpenses[Enter]"
Jump out
EndIf
IfKey "[Down][Up][End]"
VideoNormal
Screen 09 34 /■ Expenses /
EndIf
IfKey "[Down]"
Jump income
EndIf
IfKey "[Up][End]"
Jump budget
EndIf
Jump expenses
*
* Income
*
Label income
VideoReverse
Screen 10 34 /■ Income /
Flush
GetKey
IfKey "[Esc]"
Key "/qy[Enter]"
Jump out
EndIf
IfKey "[Enter]"
Key "/frincome[Enter]"
Jump out
EndIf
IfKey "[Down][Up][Home][End]"
VideoNormal
Screen 10 34 /■ Income /
EndIf
IfKey "[Down]"
Jump travel
EndIf
IfKey "[Up][Home]"
Jump expenses
EndIf
IfKey "[End]"
Jump budget
EndIf
Jump income
*
* Travel
*
Label travel
VideoReverse
Screen 11 34 /■ Travel /
Flush
GetKey
IfKey "[Esc]"
Key "/qy[Enter]"
Jump out
EndIf
IfKey "[Enter]"
Key "/frtravel[Enter]"
Jump out
EndIf
IfKey "[Down][Up][Home][End]"
VideoNormal
Screen 11 34 /■ Travel /
EndIf
IfKey "[Down]"
Jump budget
EndIf
IfKey "[Up]"
Jump income
EndIf
IfKey "[Home]"
Jump expenses
EndIf
IfKey "[End]"
Jump budget
EndIf
Jump travel
*
* Budget
*
Label budget
VideoReverse
Screen 12 34 /■ Budget /
Flush
GetKey
IfKey "[Esc]"
Key "/qy[Enter]"
Jump out
EndIf
IfKey "[Enter]"
Key "/frbudget[Enter]"
Jump out
EndIf
IfKey "[Down][Up][Home]"
VideoNormal
Screen 12 34 /■ Budget /
EndIf
IfKey "[Down][Home]"
Jump expenses
EndIf
IfKey "[Up]"
Jump travel
EndIf
Jump budget
*
* Out
*
Label out
WaitChild
Quit