home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progbas
/
ascsu205.arj
/
START.ASI
< prev
next >
Wrap
Text File
|
1992-01-19
|
51KB
|
2,371 lines
start:
rem This version of START.COM is for the ASIC Support Disk.
rem It requires approximately 68K RAM.
rem First, initialize the Esc key.
b$=chr$(27)
rem Next, intialize the space bar.
e$=chr$(32)
rem Parameters.
a$=command$
if a$=" /v" then listfile:
if a$=" /V" then listfile:
if a$=" /r" then readfile:
if a$=" /R" then readfile:
if a$=" /p" then printdoc:
if a$=" /P" then printdoc:
if a$=" /d" then donation:
if a$=" /D" then donation:
if a$=" /40" then option40:
if a$=" /40 v" then listfl40:
if a$=" /40 V" then listfl40:
if a$=" /40 r" then rdfile40:
if a$=" /40 R" then rdfile40:
if a$=" /40 p" then prntfl40:
if a$=" /40 P" then prntfl40:
if a$=" /40 d" then donate40:
if a$=" /40 D" then donate40:
if a$=" /?" then help:
if a$=" /40 ?" then help40:
rem If no parameters, then begin from the beginning.
cls
print " Matt Roberts"
print " 3 Cedar St., # 8"
print " Montpelier, Vt 05602-3006"
print " (802)223-2553"
print
print
print "If you have trouble with this disk, you can call between 9AM and 9PM"
print "EST, and I'll try to help."
print
print
print "If you find the files on this disk useful, a donation of $5.00 would"
print "be greatly appreciated. Thanks."
print
print "Of course, if there's work by other authors on this disk, the $5.00"
print "doesn't cover them. Thanks for your understanding."
print
print
print
print
print "Press any key to continue. ";
gosub continue:
rem Here's the caveat.
cls
print "Please Note: I am not in any way connected to ASIC or its author,"
print "David A. Visti, except as a registered user and ardent fan. Any"
print "questions regarding ASIC, and registration fees for that compiler,"
print "should be sent to:"
print
print
print "David Visti, P.O. Box 2952, Raleigh, NC 27602-2952."
print
print
print "I urge you to consider ASIC, and to register it if you use it."
print "Thanks."
print
print
print
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "Do you have one or two floppy drives?"
print
print
print "1- One floppy drive."
print "2- Two floppy drives."
print
print
print "Please press the key corresponding to your choice. ";
wait9:
gosub continue:
if a$="1" then
drivenum=1
goto options:
endif
if a$="2" then
drivenum=2
goto options:
endif
goto wait9:
if drivenum=2 then
print
print
print "To use both drives (it's less hassle), you'll need to place disk 1 in"
print "drive A and disk 2 in drive B. If you haven't already done so, please"
print "do that now, and then press any key to continue. ";
gosub continue:
endif
options:
cls
print "You have the following options:"
print
print
print "F1- View a list of the files on this disk."
print
print "F2- View the document file of your choice, on the screen."
print
print "F3- Print the document file of your choice."
print
print "F4- Shell to DOS."
print
print "F5- See a list of parameters you can use from DOS."
print
print "F6- Change to 40-column width (larger text; probably most useful to"
print "the visually impaired)."
print
print "F7- Run TIPS.COM."
print
print "Esc- Quit and return to DOS."
print
print
print "Please press the key corresponding to your choice. ";
wait1:
gosub continue:
if a$=b$ then finish:
if extended=1 then readext:
goto wait1:
readext:
if a$=";" then listfile:
if a$="<" then readfile:
if a$="=" then printdoc:
if a$=">" then shell:
if a$="?" then help:
if a$="@" then option40:
if a$="A" then runtipsc:
goto wait1:
listfile:
cls
print "Here are the files on these disks:"
print
print
print "ANYKEY.ASI- The source code for ANYKEY.COM."
print
print "ANYKEY.COM- A distant ancestor of GETKEY.COM, a batch file utility."
print
print "ANYKEY.DOC- The documentation for ANYKEY.COM."
print
print "AUTOEXEC.BAS- The ApBASIC code for AUTOEXEC.EXE."
print
print "AUTOEXEC.EXE- File called by FILE-MAN, for working with AUTOEXEC.BAT."
print
print "AUTOXC40.BAS- The ApBASIC code for AUTOXC40.EXE."
print
print "AUTOXC40.EXE- Same as AUTOEXEC.EXE, for 40-column mode."
print
print "CONFIG40.BAS- The ApBASIC code for CONFIG40.EXE."
print
print "CONFIG40.EXE- Same as CONFIG.EXE, for 40-column mode."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "CONFIG.BAS- The ApBASIC code for CONFIG.EXE."
print
print "CONFIG.EXE- File called by FILE-MAN.COM, for working with CONFIG.SYS."
print
print "DARKSCRN.ASI- The ASIC code for DARKSCRN.COM."
print
print "DARKSCRN.COM- A screen blanker used from the DOS prompt."
print
print "DARKSCRN.DOC- The documentation for DARKSCRN.COM."
print
print "EXTENDED.ASI- The ASIC code for EXTENDED.COM."
print
print "EXTENDED.COM- Program to see characters generated by extended keys."
print
print "EXTENDED.DOC- The documentation for EXTENDED.COM."
print
print "FILE-MAN.ASI- The source code for FILE-MAN.COM."
print
print "FILE-MAN.COM- The ASIC File Manager."
print
print "FILE-MAN.DOC- The documentation for FILE-MAN.COM."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "GETKEY.ASI- The source code for GETKEY.COM."
print
print "GETKEY.COM- A batch file utility for getting keyboard response."
print
print "GETKEY.DOC- The documentation for GETKEY.COM."
print
print "GETPAUSE.ASI- The ASIC code for GETPAUSE.COM"
print
print "GETPAUSE.COM- A customizable PAUSE command; a batch file utility."
print
print "GETPAUSE.DOC- The documentation for GETPAUSE.COM."
print
print "LIST.COM- A neat utility by Vern Buerg; displays files on the screen."
print
print "LIST.DOC- The documentation for LIST.COM."
print
print "LOOSWARE.DOC- Notes on the looseware concept."
print
print "PRINT.ASI- The ASIC code for PRINT.COM."
print
print "PRINT.COM- File-printing utility."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "PRINT.DOC- The documentation for PRINT.COM."
print
print "READ.ASI- The ASIC code for READ.COM."
print
print "READ.COM- Utility to display a text file on the screen."
print
print "READ.DOC- The documentation for READ.COM."
print
print "SEEFILES.ASI- The ASIC code for SEEFILES.COM."
print
print "SEEFILES.COM- Program called by FILE-MAN.COM; lists disk files."
print
print "SHELL.ASI- The ASIC 3.01 code for SHELL.COM."
print
print "SHELL.COM- Program to be used from within ASIC; shells to DOS."
print
print "SHELL.DOC- The documentation for SHELL.COM."
print
print "START.ASI- The ASIC code for START.COM."
print
print "START.COM- The file you're using right now."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "TIPS.ASI- The ASIC code for TIPS.COM."
print
print "TIPS.COM- Automated text file with tips for helping your programming."
print
print "TIPS.DOC- The documentation for TIPS.COM."
print
print "WIDTH.ASI- The ASIC code for WIDTH.COM."
print
print "WIDTH.COM- Utility to change from normal text to 40-column mode."
print
print "WIDTH.DOC- The documentation for WIDTH.COM."
print
print
print "Press any key to return to the Main Options Menu. ";
gosub continue:
goto options:
readfile:
cls
print "To move ahead in the file(s) you are about to view, press PgDn."
print
print "To move back, press PgUp."
print
print "To exit the document, press Esc."
print
print
print "Press any key to see the menu of files. ";
gosub continue:
readmenu:
cls
print "Here are some of the files you can view:"
print
print
print "A- ANYKEY.ASI J- EXTENDED.DOC S- PRINT.ASI"
print
print "B- ANYKEY.DOC K- FILE-MAN.ASI T- PRINT.DOC"
print
print "C- AUTOEXEC.BAS L- FILE-MAN.DOC U- READ.ASI"
print
print "D- AUTOXC40.BAS M- GETKEY.ASI V- READ.DOC"
print
print "E- CONFIG.40.BAS N- GETKEY.DOC W- SEEFILES.ASI"
print
print "F- CONFIG.BAS O- GETPAUSE.ASI X- SHELL.ASI"
print
print "G- DARKSCRN.ASI P- GETPAUSE.DOC Y- SHELL.DOC"
print
print "H- DARKSCRN.DOC Q- LIST.DOC Z- Next Menu."
print
print "I- EXTENDED.ASI R- LOOSWARE.DOC Esc- Main Options Menu."
print
print
print "Please press the key corresponding to your choice. ";
gosub continue:
if a$=b$ then options:
print a$;
if a$="z" then readmen2:
if a$="Z" then readmen2:
if a$="y" then readshed:
if a$="Y" then readshed:
if a$="x" then readshea:
if a$="X" then readshea:
if a$="w" then readseef:
if a$="W" then readseef:
if a$="v" then readread:
if a$="V" then readread:
if a$="u" then readreaa:
if a$="U" then readreaa:
if a$="t" then readprid:
if a$="T" then readprid:
if a$="s" then readpria:
if a$="S" then readpria:
if a$="r" then readloos:
if a$="R" then readloos:
if a$="q" then readlist:
if a$="Q" then readlist:
if a$="p" then readgepd:
if a$="P" then readgepd:
if a$="o" then readgepa:
if a$="O" then readgepa:
if a$="n" then readgekd:
if a$="N" then readgekd:
if a$="m" then readgeka:
if a$="M" then readgeka:
if a$="l" then readfild:
if a$="L" then readfild:
if a$="k" then readfila:
if a$="K" then readfila:
if a$="j" then readextd:
if a$="J" then readextd:
if a$="i" then readexta:
if a$="I" then readexta:
if a$="h" then readdard:
if a$="H" then readdard:
if a$="g" then readdara:
if a$="G" then readdara:
if a$="f" then readconf:
if a$="F" then readconf:
if a$="e" then readco40:
if a$="E" then readco40:
if a$="d" then readau40:
if a$="D" then readau40:
if a$="c" then readauto:
if a$="C" then readauto:
if a$="b" then readanyd:
if a$="B" then readanyd:
if a$="a" then readanya:
if a$="A" then readanya:
goto readmenu:
readanya:
call ("list.com"," anykey.asi")
goto readmenu:
readanyd:
call ("list.com"," anykey.doc")
goto readmenu:
readauto:
if drivenum=2 then readaut2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," autoexec.bas")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readaut2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:\autoexec.bas")
goto readmenu:
readau40:
if drivenum=2 then readau42:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," autoxc40.bas")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readau42:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:autoxc40.bas")
goto readmenu:
readco40:
if drivenum=2 then readco42:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," config40.bas")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readco42:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:config40.bas")
goto readmenu:
readconf:
if drivenum=2 then readcon2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," config.bas")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readcon2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:\config.bas")
goto readmenu:
readdara:
call ("list.com"," darkscrn.asi")
goto readmenu:
readdard:
call ("list.com"," darkscrn.doc")
goto readmenu:
readexta:
call ("list.com"," extended.asi")
goto readmenu:
readextd:
call ("list.com"," extended.doc")
goto readmenu:
readfila:
if drivenum=2 then readfia2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," file-man.asi")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readfia2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:file-man.asi")
goto readmenu:
readfild:
if drivenum=2 then readfid2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," file-man.doc")
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readfid2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:file-man.doc")
goto readmenu:
readgeka:
call ("list.com"," getkey.asi")
goto readmenu:
readgekd:
call ("list.com"," getkey.doc")
goto readmenu:
readgepa:
call ("list.com"," getpause.asi")
goto readmenu:
readgepd:
call ("list.com"," getpause.doc")
goto readmenu:
readlist:
call ("list.com"," list.doc")
goto readmenu:
readloos:
call ("list.com"," loosware.doc")
goto readmenu:
readpria:
call ("list.com"," print.asi")
goto readmenu:
readprid:
call ("list.com"," print.doc")
goto readmenu:
readreaa:
call ("list.com"," read.asi")
goto readmenu:
readread:
call ("list.com"," read.doc")
goto readmenu:
readseef:
if drivenum=2 then readsee2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
call ("list.com"," seefiles.asi")
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto readmenu:
readsee2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
call ("list.com"," b:seefiles.asi")
goto readmenu:
readshea:
call ("list.com"," shell.asi")
goto readmenu:
readshed:
call ("list.com"," shell.doc")
goto readmenu:
readmen2:
cls
print "Here are the remaining files you can view:"
print
print
print "A- START.ASI"
print
print "B- TIPS.ASI"
print
print "C- TIPS.DOC"
print
print "D- WIDTH.ASI"
print
print "E- WIDTH.DOC"
print
print "F- Return to the First Menu."
print
print "Esc- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to your choice. ";
gosub continue:
if a$=b$ then options:
print a$;
if a$="f" then readmenu:
if a$="f" then readmenu:
if a$="e" then readwidd:
if a$="E" then readwidd:
if a$="d" then readwida:
if a$="D" then readwida:
if a$="c" then readtipd:
if a$="C" then readtipd:
if a$="b" then readtipa:
if a$="B" then readtipa:
if a$="a" then readstar:
if a$="A" then readstar:
goto readmen2:
readstar:
call ("list.com"," start.asi")
goto readmen2:
readtipa:
call ("list.com"," tips.asi")
goto readmen2:
readtipd:
call ("list.com"," tips.doc")
goto readmen2:
readwida:
call ("list.com"," width.asi")
goto readmen2:
readwidd:
call ("list.com"," width.doc")
goto readmen2:
printdoc:
cls
print "Please ready your printer; press any key to see the menu of files. ";
gosub continue:
printmen:
cls
print "Here are some of the files you can print:"
print
print
print "A- ANYKEY.ASI J- EXTENDED.DOC S- PRINT.ASI"
print
print "B- ANYKEY.DOC K- FILE-MAN.ASI T- PRINT.DOC"
print
print "C- AUTOEXEC.BAS L- FILE-MAN.DOC U- READ.ASI"
print
print "D- AUTOXC40.BAS M- GETKEY.ASI V- READ.DOC"
print
print "E- CONFIG.40.BAS N- GETKEY.DOC W- SEEFILES.ASI"
print
print "F- CONFIG.BAS O- GETPAUSE.ASI X- SHELL.ASI"
print
print "G- DARKSCRN.ASI P- GETPAUSE.DOC Y- SHELL.DOC"
print
print "H- DARKSCRN.DOC Q- LIST.DOC Z- Next Menu."
print
print "I- EXTENDED.ASI R- LOOSWARE.DOC Esc- Main Options Menu."
print
print
print "Please press the key corresponding to your choice. ";
wait5:
gosub continue:
if a$=b$ then options:
if a$="z" then printme2:
if a$="Z" then printme2:
if a$="y" then printshd:
if a$="Y" then printshd:
if a$="x" then printsha:
if a$="X" then printsha:
if a$="w" then printsee:
if a$="W" then printsee:
if a$="v" then printred:
if a$="V" then printred:
if a$="u" then printrea:
if a$="U" then printrea:
if a$="t" then printprd:
if a$="T" then printprd:
if a$="s" then printpra:
if a$="S" then printpra:
if a$="r" then printloo:
if a$="R" then printloo:
if a$="q" then printlis:
if a$="Q" then printlis:
if a$="p" then printgpd:
if a$="P" then printgpd:
if a$="o" then printgpa:
if a$="O" then printgpa:
if a$="n" then printgkd:
if a$="N" then printgkd:
if a$="m" then printgka:
if a$="M" then printgka:
if a$="l" then printfid:
if a$="L" then printfid:
if a$="k" then printfia:
if a$="K" then printfia:
if a$="j" then printexd:
if a$="J" then printexd:
if a$="i" then printexa:
if a$="I" then printexa:
if a$="h" then printdad:
if a$="H" then printdad:
if a$="g" then printdaa:
if a$="G" then printdaa:
if a$="f" then printcon:
if a$="F" then printcon:
if a$="e" then printc40:
if a$="E" then printc40:
if a$="d" then printau4:
if a$="D" then printau4:
if a$="c" then printaut:
if a$="C" then printaut:
if a$="b" then printand:
if a$="B" then printand:
if a$="a" then printana:
if a$="A" then printana:
goto wait5:
printana:
file$="anykey.asi"
gosub printfil:
goto printmen:
printand:
file$="anykey.doc"
gosub printfil:
goto printmen:
printaut:
if drivenum=2 then printau2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="autoexec.bas"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printau2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:autoexec.bas"
gosub printfil:
goto printmen:
printau4:
if drivenum=2 then printa42:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="autoxc40.bas"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printa42:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:autoxc40.bas"
gosub printfil:
goto printmen:
printc40:
if drivenum=2 then printc42:
cls
print "Please place disk 2 into your drive and press anykey when ready. ";
gosub continue:
file$="config40.bas"
gosub printfil:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printc42:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:autoxc40.bas"
gosub printfil:
goto printmen:
printcon:
if drivenum=2 then printco2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="config.bas"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printco2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:config.bas"
gosub printfil:
goto printmen:
printdaa:
file$="darkscrn.asi"
gosub printfil:
goto printmen:
printdad:
file$="darkscrn.doc"
gosub printfil:
goto printmen:
printexa:
file$="extended.asi"
gosub printfil:
goto printmen:
printexd:
file$="extended.doc"
gosub printfil:
goto printmen:
printfia:
if drivenum=2 then printfa2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="file-man.asi"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printfa2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:file-man.asi"
gosub printfil:
goto printmen:
printfid:
if drivenum=2 then printfd2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="file-man.doc"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printfd2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:file-man.doc"
gosub printfil:
goto printmen:
printgka:
file$="getkey.asi"
gosub printfil:
goto printmen:
printgkd:
file$="getkey.doc"
gosub printfil:
goto printmen:
printgpa:
file$="getpause.asi"
gosub printfil:
goto printmen:
printgpd:
file$="getpause.doc"
gosub printfil:
goto printmen:
printlis:
file$="list.doc"
gosub printfil:
goto printmen:
printloo:
file$="loosware.doc"
gosub printfil:
goto printmen:
printpra:
file$="print.asi"
gosub printfil:
goto printmen:
printprd:
file$="print.doc"
gosub printfil:
goto printmen:
printrea:
file$="read.asi"
gosub printfil:
goto printmen:
printred:
file$="read.doc"
gosub printfil:
goto printmen:
printsee:
if drivenum=2 then printse2:
cls
print "Please place disk 2 into your drive and press any key when ready. ";
gosub continue:
file$="seefiles.asi"
gosub printfil:
cls
print "Please place disk 1 into your drive and press any key when ready. ";
gosub continue:
goto printmen:
printse2:
cls
print "Please make sure disk 2 is in drive B and press any key when ready. ";
gosub continue:
file$="b:seefiles.asi"
gosub printfil:
goto printmen:
printsha:
file$="shell.asi"
gosub printfil:
goto printmen:
printshd:
file$="shell.doc"
gosub printfil:
goto printmen:
printme2:
cls
print "Here are the remaining files you can print:"
print
print
print "A- START.ASI"
print
print "B- TIPS.ASI"
print
print "C- TIPS.DOC"
print
print "D- WIDTH.ASI"
print
print "E- WIDTH.DOC"
print
print "F- Return to the First Menu."
print
print "Esc- Return to the Main Options Menu."
print
print
print "Please press the key corresponding to your choice. ";
wait6:
gosub continue:
if a$=b$ then options:
if a$="f" then printmen:
if a$="F" then printmen:
if a$="e" then printwid:
if a$="E" then printwid:
if a$="d" then printwia:
if a$="D" then printwia:
if a$="c" then printtid:
if a$="C" then printtid:
if a$="b" then printtia:
if a$="B" then printtia:
if a$="a" then printsta:
if a$="A" then printsta:
goto wait6:
printsta:
file$="start.asi"
gosub printfil:
goto printme2:
printtia:
file$="tips.asi"
gosub printfil:
goto printme2:
printtid:
file$="tips.doc"
gosub printfil:
goto printme2:
printwia:
file$="width.asi"
gosub printfil:
goto printme2:
printwid:
file$="width.doc"
gosub printfil:
goto printme2:
rem Here is the routine for printing a file.
printfil:
cls
f$=chr$(12)
open "i",1,file$
if error=2 then
print ""
print ""
print "File not found."
print
print
print "Press any key to continue. ";
gosub continue:
close 1
return
endif
heading:
cls
print "Printing...";
realfile$=ucase$(file$)
color 0,7
print realfile$
color 7,0
print
print
print "Press space bar to pause printing, or Esc to quit."
print
print
printmor:
input# 1, line$ crlf
if error=96 then
lprint line$
goto blanklin:
endif
contlprn:
lprint line$
a$=inkey$
if a$=b$ then
print "Printing has been terminated. The printer may still have data in its"
print "buffer. If so, it will continue printing until the buffer is empty."
print
lprint f$
close 1
file$=""
print "Press any key to continue. ";
gosub continue:
return
endif
if a$=e$ then pause: else nopause:
pause:
print "Press any key to resume printing. ";
pausemor:
a$=inkey$
if a$="" then pausemor:
a$=""
goto heading:
nopause:
if error=99 then eofp:
goto printmor:
blanklin:
input# 1, line$ crlf
if line$="" then printmor: else contlprn:
eofp:
lprint line$
print "Finished."
print
close 1
lprint f$
print "Press any key to continue. ";
gosub continue:
return
rem This is the end of the routine for printing text files.
shell:
cls
print "On which drive is your COMMAND.COM (don't type the colon)? ";
gosub continue:
print a$
path1$=a$+":"
path2$=path1$+"\"
path3$=path2$+"command.com"
cls
print "Use the DOS command EXIT to return to START.COM."
print
print
call path3$,""
goto options:
rem Here is the routine for calling TIPS.COM.
runtipsc:
call ("tips.com","")
goto options:
option40:
width 40
print "You have the following options:"
print
print
print "F1- View a list of disk files."
print
print "F2- View a document file."
print
print "F3- Print a document file."
print
print "F4- Shell to DOS."
print
print "F5- See a list of parameters you can"
print "use from DOS."
print
print "F6- Return to 80-column width."
print
print "F7- Run TIPS.COM."
print
print "Esc- Quit and return to DOS."
print
print
print "Please press the key corresponding to"
print "your choice. ";
wait2:
gosub continue:
if a$=b$ then finish:
if extended=1 then rdext40:
goto wait2:
rdext40:
if a$=";" then listfl40:
if a$="<" then rdfile40:
if a$="=" then prntfl40:
if a$=">" then shell40:
if a$="?" then help40:
if a$="@" then width80:
if a$="A" then runtip40:
goto wait2:
listfl40:
width 40
print "Here are the files on these disks:"
print
print
print "ANYKEY.ASI- The source code for"
print "ANYKEY.COM."
print
print "ANYKEY.COM- A distant ancestor of"
print "GETKEY.COM, a batch file utility."
print
print "ANYKEY.DOC- The documentation for"
print "ANYKEY.COM."
print
print "AUTOXC40.BAS- The ApBASIC code for"
print "AUTOXC40.EXE."
print
print "AUTOXC40.EXE- Same as AUTOEXEC.BAS,"
print "for 40-column mode."
print
print "AUTOEXEC.BAS- The ApBASIC code for"
print "AUTOEXEC.EXE."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "AUTOEXEC.EXE- Program called by"
print "FILE-MAN; works with AUTOEXEC.BAT."
print
print "CONFIG40.BAS- The ApBASIC code for"
print "CONFIG40.EXE."
print
print "CONFIG40.EXE- Same as CONFI40.EXE, for"
print "40-column mode."
print
print "CONFIG.BAS- The ApBASIC code for"
print "CONFIG.EXE."
print
print "CONFIG.EXE- Program called by FILE-MAN"
print "for working with CONFIG.SYS."
print
print "DARKSCRN.ASI- The ASIC code for"
print "DARKSCRN.COM."
print
print "DARKSCRN.COM- A screen blanker used"
print "from the DOS prompt."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "DARKSCRN.COM- A screen blanker used"
print "from the DOS prompt."
print
print "DARKSCRN.DOC- The documentation for"
print "DARKSCRN.COM."
print
print "EXTENDED.ASI- The ASIC code for"
print "EXTENDED.COM."
print
print "EXTENDED.COM- A program for seeing the"
print "characters produced by extended keys."
print
print "EXTENDED.DOC- The documentation for"
print "EXTENDED.COM."
print
print "FILE-MAN.ASI- The ASIC code for"
print "FILE-MAN.COM."
print
print "FILE-MAN.COM- The ASIC File Manager."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "FILE-MAN.DOC- The documentation for"
print "FILE-MAN.COM."
print
print "GETKEY.ASI- The source code for"
print "GETKEY.COM."
print
print "GETKEY.COM- A batch file utility for"
print "getting keyboard response."
print
print "GETKEY.DOC- The documentation for"
print "GETKEY.COM."
print
print "GETPAUSE.ASI- The ASIC code for"
print "GETPAUSE.COM."
print
print "GETPAUSE.COM- A customizable PAUSE"
print "command; a batch file utility."
print
print "GETPAUSE.DOC- The documentation for"
print "GETPAUSE.COM."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "LIST.COM- A neat utility by Vern Buerg"
print "that displays files on the screen."
print
print "LIST.DOC- The documentation for"
print "LIST.COM."
print
print "PRINT.ASI- The ASIC code for"
print "PRINT.COM."
print
print "PRINT.COM- File-printing utility."
print
print "PRINT.DOC- The documentation for"
print "PRINT.COM."
print
print "READ.ASI- The ASIC code for READ.COM."
print
print "READ.COM- A utility to display text"
print "files on the screen."
print
print "READ.DOC- The documentation for"
print "READ.COM."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "SEEFILES.ASI- The ASIC code for"
print "SEEFILES.COM."
print
print "SEEFILES.ASI- The ASIC code for"
print "SEEFILES.COM."
print
print "SEEFILES.COM- File called by FILE-MAN;"
print "lists disk files."
print
print "SHELL.ASI- The source code for"
print "SHELL.COM."
print
print "SHELL.COM- Program to be used from"
print "within ASIC; shells to DOS."
print
print "SHELL.DOC- The documentation for"
print "SHELL.COM."
print
print "START.ASI- The source code for"
print "START.COM."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "START.COM- The file you're using right"
print "now."
print
print "TIPS.ASI- The ASIC code for TIPS.COM."
print
print "TIPS.COM- Automated text file with"
print "tips for improving your ASIC programs."
print
print "TIPS.DOC- The documentation for"
print "TIPS.COM."
print
print "WIDTH.ASI- The ASIC code for"
print "WIDTH.COM."
print
print "WIDTH.COM- Utility to change from"
print "normal text to 40-column mode."
print
print "WIDTH.DOC- The documentation for"
print "WIDTH.COM."
print
print
print "Press any key to return to the options"
print "menu. ";
gosub continue:
goto option40:
rdfile40:
width 40
print "To move forward in the files you are"
print "about to view, press PgDn."
print
print "To move back, press PgUp."
print
print "To move to the side, use the direction"
print "keys."
print
print
print "Press any key to see the menu of"
print "files. ";
gosub continue:
rdmenu40:
cls
print "Here are some of the files you can"
print "view:"
print
print
print "A- ANYKEY.ASI J- EXTENDED.DOC"
print
print "B- ANYKEY.DOC K- FILE-MAN.ASI"
print
print "C- AUTOEXEC.BAS L- FILE-MAN.DOC"
print
print "D- AUTOXC40.BAS M- GETKEY.ASI"
print
print "E- CONFIG40.BAS N- GETKEY.DOC"
print
print "F- CONFIG.BAS O- GETPAUSE.ASI"
print
print "G- DARKSCRN.ASI P- GETPAUSE.DOC"
print
print "H- DARKSCRN.DOC Q- Next menu."
print
print "I- EXTENDED.ASI Esc- Main Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";
gosub continue:
if a$=b$ then option40:
print a$;
if a$="q" then rdmen240:
if a$="Q" then rdmen240:
if a$="p" then rdgepd40:
if a$="P" then rdgepd40:
if a$="o" then rdgepa40:
if a$="O" then rdgepa40:
if a$="n" then rdgekd40:
if a$="N" then rdgekd40:
if a$="m" then rdgeka40:
if a$="M" then rdgeka40:
if a$="l" then rdfild40:
if a$="L" then rdfild40:
if a$="k" then rdfila40:
if a$="K" then rdfila40:
if a$="j" then rdextd40:
if a$="J" then rdextd40:
if a$="i" then rdexta40:
if a$="I" then rdexta40:
if a$="h" then rddard40:
if a$="H" then rddard40:
if a$="g" then rddara40:
if a$="G" then rddara40:
if a$="f" then rdconf40:
if a$="F" then rdconf40:
if a$="e" then rdco4040:
if a$="E" then rdco4040:
if a$="d" then rdau4040:
if a$="D" then rdau4040:
if a$="c" then rdauto40:
if a$="C" then rdauto40:
if a$="b" then rdanyd40:
if a$="B" then rdanyd40:
if a$="a" then rdanya40:
if a$="A" then rdanya40:
goto rdmenu40:
rdanya40:
call ("list.com"," anykey.asi")
goto rdmenu40:
rdanyd40:
call ("list.com"," anykey.doc")
goto rdmenu40:
rdauto40:
if drivenum=2 then rdauto42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," autoexec.bas")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdauto42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:autoexec.bas")
goto rdmenu40:
rdau4040:
if drivenum=2 then rdau4240:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," autoxc40.bas")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdau4240:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"" b:autoxc40.bas")
goto rdmenu40:
rdco4040:
if drivenum=2 then rdco4240:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.co"," config40.bas")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdco4240:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:config40.bas")
goto rdmenu40:
rdconf40:
if drivenum=2 then rdconf42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," config.bas")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdconf42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:config.bas")
goto rdmenu40:
rddara40:
call ("list.com"," darkscrn.asi")
goto rdmenu40:
rddard40:
call ("list.com"," darkscrn.doc")
goto rdmenu40:
rdexta40:
call ("list.com"," extended.asi")
goto rdmenu40:
rdextd40:
call ("list.com"," extended.doc")
goto rdmenu40:
rdfila40:
if drivenum=2 then rdfila42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," file-man.asi")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdfila42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:file-man.asi")
goto rdmenu40:
rdfild40:
if drivenum=2 then rdfild42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," file-man.doc")
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmenu40:
rdfild42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:file-man.doc")
goto rdmenu40:
rdgeka40:
call ("list.com"," getkey.asi")
goto rdmenu40:
rdgekd40:
call ("list.com"," getkey.doc")
goto rdmenu40:
rdgepa40:
call ("list.com"," getpause.asi")
goto rdmenu40:
rdgepd40:
call ("list.com"," getpause.doc")
goto rdmenu40:
rdmen240:
cls
print "Here are more files you can view:"
print
print
print "A- LIST.DOC J- START.ASI"
print
print "B- LOOSWARE.DOC K- TIPS.ASI"
print
print "C- PRINT.ASI L- TIPS.DOC"
print
print "D- PRINT.DOC M- WIDTH.ASI"
print
print "E- READ.ASI N- WIDTH.DOC"
print
print "F- READ.DOC"
print
print "G- SEEFILES.ASI"
print
print "H- SHELL.ASI O- First Menu."
print
print "I- SHELL.DOC Esc- Main Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";
gosub continue:
if a$=b$ then option40:
print a$;
if a$="o" then rdmenu40:
if a$="O" then rdmenu40:
if a$="n" then rdwidd40:
if a$="N" then rdwidd40:
if a$="m" then rdwida40:
if a$="M" then rdwida40:
if a$="l" then rdtipd40:
if a$="L" then rdtipd40:
if a$="k" then rdtipa40:
if a$="K" then rdtipa40:
if a$="j" then rdstar40:
if a$="J" then rdstar40:
if a$="i" then rdshed40:
if a$="I" then rdshed40:
if a$="h" then rdshea40:
if a$="H" then rdshea40:
if a$="g" then rdseef40:
if a$="G" then rdseef40:
if a$="f" then rdread40:
if a$="F" then rdread40:
if a$="e" then rdreaa40:
if a$="E" then rdreaa40:
if a$="d" then rdprid40:
if a$="D" then rdprid40:
if a$="c" then rdpria40:
if a$="C" then rdpria40:
if a$="b" then rdloos40:
if a$="B" then rdloos40:
if a$="a" then rdlist40:
if a$="A" then rdlist40:
goto rdmen240:
rdlist40:
call ("list.com"," list.doc")
goto rdmen240:
rdloos40:
call ("list.com"," loosware.doc")
goto rdmen240:
rdpria40:
call ("list.com"," print.asi")
goto rdmen240:
rdprid40:
call ("list.com"," print.doc")
goto rdmen240:
rdreaa40:
call ("list.com"," read.asi")
goto rdmen240:
rdread40:
call ("list.com"," read.doc")
goto rdmen240:
rdseef40:
if drivenum=2 then rdseef42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," seefiles.asi")
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto rdmen240:
rdseef42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
call ("list.com"," b:seefiles.asi")
goto rdmen240:
rdshea40:
call ("list.com"," shell.asi")
goto rdmen240:
rdshed40:
call ("list.com"," shell.doc")
goto rdmen240:
rdstar40:
call ("list.com"," start.asi")
goto rdmen240:
rdtipa40:
call ("list.com"," tips.asi")
goto rdmen240:
rdtipd40:
call ("list.com"," tips.doc")
goto rdmen240:
rdwida40:
call ("list.com"," width.asi")
goto rdmen240:
rdwidd40:
call ("list.com"," width.doc")
goto rdmen240:
prntfl40:
width 40
print "Please ready your printer; press any"
print "key to see the menu of files. ";
gosub continue:
prmenu40:
cls
print "Here are some of the files you can"
print "print:"
print
print
print "A- ANYKEY.ASI J- EXTENDED.DOC"
print
print "B- ANYKEY.DOC K- FILE-MAN.ASI"
print
print "C- AUTOEXEC.BAS L- FILE-MAN.DOC"
print
print "D- AUTOXC40.BAS M- GETKEY.ASI"
print
print "E- CONFIG40.BAS N- GETKEY.DOC"
print
print "F- CONFIG.BAS O- GETPAUSE.ASI"
print
print "G- DARKSCRN.ASI P- GETPAUSE.DOC"
print
print "H- DARKSCRN.DOC Q- Next menu."
print
print "I- EXTENDED.ASI Esc- Main Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";
wait7:
gosub continue:
if a$=b$ then option40:
if a$="q" then prmen240:
if a$="Q" then prmen240:
if a$="p" then prgepd40:
if a$="P" then prgepd40:
if a$="o" then prgepa40:
if a$="O" then prgepa40:
if a$="n" then prgekd40:
if a$="N" then prgekd40:
if a$="m" then prgeka40:
if a$="M" then prgeka40:
if a$="l" then prfild40:
if a$="L" then prfild40:
if a$="k" then prfila40:
if a$="K" then prfila40:
if a$="j" then prextd40:
if a$="J" then prextd40:
if a$="i" then prexta40:
if a$="I" then prexta40:
if a$="h" then prdard40:
if a$="H" then prdard40:
if a$="g" then prdara40:
if a$="G" then prdara40:
if a$="f" then prconf40:
if a$="F" then prconf40:
if a$="e" then prco4040:
if a$="E" then prco4040:
if a$="d" then prau4040:
if a$="D" then prau4040:
if a$="c" then prauto40:
if a$="C" then prauto40:
if a$="b" then pranyd40:
if a$="B" then pranyd40:
if a$="a" then pranya40:
if a$="A" then pranya40:
goto wait7:
pranya40:
file$="anykey.asi"
gosub prfile40:
goto prmenu40:
pranyd40:
file$="anykey.doc"
gosub prfile40:
goto prmenu40:
prauto40:
if drivenum=2 then prauto42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="autoexec.bas"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prauto42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:autoexec.bas"
gosub prfile40:
goto prmenu40:
prau4040:
if drivenum=2 then prau4240:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="autoxc40.bas"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prau4240:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:autoxc40.bas"
gosub prfile40:
goto prmenu40:
prco4040:
if drivenum=2 then prco4240:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="config40.bas"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prco4240:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:config40.bas"
gosub prfile40:
goto prmenu40:
prconf40:
if drivenum=2 then prconf42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="config.bas"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prconf42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:config.bas"
gosub prfile40:
goto prmenu40:
prdara40:
file$="darkscrn.asi"
gosub prfile40:
goto prmenu40:
prdard40:
file$="darkscrn.doc"
gosub prfile40:
goto prmenu40:
prexta40:
file$="extended.asi"
gosub prfile40:
goto prmenu40:
prextd40:
file$="extended.doc"
gosub prfile40:
goto prmenu40:
prfila40:
if drivenum=2 then prfila42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="file-man.asi"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prfila42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:file-man.asi"
gosub prfile40:
goto prmenu40:
prfild40:
if drivenum=2 then prfild42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="file-man.doc"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmenu40:
prfild42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:file-man.doc"
gosub prfile40:
goto prmenu40:
prgeka40:
file$="getkey.asi"
gosub prfile40:
goto prmenu40:
prgekd40:
file$="getkey.doc"
gosub prfile40:
goto prmenu40:
prgepa40:
file$="getpause.asi"
gosub prfile40:
goto prmenu40:
prgepd40:
file$="getpause.doc"
gosub prfile40:
goto prmenu40:
prmen240:
cls
print "Here are more files you can print:"
print
print
print "A- LIST.DOC J- START.ASI"
print
print "B- LOOSWARE.DOC K- TIPS.ASI"
print
print "C- PRINT.ASI L- TIPS.DOC"
print
print "D- PRINT.DOC M- WIDTH.ASI"
print
print "E- READ.ASI N- WIDTH.DOC"
print
print "F- READ.DOC"
print
print "G- SEEFILES.ASI"
print
print "H- SHELL.ASI O- First Menu."
print
print "I- SHELL.DOC Esc- Main Menu."
print
print
print "Please press the key corresponding to"
print "your choice. ";
wait8:
gosub continue:
if a$=b$ then option40:
if a$="o" then prmenu40:
if a$="O" then prmenu40:
if a$="n" then prwidd40:
if a$="N" then prwidd40:
if a$="m" then prwida40:
if a$="M" then prwida40:
if a$="l" then prtipd40:
if a$="L" then prtipd40:
if a$="k" then prtipa40:
if a$="K" then prtipa40:
if a$="j" then prstar40:
if a$="J" then prstar40:
if a$="i" then prshed40:
if a$="I" then prshed40:
if a$="h" then prshea40:
if a$="H" then prshea40:
if a$="g" then prseef40:
if a$="G" then prseef40:
if a$="f" then prread40:
if a$="F" then prread40:
if a$="e" then prreaa40:
if a$="E" then prreaa40:
if a$="d" then prprid40:
if a$="D" then prprid40:
if a$="c" then prpria40:
if a$="C" then prpria40:
if a$="b" then prloos40:
if a$="B" then prloos40:
if a$="a" then prlist40:
if a$="A" then prlist40:
goto wait8:
prlist40:
file$="list.doc"
gosub prfile40:
goto prmen240:
prloos40:
file$="loosware.doc"
gosub prfile40:
goto prmen240:
prpria40:
file$="print.asi"
gosub prfile40:
goto prmen240:
prprid40:
file$="print.doc"
gosub prfile40:
goto prmen240:
prreaa40:
file$="read.asi"
gosub prfile40:
goto prmen240:
prread40:
file$="read.doc"
gosub prfile40:
goto prmen240:
prseef40:
if drivenum=2 then prseef42:
cls
print "Please place disk 2 into your drive"
print "and press any key when ready. ";
gosub continue:
file$="seefiles.asi"
gosub prfile40:
cls
print "Please place disk 1 into your drive"
print "and press any key when ready. ";
gosub continue:
goto prmen240:
prseef42:
cls
print "Please make sure disk 2 is in drive B"
print "and press any key when ready. ";
gosub continue:
file$="b:seefiles.asi"
gosub prfile40:
goto prmen240:
prshea40:
file$="shell.asi"
gosub prfile40:
goto prmen240:
prshed40:
file$="shell.doc"
gosub prfile40:
goto prmen240:
prstar40:
file$="start.asi"
gosub prfile40:
goto prmen240:
prtipa40:
file$="tips.asi"
gosub prfile40:
goto prmen240:
prtipd40:
file$="tips.doc"
gosub prfile40:
goto prmen240:
prwida40:
file$="width.asi"
gosub prfile40:
goto prmen240:
prwidd40:
file$="width.doc"
gosub prfile40:
goto prmen240:
rem Here is the routine for printing a file in 40-column mode.
prfile40:
cls
f$=chr$(12)
open "i",1,file$
if error=2 then
print ""
print ""
print "File not found."
print
print
print "Press any key to continue. ";
gosub continue:
close 1
return
endif
headng40:
cls
print "Printing...";
realfile$=ucase$(file$)
color 0,7
print realfile$
color 7,0
print
print
print "Press space bar to pause printing, or"
print "Esc to quit."
print
print
prntmr40:
input# 1, line$ crlf
if error=96 then
lprint line$
goto blnkln40:
endif
contpr40:
lprint line$
a$=inkey$
if a$=b$ then
print "Printing has been terminated. The"
print "printer may still have data in its"
print "buffer. If so, it will continue"
print "printing until the buffer is empty."
print
lprint f$
close 1
file$=""
print "Press any key to continue. ";
gosub continue:
return
endif
if a$=e$ then pause40: else nopaus40:
pause40:
print "Press any key to resume printing. ";
pausmr40:
a$=inkey$
if a$="" then pausmr40:
a$=""
goto headng40:
nopaus40:
if error=99 then eofp40:
goto prntmr40:
blnkln40:
input# 1, line$ crlf
if line$="" then prntmr40: else contpr40:
eofp40:
lprint line$
print "Finished."
print
close 1
lprint f$
print "Press any key to continue. ";
gosub continue:
return
rem This is the end of the routine for printing a file in 40-column mode.
rem Here is the routine for shelling to DOS in 40-column mode.
shell40:
cls
print "On which drive is your COMMAND.COM?"
print "Don't type the colon. ";
gosub continue:
print a$
path1$=a$+":"
path2$=path1$+"\"
path3$=path2$+"command.com"
cls
print "Use the DOS command EXIT to return to"
print "START.COM."
print
call path3$,""
goto option40:
width80:
width 80
goto options:
rem Here is the routine for calling TIPS.COM from the 40-column menu.
runtip40:
call ("tips.com"," /40")
goto option40:
help:
cls
print "You can use paramaters with START.COM; they may save you some time."
print
print
print "Typing START /V will let you view the files on the disk."
print
print "Typing START /R will let you view text files on the screen."
print
print "Typing START /P will let you print text files."
print
print "Typing START /40 will put you in 40-column mode."
print
print "Typing START /40 V will let you view a list of disk files in 40-"
print "column mode."
print
print "Typing START /40 R will let you view text files on the screen in 40-"
print "column mode."
print
print "Typing START /40 P will let you print text files from a 40-column"
print "menu."
print
print "Typing START /? will get you this help file."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "Typing START /40 ? will get you this help file in 40-column mode."
print
print "Either upper or lower case is fine."
print
print
print "Return to ";
color 0,15
print "D";
color 7,0
print "OS ";
print "or ";
color 0,15
print "C";
color 7,0
print "ontinue with START.COM? ";
wait3:
gosub continue:
if a$="d" then finish:
if a$="D" then finish:
if a$="c" then options:
if a$="C" then options:
goto wait3:
help40:
width 40
cls
print "You can use parameters with START.COM."
print "They may save you time."
print
print
print "The parameters listed here are for 40-"
print "column mode only. To get the"
print "parameters for 80-column mode, use the"
print "command START /?"
print
print
print "Typing START /40 V will let you view a"
print "list of files on this disk."
print
print "Typing START /40 R will let you view"
print "files on the screen."
print
print "Typing START /P will let you print"
print "text files from a 40-column menu."
print
print "Typing START /40 ? will get you this"
print "help file."
print
print
print "Press any key to continue. ";
gosub continue:
cls
print "Either upper or lower case is fine."
print
print
print "Return to ";
color 0,15
print "D";
color 7,0
print "OS or ";
color 0,15
print "C";
color 7,0
print "ontinue with"
print "START.COM? ";
wait4:
gosub continue:
if a$="d" then finish:
if a$="D" then finish:
if a$="c" then option40:
if a$="C" then option40:
goto wait4:
continue:
wait:
a$=inkey$
if a$="" then wait:
return
rem Here is the routine for giving the address for donations.
donation:
cls
print "You can send donations to:"
print
print
print "Matt Roberts"
print "3 Cedar St., # 8"
print "Montpelier, Vt 05602-3006"
print
print
print "Thanks."
print
print
end
rem Here is the donations routine for 40-column mode.
donate40:
width 40
print "You can send donations to:"
print
print
print "Matt Roberts"
print "3 Cedar St., # 8"
print "Montpelier, Vt 05602-3006"
print
print
print "Thanks."
print
print
end
finish:
cls
end