git @ Cat's Eye Technologies
master

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155``` ``` 10 gosub800:goto1390 20 gosub380:gosub530 30 gosub280:gosub170:gosub170 40 ifmthenm=0:goto20 50 ifj\$<>"3"andj\$<>"g"andj\$<>"w"then30 60 ifj\$="3"thenpokev+40,1:pokev+41,1:pokev+42,1:pokev+40,0:pokev+41,0 70 ifj\$="3"thenpokev+42,0:poke54276,129:poke54276,128:goto30 80 ifj\$="g"then120 90 wx=wx+vel:gx=gx-vel:ifgx<50thengx=240 100 ifwx>240thenwx=50 110 pokev+2,wx:pokev+4,gx:goto30 120 ifgx>bxthengx=gx-2 130 ifgxbythengy=gy-2 160 pokev+2,gx:pokev+3,gy:goto30 170 jo=peek(56320) 180 ifjo=126thenyv=yv-1:ifyv<-5thenyv=-5 190 ifjo=125thenyv=yv+1:ifyv>5thenyv=5 200 ifjo=123thenxv=xv-1:ifxv<-6thenxv=-5 210 ifjo=119thenxv=xv+1:ifxv>6thenxv=5 220 bx=bx+xv:by=by+yv 230 ifbx<25thenrx=rx-1:m=1:bx=250 240 ifbx>250thenrx=rx+1:m=1:bx=35 250 ifby<50thenry=ry-1:m=1:by=187 260 ifby>187thenry=ry+1:m=1:by=50 270 pokev,bx:pokev+1,by:return 280 q=peek(v+30):p=peek(v+31):if(pand1)=1then690 290 if(qand5)=5then690 300 if(qand9)=9then690 310 if(qand3)thenpokev+30,0 320 if(qand3)=3andj\$<>"k"andj\$<>"t"andj\$<>"e"then690 330 if(qand3)=3andj\$="t"andrx=1thenrx=20:ry=1:goto1490 340 if(qand3)=3andj\$="t"andrx=20thenrx=1:ry=10:goto1490 350 if(qand3)andj\$="k"thenx\$(rx,ry)=left\$(x\$(rx,ry),4)+"n":goto1530 360 if(qand3)=3andj\$="e"andk=5then760 370 return 380 print"{clr}":poke646,(rnd(1)*15)+1:f\$=x\$(rx,ry) 390 forz=1to4:k\$=mid\$(f\$,z,1):pokev+31,0:ifk\$="1"thenonzgosub470,490,500,510 400 next 410 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}keys:" 420 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"k 430 print"{home}{blu}{CBM-+}{CBM-+}{down}{left}{left}{CBM-+}{CBM-+}":print"{home}"tab(30)"{CBM-+}{CBM-+}{down}{left}{left}{CBM-+}{CBM-+}" 440 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}" 450 print"{blu}{CBM-+}{CBM-+}{down}{left}{left}{CBM-+}{CBM-+}":print"{up}{up}"tab(30)"{CBM-+}{CBM-+}{down}{left}{left}{CBM-+}{CBM-+}" 460 return 470 print"{home}PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP" 480 print"{home}{down}LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL":return 490 print"{home}";:fori=1to20:print"O{SHIFT-@}":next:return 500 print"{home}";:fori=1to20:printtab(30)"O{SHIFT-@}":next:return 510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 520 print"{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}":return 530 pokev+23,0:pokev+29,0:pokev+21,1:j\$=mid\$(x\$(rx,ry),5,1) 540 ifj\$="e"thenpokeu+1,204:gosub620:pokev+40,2 550 ifj\$="t"thenpokeu+1,204:gosub620:pokev+40,5 560 ifj\$="k"thenpokeu+1,205:gosub620:pokev+40,int(rnd(1)*7)+1 570 ifj\$="w"thenpokeu+1,203:pokeu+2,203:pokev+40,2:pokev+41,2:gosub630 580 ifj\$="g"thenpokeu+1,207:gosub620:pokev+40,4:gx=128:gy=128 590 ifj\$="d"thenpokeu+1,201:gosub620:pokev+23,2:pokev+29,2:pokev+40,5 600 ifj\$="3"thenpokeu+1,202:pokeu+2,202:pokeu+3,202:gosub650 610 return 620 pokev+2,128:pokev+3,128:pokev+21,3:return 630 pokev+4,128:pokev+5,128:wx=100:gx=128 640 pokev+2,100:pokev+3,100:pokev+21,7:return 650 pokev+2,100:pokev+3,100:pokev+4,128:pokev+5,128:pokev+6,150:pokev+7,150 670 pokev+21,15:poke54273,20:poke54278,128 680 return 690 pokeu,206:poke54296,15:poke54273,34:poke54272,9 700 poke54277,1:poke54278,13*16+9:poke54276,129 710 fori=1to5:next:poke54276,128 720 fori=1to400:next:print"{clr}":l=l-1:ifl>0thenprint"{clr}{grn}you have"l"lives." 730 ifl=0thenprint"{clr}{pur}game over.":fori=1to1000:next:goto1390 740 fori=1to1000:next:bx=70:by=70:pokev+31,0:pokeu,200:xv=0:yv=0 750 pokev,bx:pokev+1,by:gosub1550:goto20 760 print"{clr}":fori=1to200:print"{blu}y{yel}o{grn}u {cyn}w{red}o{wht}n{cyn}! ";:next 770 pokev+29,1:pokev+23,1 780 fori=1to255:pokev,i:pokev+1,i:next 790 pokev+29,0:pokev+23,0:goto1390 800 poke53281,0:poke53280,0:print"{clr}{wht}" 810 poke53265,peek(53265)and239 820 v\$="3dngw":vel=5:poke54296,15 830 v=53248:pokev+39,3:u=2040 840 dimx\$(20,10) 850 fory=1to10:forx=1to20:readx\$(x,y):next:next 860 forx=1to20:fory=1to10:iflen(x\$(x,y))=4then880 870 next:next:goto890 880 x\$(x,y)=x\$(x,y)+mid\$(v\$,int(rnd(1)*5)+1,1):next:next 890 fori=0to62:readq:poke64*200+i,q:next 900 fori=0to62:readq:poke64*206+i,q:next 910 fori=0to62:poke64*203+i,255:next 920 fori=0to62:poke64*204+i,204:next 930 fori=0to62:readq:poke64*202+i,q:next 940 fori=0to62:readq:poke64*207+i,q:next 950 fori=0to62:readq:poke64*205+i,q:next 960 fori=0to62:readq:poke64*201+i,q:next 970 poke53265,peek(53265)or16 980 return 990 data"1100s","1001","1001","1001","1001","1001","1001","1001","1001" 1000 data"1001","1010","1101","1001","1001","1010","1101","1010","1101" 1010 data"1000","1010t","0110","1101","1000","1000","1001","1010","1100","1001" 1020 data"1000","1011","0101","1010","1100","1001","0011","1100","0001","1000" 1030 data"0011","0111","0100","1001","0011","0110","1100","0011","0110","1110" 1040 data"0111","1100","1011","0110","0101","1000","1010","0110","1100","0010" 1050 data"1100","1010","0101","1001","1010","0110","0111","1110" 1060 data"0110","0110","1110","0110","1100","0011","1101","0011","0110","0110" 1070 data"0111","0101","0011","0110","1100","1000","0011","0100","1011","0100" 1080 data"0011","0101","0001","0010","0110","1100","1001","1001","0011","0101" 1090 data"1010","1100","1001","0011","0111","0111","1100","0000","1010","0110" 1100 data"1100","1001","1001","0011","0110","0110","1100","1001","1010","1110" 1110 data"0110","0110","1100","1010","1100","1000","0011","0110","0101","0000" 1120 data"0010","1101","1010","1100","0011","0110","0101","1010","0101","0001" 1130 data"0011","0101","0011","0110","0110","0111","1100","0001","1010","0110" 1140 data"0111","1100","0010","0110","1101","0000","1001","0010","1100","1001" 1150 data"1000","1001","1001","0010","0101","1000","0011","1100","0011","0101" 1160 data"1001","0011","0111","0101","1010","0110","1100","0011","0101","1010" 1170 data"0110","1100","1010","0111","1101t","0001","1011","0101","1001","1001" 1180 data"1001","1001","1001","1001","0001","0011","0101","1001","1001","0011" 1190 data"0101","0011","0101","1011e" 1200 data,,,,255,,3,,192,4,96,32,8,128,16,16,,8,16,,8,32,,4,32,,4 1210 data32,,4,32,,4,32,,4,32,,4,16,,8,16,,8,4,,32,3,,192,,255,,, 1220 data,,,,,, 1230 data,8,,32,8,2,16,8,4,8,8,8,4,8,16,2,8,32,,,,3,25,128,2,165,64 1240 data251,37,160,2,37,,2,25,,,,64,2,16,32,4,16,16,8,16,8,16,16,4,32,16,2 1250 data64,16,,,16,,,16, 1260 data,,,,,,,,,,,,,32,,,18,,,2,,1,128,64,,60,64,2,126, 1270 data4,255,16,,247,32,2,255,,4,255,32,,126,64,1,60,,1,,,,65,128 1280 data,40,,,4,,,, 1290 data,,,,,,,,,,63,,,76,128,,158,64,1,59,32,1,59,32,,158,64 1300 data,76,128,,63,,,12,16,,30,16,7,255,248,7,255,248,3,12,48,1,255,224 1310 data,255,192,,127,128,,,,,, 1320 data,,,,,,,,,,126,,,231,,1,231,128,1,255,128,1,255,128 1330 data,255,,,126,,,24,,,24,,,120,,,120,,,24,,,120,,,120, 1340 data,,,,,,,,,,, 1350 data,56,,20,116,30,42,68,56,127,254,62,43,255,120,1,254,126 1360 data84,255,120,63,255,124,7,245,248,1,247,240,7,234,224,15,240, 1370 data31,255,,63,225,128,63,222,240,63,222,248,31,206,252,6,60,158 1380 data1,243,6,,206,24,,, 1390 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blu}b{wht}u{cyn}b{grn}b{pur}l{yel}e {grn}e{blu}s{red}c{wht}a{yel}p{pur}e{cyn}!" 1400 print:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{grn}joystick {pur}port two 1410 print:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}any key {yel}to start game 1420 pokev+21,0:getf\$:iff\$=""then1420 1430 pokev+21,1:pokeu,200 1440 rx=1:ry=1:bx=128:by=128:l=10:k=0:fori=1to5 1450 r=int(rnd(1)*20)+1:g=int(rnd(1)*10)+1:lf\$=right\$(x\$(r,g),1) 1460 iflf\$="t"orlf\$="s"orlf\$="e"then1450 1470 x\$(r,g)=left\$(x\$(r,g),4)+"k":next 1480 gosub1550:goto20 1490 poke53281,1:poke53281,0:bx=bx-50:pokev,bx 1500 poke54279,13:poke54285,13*16+5:print"{clr}" 1510 poke54283,33:fori=1to20:poke54280,i*10:forj=1to20:next:next:poke54283,32 1520 gosub380:gosub530:goto1550 1530 k=k+1:print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"k:pokev+21,1 1540 poke54278,9:poke54273,72:poke54276,17:poke54276,16 1550 ifpeek(v+30)>0then1550 1560 return ```