Duck Hunt
Models : 9850, 9950
The code:
<your program SHOULD use this standardized translation codes, but if it
doesn't you MUST type your own character translations here>
Command translation:
-> Single arrow (located on the keyboard)
=> Double arrow (press: [shift] [prgm] [f1] [f1])
_ Display, -Disp- (press: [shift] [prgm] [f4])
<= Less or equal (A <= B)
>= Greater or equal (A >= B)
<> Not equal (A <> B)
^ Raised to the power of
/ Division or fraction
2rt() Root (2rt(7) is the square root of 7)
4rt() 4th root
pi pi (~3.14159265359, low case)
e() e(1) (~2.7818281846, low case)
E Exponent (5*10^4)
____________________________________________________________
Program :
'DUCK HUNT 1.0
M=0=>J+2->J
M=0=>Goto 2
Lbl 0
98->A
10->B
E+1->E
Int (E/10)->C
Prog 4 -- Point to !NR
A+5->A
E-10C->C
Prog 4 -- Point to !NR
Plot 110,13
Plot 110,11
A+8->A
Int (D/10)->C
Prog 4 -- Point to !NR
A+5->A
D-10C->C
Prog 4 -- Point to !NR
T=0=>Goto 5
113->A
4->B
Int (S/10)->C
Prog 4 -- Point to !NR
A+5->A
S-10C->C
Prog 4 -- Point to !NR
V=1=>Plot 0,0_
T=1=>Isz U
U=3=>1->U
Lbl 5
127->F
Int 50Ran#+10->G
3Ran#+.3->H
3.4-H->W
1->J
0->M
-1->N - - the minus (-) symbol is the negative symbol
Lbl 1
Plot F,G
Plot F+4,G
Line
Plot F+3,G+2xN
Plot F+2,G
Line
Plot F+1,G+2xN
Line
Plot J,3
Plot J+5,3
Line
F-H->F
Isz J
-1xN->N - - the minus (-) symbol is the negative symbol
Cls
F>1=>Goto 1
Goto 0
Lbl 2
1->M
4->I
Lbl 3
Plot J,I
Plot J,I+1
Line
Plot F,G
Plot F+4,G
Line
Plot F+3,G+2xN
Plot F+2,G
Line
Plot F+1,G+2xN
Line
-1xN->N - - the minus (-) symbol is the negative symbol
J>=F=>J<=F+6=>I>=G-2=>I<=G+2=>Goto 4
F-H->F
I+2->I
J+W->J
Cls
F<2=>Goto 0
I>62=>Goto 0
Goto 3
Lbl 4
Int 5Ran#->P
Int 5Ran#->Q
Int 2Ran#+1=1=>-P->P - - the minus (-) symbol is the negative symbol
Int 2Ran#+1=1=>-Q->Q - - the minus (-) symbol is the negative symbol
Plot J+P,I+Q
Isz N
N<12=>Goto 4
T=1=>U=1=>Isz D
T=1=>U=2=>Isz S
T=0=>Isz D
Goto 0
Enter this in any program:
'DUCK RESET
Mcl
1->M
-1->E - - the minus (-) symbol is the negative symbol
1->U
1->Y
"CoMPETITIoN"
"(Y OR N)"?->T
T=1=>"PAUSE BETWEEN TURNS"
T=1=>"(Y OR N)"?->V
Range 1,127,0,1,63,0
"DUCK HUNT IS READY!"
Enter this in program 4:
'!NR
C=1=> Goto 1
C=2=> Goto 2
C=3=> Goto 3
C=4=> Goto 4
C=5=> Goto 5
C=6=> Goto 6
C=7=> Goto 7
C=8=> Goto 8
C=9=> Goto 9
Plot A, B+1
Plot A, B+3
Line
Plot A+1, B+4
Plot A+3, Y
Line
Plot A+4, B+3
Plot X, B+1
Line
Plot A+1, B
Plot A+3, B
Line
Plot A+1, B+1
Plot A+3, B+3
Line
Isz A
Goto 0
Lbl 1
Dsz A
Plot A+1, B+3
Plot A+2, B+4
Plot X, B
Line
Plot A+1, B
Plot A+3, B
Goto 0
Lbl 2
Plot A, B+3
Plot A+1, B+4
Plot A+2, Y
Plot A+3, B+3
Line
Plot A, B
Line
Plot A+3, B
Line
Goto 0
Lbl 3
Plot A, B+3
Plot A+1, B+4
Plot A+3, B+3
Line
Plot A+2, B+2
Plot A+3, B+1
Plot A+1, B
Line
Plot A, B+1
Goto 0
Lbl 4
Plot A, B+4
Plot A, B+2
Line
Plot A+2, Y
line
Plot A+3, B+4
Plot X, B
Line
Goto 0
Lbl 5
Plot A+3, B+4
Plot A, Y
Line
Plot A, B+2
Line
Plot A+2, Y
Line
Plot A+3, B+1
Plot A+2, B
Plot A, B
Line
Goto 0
Lbl 6
Plot A+2, B+4
Plot A, B+2
Line
Plot A+2, Y
Line
Plot A, B+1
Plot A+3, Y
Plot A+1, B
Line
Goto 0
Lbl 7
Plot A, B+4
Plot A+4, Y
Line
Plot A+2, B+2
Line
Plot X, B
Line
Isz A
Goto 0
Lbl 8
Plot A, B+1
Plot A+1, B
Plot A+2, B
Plot A+3, B+1
Plot A, B+3
Line
Plot A+1, B+4
Plot A+3, B+3
Line
Goto 0
Lbl 9
Plot A+1, B
Plot A+3, B+2
Line
Plot A+1, Y
Line
Plot A, B+3
Plot A+1, B+4
Plot A+3, B+3
Line
Lbl 0