
@echo off
setcur 0000
echo 
setcur 0079
echo 
setcur 2200
echo 
setcur 2279
echo 
setcur 2300
cls
call clover
setcur 0510
echo Setcur will allow you to write anywhere on the screen
setcur 1010
echo But when DOS gets control back, it goes down one line.
setcur 1510
echo So if you put the cursor on line 24 the screen gets scrolled.
setcur 1900
echo     And if you don't put it at the bottom, the prompt will appear
echo            in the middle of the screen you just drew.
echo         So usually you will want to end with setcur 2300.
setcur 2300
pause
setcur 0500
call wipe79
setcur 0100
echo       You can erase, too.  But if you go to column 79, Dos will
echo    move down a line, and you don't want that.  So go only to column 78
echo    and you can then call this wipe79.bat that echoes 78 spaces and a 255
echo    character I had to use so QEdit would not trim my spaces off.
echo.
echo    Let's clean off that old stuff.
setcur 2300
pause
setcur 1000
call wipe79
setcur 1500
call wipe79
rem the three lines at the bottom now
setcur 1900
call wipe79
setcur 2000
call wipe79
setcur 2100
call wipe79
rem that takes care of those original lines.
setcur 2300
pause
setcur 2300
call wipe79
setcur 0600
echo    If you stay in lines 0 to 23 you can keep things on the screen.
echo    You just have to keep Dos from finding itself on the last line,
echo                    24, and scrolling the screen.
setcur 1400
echo            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo            ³ Let's play with some check boxes for a while. ³
echo            ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
setcur 2300
pause
goto start
    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    ³ Note that the lines that seem to just say echo in fact say echo (255)    ³
    ³ which is made by holding down the alt key and typing 255 on the numeric  ³
    ³ keypad, then releasing the alt key.  A space will not work, though you   ³
    ³ could use a space followed by the right parenthesis if you wanted.       ³
    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

:start
cls
setcur 1000
echo  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³ This batch file shows how you can demonstrate to the user        ³
echo  ³ what options he has picked.  You may be keeping track of them    ³
echo  ³ by setting environmental variables, or where you are in the      ³
echo  ³ batch file.  Either way, setcur lets you show the choices.       ³
echo  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
setcur 2200
echo First we will draw some check boxes on the screen.
setcur 2300
pause
cls
setcur 0310
echo [ ]
setcur 0810
echo [ ]                Last box changed:
setcur 0945
echo ( ) 1
setcur 1045
echo ( ) 2
setcur 1145
echo ( ) 3
setcur 1245
echo ( ) 4
setcur 1310
echo [ ]
setcur 1810
echo [ ]
setcur 2240
echo Now we check the second box
setcur 2300
pause
setcur 0811
echo û
setcur 1046
echo *
setcur 2200
call wipe79
setcur 2220
echo Let's do the fourth one now
setcur 2300
pause
setcur 1811
echo û
setcur 1046
echo ÿ
setcur 1246
echo *
setcur 2200
call wipe79
setcur 2240
echo Now we un-check the second box.
setcur 2300
pause
setcur 0811
echo ÿ
setcur 1246
echo ÿ
setcur 1046
echo *
setcur 2200
call wipe79
setcur 2220
echo Now we check the first box.
setcur 2300
pause
setcur 0311
echo û
setcur 0946
echo *
setcur 1046
echo ÿ
setcur 2200
call wipe79
setcur 2200
setcur 2250
echo Done with check boxes.
setcur 2300
pause
cls
setcur 0600
echo                            REGISTRATION
echo.
echo                      To register, send one buck to:
echo.
echo         Drake Koefoed  1409 Oak Patch Road # A9 Eugene, OR 97402
echo.
echo             Send a return envelope if you want an answer.
echo.
echo         Comments about this or my other utilities can go to:
echo.
echo                      Assembler bbs (503) 343-6383
rem this is the final pause and clean off the strike a key prompt.
setcur 2300
pause
setcur 2300
call wipe79.bat
setcur 2300
