Index TOC

Small GW-BASIC MenuLink Files

for the

Four Files of the Apocalypse

Note:
The following files are small basic programs that when run, 
call the necessary batch file that the "Four Files of the 
Apocalypse" needs to start.

When the batch files is finished running it goes back to the 
small basic program that starts the desired big Basic 
program up again.

Kind of goofy, but it works great and you can have no end of 
linking applications if you want.

That is why for most of personal home programming the 
segment limit is quite meaningless as a limitation.  You can 
keep calling or merging programs to doomsday.

i couldn't figure out how to do that using QBASIC so that is 
why i prefer GW-BASIC.

It seems that when you end a program in QBASIC you are 
dropped back into the editor whether you want it or not.  

But be forwarned, i am not a programmer so there may be an 
obvious way to keep programs up and running in QBASIC, it is 
just that i never spent the time to figure out how...  


1 READ A$,B$,C$,D$,E$,F$:IF A$="-1" THEN END:GOTO1 2 ' SAVE "FORMFOO.BAS",A 3 ' (i really don't know what this is doing in here, 4 ' but i left it in anyhow.)
10 SHELL"PLANTS.BAT 20 RUN"MNU-DBAS 30 ' SAVE"PLANT.BAS",A 40 ' this runs a WordPerfect notebook application of a plant 50 ' database that my son has/had.
10 SHELL"2123 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2123.BAS",A 50 ' this ran 123 v 2.01 for DOS along with HAL.
1 COLOR 7,0:CLS:VIEW PRINT:CLS:SYSTEM 2 ' SAVE"LL6-EXIT.BAS",A 3 ' this is an exit program for Landlord VI (six).
1 COLOR 7,0:CLS:VIEW PRINT:CLS:SYSTEM 2 ' SAVE"LL9-EXIT.BAS",A 3 ' this is an exit program for landlord 9
20 SHELL "BUDGET.BAT" 30 RUN"mnu-wks.bas 40 ' SAVE"QBAS-BUD.BAS",A 50 ' this shells to qbasic in high res and drops you off in 60 ' the editor
20 SHELL "LL6-WKS.BAT" 30 RUN"mnu-wks.bas 40 ' SAVE"QBAS-LL6.BAS",A
20 SHELL "CASHFLOW.BAT" 30 RUN"mnu-wks.bas 40 ' SAVE"QBAS-CFL.BAS",A
10 SHELL"LET2c&N 20 CHDIR"\FFA 30 RUN"MNU-vde.BAS 40 ' SAVE"LET2C&N.BAS",A
10 SHELL"LET2MOM 20 CHDIR"\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"LET2MOM.BAS",A
10 SHELL"LET4BIZ 20 CHDIR"\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"LET4BIZ.BAS",A
10 SHELL"2WORD.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2WORD.BAS",A
10 SHELL"LET2FREN 20 CHDIR"\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"LET2FREN.BAS",A
10 SHELL"2DBASE.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2DBASE.BAS",A
10 SHELL"2WORKS.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2WORKS.BAS",A
10 SHELL"2XTREE.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2XTREE.BAS",A
10 SHELL"2OFFICE.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2OFFICE.BAS",A
10 SHELL"2W3-BIZL.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-BIZL.BAS",A
10 SHELL"2W3-MOML.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-MOML.BAS",A
10 SHELL"2W3-RCP.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-RCP.BAS",A
10 SHELL"2W3-WKS.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-WKS.BAS",A
10 SHELL"2WSTAR5.BAT 20 CHDIR"\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2WSTAR5.BAS",A
10 SHELL"2W3-C&NL.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-C&NL.BAS",A
10 SHELL"2W3-FRIL.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-FRIL.BAS",A
10 SHELL"2W3-XTRE.BAT 20 CHDIR"\FFA 30 RUN"MNU-WKS3.BAS 40 ' SAVE"2W3-XTRE.BAS",A
1 SHELL"ll6works.bat" 2 CHDIR"\ffa" 5 RUN"LL6.BAS 8 ' SAVE "LL6works.bas",a
1 SHELL"ll9works.bat" 2 CHDIR"\ffa" 5 RUN"LL9.BAS 8 ' SAVE "LL9works.bas",a
10 SHELL"2msworks.BAT 20 REM CHDIR" \dos\ffa 30 RUN"mnu-main.BAS 40 ' SAVE"2msworks.bas",a
10 SHELL"2VDEBIZL.BAT 15 chdir"\ 20 CHDIR"c:\dos\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"2VDEBIZL.BAS",A
10 SHELL"2VDEC&NL.BAT 15 chdir"\ 20 CHDIR"c:\dos\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"2VDEC&NL.BAS",A
10 SHELL"2VDEFRIL.BAT 15 CHDIR"\ 20 CHDIR"C:\DOS\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"2VDEFRIL.BAS",A
10 SHELL"2VDEMOML.BAT 15 CHDIR"\ 20 CHDIR"C:\DOS\FFA 30 RUN"MNU-VDE.BAS 40 ' SAVE"2VDEMOML.BAS",A
10 SHELL"2CWORDPA.BAT 15 CHDIR".. 16 CHDIR".. 20 CHDIR"DOS\FFA 30 RUN"MNU-APPS.BAS 40 ' SAVE"2CWORDPA.BAS",A
0 'an exit program by fhb 4-29-98 1 VIEW PRINT:CLS:PRINT CHR$(27):COLOR 7,0:CLS:SYSTEM 2 ' SAVE"EXIT.BAS",A 3 ' this is a program that is called by a lot of other 4 ' programs to exit from windowing, clear the screen, 5 ' press the enter key, change the color, and clear the 6 ' screen again, and finally exit basic.
1 ' A child program to run eco-stat in \BAS\ECO-STAT directory 2 CHDIR"..\BAS\ECO-STAT 3 RUN"MNU-ECO 6 ' SAVE"ECO-APPS.BAS",A
10 CLS 20 FOR I=0 TO 16 30 COLOR I,0 40 PRINT I, 50 NEXT 60 FOR I=0 TO 15 70 COLOR 0,I 80 PRINT I, 90 NEXT 100 ' save"c:\bas\color.bas",a 110 COLOR 7,0
TOP
Index
TOC
Hosted by www.Geocities.ws

1