Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STRALEY.ZIP
Filename : AMENU.PRG
* Name AMENU.prg
* Date August 21, 1986
* Notice Copywright 1986, Stephen J. Straley
* Note This is the first application. Try this under a 256K
* environment space.
*
********************
CLEAR
STORE .F. TO reboot
IF FILE("ALLMEM.MEM")
RESTORE FROM Allmem
ERASE Allmem.mem
RUN CD\
RUN DEL Autoexec.bat
RUN REN Autoexec.tem Autoexec.bat
RUN CD\FW\WORK\TEST && The name of the sub-directory for program
DO &goproc
STORE .T. TO reboot
ENDIF
DO Aamen1
********************
PROCEDURE Aamen1
DO WHILE .T.
CLEAR
scrframe = "ÉÍ»º¼ÍȺ "
STORE 0 TO option
@ 6, 12, 16, 55 BOX scrframe
@ 5, 29 SAY "Main Menu"
@ 8, 14 PROMPT " Account Charts "
@ 10, 14 PROMPT " Trasactions "
@ 12, 14 PROMPT " Postings "
@ 14, 14 PROMPT " Reports "
@ 8, 38 PROMPT " Listings "
@ 10, 38 PROMPT " Other Systems "
@ 12, 38 PROMPT " Utilities "
@ 14, 38 PROMPT " End of Period "
@ 17, 27 SAY "ESC to RETURN"
MENU TO option
DO CASE
CASE option = 1
DO Aamen11
CASE option = 2
*************************
* Do sub-procedure here *
*************************
CASE option = 3
*************************
* Do sub-procedure here *
*************************
CASE option = 4
*************************
* Do sub-procedure here *
*************************
CASE option = 5
*************************
* Do sub-procedure here *
*************************
CASE option = 6
*************************
* Do sub-procedure here *
*************************
CASE option = 7
*************************
* Do sub-procedure here *
*************************
CASE option = 8
DO Aamen18
CASE option = 0
@ 19, 15 SAY "All Files Closed, Returning to Operating System"
IF reboot
RUN Coldboot
ELSE
QUIT
ENDIF
ENDCASE
ENDDO
********************
PROCEDURE Aamen18
DO WHILE .T.
STORE 0 TO option1
@ 15, 40, 22, 65 BOX scrframe
@ 16, 12 SAY ""
@ 17, 46 PROMPT " Month End "
@ 18, 46 PROMPT " Quarter End "
@ 19, 46 PROMPT " Year End "
@ 21, 47 SAY "ESC to RETURN"
MENU TO option1
DO CASE
CASE option1 = 1
*************************
* Do sub-procedure here *
*************************
CASE option1 = 2
*************************
* Do sub-procedure here *
*************************
CASE option1 = 3
*************************
* Do sub-procedure here *
*************************
CASE option1 = 0
EXIT
ENDCASE
ENDDO
********************
PROCEDURE Aamen11
DO WHILE .T.
STORE 0 TO option2
@ 8, 32, 20, 54 BOX scrframe
@ 8, 39 SAY "Sub-Menu"
@ 10, 33 PROMPT " 1> Enter Accounts "
@ 13, 33 PROMPT " 2> Edit Accounts "
@ 16, 33 PROMPT " 3> Scan Accounts "
@ 19, 33 PROMPT " 4> Delete Accoutns "
@ 21, 37 SAY "ESC to RETURN"
MENU TO option2
DO CASE
CASE option2 = 1
*************************
* Do sub-procedure here *
*************************
CASE option2 = 2
*************************
* Do sub-procedure here *
*************************
CASE option2 = 3
*************************
* Do sub-procedure here *
*************************
CASE option2 = 4
DO Aamen114
CASE option2 = 0
EXIT
ENDCASE
ENDDO
********************
PROCEDURE Aamen114
DO WHILE .T.
STORE 0 TO option3
@ 17, 13, 21, 33 BOX scrframe
@ 18, 10 SAY ""
@ 18, 18 PROMPT " Quit File "
@ 19, 18 PROMPT " Go to Top "
@ 21, 17 SAY "ESC to RETURN"
MENU TO option3
DO CASE
CASE option3 = 1
goproc = PROCNAME()
SAVE TO Allmem
CLEAR ALL
RUN CD\
RUN REN AUTOEXEC.BAT AUTOEXEC.TEM
SET CONSOLE OFF
TEXT TO FILE Autoexec.bat
cd\fw\work\test
BMENU
AMENU
ENDTEXT
RUN Coldboot
CASE option3 = 2
DO Aamen1
CASE option3 = 0
EXIT
ENDCASE
ENDDO
* End of AMENU.prg
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/