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