Husky Hunter - Program 2

APPENDIX
9,5.2
VER.V09F
SECTION 9.5
PROGRAM 2
10 CLEAR:CUROFF:SCREEN!
20 C!RCLEl120,311,30
30 LINEll19,31-1119,61
40 LINEl121.31-1121,61
50 LINE114S,311-1148,311
60 L!NEl120,561-1120,591
ol LINEl92,311-19S,311
70 PSETI 134, 71, (144,171, 1144, 451, 1134 ,551 , 1106, 55J,, lo ,451, 196,171, <106, 71
71 Tl=TIHEI: Hl=VALIHIDI
m, 4,211: HR=VAL iLEFTI iH, 2i J: SC=VALIRl GHH 1U ,21 I
i2 AH=Hl •6+270: !FAH)359THENAH=AM-360
73 AH=HR•30+270: !FAH)359THENAH=AH-360
7 4 XH=F ll I 23fCOS IAH•Pli 1801 I : YH=F 1 X 123+51NIAH•PIt1801 ,
75 XH=FIX I 15•COS IAH>Pl i 1801 I: YH=F!X I 15•5IN IAH•PI / !80,,
80 AG=5C<6+ 270: IF A6i359THENA6=A6-360: TI =500
90 !FAG)359THENA6=AG-360
100 TH=AG•P l / 180
110 L!NEl120,3!1-1120+X5,3l+YSI ,0
120 YS=F!X 125•5INITHI I :XS=F!X125•COSiTHI, :LINE 1120,31
•-i 120+XS,31+YSI
12! LINEII20,3!1-1120+XH,31+YHI
122 LINE1120,311-1120+XH,31+YHI
123 CHARl,1:LOCATEl,l:PR!NT' ":TIHEI:'
150 SOUND
100, 10
155 !FAG=270THENGOSUB200
160 TU=V~LIRI6HT$(T!HEl,ll1
170 IFTl=TUTHENl60
180 Tl=TU:A6=A6+6:60T090
200 AH=AH+6
205 !FAH)359THENAH=AH-360
110 TH=AH•PI/180
220 LINE I 120,31 l-1120+XH,3i +YHI, 0
230 XH=Fl ll23•COS ITHi
i: YH=Fl W3•5IN i!Hi J: LlNE 1120, 31 • -i 110+XH, 31 +YHI
240 !FAH0270THENRETURN
250 AH=AH+30
155 !FAH>359THENAH=AH-360
2o0 TH=AH•Pl/180
270 LINEl120,311-1120+XH,31+YHI ,0
280 XH=Fli I 15•COSITHI I: YH=F!X I t5•5IN ITHi I: LINE
i 120, 3 I J -I 120+XH, 31 +YHI
290 RETURN
PAGE 9 - 30