1 REM"STEVE PROPER
2 [143]"NOVEMBER '84
3 REM"
10 [137] 1350
20 :
30 [143] GAME LOOP ***********
40 :
50 X(C)[178]X(C)[170]D:[139]X(C)[177]255[167]1660
60 [139]X(C)[171]D[173]2[177]0[167][151]V[170]V(C),X(C)[171]D[173]2
70 P[178][194](56320):[139]P[179]117[167]460
80 Y[178]Y[170]P(P):[139]Y[177]233[176]Y[179]64[167]Y[178]Y[171]P(P)
90 X[178]X[170]P(P[171]20):[139]X[177]255[176]X[179]46[167]X[178]X[171]P(P[171]20)
100 [151]V[170]11,Y:[151]V[170]10,X:[151]2040,([194](2040)[176]2)[171]1
110 [139]X(C)[177]0[167][151]V[170]V(C),X(C):[151]2040[170]C,([194](2040[170]C)[176]2)[171]1
120 [139]DA[178]3[167]350
130 C[178]C[170]1:[139]C[179]5[167]50
140 C[178]1:C2[178]C2[170]1:[139]C2[179]C3[167]50
150 :
160 [143] BEE/MOSQUITO ********
170 :
180 [139]DA[167][145]DA[137]230,270
190 X(5)[178]0:DANGER[178][181]([187](1)[172]2)[170]1:[151]V[170]21,[194](V[170]21)[176]O(5)
200 [139]DA[178]2[167]O(5)[178]1:[151]S[170]4,21:[151]S[170]1,78:[151]S[170]15,6:[151]2040,198:[137]270
210 O(5)[178]64:[151]S[170]1,100:[151]S[170]15,28:[151]S[170]4,19
220 :
230 Y(5)[178][181]([187](1)[172]12)[170]130:[151]V[170]13,Y(5):X(5)[178]X(5)[170]15
240 [139]X(5)[179]255[167][151]V[170]12,X(5):[137]50
250 [137]1660
260 :
270 Y(5)[178]130:[151]V[170]1,130:[139][181]([187](TI)[172]14)[178]1[167]340
280 [139]X(5)[177]X[167][139][181]([187](TI)[172]7)[178]1[167]340
290 X(5)[178]X(5)[170]12:[139]X(5)[179]255[167][151]V,X(5):[151]2040,([194](2040)[176]2)[171]1:[137]50
300 [137]1660
310 :
320 [143] BEE ATTACK *************
330 :
340 [141]740:[153]"";[163]11)"STOPBEE IS ATTACKING ":DA[178]3
350 T[178][194](2040):[139]X(5)[177]X[167]X(5)[178]X(5)[171]6:[139]T[177]196[167][151]2040,13
360 [139]X(5)[179]X[167]X(5)[178]X(5)[170]6:[139]T[179]196[167][151]2040,198
370 [139]Y(5)[177]Y[167]Y(5)[178]Y(5)[171]6
380 [139]Y(5)[179]Y[171]10[167]Y(5)[178]Y(5)[170]6
390 [151]V,X(5):[151]V[170]1,Y(5)
400 [139]X[171]18[179]X(5)[175]X[170]18[177]X(5)[175]Y[171]14[179]Y(5)[175]Y[170]14[177]Y(5)[167]DA[178]4:[137]1670
410 C[178]C[170]1:[139]C[179]5[167]50
420 C[178]1:[137]50
430 :
440 [143] FIRE BUTTON SET UP *******
450 :
460 P[178]P[170]16:[151]S[170]12,32:[151]S[170]11,129:[151]S[170]13,33:[151]S[170]8,40:[151]S[170]7,200
470 C4[178]C4[170]1:[139]C4[178]3[167]LED[178]LED[171]1:C4[178]0:[151]LED,0:[139]LED[178]55353[167]DA[178]5:[137]1670
480 [151]V[170]21,[194](V[170]21)[176]128:[151]V[170]14,X[171]45:[151]V[170]15,Y[171]7
490 [139]DA[178]1[167][139]Y(5)[179]Y[171]16[176]Y(5)[177]Y[176]X[171]10[179]X(5)[176]X[171]40[177]X(5)[170]25[167]570
500 [139]Y(5)[179]Y[171]16[176]Y(5)[177]Y[176]5[170]X[179]X(5)[176]X[171]45[177]X(5)[170]25[167]570
510 [139]DA[178]2[167]SC[178]SC[170]6
520 [139]DA[178]3[167][141]740:[141]760
530 SC[178]SC[170]12:[151]V[170]13,0:[151]V,0:[151]V[170]1,0:[151]S[170]4,0:DA[178]0:C2[178]0:C3[178][181]([187](TI)[172]10)
540 :
550 [143] IF ANT IS HIT LOOP ********
560 :
570 [129]I[178]1[164]4:[151]2040,([194](2040)[176]2)[171]1
580 [139]5[170]X[177]X(I)[175]X[171]35[179]X(I)[170]35[175]Y(I)[177]Y[171]20[175]Y(I)[179]Y[170]2[167][141]700
590 [139]H(I)[178]6[167][151]V[170]V(I),0:H(I)[178]0:H(6)[178]H(6)[170]1:[141]680
600 [130]I
610 [151]S[170]11,0:[151]S[170]12,0:[151]V[170]21,[194](V[170]21)[175](255[171]128):[151]V[170]15,0
620 [151]S[170]8,0:[151]S[170]7,200
630 [139]H(6)[177]3[167]W[178]W[170]1:[151]V[170]15,0:[137]820
640 [137]80
650 :
660 [143] USEFUL SUBROUTINES *********
670 :
680 X(I)[178][181]([187](TI)[172]170)[170]1:X(I)[178]X(I)[171]X(I)[172]2
690 Y(I)[178]([181]([187](TI)[172]55)[170]1)[170]164:[151]V[170]V(I)[170]1,Y(I):[142]
700 H(I)[178]H(I)[170]1:[151]V[170]39[170]I,C(H(I)):SC[178]SC[170]1:[142]
710 [151]V,0:[151]V[170]1,0:[151]V[170]12,0:[151]V[170]13,0
720 DA[178]0:C3[178]20:X(5)[178]0:Y(5)[178]0:[151]V[170]21,[194](V[170]21)[175](255[171]O(I)):[142]
730 [129]SL[178]1[164]2000:[130]
740 [153]"STOP                                       ":[142]:[143] 38 SPACES
750 [141]740:[153]"STOP";[163]11)"WAVE:"W;"COMPLETED":[142]
760 T[178][181]([187](TI)[172]6)[172]10:[153]"";[163]11)"BONUS POINTS:"T:SC[178]SC[170]T[170]6:[142]
770 [153]"WAITTAB(USRFRENEWPOSANDTO ";:[142]
780 [153]"ANDPOSNEWWAITFREUSRTAB( ";:[142]
790 :
800 [143] WAVE SET UP *************
810 :
820 [129]I[178]1[164]5:H(I)[178]0:[130]:H(6)[178]H(6)[171]4
830 [151]S[170]5,255:[151]S[170]24,15:C[178]1
840 [139]D[179]20[167]D[178]D[170]1
850 [153]"STOP";[163]11)"SPRAY:    SYS       ":LED[178]55364
860 [151]V[170]21,255:[141]750:[137]50
870 :
880 [143] NEW GAME SET UP *********
890 :
900 [129]I[178]1[164]4:[151]V[170]39[170]I,9:[130]:[141]740:SC[178]0:W[178]0:D[178]DL:DA[178]0:[151]53281,4
910 X(1)[178]0:X(2)[178][171]60:X(3)[178][171]120:X(4)[178][171]180:H(6)[178]4
920 [129]I[178]1[164]4:Y(I)[178]([181]([187](TI)[172]55)[170]1)[170]164:[151]V[170]V(I)[170]1,Y(I):[130]
930 [142]
940 :
950 [143] SET UP *********************
960 :
970 [153][199](142);"LOAD"[166]13)"15 SECOND SET UP"[166]27)"PLEASE WAIT"
980 [134]P(255):V[178]53248:S[178]54272:Y[178]150:X[178]150:L[178][171]5:C3[178]10
990 O(1)[178]2:O(2)[178]4:O(3)[178]8:O(4)[178]16
1000 [129] I[178]1[164]15:[151]V[170]I,0:[130]
1010 [129]I[178]1[164]4:[135]V(I):[130]
1020 [129]I[178]1[164]6:[135]C(I):[130]
1030 [129]I[178]1[164]15:[135]A,B:P(A)[178]B:[130]
1040 [151]2040,197:[151]2041,193:[151]2042,194:[151]2043,193:[151]2044,194
1050 [151]2045,192:[151]2046,196:[151]2047,195:[151]V[170]28,161:[151]V[170]29,128
1060 [151]V[170]37,7:[151]V[170]38,1:[151]V[170]39,0:[151]V[170]44,0:[151]V[170]45,0
1070 I[178]12287
1080 [135]Q:[139]Q[177]255[167][129]T[178]1[164]Q[171]255:I[178]I[170]1:[151]I,0:[130]:[137]1080
1090 I[178]I[170]1:[151]I,Q:[139]I[179]12734[167]1080
1100 I[178]831
1110 [135]Q:[139]Q[177]255[167][129]T[178]1[164]Q[171]255:I[178]I[170]1:[151]I,0:[130]:[137]1110
1120 I[178]I[170]1:[151]I,Q:[139]I[179]958[167]1110
1130 [151]53265,[194](53265)[175]239:[143] SCREEN BLANKING
1140 [153]"";:[129]I[178]1[164]80:[153]"STOP ";:[130]
1150 [129]I[178]1[164]248:[153]" ";:[130]
1160 [141]780:[141]770:[129]I[178]1[164]18:[153]" ";:[130]
1170 [141]780:[129]I[178]1[164]15:[153]" ";:[130]:[141]770:[141]780
1180 [153]"TAB(USR":[129]I[178]1[164]6:[153]:[130]
1190 [129]I[178]1664[164]1703:[151]I,98:[151]I[170]S,5:[130]I
1200 [129]I[178]1[164]31:[153]" ";:[130]
1210 [129]Z[178]1[164]288:[153]" ";:[130]:[153]"":[151]2023,160:[151]56295,5
1220 [153]"STOP":[129]I[178]1[164]7:[153]:[130]
1230 [153][163]32)"STEP    (null)",
1240 [153][163]31)"STEP      (null)",
1250 [153][163]32)"TAB(TAB(TAB(TAB(TAB(TAB(WAIT",
1260 [153][163]32)"  STOP   STOP ",
1270 [153][163]32)"      ",
1280 [153][163]72)"  STOP   STOP ",
1290 [153][163]32)"      WAIT",
1300 [151]53281,4:[151]53265,[194](53265)[176]16:[143] SCREEN BLANKING
1310 [129]I[178]0[164]24:[151]S[170]I,0:[130]:[141]900:[137]820
1320 :
1330 [143] INSTRUCTIONS **************
1340 :
1350 [153][199](142);"LOADSYS";:[151]657,128:[151]53280,0:[151]53281,6
1360 [153][163]13)"*** BUGS! ****"
1370 [153]"SELECT STARTING DIFFICULTY:"
1380 [153]"F1WAIT BEGINNER"
1390 [153]"F3WAIT INTERMEDIATE"
1400 [153]"F5WAIT PROFESSIONAL"
1410 P[178][194](203):[139][194](56320)[178]111[167]P[178]4
1420 [139]P[179]4[176]P[177]6[167]1410
1430 [139]P[178]4[167]DL[178]5
1440 [139]P[178]5[167]DL[178]11
1450 [139]P[178]6[167]DL[178]18
1460 [139]P[177]4[167]970
1470 [153]"LOADINSTRUCTIONS:"
1480 [153]"GIANT, MUTANT, KILLER BUGS! ARE TAKING "
1490 [153]"OVER OUR HOMES.  USE YOUR JOYSTICK IN"
1500 [153]"CONTROL PORT #2 TO MANEUVER YOUR BUG "
1510 [153]"SPRAY. PREVENT ATTACKING ANTS,"
1520 [153]"MOSQUITOS AND BEES FROM BECOMING"
1530 [153]"UNINVITED HOUSE GUESTS. ANTS REQUIRE "
1540 [153]"SIX HITS TO ELIMINATE. MOSQUITOS AND "
1550 [153]"BEES REQUIRE ONLY ONE; BUT REMEMBER,"
1560 [153]"MOSQUITOS ARE HARD TO HIT AND BEES"
1570 [153]"SOMETIMES ATTACK. DO NOT GET OVER-"
1580 [153]"RUN, STUNG OR RUN OUT OF BUG"
1590 [153]"SPRAY!"
1600 [153][163]8)"PRESS FIRE TO BEGIN"
1610 [139][194](56320)[179][177]111[167]1610
1620 [137]970
1630 :
1640 [143] TAB KEEPER ***************
1650 :
1660 [141]740:[153]"";[163]11)"YOU'VE BEEN OVER RUN!      "
1670 [139]DA[178]4[167][153]"STOP";[163]11)"YOU HAVE BEEN STUNG!     "
1680 [139]DA[178]5[167][153]"STOP";[163]11)"RAN OUT OF SPRAY!        ":[151]S[170]7,0:[151]S[170]8,0
1690 [151]S[170]5,32:[151]S[170]19,32:[151]S[170]6,33:[151]S[170]20,33:[151]S[170]4,0:[151]S[170]1,0
1700 [129]I[178]255[164]1[169][171]1:[151]S[170]4,21:[151]S[170]1,I:[130]I:[151]S[170]4,0:[141]740
1710 [141]740:[153]"STOP";[163]11)"SCORE:"SC:[141]730
1720 [139]SC[178]HS[167][153]"STOP";[163]11)"TIED HIGH SCORE!":[141]730
1730 [139]HS[177]SC[167][153]"";[163]11)"STOPHIGH SCORE:";HS:[141] 730
1740 [141]740:[139]HS[179]SC[167][153]"STOP";[163]11)"NEW HIGH SCORE:";SC
1750 [139]HS[179]SC[167][129]I[178]1[164]255:[151]S[170]4,21:[151]S[170]1,I:[130]:[151]S[170]4,0:[141]730
1760 [141] 750:[141]730:[153]"";[163]11)"STOPPLAY AGAIN? (Y/N)":T[178]2:SL[178]0
1770 SL[178]SL[170]1:[161]A$:[139][194](56320)[179]117[167]A$[178]"Y"
1780 [139]SL[178]45[167][151]53281,T:T[178]T[170]1:SL[178]0:[139]T[178]16[167]1660
1790 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1770
1800 [129]I[178]1[164]15:[151]V[170]I,0:[130]
1810 [139]SC[177]HS[167]HS[178]SC
1820 [139]A$[178]"Y"[167][141]900:[137]820
1830 [151]53280,254:[151]53281,246:[153]"LOADCONT";:[128]
1840 :
1850 [143] COLOR POINTERS *******
1860 [131]2,4,6,8
1870 [143] BUG COLOR ********
1880 [131]6,2,11,7,13,9
1890 [143] JOYSTICK DATA ************
1900 [131]113,-5,109,5,126,-5,125,5
1910 [131] 102,-5,98,5,101,-5,97,5,121,5,117,5
1920 [131]126,-5,122,-5,118,-5,103,-5,99,5
1930 :
1940 [143] SPRITE DATA *************
1950 :
1960 [131]259,12,0,0,12,0,0,12
1970 [131]0,0,8,0,0,42,0,0
1980 [131]42,0,0,29,0,0,55,0
1990 [131]0,29,0,0,55,0,0,29
2000 [131]0,0,55,0,0,29,0,0
2010 [131]55,0,0,29,0,0,55,0
2020 [131]0,29,0,0,55,0,0,42
2030 [131]0,0,42,271,72,0,0,72
2040 [131]0,0,40,0,0,28,30,60
2050 [131]126,63,126,243,127,255,255,255
2060 [131]255,255,254,255,190,124,190,159
2070 [131]1,9,0,1,9,0,0,136
2080 [131]128,282,9,0,0,9,0,0
2090 [131]10,0,0,28,30,60,126,63
2100 [131]126,243,127,255,255,255,255,255
2110 [131]254,255,190,124,190,156,0,72
2120 [131]64,0,72,64,0,136,128,277
2130 [131]160,0,0,10,0,0,64,160
2140 [131]0,20,20,0,1,64,128,146
2150 [131]10,20,32,32,129,73,4,36
2160 [131]16,33,0,129,4,0,8,32
2170 [131]0,65,0,0,16,0,0,128
2180 [131]302,16,0,0,16,295,15,0
2190 [131]0,3,192,0,0,240,0,0
2200 [131]60,0,0,15,0,4,3,20
2210 [131]38,38,89,102,89,149,102,102
2220 [131]85,38,25,149,4,3,4,0
2230 [131]3,0,0,12,270,0,271,63
2240 [131]0,0,63,252,0,0,255,0
2250 [131]4,3,20,38,38,89,102,89
2260 [131]149,102,102,85,38,25,149,4
2270 [131]3,4,0,3,0,0,12,270
2280 [131]0,271,3,252,0,63,252,0
2290 [131]255,0,20,192,16,101,152,152
2300 [131]86,101,153,85,153,153,86,100
2310 [131]152,16,192,16,0,192,0,0
2320 [131]48,280,48,0,0,240,0,3
2330 [131]192,0,15,0,0,60,0,0
2340 [131]240,0,20,192,16,101,152,152
2350 [131]86,101,153,85,153,153,86,100
2360 [131]152,16,192,16,0,192,0,0
2370 [131]48,271,0