0 REM HOWTODAZ.BAS.txt

10 REM Initialize the DAZZLER and SetUp the Constants and Varialbles
20 DZOP "Z"          : REM Clear the DAZZLER Screen
30 DZOP "C",1        : REM Color mode

40 REM DL is the User Selection for Either a DOT or a Line Target
50 REM CDOT is the new Color of the Next Dot or Line
60 REM TX,TY is the Target Dot Position
70 REM T2X,T2Y are the End Points of a Target Line
80 REM SX,SY are the Shots to the Target
 
100 REM Main Body
110 GOSUB 9100
120 INPUT "Do You Want a DOT or LINE Target D or L ";DL$
130 IF DL$ = "D" THEN GOSUB 1000                    : REM  --- DOT ---
140 GOSUB 2000                                      : REM  --- LINE ---

1000 REM Set the DOT Target Color and Position
1010 DZOP "Z"
1020 INPUT "What color DOT ";CDOT
1030 INPUT "The X,Y position to put the dot ", TX,TY

1040 REM Draw the Target DOT
1050 DZOP "C", CDOT
1060 DZOP "P", TX,TY
1070 DZOP "D"
1080 GOSUB 3000
1090 RETURN

2000 REM Set the LINE Target Color and Position
2010 DZOP "Z"
2020 INPUT "What color LINE ";CDOT
2030 INPUT "The Starting X,Y position for the LINE ", TX,TY
2040 INPUT "The   Ending X,Y position for the LINE ", T2X,T2Y

2050 REM Draw the Target LINE
2060 DZOP "C", CDOT
2070 DZOP "P", TX, TY
2080 DZOP "L", T2X, T2Y
2090 GOSUB 3000
2099 RETURN

3000 REM Shoot the Target Loop
3010 PRINT "" : PRINT ""
3020 INPUT "Try to hit target X,Y ";SX,SY
3030 IF DZF(SX,SY) <> CDOT THEN GOTO 3000

4010 REM Target was Hit!
4020 DZOP "Z"
4030 REM Sketch a Square in the Center of the Display Area
4040 DZOP "Z"
4050 LET X = 20 : LET Y = 235
4060 DZOP "C", 22
4070 DZOP "P", X,X
4080 DZOP "L", X,Y
4090 DZOP "L", Y,Y
4100 DZOP "L", Y,X
4200 DZOP "L", X,X

4300 DZOP "C", 19
4310 DZOP "P", 28,100
4320 DZOP "S","Target Hit!" : PRINT "Target Hit!"
4330 REM FOR PAUSE = 0 TO 499   : NEXT PAUSE

9000 REM Do You Want to Pay Again?
9010 INPUT "Do You Want to Pay Again (Y/N) ";YN$
9020 IF YN$ = "Y" THEN GOTO 100
9030 GOTO 9500

9100 REM Title Frame
9110 DZOP "Z"
9120 REM Sketch a Square in the Center of the Display Area
9130 DZOP "Z"
9140 LET X = 5 : LET Y = 250
9150 DZOP "C", 17
9160 DZOP "P", X,X
9170 DZOP "L", X,Y
9180 DZOP "L", Y,Y
9190 DZOP "L", Y,X
9200 DZOP "L", X,X

9300 REM Title Text
9310 DZOP "C", 19
9320 DZOP "P", 30,150
9330 DZOP "S", "HOW TO USE"
9340 DZOP "P", 50,100
9350 DZOP "S", "DZMBASHT"
9360 DZOP "C", 20
9370 DZOP "P", 100,15
9380 DZOP "S", "BY WKP"
9390 DZOP "W", 5
9399 RETURN

9500 REM Final Task Cycle Through All the Colors
9510 DZOP "Z"
9520 FOR X = 0 TO 250 STEP 25
9530 LET Y = 250 - I
9540 DZOP "P", X,X
9550 DZOP "L", X,Y
9560 DZOP "L", Y,Y
9570 DZOP "L", Y,X
9580 DZOP "L", X,X
9590 DZOP "Y"
9600 DZOP "W", 3
9610 NEXT X

9620 DZOP "Z"
9630 DZOP "C", 17
9640 DZOP "P", 75, 100
9650 DZOP "S", "BYE BYE"
9660 DZOP "Y"

9999 END