Category : Files from Magazines
Archive   : VOL9N09.ZIP
Filename : 123.PAN
*** ***
*** PAN script for adding an opening menu to Lotus 1-2-3 ***
*** (Tested only with version 2.01) ***
*** ***
************************************************************
IfLoad "c:\123\123.exe"
Else
Output "^M^J^GPAN 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 PAN to^M^J"
Output "locate the file 123.EXE on your PC."
Quit
EndIf
Go ""
* Wait for Lotus 1-2-3 to initialize
WaitScreen 0 75 "READY"
* Draw the menu in reverse video
Video 70
Screen 07 30 / ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» /
Screen 08 30 / º Select a spreadsheet: º /
Screen 09 30 / º 1. Expenses º /
Screen 10 30 / º 2. Income º /
Screen 11 30 / º 3. Budget º /
Screen 12 30 / ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ /
* Get and interpret a keypress
Video 07
Label try_again
Flush
GetKey
IfKey "1"
* Select: Worksheet Erase Yes to clear the menu
Key "/wey"
* Select: File Retrieve to load a spreadsheet
Key "/frexpenses[Enter]"
Jump out
EndIf
IfKey "2"
Key "/wey"
Key "/frincome[Enter]"
Jump out
EndIf
IfKey "3"
Key "/wey"
Key "/frbudget[Enter]"
Jump out
EndIf
IfKey "[Esc]"
Key "/wey"
Jump out
EndIf
Output "^G"
Jump try_again
* Out
Label out
WaitChild
Quit
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/