com_test ¹&³»ÿRén$(20,10 ):éc(60<):ên$ = name of colour:rem c = ink,paper,bright Féu(20):ëf=1Ì20:ñu(f)=0:óf:êcolour used? 1=yes 8év(20):ëf=1Ì20:ñv(f)=f:óf:êamounts... *ñpf=0:êamount player is playing for 4ñcv=0:êcurrent amount that the player has won 8Ù7:Ú0:Ü0:Þ0:Û0:û:ç0 ê ëf=0Ì7 ãa ( ôÀ"a"+f,a 2óf 20Ë×1,59;:ì120x „,úu(cn)=1Ë×1,59;:ì120x Œ ñav=v(cn) –êPRINT AT 0,20;av —Sõ¬12 ,20;Ú7;" ";Ú7;¬19,20;" " ˜Këz=12 Ì19:õ¬z,20;Ú7;" ";Ú7;¬z,30;" ":óz š ñk=0  ëg=1Ìav ¢úg=avËì170ª ¥1í4800À:êcheck value hasnt been already used ª%õ¬15,22;"`";g*1000è ¯ ò75K °2ú¦É""Ëñk=1:ñcv=cv+g*1000è:ñg=100d ´ê ¾óg ¿ñu(cn)=1 ÃJúk=1Ëúcv>(pf*1000è)Ëí7000X:êplayer has won the game !!!!! ÈWúk=0Ëëp=13 Ì18:õ¬p,21;Ú2;" ":óp:×2,10 óóq ôâ À%êcheck value hasnt already been used Å ñl=0 Æëj=1Ì20 Êúv(j)=gËñl=j:ì4830Þ Ïój Ñþ Ô&êl holds the index for the used array Ùú(l=0)Ëþ Þú(u(l)=1)Ëñg=g+1 è ñj=1:þ òþ ˆêrandomize the values ‰þ ’ëx=1Ì20 œñr=º(¥*(21-x))+1 ¦-ña=v(r):ñv(r)=v(21-x):ñv(21-x)=a °óx ëþ Xêplayer has won !!! bâ @êdisplay round details J>õÚ4;Ù0;¬0,20;"Round ";q+1;"/10" TNõÚ2;Ù7;¬2,20;"TARGET";¬3,20;pf*1000è ^CõÚ5;Ù1;¬4,20;"SO FAR";¬5,20;cv hSõÚ6;Ù1;¬6,20;"TO GET";¬7,20;(pf*1000è)-cv r)ñav=º(((pf*1000è)-cv)/(10 -q)) †DõÚ3;Ù7;¬8,20;"AVERAGE";¬9 ,20;av £þ #'â %êget colour names %&%ëf=1Ì20:ãm$:ñn$(f)=m$:óf %0+ä"Cherry","Purple","Mango","Navy","Orange" %1+ä"Turquoise","Pink","Aqua","Lime","Ginger" %2)ä"Yellow","Bronze","Blue","Green","Grey" %3*ä"Apricot","Silver","Violet","Gold","Red" %:/êget colour values into an array for the boxes %?7êthese vals are for an updated next version, maybe.... %Dfëf=0Ì19:ãa,b,d:ñc(f*3+1)=a:ñc(f*3+2)=b:ñc(f*3+3)=d:óf %NÁä2,2,1,3,3,0,2,6,1,1,1,1,2,6,0,5,5,0,2,7,1,5,5,1 %OÁä4,4,1,2,6,0,6,6,1,6,0,0,1,1,0,4,4,0,7,7,0,6,0,1 %Paä7,7,1,3,3,1,6,6,1,2,2,0 %þ %€êopening screen and choice %Šña=º(¥*100d+557) %”ñb=º(¥*100d+557) %žñd=º(¥*100d+557) %¨.õ¬5,5;"Welcome to Shades of Dosh" %­$õ¬10 ,7;"Pick 1, 2 or 3" %®Hña$=¦:õ¬15,15;"X";¬15,15;"+":úa$=""Ëì9646®% %¯úa$="1"Ëñpf=a:ì9651³% %°úa$="2"Ëñpf=b:ì9651³% %±úa$="3"Ëñpf=d:ì9651³% %² ì9646®% %³êplayer has picked %´\õÙ6;Ú2;¬17,1;"You are playing for... `";pf*1000è;".":ò25 %µ.õ¬19,5;"Press any key to play..." %·ña$=¦:úa$=""Ëì9655·% %ãþ %ä'êdisplay colour names and availability %îû:ëf=0Ì19 %øsúu(f+1)=1ËõÜ0;Ù0;¬f,0;f+1;" ";¬f,3;Ùc(f*3+1);n$(f+1); %úsúu(f+1)=0ËõÜ0;Ù7;¬f,0;f+1;" ";¬f,3;Ùc(f*3+1);n$(f+1); &óf &Gþ &«þ 'þ aUbKdskl°æ£ö¡öðU£îƒ/<•g–g æ&%ñ nú˜ç êÆðÈA\\#013MGreenÎÍ Cherry Purple Mango Navy Orange Turquoise Pink Aqua Lime Ginger Yellow Bronze Blue Green ñ