Husky Hunter - Program 1

APPENDIX SECTION 9.5
DEMONSTRATION PROGRAMS
9,5,1 PROGRAM 1
VER.V09F
5 CUROFF
10 FDRI=1TD50:NEXTI:SCREEN1
20 FORI=1T018STEP2
30 CIRCLE ( 0, 0) , I , 1
40 CIRCLE (239, 0), I, 1
50 CIRCLE(0,63) ,I,1
60 CIRCLE(239,63)
1
I,1
70 NEXT!
Bci CHAR2
90 LOCATE4,1
100 PRINT"DVW"
110 CHARI
120 LOCATEll,1
130 PRINT''Microelectronics''
140 LOCATE12,2
150 PRINT"presents"
160 CHAR4
170 LOCATE9,3
180 PRINT"HUSKY SP"
190 FDRI=1TD1100:NEXTI
200 CLS
210 CHAR3
220 LOCATE 12, 1
230 F'RINT"HIGH RES"
240 LDCATE12,3
250 PRINT"GRAPHICS"
260 FDRI=IT0999:NEXTI
270 CLS
280 F0RI=OT030STEP2
290 CIRCLE ( 120, 31), I
300 NEXT!
310 FORl=ITD31STEP2
320 CIRCLEC120,31),I
325 SOUNDI,100
330 NEXT!
340 FDRI=31TD1STEP-2
350 CIRCLE(120,31) ,I,O
355 SOUNDI,100
360 NEXT!
370 FORI=30T00STEP-2
380 CIRCLE(120,31),I,O
390 NEXT!
392 CLS
395 FDRI=1T0100:NEXTI
400 LINE (99 ,63-41) - C 126,63-27) , 1, BF
402 LINEC96
1
63-44>-C133,63-24) ,1,B
403 LINEC96,63-44l-(92,63-48)
404 LINE< 133, 63-44)- C 129 ,63-48)
405 LINEC96,63-24l-(92,63-28)
406 LINEC92,63-48)-(129,63-48>
407 LINE(92,63-48)-(92,63-28>
408 PSET ( 130, 63-28), ( 130 ,63-30), ( 130,63-32) , ( 130, 63-34)
409 LINEC131,63-24)-(131,63-10)
410 LINEC~8,63-24)-(98
1
63-10)
411 LINEC94,63-26l-C94,63-14l
412 LINEC127,63-24)-(127,63-14)
413 LINEC98,63-17)-(131,63-17)
414 LINEC98,63-17)-(94,63-21)
PAGE 9 - 27