ZXTape! 2 Fun School 2 (The Hit Squad)+Database Educational Software/The Hit Squad1989English Educational3.99 UKPNoneThe Hit Squad ReReleaseTZXed by Andrew Barkerschool A ))t+ 0:0:0:  54999 "" # 65000 % ""65001 (z$=" Fun School 2" 22y=20:x=20:col=15:9000(# <z$="For 6 to 8 years" F$y=64@:x=0:col=6 P 9000(# Z?21,0;5;" Database Educational Software" d=15,10 ;1;2;7;"Please Wait" n"" #(64002,y #264005,col #<z=1̱z$ #F64000,z$(z) #P64001,x #Z#x=x+16+0*62979 #dz #n A xú-:ITÃ/qÂGÏ I[:.:O[*ͺ[:͢:H\??? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o|gz7gzgzk===oɠ?^H:(22r222v22<2xW O xW xW BRTA  OWW*@>2@:@C@@2@"@!! u[t\++ut++uhti++++uwtx*=\q#pe{=\!:\~1:822q\2`\~6!" \:D\*B\(:G\*E\<2p\"n\G' (x('2D\"B\>2G\!"E\v*=\6#6PROG A rrWr 65001 skill=1  100d ij=(asubs+39'):j=64018:k=64210:64000,0:z=011 :=""more (*z$:u=015:e$=z$(u+1) -(e$="1"z<11 j,1:90Z 02e$="0"64005,14:z4=stone:80P 2ce$="2"64005,15:k,16*u:k+1,16*z:k=k+2:z4=robot:80P 4He$>"2"64005,76L:z4=lily1+32 *e$-96`:80P 6pj,1:64005,14:64001,u*16:64002,z*16:z4=(asubs+9 ):90Z P64001,u*16:64002,z*16:64004,(z4/256):64003,z4-256*64004:z4=(asubs+6) Zj=j+1:u:z: dMain Menu easubs=62976 fmaxsk=5 i0:0:6: j 990 l y=0 mEz$="fun school 2":x=32 :col=68D:90102#:y=24 nj=18 pk,z$ r0z$=j+"."+z$+" "(14-z$) tcol=14:x=0 v90102#:big x"y=y+16+8*(j=4) zj z$= z$=""600X:100d z$<"1"z$>"8"140 .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% Graphics labels bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p ,Clear MC vars 6j=(asubs+39') Run Prog-at last! 990+z$ j (j*j)+(500*j) Load next menu  590N  y=014416 z$:x=0:col=68D  z$"*"big y &0:0:19,0; z$=:z$=13 "" !z$" "540 & N"This program is","on the other","side of the tape","*","Turn tape over,","REWIND,and press","ENTER to load.","*","SPACE to return","to menu." XSet skill b0:0: lNz$="Press 1 to "+maxsk+" to":y=0:x=0:col=6:90102# v:z$="set difficulty":y=24:col=6:90102# z$= z$<"1"z$>maxsk640  skill=z$ z$="level "+z$+" selected" 1y=64@:x=0:col=68D:90102# j=1400:j  Auto loader ""   Title block 5000,"Number Train" 2000,"Shopping" 7000X,"Caterpillar" 3000 ,"Maths Maze" 0,"Treasure Hunt" 0,"Bounce" 0,"Packing" 0,"Number Jump" shopping window1=59712@ Izline=2e3:zcol=58::zy=176:cw=0:maxsk=0 0:0:6: 9z$="Shopping":x=64@:y=4:col=23:big Draw shop outlines Dj=1621:1;1;j,0;31;" ":j j=03 k=1921:0;4;k,j*8+1;" ";1;3;k,j*8;"";k,j*8+3;"":k .1;3;18,j*8;"" j Set up MAP space j=6416264193  j,1 j #j=64178641904 j,0:j+1,0 j MAP done...now P_LIST j=64210 x=820064@  'j,x:j+1,160:j=j+2  x:j,255  Init one offs  lastl=0 *23672x\,0:23673y\,0 Pick a shopping list 'list=2900T +(*5)*20 list=lastl2070  lastl=list List to TV list  y=32 :x=80P %j=16 *%z$:z$=z$+" "(11 -z$) /col=579:big 0y=y+16 1j 3Draw in Shop fronts 4y=152:x=32 9a$ >j=14 C k=a$(j) H)grafad=window1+64@*(k-1) Mcol=67C+j N nsprite Ocol=67C+j Pgrafad=grafad+32 Qx=x+16 R nsprite WBz$=" PETS FOOD SHOES SWEETS TOYS "(k*6-5k*6) \;17,j*8-7;7;((+1.5@));z$ ax=x+480 bj eGet buying order fa$ jInit frog walker k.64006,104h:64007,176 l^ x and y start p*64370r,0:64014,1 r^ AltSpr OFF,leeway ON u+64015,0:64005,68D v^ PRZ_NO wiped,COLOUR zj=(a3+18) pflag=0:item=1 cokup=0 Highlight 'x=80P:y=16*(item+1) col=491:2800 Walk about shops 64005,68D j=(a3+15)  =""more j=64015 j=pflag2201  pflag=j j2201 Enter new shop &j=a$(item)2231:guess right Wrong!!! Mcol=502:grafad=cross:y=16*(item+1):x=240:nsprite sound=(asubs+15) Ax=80P:y=16*(item+1):col=568:2800 cokup=1  2255 RIGHT!!! sound=(asubs+12 ) 'x=80P:y=16*(item+1) col=58::2800  x=240 col=60<:grafad=tick  nsprite item=item+1 item<72190 Bought out shops!  cokupmore ;j=415:j,10 ;7;31;" ":j <y=480:x=88X:col=491:z$="Well Done!":big y=80P:x=152 jump Another go more Colour band 2c=22528X+(y/8)*32 +(x/8) 2d=021:c+d,col:c+d+32 ,col:d  T List 1 U="apple","carrot","cat food","chocolate","kitten","slippers" V"1324" W "331412" h List 2 i<"beans","bird seed","shoe lace","sugar","tea","teddy bear" j"2351" k "142113" | List 3 }8"banana","doll","model car","peas","potatoes","rabbit" ~"5214"  "211223" List 4 >"fish food","fruit gums","game","goldfish","orange","tomato" "1524" "142133" List 5 1"boot","bread","butter","dog food","jam","milk" "3215" "122322" Frog Maze 9robot=60032:stone=58368:lily1=58240 dzline=3000 :cw=0:maxsk=4:zy=176:zcol=58::skill>maxskskill=maxsk ct=0 *23672x\,0:23673y\,0 lastm=0 $d=3800+(*5)*20 d=lastm3015 lastm=d d Draw maze 3900< Start frog up *64006,0:64007,0 leewayON,altsprOFF *64014,1:64370r,0 j=(a3+18) Walk round maze +64005,12 :64015,0 !j=(a3+15) " =""more & j=64015:j3105! 'j>73500 :end (s(j)3105! +Guard block 0.01z# =,20 5*skill<43130: +skill*10 : Level 4 ; dr=99c <>.63171c =>.53172d >d=(*6)+4 ?c=(*9 )+1 @ 3173e D Level 2 E dr=9 F>.53171c G 3172d N Level 3 O dr=18 P<.33171c Q<.33172d Rd=(*6)+1 Sc=(+2.5 ) T 3173e X Level 4 Y dr=27 Z<.33171c [<.33172d \H<.3d=(*9 )+1:c=(*2)+2:3173e ] 3174f b Add c=d=(*dr)+1:c=(*d):z$=(d-c)+" + "+c:3200 d6d=(*dr):c=(*dr):z$=(d+c)+" - "+c:3200 ez$=d+" * "+c:3200 f>d=(*5)+1:c=(+2.5 ):z$=(c*d)+" / "+c Guess it,sunshine! d=z$:z$=z$+" =" ^0,0;0;" " &col=(*4)+3:go=1 y=0:x=32 :big 2y=0:x=192:length=d:col=87W number input Check answer figure=d3300 Gx=200+16*length:col=250:grafad=cross:nsprite sound=(asubs+15) (col=6:grafad=space:nsprite ct=ct-1 gogo=0:3215 2 wrong,back to top d=lastm 3030 RIGHT! Pcol=68D:x=200+16*length:y=0:grafad=tick:nsprite sound=(asubs+12 ) 3700t Redraw Stone 64005,14 64001,64016 64002,64017 064003,stone-256*(stone/256) 64004,(stone/256) s(j)=1 j=(a3+21) ct=ct+2  3102 Done it! Ey=516:y,5;0;" ":y <z$="Well Done!":y=480:x=480:col=67C:big y=80P:x=112p:jump <23672x\+256*23673y\<7500L3015 Kskill=skill+((skill<4)*(ct>9 ))-((skill>1)*(ct<0)) Another go.. more tRedraw top line yk=64018 { y=0 ~x=024016 col=8:grafad=space %þkcol=14:grafad=stone  nsprite k=k+1:x  Maze 1 data "0011110000000100" "1000010111012101" "0011010010010101" "0111111001110200" "0010001101111010" "1020101100010010" "1101121001011110" "1001101011010200" "1111101001010111" "0000001100010111" "0111111001110134" "0000000211110056" 224,160 Maze 2 data "0000000011000000" "1111111011011110" "1100001020010010" "1101011111111020" "1101011003411101" "1001000215611100" "0211111111101110" "0110000000001200" "0110000110001010" "0110000110001010" "0011110110100010" "1000002002011100" 144,64@  Maze 3 "0000000001111111" "0111111101020341" "0101000001011561" "0101211111000110" "0101011111110110" "0101010000002100" "0101010111111101" "0101010002000001"  "0101011110111111"  "0001200110000110"  "1111010111110000"  "0000010020002111"  208,16  Maze 4 "0011111110111111" "1001110000002000" "1120110111110110" "1100010010010100" "1101001011010110" "1101101000010211" "0001201111021000" "0110011000100110" "0100111010110110" "1001100010100110" "1011101010101034"  "1000021010201056" !224,160 ( Maze 5 )"0001000000000000" *"1100011011111110" +"1111111011110020" ,"1111341011010111" -"1111561011012000" ."0021101011010110" /"0100001011010110" 0"0110111000010110" 1"0021111111110110" 2"1101200010000120" 3"1101011011111101" 4"1100011000000021" 564@,480 <0:1:6: A s(7) F 30 xx,y yTell walker where z finish is ! }k,x:k+1,y #k+2,x+16:k+3,y #k+4,x:k+5,y+16 ,k+6,x+16:k+7,y+16 k+8,255  Colour Train %first=64375w:last=64372t `stop=64476:shuntd=64477:speed=64371s:close=64374v:fwdbwd=64475 "cti=56432p:ctc=cti+3 %track=5800:drwtrk=5750v 0:0:6: laststn=0 stg1=0:stg2=0 czcol=41):zy=176:zline=5e3:cw=0:maxsk=3:skill>maxskskill=maxsk &stg1=59424 :stg2=stg1+32  s(5,4):n(5) ,1=x ,2=y ,4=passno ,3=addr in track list  of b5 approach flag trklist=5900  udg stick-man ,5999o:j="a""b"-1:k:j,k:j *23672x\,0:23673y\,0 Track set up track  go=0 j=cti  Each Go drwtrk PTrain chuff UAspeed,trnspd:close,0:fwdbwd,0:64005,trncol Y =""more Zj=ctc:" "5209Y ^At correct station? _.þclosesound=(asubs+15):5210Z cRight,shunt to station dsound=(asubs+12 ) efwdbwd,shuntd iþstopj=ctc:5225i mPassengers on/off n1:clear kb bfr s!x=(s(laststn,1)/8) x)y=(s(laststn,2)/8)+2 }/j=s(laststn,4)-10-1 .01z# =,502 23659k\,1  y,j+x;" " 23659k\,2  8 j Get off question call  5400 j=140(:j 1j=pasno*(skill=1)+5*(skill>1) psngr=(*j) s(laststn,4)=psngr j=0psngr-1 23659k\,1 y,j+x;7;"" 23659k\,2 .01z# =,42*  15 j Get on question here!  5500| Time out here 723672x\+256*23673y\>15000:more go=go+1 +go<3trklist=5960H5150 <col=233:x=0:y=0:z$=" WELL DONE! "  big y=72H:x=112p:jump /trklist=trklist+30*(trklist<5960H)  5105  On Qn yyz=y:xyz=x:jyz=j:kyz=k ?z$=" ":y=0:x=0:col=6:big "`col=5:grafad=59360:nsprite:x=16:col=5:grafad=59392:nsprite ,*z$=" + ":col=7:x=32 :big 1`grafad=stg1:x=112p:col=6:nsprite:grafad=stg2:col=6:x=128:nsprite 2'x=176:z$="=":col=5:big 6<pasno=n(laststn):z$=pasno:x=32 :col=68D:big ;j=s(laststn,4) <_skill>1k=(20-pasno)*(skill=2)+(100d-pasno)*(skill=3):j=(*k) @'x=144:col=68D:z$=j:big Epasno=pasno+j:length=pasno Ok=12 Tcol=15:x=192 Y numberinput ^figure=pasno5490r `3x=240:col=250:grafad=cross:nsprite bsound=(asubs+15) d>64005,6:64000,1:j=(asubs+6) ek gy=yyz:x=xyz:j=jyz:k=kyz: rIgrafad=tick:x=240:col=4:nsprite:sound=(asubs+12 ) s>64005,6:64000,1:j=(asubs+6) t 5479g 5y=0:z$=" - ":col=7:x=32 :big j=(*pasno) skill=1j=psngr *x=32 :z$=pasno:col=71G:big 1pasno=pasno-j:length=pasno:n(laststn)=pasno 4x=144:z$=" ":big:z$=j:col=5:big k=12 (x=192:col=15:numberinput figure=pasno5550 grafad=cross:x=240:col=250:nsprite:sound=(asubs+15):64005,6:64000,1:j=(asubs+6) k Cz$=pasno:col=71G:x=192:big:j=1150:j  5560 Ix=240:col=4:grafad=tick:nsprite:sound=(asubs+12 ) 5z$=" Number Train ":col=41):x=0:big vChoose station/draw x+k=(*stn)+1:k=laststn5752x z laststn=k |j=1stn ~m=first+s(j,3) m>31m,(m)-32 #j=km,32 +m:trncol=c$(j) =col=c$(j):x=s(j,1):y=s(j,2):grafad=stg1  nsprite 6col=c$(j):x=s(j,1)+16:grafad=stg2  nsprite 23659k\,1 hs(j,4)(s(j,2)/8)+2,(s(j,1)/8);7;""(s(j,4)) 23659k\,2 j  Draw track B:z$=" Number Train ":y=0:x=0:col=41):big  trklist trnspd j=first-3 x:x=9995820 =y,z:j=j+3:j,x:j+1,y:j+2,z:5810 &hi=(j/256):lo=j-256*hi last,lo:last+1,hi Set colour of  stations+pass.no. stn c$="":z$="......" j=1stn (s(j,1),s(j,2),s(j,3) s(j,4)=(*6) jk=(6-s(j,4))*(skill=1)+20*(skill=2)+100d*(skill=3):n(j)=(*k) /k=(*5)+2:z$(k)"."5855 c$=c$+k:z$(k)="+" j   1st no is train speed  Track 1 list  #2,64@,63?,0 U114r,63?,0,148,63?,128,158,63?,64@ S192,63?,2,224,95_,5,208,111o,1 X196,111o,1,164,111o,129,154,111o,65A V108l,111o,1,76L,111o,129,66B,111o,65A 6480,111o,3,32 ,95_,4  999  3 U112p,64@,5,168,112p,23,80P,112p,32 *Track 2 list +|8,224,143,1,158,143,1,124|,143,129,114r,143,65A ,p546,143,1,24,143,3,16,135,131,10 ,129,67C -m8,127,4,24,111o,0,112p,111o,4,144,79O,0 .m224,79O,4,240,63?,3,224,47/,1,204,47/,1 /q182,47/,129,172,47/,65A,120x,47/,1,92\,47/,129 0i82R,47/,65A,24,47/,5,8,63?,2,24,79O,0 1p112p,79O,2,144,111o,0,224,111o,2,240,127,5 2999,4 3p160,480,47/,96`,480,568,128,144,5,24,144,14 HTrack 3 List I{10 ,216,111o,1,135,111o,1,104h,111o,5,103g,112p,69E Jl94^,121y,133,88X,127,3,8,47/,4,24,31,0 Km26,31,0,546,31,64@,64@,31,128,106j,31,0 Lp134,31,64@,144,31,128,232,31,2,248,47/,5 Mk216,79O,1,104h,79O,3,88X,63?,5,8,143,2 Np24,159,0,26,159,0,546,159,64@,64@,159,128 Ot218,159,0,230,159,64@,232,159,4,242,149,132 P'248,143,3,999 Q5,104h,112p,5,24,32 ,26,104h,32 ,35#,24,160,65A,200,160,74J oG28,8,28,42*,8,20,34",34" XCaterpillar Y/7941:default words:cater1=58912 Zczline=7e3X:zy=176:zcol=14:cw=1:maxsk=4:skill>maxskskill=maxsk ]0:0:6 c,79906:j="a""h"-1:k:j,k:j d ct=5 g*23672x\,0:23673y\,0 llastw=0 Draw cherry :7800x 'skill=47700:7110 'c=7900+20*(*3):c .w=(*10 )+1:w=lastw7106  lastw=w j=1w:w$:j g$(w$):c+2:s$  Blanks  7750F "x=1616*w$16 ^x+1,31:5;14,0:x+1,30:5;14,0 x Start up caterpillar y=64@:x=catx )grafad=cater1:col=4:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite Draw basket >6;18,25;"";19,26;"" j=1ct |y=17-(j>5)-(j>8)-(j>11 ):x=24+j-4*(j>5)-3*(j>8)-2*(j>11 ) y,x;1;2;"" j 1z$=s$:y=4:x=40(:col=78N:big ct7290z pile=0 !a$="abcdefghijklmnopqrstuvwxyz" guessleft=11 -skill Hz$=".........."(guessleft):y=176:x=0:col=71G:big  Guess the word %k=0:j=3 &#z$=:j=j-1:j7500L 'z$=""7206& )z$=""more *k=z$ /k<97ak=k+32 4$k<97ak>122z7205% 8Check unused 9 a$(k-96`)="."7205% >.01z# =,20 Ca$(k-96`)="." Hz$=k LCheck in word Mj=1̱w$ Rw$(j)z$j:7300 V Right W y=128 Y j=j̱w$ \4w$(j)=z$x=16*j:col=6:g$(j)=z$:big aj e 7327 fg$w$7205% jYes,all OK ksound=(asubs+12 ) l 7600 z<23672x\+256*23673y\<7500L7100 {Another go |Rskill<4skill=skill+(ct>3skill<4)-(ct<3skill>1) }more Not there .05|L,-12 guessleft7400 *col=14+8*(guessleft<3) y=176:x=pile:big pile=pile+16 guessleft=guessleft-1  7205% Move cater /grafad=space:y=64@:x=catx:nsprite grafad=cater1 x=x+8:catx=x col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite Hard luck! sound=(asubs+15) One less apple ct=ct-1  ctmore  7100 L Chomp Qcj=10 :y=64@:x=catx+32 :col=4:grafad=59008-k:k=32 -k:nsprite Munch cherry grafad=59552:y=64@:x=192:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j grafad=59520:y=64@:x=192:col=66B:nsprite:y=480:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j  Usr word  pickword j=lastw7705 # lastw=j (s$="User words" * g$(w$) - FSet catx K!z$="abcdefghijklmnopqrstuvwxyz" Pcatx=144 Uk=1̱w$ Zz=w$(k)-96` _z$(z)="."k: d z$(z)="." icatx=catx-8 nk: x Cherry yDgrafad=59584:col=66B:y=480:x=192:nsprite zDgrafad=59616:col=66B:y=480:x=208:nsprite {Dgrafad=59648:col=66B:y=64@:x=192:nsprite |Dgrafad=59680 :col=66B:y=64@:x=208:nsprite  lvl 1 F"cat","dog","sheep","goat","horse","cow","bird","frog","fish","duck"  "Animals" L2 V"potato","bacon","apple","orange","beans","jelly","cheese","bread","butter","carrot" "Food" L3 Y"dress","jacket","jumper","anorak","sandal","shirt","trousers","socks","blouse","scarf"  "Clothes" 5 UDGs 6P255,1110101u,32 ,10101,8,5,2,1 8Y255,10101110,4,10101000,16,160,64@,128 :G255,85U,0,85U,0,85U,0,85U ;F0,85U,0,85U,0,85U,0,255 l6,111100<,1110110v,1101111o,11101111,255,1111110~,111100< #( #)Common Subs Block! #* #- #2Big Alphabet #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #ZInput Number #_numflag=1 #dinput #ifigure=("0"+x$) #m #nInput Alpha #pnumflag=0 #xINPUT Alpha/Num #yinputs y,x..cursor #zlength..Max no.chars #{numflag..1=no alphas #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x #flash cursor and #wait for key press # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #Key pressed-suss which #!z$=13 9305Y$:enter #"z$=12 9275;$:delete #z$="":more #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $!Character is kocher! $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $W** ENTER pressed ** $XRemove blanks $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $}nSprite Patch $~n-knocks out b/g $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $JUMP--jumping 32 ted $plus nipper tune! $IP y,x of ted only $fz=13:col=4:grafad=bigted1:fours:col=4:grafad=bigted2:fours:z $tune $grafad=space:fours $ $Nipper Tune! $tune $note:note=99c $.1}L,note:9395$ $16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $FOURS..32 sq sprite $64001,x:64002,y $ghi=(grafad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ %Another go %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% %  %Change words %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %:Default user words %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %NPick user word in w$ %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T ' 10 ' 10 kilsubaxsypx0ohatxwa<#nkZ6.Bounce MA (#*#Õëü.!+2[8>2t[8گ2&[S ͕:G28x2&:G[ 2t[S 8x2&[ 2t[8>2t[8گ2&[&{2(~#ng:ٷ(G)r# {2( G72/2""(**V#":ٷ *r#"G::*٦w#":ٷ *~#"*w#"*G{V#":*ٲw#" :ٷ( *:٦w"ž2{2""(**V#":ٷ( G{:Ẃ S:ٷā"*~G~w#"!~w{2""(**V#":ٷ( G{:W*z/w#" :ٷ(*{/w":&o)))DM)))T]) ) [͕[8[tvà!w~2~2͔:2:2!z"ޯ22: :!s> _!/":޷(*X"!*!ޯ2S6[s!`":޷ !*X"!*>2S2:s'G:޸ "![*K~ "!$~ ~:(:D_:DW :ރ_:ނWS!4:s !":s('ޯZ2y:sG:޸0v(2v>:(8~(2>2+:(8$n( 2<2v: ~(>22:(X͔͔X: KtB !w wB *t ~O! ~2#~2??}*a?!w^V͔ !ݾ {ݾ KtB :wo>0>2:xg>0>2!߼ { !:ރ_:ނWccccc!}|aa||x`@ 0 0 0 0 0 0 0 0 0 0x|ngca``v`>`=qaa88p`=qaaaaaaq=88pp`0````````````````````` x0 0?x880 0 p````0??00??00??00?>vv> 0880 0 p``AAAAAAA`p09 ??@ ???? `p09 8>?|p080p <x8`````00680 p8 7 gPp0 88{   8p17??{7?wwky xvꀻݽ~כ*@5ZK/wS~րZy w{{W   Xkk ރ[]w`v{m \bbʢb\@  @@Yڥ@@@ {}{8}}{TDD TTT!! ?s?Im"Im <~"<~"% >0~@@@@<`????? O0@@8|l;33377wc_?8g#&?~j8j8jB@U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||<|N^^DD^^L 8}}99}}99}}8' AC##<@@p#HHp!A#???g ?????G3`???G3? @???G3 p|>>|>||>p  `@q;t"``n  Px  D! 5q <~9_?<~`? ?:  <`08\0p0000000< ?<~9_?<~`? ?:  00@`08\0p0  `'s#@@p`'s#@@@@ppx ` 's#@@p` 's#@@@@p  @ ?p@d&JRý Z.͙.N"/S1C3*/[1K3...!5:Gͭ8>wͭy8>(wv>2!5:Gnf",F}8 w}wF|(8 0ww~=(w~ w[,F^V 2+!5F͐ 6Rw!+4: ɯ2.>2v2+!5nf",~ 8~OG͐}8%w66͢F 6jRw@p;w V~NG͢}8$w[,!^V6!.4"p[,~ wF^V!+4:b!+| :.!WX'60ͭwͭwͭw~ O~ ~( > 8>@>wN! oXgWOR}0D 8P8xy(DOxyиy ?ɸ:+ 8 O:+ >(>P[v\c.zRR_R0#"v\}!x2+͐_͢W: J͌:G: ͻ:G: v[ l[S !:r(*!F~ w22 xW >2xO >2xW >2 xW>2 :G:(822:G: Ȁ82 2:  : : : : G: ????W>2 : ($z W_: (9=01>2 ): Z: (=0{_ zW>2 J! ~(22 * "!K ~:(!5* "5ww: w: : (wwvvl~(_w~Ww!S ~ wF~ Sɯ222<2;![~< 0%8 ~08~2~2:;2##!;4{ <ůGyOBz { lůGyOB { !<ůGyOBz { !lůGyOB .[S !!<.[ l*[:O[!2!<.[ l<ú-:ITÃ/qÂGÏ I[:.:O[*ͺ[:͢:H\??? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o|gz7gzgzk===o>P:(22r222v22<2xW O xW xW