echo off
rem This patch originally suggested by a message on a Maryland junior BBS at
rem 1(301)428-3145; automated batch file by John Wager.
echo This program AUTOMATICALLY patches BASICA.COM. so that you can run it on
echo an IBMPCjr without having a basic cartridge installed.  It is also useful
echo if you have a junior with more than 256K of memory; running cartridge
echo basic with more memory than this requires special software.
echo The main drawback of this patch is that it prevents you from entering
echo commands in basic like RUN or LIST using the Function keys; you will have
echo to type them in. The bottom ('key') line is also disabled.
echo
echo	  To make this patch, you will need to have copies on this disk of
echo BASICA.COM from your DOS disk, DEBUG.COM from the supplemental DOS disk,
echo and the file PATCH.TXT.  If copies of these programs are not on this disk,
echo press Fn B to stop this program and then copy them here. If copies of all
echo of these files are already on this disk,
pause
for %%f in (BASICA.COM DEBUG.COM PATCH.TXT) do if not exist %%f goto end
REN BASICA.COM BASICAJR.XOM
DEBUG BASICAJR.XOM < PATCH.TXT
REN BASICAJR.XOM BASICAJR.COM
echo You should now have a version of BASICA.COM that will work on your junior
echo just like it would on a full-size P.C., except that you will not be able
echo to enter commands like RUN or LIST using the Function keys, and the last
echo line of the screen will not have these Function keys labeled.  Of course
echo you will only be able to run programs written for the P.C.'s BASICA.COM
echo rather than cartridge basic, but that is the price you pay. You can still
echo run cartridge basic the way you normally would if you want to.
echo
echo From now on, to run BASICA type BASICAJR at DOS prompt. (If you try to run
echo it with the name BASICA or BASIC, you will get a message that the BASIC
echo cartridge must be installed, or it will jump to cartridge basic if it is
echo installed.
goto quit
:end
echo The necessary files are not on this disk; copy them here and try again.
echo The files are BASICA.COM, DEBUG.COM, PATCH.TXT.
:quit
                                               
