FUN  w :6:1:0: -65044:"DUBBLE":65224,1 :U$(40():a=01754:.01z# =,a/24:0,175-a:172-a,a:255,175-a:a-172,a:a (S2:a=010 :.01z# =,-12 :0,a:255,0:a 2h5,8;:a$="SHARDS SOFTWARE":2000:a$="PRESENTS":8,11 ;:2000 <a$="Fun To Learn Series":15,6;:2000:3:a=01:40(+a,36$+a:168-a*2,0:0,24-a*2:-168+a*2,0:0,-24+a*2:a F%19,9 ;" N.D Roberts"  "MAINFUN" !u$=a$+13 :65125e: DUBBLE |;; *=\s#rv͎{ ::\ ( ((<2\6!d"B\!"D\;;}*K\ "P~ (h@(1#(-(82T &o)= :T@0!\~(˾~G!\>wHP *P#"P>> > [{\+>>>:>E>.:\G> 2R:\G>2S>:S:R:R<2R.:S=2S.`s>88@@88xx>>Á? <0<?????MAINFUN Va_Xa86504859;ƾ650502250 J:H$(40():S(8):0::65098J,1:65045 %0::Y=1:65224,Y +U$(3,26):23658j\,8 $>9500%:0::Y=35#:SM=7:65224,Y (I:A$="WHAT IS YOUR FIRST NAME PLEASE?":8,0;:2000 2#M=3:NN=6:2220 7WL=16:2310 :16,0;:A$="Hello "+C$:2000:2050 <,N$=C$:65098J,100d:65045 dm:65224,20::0,0;:A$:8;:2000::B=36$:C=5:2203 nJF=14:S(F)=0:F:B=17:A$:2000:B xr"Press G for Speed-changer.":"Press H to change user's name.":"Press I for the total score." 1:1;" Press BREAK to return to menu " B$=:B$=""140 ?B$<65AůB$>73IƯB$96`2200:140 B$=96` 2206:B$="F" JRO=B$-64@:1010:A=1RO:A$:A:A$=""+A$+" @(Y/N)#?" L=21:2310 20,0;:2000 6700:C$="N"L=20:2310 :140 @1020:A=0̯B$-65A:G:A::65224,Y::G 4K=1:1030:9 ;:A$:2000: A$:A$=A$+SM:2000 5A$=" (Menu is always set to speed 9)":2090*: 8Q=12:A$:2000:Q::A$:2000 B$=:B$=""440 2B$<491ůB$>5792200:440 42205:SM=B$:1060$:A=1SM:Y:A ^65224,Y:1040:16,0;:A$:A$=A$+SM:2000:::A$:2000 6700:C$="N"L=16:2310 :440  100d  C$=:C$"Y"C$"N"700 C$="N"2200: 2205: {A$="ANOTHER GO @(Y/N)#?":L=20:2310 :20,0;:2000:700:L=20:2310 :  M1010:L=14:2310 :15,0;:A=1RO:B$:A *3A$="Your score "+N$+" on "+B$:2090* /T=RO:T>3T=T-1 4S(1)=S(1)+1:S(2)=S(2)+Q:S(3)=S(3)+1-(Q):S(4)=S(4)+Q:S(4+T)=S(4+T)+Q >?1070.:F=14:A$:A$=A$+S(F):2090*:F H2050: -10808::6;:A$:2000:: uF=14:A$:A$=A$+"........"+S(4+F):.05|L,12 +F:2000::F:2050:100d ,A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":B$=A$(N) :T$=B$:R$="":A=1N S=((*B$)+1) 4R$=R$+B$(S):B$=B$(S-1)+B$(S+1):A: .B$="AB":N=2:960:R$:980 "*** @M E N U# ***","Press the key shown to choose","A.....Count","B.....Mixer","C.....Calculator","D.....Starship","E.....Codebreaker","F.....Finish" h "Count","Mixer","Calculator","Starship","Codebreaker","","Speed-changer","Name-changer","Total score" ]5000,5500|,6000p,6500d,7000X,0,400,40(,900 "SPEED-CHANGER","The printing speed is set to ","You can have speeds 1 to 9","Key 1 gives the slowest speed","Press keys 1 to 9 to choose" ;"Printing speed ","Is this the one you want @(Y/N)#?" $R65A,60<,557,502,45-,40(,35#,30,20 .+"TRIES ","RIGHT ","WRONG ","POINTS " 8U"Total-score "+N$,"Count......","Mixer......","Starship...","Codebreaker" 9"In this game you can either let","me choose all the words or you","can type in the words yourself","for a friend to guess." :"Try to think of a really good","word. Remember you are only","allowed up to "+NN+" letters@!# ","Type in your word and don't","forget to press enter." ;2"This is a mixed up word for"," you to guess." r4,0,3,7,1,5,2,5,2,10 ,2,7,2,5 ?"What do you want to do?"," ..to decode a word"," ..to code a word"," ..I will code or decode words"," ..to change code"," ..to finish"," Press A,B,C,D or E" @77100,7100,7300,7400,100d A<"Can you decode this word","You can score "+Q+"points." B"Make up your code by jumbling","up the letters of the alphabet.","None of the letters can be in","the code more than once." Cf"Don't worry too much about one","of the letters being in twice","as I will keep a check on that." D{"If you make a note of this code","you can use it to send secret","messages which I can code and","decode for you." Ea"Can you guess the letters in","this mystery word before the","alien destroys your starship?" %H$=A$+13 :C=65125e:: $ S$="Press space key....":4  YL=21:2310 :21,6;S$:T$=S$(1):S$=S$(2):S$=S$+T$ 66:=" "2207:L=20:2310 :  2060  *A=1̱A$ ,1A$(A)=16ٯA$(A+1):A=A+1:A 0A$(A);"*";8;:A:" ": 4, 21,0;">":C$="":Z=0 >B$=:B$=""2110> H@.01z# =,12 :B$="-"ƱC$02200:2110> MB$="-"2160p R*B$="."Z=12200:2110> \B$="."Z=1:2160p a&B$=12 ƱC$02191 k5B$=13 ƱC$0V=C$(̱C$):2206: l9B$<480ůB$>579űC$=N2200:2110> p C$=C$+B$ z21,1;C$;" " ""2180  2110> C$(C$)="."Z=0 !C$=C$(̱C$-1):2170z &.2~L,8:.2~L,6: F1086>:T=B:A=17:B=T:C,D:B=B+D:2203:A: 4L=1C:.01z# =,B:.01z# =,B+5:L: 'A=12 18:.02{# =,A:A: ,A=16:.05|L,20:A: <A=2026:.05|L,A:A:.05|L,A+4: FL=1C:7:.01z# =,B:0:.01z# =,B+5:L: L:A=1D:S$:A: F65224,1:20,0;:C$="":A$=">":2000 A$=:A$=""2230 K.01z# =,12 :A$=13 ƱC$02205:65224,Y: aA$=12 ƱC$020,C$;" ":21,C$;" ":C$=C$(̱C$-1):2290 :A$<65AůA$>90ZűC$=NN2200:2230 7(M=3ƱC$0)M=2A$=(A$+32 )  C$=C$+A$ 20,C$;:2000 ""2290  2230 BM=L21:M,0;" ":M: $K=1::T2=0:S=0 X=0:13 ,0;"":L$=((*26)+65A):S1=S:S=(*19)+8 *23673y\,0:A=0S-1 AD=X:X=(*32 )  C=0:X=AD5110 ..001wn,12 :(A/2),X;"";L$ (A 2GA$="How many "+L$+"'s can you see?":14,0;:2000 <N=2:21004 FT1=T2:T2=23673y\ KZA$="There are "+S+" "+L$+"'s":L=14:2310 :14,0;:2000 PA$="Your answer was "+V ZH(V-S)>4A$="Your answer is a long way out@!# ":2200 d'V=SA$="Well done "+N$:2207 n 2000 xT1=05300 8A$="That was slower":T1/S1>T2/SA$="That was faster"  2000 Q=0:S=VQ=5 82050:800 :720:C$="Y":5100  :100d |NN=9 ::5900  'U=5530:C$="Y"U=5600:U &:NN=9 :7720(:5700D  5960H D:G=0:P$=C$:B$=C$:Q=C$:Z$="----------"(Q):N=Q F,B$=C$:960:X$=R$:R$=C$5700D G):0,13 ;:A$=R$:2000 N01083;:::A$:2000:A$:2000 X\9 ,0;:A$="You can score "+Q+" points.":2090*:2050:5980\ lC$="N"5800 vL=14:2310 {QDZP$/2A$="@NO CHANCE !!# ":2206:14,0;:2000:2050:L=14:2310 :5800 \Q=Q-1:9 ,0;:A$="You can score "+Q+" points.":2090*:A=1 MX$(1)=P$(A)Z$(A)="-"Z$(A)=X$(1):X$=X$(2):5780 A=A+1:5770 I11 ,0;:A$="Your clue -----> "+Z$:2207:2000 14,1:A$="Now have a guess at the word":2000:Q>P$/2A$="Type CLUE to get another clue":2090* NN=P$:2220 C$="CLUE"5750v UL=14:2310 :14,0;:A$="Your guess ----> "+C$:2000 ƢG=22200:Q=0:A$="Try another word":2000:A$="The mixed up word was "+P$:2000:2050:800 :720:C$="Y"U жC$P$2200:A$="That's not the word":2000:2050:L=14:2310 :G=G+1:S(1)=S(1)+1:S(3)=S(3)+1:5800 dC$=P$2206:A$="Well done @!#":2000:2050:800 :720:C$="Y"U  100d  6::10819:F=14:A$:2000:F Y20,0;:A$="Shall I choose the words @(Y/N)#?":2000:700: *OM=1:2220:K=0:A=2̱C$:C$(1)C$(A)K=1 4{A:K=0C$="CLUE"(C$<4NN=9 )(C$<3NN=15)L=20:2310 :2200:5930* > H<9000(#+(*20):A=0̺(*10 ):C$:A: \k20,0;:A$="Do you want a clue @(Y/N)#?":2000:700:L=20:2310 : p21084<:F=15:A$:2000:F zA$=:A$=""6010z V1085=:2206:P$="":A=14:B$,C$,D$:B$=A$P$=C$:V$=D$:C=A (A:P$="".5,0:6010z q1084<:A$:A=1C:B$:A:A$="O.K. let's"+B$(11 ):10 ,0;:2000:2050 14,0;:A$="Type in your first number and":2000:A$=" press enter":2000:N=4:21004:V1=V:L=14:2310 14,0;:A$="Type in your second number and":2000:A$=" press enter":2000:N=4:21004:V2=V:L=14:2310 V$="V1/V2"V2=0A$="I can't divide by zero!!":18,0;:2200:2000:2050:L=12 :2310 :6060 rV3=V$:B$=V2:C$=V3+" ":14,0;:A$="Your sum "+N$:2000:A$=""+V1+P$+B$:2000  A=1 7A=A+1:C$(A)="."C$=C$(A+2):6080 AɱC$6076 A$="The answer is "+C$:2000:A$="Another sum "+N$+" @(Y/N)#?":2000:700:C$="Y"L=10 :2310 :6010z  100d d,5900 :WP=1:C$="Y"WP=0 iKK=5:K$="":7::L=06:L,0;" ":L+1,0;" ":L+2,0;"STAR1":L+3,1;"":.1}L,12 +L*4:L nL=06:L,28;" ":L+1,28;"":L+2,28;"":L+3,28;"":.1}L,-40(:L x11 ,0;"":12 ,0;"";:L=020:(*248),(*40()+128:.01z# =,-10 :L ]L=510 :.1}L,502-L*4:L,15;ٺ(*4)+3;"":L $WP=05960H:6600 NN=15:7720( ȫZ$="-----------------"(̱C$):Q=C$*4:L=13 :2310 :13 ,15-C$/2;:A$=Z$:2000:1093E:L=13:A$:2090*:L e18,0;:A$="Guess a letter !!":2206:2000:"You can score "+Q+" points" 3P$=:P$=""ůP$<65AůP$>90Z6630 AL=15:2310 :F=0:L=1̱C$:P$=C$(L)F=L 2L:J=0:L=1̱K$:P$=K$(L)J=1 L:J=0K$=K$+P$ M16,0;:F=0J=1Q=Q-1:Q>06670 !F0J16690" A$="You have run out of turns !!":2200:2000:A$="The word was "+C$:2000:13 ,15-C$/2;:A$=C$:2000 L=70-1:L+3,28;" ":L,28;"":L+1,28;"":L+2,28;"":.1}L,-40(:L D=254-1:28/(D+1),D+1;" ":28/D,D;"":.05|L,-30:D:B=0:A=7:7750F:6800 `S(1)=S(1)+1:S(3)=S(3)+1:A=8:B=8:D=26 7A,D;"*":B,D+1;" ":B=A:.02{# =,30 (A,D-1)=7D0D=D-1:S=(*4)-2:S=S+(S=-2)+(D<18)*(S=-2):A=A+S+(-(A=10 )*(S=1))+((A=5)*(S=-1)):6680 D<156750^  C=6:2208:A,D;" ":A,D-1+((A>KK)*(D=16));" ":KK=KK+(D=16)*(A=KK):16,0;:A$="@That's wrong !#":2200:2000:J=1A$="We have already tried "+P$:2000 !02050:L=15:2310 :6620 "RA$="That's right !":2207:2000:L=1̱C$:C$(L)=P$Z$(L)=P$ #JL:13 ,15-C$/2;:A$=Z$:2000:C$=Z$6700, $ 6620 ,J18,0;:A$="You win !":B=24:2201:2000 6L=70-1:L+3,0;" ":L,0;" ":L+1,0;"STAR1":L+2,0;"  ":.1}L,12 +L*4:L @D=10 28:D*D/100d,D;"-":(D-1)*(D-1)/100d,D-1;" ":.05|L,D/7*4:D:B=28:A=7:7760P:6800 ^A,D;" ":B=0:A=7:7750F:S(1)=S(1)-1:S(3)=S(3)-1:A$="You lose !":16,0;:C=6:B=7:2203:B=0:2203:2000:A$="The word was "+C$:2000:Q=0:2050 BL=13 :2310 :800 :720:C$="Y"6505i  100d XQNN=14:W=(*3)+1:5900 :WP=0:C$="Y"WP=1 ]gA$="CODEBREAKER"::12 ,10 ;:2000:B=24:2201:B=19:2201 bCN=26:L=13:950:U$(L)=R$:L:7700 `L=12 :2310 :1087?:A$:L=12 :2310 :12 ,0;:2000 ML=65A69E:7:T$:A$=(L)+T$:2090*:L:A$:2000 F$=:F$=""7060 3F$<65AůF$>69E2200:7060 92206:1088@:A=0̯F$-65A:L:A:L XG=0:L=12 :2310 :7500L:7600:F$="B"T$=P$:P$=R$:R$=T$ PZ$="---------------"(̱R$):A$=R$:12 ,15-R$/2;:2000 ƝQ=R$:A$="Can you "+"decode"((F$-64@)*2-1)+" this word?":2090*:A$="You can score "+Q+" points":2090*:X$=P$:5980\ C$="Y"7150 ڂA$="Type in your answer":17,0;:2000:Q>P$/2-1A$="Type CLUE for another clue":2090* G2220:L=17:2310 :C$="CLUE"7150:7130 ߆C$=P$A$="That's right !":2206:17,0;:2000:A$="The word was "+P$:2050:800 :7145 G=G+1:G=3A$="You have run out of turns!":Q=0:17,0;:2200:2000:A$="THE ANSWER IS "+P$:2000:2050:800 :7145 A$="That's wrong @!!#":2200:17,0;:2000:2050:L=17:2310 :S(1)=S(1)+1:S(3)=S(3)+1:7130 T$=" ":4,2;T$:9 ,2;T$:720:C$="Y"L=12 :2310 :7100  7040 L=16:2310 QDZP$/2-1A$="@NO CHANCE !!# ":2206:16,0;:2000:2050:L=16:2310 : RQ=Q-1:15,0;:A$="You can score "+Q+" points.":2090* >Z$(R$-Q)=X$(1):X$=X$(2):T$=R$:F$="A"T$=P$ mT=T$(T$-Q)-64@:D=(T/13 ):L=T-D*13 :D*5+4,2+L*2;1;"^"  o16,0;:A$="Your clue -----> "+Z$:2207:2000:2050:L=16:2310 :  G=0:L=12 :2310 :7500L:7600:Z$="---------------"(̱R$):A$=R$:12 ,15-R$/2;:2000 L=12 :2310 :A$="Press @A# to enter a word or":14,0;:2000:A$="sentence to be decoded.":2000 YA$="Press @B# to enter a word or":2000:A$="sentence to be coded.":2000 B$=:B$=""7320 'B$"A"B$"B"2200:7320 2207:L=12 :2310 :12 ,0;:A$="Type in your word or sentence":2000:A$="to be "+"decoded"((B$-64@)*2-1):2000:7520` WP$=C$:7610-(B$-65A)*10 :L=12 :2310 :12 ,0; A$="Your word or sentence to be":2000:A$="decoded"((B$-64@)*2-1):2000:2205:A$=P$:2090*:2050 L=12 :2310 :12 ,0;:A$="The answer !!":2000:2205:A$=R$:2090*:720:C$="Y"7300  7040 L=12 :2310 :A$="You can either have codes":12 ,0;:2000:A$="1,2 or 3 or a code of your own.":2000:20,0;:A$="One of my codes @(Y/N)#?":2000 700:C$="Y"7450 jL=12 :2310 :1090B:12 ,0;:L=14:A$:2000:L:2050 ^L=12 :2310 :12 ,0;:L=13:A$:2000:L:2050  ]L=12 :2310 :12 ,0;:A$="Type in your own code please":2000  g65224,1:Z$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":20,0;:C$="":A$=">":2000  A$=:A$=""7437  aA$=12 ƱC$020,C$;" ":21,C$;" ":C$=C$(̱C$-1):7444 3A$<65AůA$>90Z2200:7437  4L=1:A=1̱Z$:A$=Z$(A)L=0:T=A A:L=12200:14,0;:A$="We already have one "+A$:65224,Y:2000:65224,1:7444 ,Z$=Z$(T-1)+Z$(T+1):C$=C$+A$ r20,C$;:2000:C$=262206:W=1:U$(W)=C$:65224,Y:7700:7446 ""7444  7437  65224,Y:L=12 :2310 :12 ,0;:A$="Your code is now code number 1":2000:20,0;:A$="Do you want this code @(Y/N)#?":2000:700:C$="N"7435  jL=12 :2310 :12 ,0;:L=14:A$:2000:L:2050:7040 WL=12 :2310 :A$="Which code : 1,2 or 3?":12 ,0;:2000 $A$=:A$=""7460$ .3A$>513ůA$<4912200:7460$ 8{W=A$:7700:20,0;:A$="Do you want this code @(Y/N)#?":2000:700:C$="N"7450 B 7040 LWP=0F$="C"7510V Q5960H:P$=C$: V14,0;:A$="Type in your word and don,t":2000:A$="forget to press return.":2000:F$="C"7520`:P$=C$:7515[ W+NN=14:M=1:5930*:P$=C$ [L=12 :2310 : ` 18,0;">":C$="" jA$=:A$=""7530j t<.01z# =,12 :A$=13 ƱC$02205: ~pD=((C$)/30):A$=12 ƱC$018+D,C$-D*30;" ":C$=C$(̱C$-1):7590 J(A$<65AůA$>90Z)A$" "űC$=120x2200:7530j )C$=C$+A$:18+D,C$-D*30;A$ ""7590  7530j R$="":A=1̱P$ "P$(A)=" "R$=R$+" ":7606 "T=P$(A)-64@:R$=R$+U$(W,T) A: !R$="":A=1̱P$:L=1 "P$(A)=" "R$=R$+" ":7640 (P$(A)U$(W,L)L=L+1:7620 R$=R$+(L+64@) A: 7:L=113 :.01z# =,24:D=01:D*5,2+L*2;:A$=(L+D*13 +64@):2000:2+D*5,2+L*2;:A$=U$(W,L+D*13 ):2000:D:L w11 ,0;"":A$="Code number "+W:10 ,10 ;:2090*: (R14,0;:1082::F=13:A$:2000:F:2050 2LL=13 :2310 :14,0;:A$:2000:A$:2000 <M=1:5930*: FA,B;" ":A+1,B;1;"":A+2,B;" ":C=12 :T=B:B=15:2208:B=T:A,B;1;"":A+2,B;1;"":4:A,B;" ":A+1,B;" ":A+2,B;" ": PA,B;" ":A+1,B;"":A+2,B;" ":C=12 :T=B:B=15:2208:B=T:A,B;"":A+2,B;"":4:A,B;" ":A+1,B;" ":A+2,B;" ": #(T"RAIN","DESK","BLADE","CENTRE","CIRCLE","BOOK","FRENCH","SCIENCE","HISTORY","MAKE" #)U"READ","TEACHER","CHILD","ROAST","CHICKEN","FLAME","FIRE","DRAGON","RECORD","RADIO" #*W"TABLE","DINNER","WINDOW","PENCIL","LATE","HOMEWORK","POTATO","CRISP","SCHOOL","LADY" #+^"RAINBOW","STAIRS","BICYCLE","HORSE","RULER","DIAMOND","ATLAS","PICTURE","COMPUTER","BUTTER" #,X"BACON","GRAPE","ORANGE","COOKER","TIGER","SINGER","HACKSAW","VICE","PLASTIC","CAMERA" #-a"FOOTBALL","GIANT","DINOSAUR","INDIAN","COWBOY","CANNON","TREASURE","SWORD","ELEPHANT","TARGET" #.b"RECORDER","POLICE","CINEMA","TRAFFIC","MARKET","BONFIRE","DUSTBIN","SWITCH","TEASPOON","POWDER" #/["CUPBOARD","SHEEP","SHOWER","SOAP","BATH","BUBBLE","TELEPHONE","CLOTHES","TRACTOR","BARN" #0^"STRAW","ORCHARD","FARMER","ISLAND","PADDLE","SWIMSUIT","ALPHABET","BADGE","PAINT","DRAWING" #1b"BANDAGE","SLIPPERS","PUDDING","STARS","PRESENT","BASKET","SAUSAGE","CABBAGE","CARROT","LETTUCE" #2^"HANDBAG","PUPPIES","KITTEN","AUTUMN","PARROT","CLOUD","SUMMER","SPRING","HEDGEHOG","BASKET" #3Z"TRIANGLE","SQUARE","CONE","BROWN","PURPLE","ANGEL","PRINCE","PRISON","MONSTER","FATHER" #4Y"ROBBER","DESERT","WIZARD","DIFFICULT","SLEEP","WATCH","DANCE","BUILD","SMILE","MOTHER" #5Y"UNCLE","COUSIN","SISTER","ARTIST","SOLDIER","ACTOR","DANCER","CLOWN","DENTIST","PILOT" #6Y"DIVER","BUTCHER","POCKET","BLOUSE","JUMPER","SWEATER","EYEBROW","MOUTH","NOSE","CHEEK" #7O"CHIN","ELBOW","FINGER","THUMB","KNEE","FEET","HEEL","PEPPER","WINE","SUPPER" #8S"FRUIT","COFFEE","HONEY","BEER","STEW","PANCAKE","RICE","JUICE","PEACH","SPROUTS" #9["APPLE","LEMON","CHERRY","FIREWORK","RIBBON","CANDLE","CRUTCH","NURSE","DOCTOR","PLASTER" #:W"COMIC","SQUASH","BRUSH","PLANT","CEILING","BELL","DRAWING","HARBOUR","DONKEY","BUOY" #;Q"PONY","SHEEP","TURKEY","SACK","CORN","FENCE","LOFT","PLOUGH","PLATFORM","TYRE" %6::0:A$=" S H A R D S S O F T W A R E":5,1;:2000:11 ,4;:A$=" F U N T O L E A R N ":2000 %&6:16,6;"(C) N.D.Roberts":B=12 :9530:%:B=12 :2201:9530:%:B=24:2201:B=12 :C=5:2203:2050: %:JB=12 :2201:B=19:2201:B=17:2201: &H&:A=6504565050:A,A:A AAQQHH(Y/N)":11 :A=65218: +(F.....Finish +y#S cS ntd CFcTsSpace key....Press sNFcnAF.....FinishB`m