echo off
if %1X==X goto NI
if %1==std goto st
if %1==helv goto hv
if %1==times goto ti
IF %1==STD GOTO ST
IF %1==HELV GOTO HV
IF %1==ROMA GOTO TI
echo The "%1" font group is not available.
goto EX
:NI
echo The available font sets are:
echo STD - standard set of 8 resident fonts
echo HELV - resident Helvetica fonts and 12 font library
echo ROMA - resident Times Roman fonts and 12 font library
echo Use a command like QUADDOWN STD to download fonts.
goto EX
:ST
echo on
echo ü3f>prn
copy /b %2qci10f.fnt prn
echo ü4f>prn
copy /b %2qh12p.fnt prn
echo ü5f>prn
copy /b %2qh16p.fnt prn
echo ü6f>prn
copy /b %2qtr8p.fnt prn
echo ü7f>prn
copy /b %2qpresf.fnt prn
echo ü8f>prn
copy /b %2qsprf.fnt prn
echo ü17f>prn
copy /b %2qgrkp.fnt prn
echo ü18f>prn
copy /b %2qpcf.fnt prn
echo off
echo PLEASE WAIT FOR DOS PROMPT . . .
echo ü1nü1sStandard fonts downloaded. Fonts available:>prn
echo .>prn
echo ü2nü1sB - Courier Bold>prn
echo ü6nü0sC - Times Roman 8 point>prn
echo .>prn
echo ü5nü0sD - Helvetica 16 point>prn
echo ü7nü1sE - Prestige Elite>prn
echo ü1nü1sF - Courier>prn
echo ü3nü1sI - Courier Italics>prn
echo ü4nü0sQ - Helvetica 12 point>prn
echo ü8nü1sV - Spreadsheet>prn
echo .>prn
echo ü1nü1sThe printer selection for this font set is QuadLaser, standard fonts.>prn
goto LS
:HV
echo on
echo ü3f>prn
copy /b %2qci10f.fnt prn
echo ü4f>prn
copy /b %2qh12p.fnt prn
echo ü5f>prn
copy /b %2qh16p.fnt prn
echo ü7f>prn
copy /b %2qpresf.fnt prn
echo ü8f>prn
copy /b %2qsprf.fnt prn
echo ü13f>prn
copy /b %2qh8p.fnt prn
echo ü14f>prn
copy /b %2qh10p.fnt prn
echo ü15f>prn
copy /b %2qh14p.fnt prn
echo ü16f>prn
copy /b %2qh18p.fnt prn
echo ü17f>prn
copy /b %2qgrkp.fnt prn
echo ü18f>prn
copy /b %2qpcf.fnt prn
echo ü20f>prn
copy /b %2qprf24p.fnt prn
echo off
echo PLEASE WAIT FOR DOS PROMPT . . .
echo ü1nü1sHelvetica fonts downloaded. Fonts available:>prn
echo .>prn
echo ü2nü1sB - Courier Bold>prn
echo ü13nü0sC - Helvetica 8 point>prn
echo .>prn
echo ü5nü0sD - Helvetica 16 point>prn
echo ü7nü1sE - Prestige Elite>prn
echo ü1nü1sF - Courier>prn
echo ü3nü1sI - Courier Italics>prn
echo .>prn
echo ü20nü0sJ - PROFILE>prn
echo ü16nü0sM - Helvetica 18 point>prn
echo ü14nü0sP - Helvetica 10 point>prn
echo ü4nü0sQ - Helvetica 12 point>prn
echo ü15nü0sR - Helvetica 14 point>prn
echo ü8nü1sV - Spreadsheet>prn
echo .>prn
echo ü1nü1sThe correct printer selection for this font set is QuadLaser, helvetica fonts.>prn
goto LS
:TI
echo on
echo ü3f>prn
copy /b %2qci10f.fnt prn
echo ü6f>prn
copy /b %2qtr8p.fnt prn
echo ü7f>prn
copy /b %2qpresf.fnt prn
echo ü8f>prn
copy /b %2qsprf.fnt prn
echo ü9f>prn
copy /b %2qtr10p.fnt prn
echo ü10f>prn
copy /b %2qtr12p.fnt prn
echo ü11f>prn
copy /b %2qtr14p.fnt prn
echo ü12f>prn
copy /b %2qtr16p.fnt prn
echo ü17f>prn
copy /b %2qgrkp.fnt prn
echo ü18f>prn
copy /b %2qpcf.fnt prn
echo ü19f>prn
copy /b %2qtr18p.fnt prn
echo ü20f>prn
copy /b %2qprf24p.fnt prn
echo off
echo PLEASE WAIT FOR DOS PROMPT . . .
echo ü1nü1sTimes Roman fonts downloaded. Fonts available:>prn
echo .>prn
echo ü2nü1sB - Courier Bold>prn
echo ü6nü0sC - Times Roman 8 point>prn
echo .>prn
echo ü12nü0sD - Times Roman 16 point>prn
echo ü7nü1sE - Prestige Elite>prn
echo ü1nü1sF - Courier>prn
echo ü3nü1sI - Courier Italics>prn
echo .>prn
echo ü20nü0sJ - PROFILE>prn
echo ü19nü0sM - Times Roman 18 point>prn
echo ü9nü0sP - Times Roman 10 point>prn
echo ü10nü0sQ - Times Roman 12 point>prn
echo ü11nü0sR - Times Roman 14 point>prn
echo ü8nü1sV - Spreadsheet>prn
echo .>prn
echo ü1nü1sThe correct printer selection for this font set is QuadLaser, times roman fonts.>prn
:LS
echo For a list of font assignments, print the PRINT.TST file.>prn
echo >prn
:EX