Category : Utilities for DOS and Windows Machines
Archive   : LET12.ZIP
Filename : REGISTER.BAT

echo Off
if not `%Name%' == `' goto Verify
set T=0
:AskName
LET dummy=(do "YourName")
if %T% == 3 goto End
if `%FName%' == `' goto AskName
if `%MayI%' == `Y' LET name=Fname
if not `%MayI%' == `Y' LET name=(words Title Lname)
echo ÿ
:Verify
echo I have your name being %Title% %FName% %LName%.
LET Answer=(upper (mid (ask "Is this correct? (yes or no) ") 1 1))
if `%Answer%' == `Y' goto GotName
if `%Answer%' == `N' goto AskName
goto Verify
:GotName
echo ÿ
echo Thank you, %Name%, for deciding to support this program! I just
echo need a little more information.
LET ForCompany=(upper (mid (ask "Will this registration of LET be for a company? (yes or no) ") 1 1))
if `%ForCompany%' == `Y' goto RegCo
:RegPers
echo ÿ
LET dummy=(do "RegPers")
echo %Name%, I have the following information:
echo ÿ
echo ÿ %Title% %FName% %LName%
echo ÿ %Street%
echo ÿ %City%, %State% %Zip%
echo ÿ
:Verify1
LET answer=(upper (mid (ask "Is this correct? (yes or no) ") 1 1))
if `%answer%' == `Y' goto Both
if `%answer%' == `N' goto RegPers
goto Verify1
:RegCo
echo ÿ
LET dummy=(do "RegCo")
echo %Name%, I have the following information:
echo ÿ
echo ÿ %Title% %FName% %LName%
echo ÿ %Position%
echo ÿ %Company%
echo ÿ %Street%
echo ÿ %City%, %State% %Zip%
echo ÿ
:Verify2
LET answer=(upper (mid (ask "Is this correct? (yes or no) ") 1 1))
if `%answer%' == `Y' goto Both
if `%answer%' == `N' goto RegPers
goto Verify2
:Both
LET dummy=(do "RegBoth")
if %P% == 0 LET Worth=(concat Worth "00")
if not %P% == l Let Worth=(replace Worth "." "")
LET Bill=(+ Worth (* (- Qty 1) 100))
LET BillAmt=(fill "óó,óóó.óó" bill " $")
LET WorthAmt=(fill "óó,óóó.óó" Worth " $")
echo Would you be willing, then, to pay %BillAmt%?
echo (that's %WorthAmt% for the first copy, and $1.00 for each additional one.)
LET answer=(upper (mid (ask "Does that sound like a deal? (of course it is!) ") 1 1))
if `%Answer%' == `N' goto Both
echo One Moment...
LET > Let.$$$
LET version=(read "Let.$$$" 0 17)
erase Let.$$$
echo ÿ>Register.Prn
echo ÿ>>Register.Prn
echo ÿ>>Register.Prn
echo ÿ>>Register.Prn
echo ÿ>>Register.Prn
echo Registration Form for %version% >>Register.Prn
echo -------------------------------------------------------------------->>Register.Prn
echo Registered Owner: %Title% %FName% %LName%>>Register.Prn
echo ÿ %Position%>>Register.Prn
echo ÿ %Company%%>>Register.Prn
echo ÿ %Street%>>Register.Prn
echo ÿ %City%, %State% %Zip%>>Register.Prn
echo -------------------------------------------------------------------->>Register.Prn
echo ÿ>>Register.Prn
echo Qty Description Price>>Register.Prn
echo ----- ----------------------------------------------- ------->>Register.Prn
echo 1 Original copy of LET %WorthAmt%>>Register.Prn
LET Qty2=(fill "óóóó" (- Qty 1) " ")
LET WorthAmt=(fill "óó,óóó.óó" (concat (- Qty 1) "00") " $")
LET check=(mid (- 1 Qty) 1 1)
if `%Check%' == `-' echo %Qty2% Additional copies of LET %WorthAmt%>>Register.Prn
echo ------->>Register.Prn
echo Total: %BillAmt%>>Register.Prn
echo ÿ>>Register.Prn
echo ÿ>>Register.Prn
echo Please Make Checks payable to:>>Register.Prn
echo ÿ>>Register.Prn
echo Thomas Tuerke>>Register.Prn
echo 1004 Hart Court>>Register.Prn
echo Novato, CA 94947>>Register.Prn
set fname=
set lname=
set title=
set company=
set position=
set mayI=
set T=
set street=
set city=
set state=
set zip=
set qty=
set p=
set worth=
set bill=
set billamt=
set worthamt=
set qty2=
set check=
echo Please take the time to answer the brief survey:
LET dummy=(do "survey")
echo -------------------------------------------------------------------->>Register.Prn
echo USERS: %USERS%>>Register.Prn
echo USE: %USE%>>Register.Prn
echo BATCH: %BATCH%>>Register.Prn
echo USER-SCALE: %SCALE%>>Register.Prn
echo LET-RATING: %RATE%>>Register.Prn
echo INTEREST: %INTEREST%>>Register.Prn
echo BEST: %BEST%>>Register.Prn
echo WORST: %WORST%>>Register.Prn
set users=
set use=
set batch=
set scale=
set rate=
set interest=
set best=
set worst=
echo You may enter any miscellaneous comments on the three lines below:
echo ## ....!....!....!....!....!....!....!....!....!....!....!....!....!....!
LET dummy=(do "comments")
echo -------------------------------------------------------------------->>Register.Prn
echo ÿ%C1%>>Register.Prn
echo ÿ%C2%>>Register.Prn
echo ÿ%C3%>>Register.Prn
echo -------------------------------------------------------------------->>Register.Prn
echo The registration form is now in the file REGISTER.PRN.
set c1=
set c2=
set c3=
echo Thank you, %name%, for your contributions.
echo ÿ
LET answer=(upper (mid (ask "Would you like me to print that (to device PRN)? ") 1 1))
if `%answer%' == `N' goto End
copy Register.Prn Prn
:End
set answer=
set version=
set forcompany=
set ln=
set name=
echo That's All.