A$~Ē(255): ’”: ¹ 4,0: ¹ 5,0!Š CR(13),CT(13),CU(13): NN~3;Š R$(13),T$(13),U$(13),H$(13),O$(210): „ 32: R~1: ’ƒ 1C~0: ¤ CLEAR CREDIT ’† 169,"00000000F0101010"#’† 244,"10387CFEFE10FE00": ¤ ō#’† 245,"6CFEFEFE7C381000": ¤ õ#’† 246,"10387CFEFE7C3810": ¤ ö#’† 241,"103838387CFE82FE": ¤ ń#’† 240,"0000183C7E7E3C18": ¤ š#’† 247,"103854FEFE541010": ¤ ÷!2 I~1 r 13: £ H$(I): ›: Y~21"7¤ GOTO 530: REM TO BE REMOVED#<’ 14: ¢@5,6,"Ą";ę("¤",17);"©"&K X~7 r 21: ¢@5,X;"Ø";o17);"ø": ›P¢@5,22;"°";@23,22;"¹"(U’ 4:  X~7 r 15: ¢@6,X;ę(A$,17): ›8– X~16 r 22: ¢@6,X;A$;@22,X;A$: ›: ¢@7,22;ę("č",15)$ ’ 2: ¢@7,16,;"Ą";ę("¤",13);"©"Ŗ X~7 r 21: ¢@25,X;"ø": ›'“ X~17 r 20: ¢@7,X;"Ø";o13);"ø": ›9Ņ¢@7,21;"°";ę("“",13);"¹";@23,21;"Ä“¹":  X~1 r 50: ›Uę I~1 r 14: ¢@25,6tI,"š":  X~1 r 20: ›: ¢@25,6tI;" ";: ·"-D1R": ›: ¢@25,20,"š";Aš P~1 r 13:  I~1 r 5: ’ Pt1: ¢@Pt7,9,H$(I): Į 7: ·"A1R": ›Aś’ 2: Y~Yu1: ¢@25,Y,"ø";@25,Yu1,"š";: ¢@Pt7,9,H$(P): ·"-D2R"# I~1 r 50: › I,P: ¢@25,7,"š";6 K~1 r 13: ¢@8,9," ":  K1~1 r 30: ›)¢@8,9,"FRUIT MACHINE": ·"-C+CR": › K "‡ F,R,U,I,T,-,M,A,C,H,I,N,E@,¢@13,17,"by":  I~1 r 100: ›: ¢@9,18,"Phil":  I~1 r 100: ›&6¢@14,18,"Ludgate":  I~1 r 100: ›(:¢@9,19,"Adapted by":  I~1 r 100: ›(=¢@10,20,"Den Lakin":  I~1 r 100: ›2@’ Õ(12)t3: ¢@9,21;ę("0",11);:  I~1 r 200: ›2J’ Õ(12)t3: ¢@4,22;ę("0",21);:  I~1 r 200: ›"T’ Õ(12)t3: ¢@0,23;ę("0",29);^ I~1 r 400: ›| J~22 r 0 pu1!†’ Õ(12)t3: ¢@0,J;ę("0",29); A~1 r 50: › A,J: „:𒁠15,0: ¢ " 'FRUIT MACHINE'is played the same as";+¤¢ " for the famous pub machine.";®’€ 32,183 r 134,1830ø¢ "It has NUDGE,HOLD and GAMBLE features"Ā¢@9,7;"INSTRUCTIONS:-"Ģ’€ 72,127 r 166,1275Ö¢@2,9;"The keys directly below the displayed";.ࢠ" boxes affect operationand are self-";ź¢ "explanatory......"#ō¢: ¢ " They are the"+ž¢: ¢ " 'V' 'B' 'N' 'M' and 'SPC' Keys",¢: ¢ "Press 'F' key to finish the game"1¢@5,22,"TYPE ANY KEY TO START";: A~ä: Į 4: „:&’ƒ 1: ’‚ 15: ’€ 4,179 r 251,179 r 251,4 r 4,4 r 4,179a0’‚ 3: ’€ 14,168 r 18,176 r 28,176 r 32,168 r 32,56 r 28,48 r 18,48 r 14,56 r 14,168 r 32,168:’€ 14,56 r 32,56?’ 19,171: ’ 20,50D’ 2: ¢@24,4,"```= `1"I’ 10: ¢@24,5,"ńńń=80p"N’ 4: ¢@24,6,"ōōō=60p"X’ 6: ¢@24,7,"õõõ=40p"b’ 14: ¢@24,8,"ööö=40p"l’ 13: ¢@24,9,"÷÷÷=30p"v’ 2: ¢@24,10,"``-=50p"Š’ 10: ¢@24,11,"ńń-=40p"”’ 4: ¢@24,12,"ōō-=30p"$–’ 15: ¢@7,12,"WIN WIN WIN 27"4™’‚ 6: ’€ 81,115 r 101,115: ’€ 129,115 r 149,1152œ’€ 54,103 r 54,127 r 80,127 r 80,103 r 54,1037’€ 102,103 r 102,127 r 128,127 r 128,103 r 102,103dž’€ 150,103 r 150,127 r 176,127 r 176,103 r 150,103: ’‚ 15: ’€ 54,128 r 54,174 r 80,174 r 80,128AŸ’€ 54,151 r 80,151: ’€ 102,128 r 102,174 r 128,174 r 128,128 ’€ 102,151 r 128,151C”’€ 150,128 r 150,174 r 176,174 r 176,128: ’€ 150,151 r 176,1513¢’‚ 8: ’€ 14,30 r 14,41 r 40,41 r 40,30 r 14,30Y£’€ 47,30 r 47,41 r 88,41 r 88,30 r 47,30: ’€ 95,30 r 95,41 r 136,41 r 136,30 r 95,30a¤’€ 143,30 r 143,41 r 184,41 r 184,30 r 143,30: ’€ 215,30 r 215,41 r 241,41 r 241,30 r 215,30¦’ 6: ¢@24,13,"õõ-=20p"Ø’ 13: ¢@10,15,"X X"L²¢@10,13,"X X ": ’ 14: ¢@24,14,"öö-=20p": ’ 13: ¢@24,15,"÷÷-=10p"¼¢@10,15,"X X"@Į’ 15: ¢@7,16,"WIN WIN WIN 50p";@19,15;"WIN";@19,13;"WAYS"Ę¢@7,14,"WIN WIN WIN TO"Jų’ 15: ¢@3,21;"V";@8,21;"B";@14,21;"N";@20,21;"M";@27,21;"SPC": ’ 15  1470H’ CR(1): ¢@7,9,R$(1): ’ CR(2): ¢@7,6,R$(2): ’ CR(3): ¢@7,3,R$(3)K ’ CT(1): ¢@13,9,T$(1): ’ CT(2): ¢@13,6,T$(2): ’ CT(3): ¢@13,3,T$(3)\*’ CU(1): ¢@19,9,U$(1): ’ CU(2): ¢@19,6,U$(2): ’ CU(3): ¢@19,3,U$(3): C~0: T~0: ’ 15@4H1~0: H2~0: H3~0: Z$~" ": Q~0: NG~0: NW~0: Y1~0: Y2~0: Y3~09¤ POKE &13D,0>“ C1 s  990H 1290: ¤ KEY IN AND FLASH=M¢@2,19;" ";@6,19;" ";@12,19;" ";@18,19;" "P“ CH~32 s 8602R X~1 r 10: ’ 0,2: ¢@27,19,"RUN": ›: ’ 15,0 WCH~å!\“ CH~32 s CH~0: ‘ 900: ¤ RUN)p X~1 r 10: ’ 2,0: ¢@27,19;"RUN": ›z“ CH~70 s 2230: ¤ END ‘ 850 „ 1480)ސ 1700: Y1~0: Y2~0: Y3~0: NW~0: NG~0˜“ Q~1 s 930N1~Õ(4): “ N1~2 s  1980M¢¢@2,NN;" ";@6,19;" ";@12,19;" ";@18,19;" ": ¤ REMOVES NUDGE7¬ II~7 r 12: ¢@5,II;" ": ›: ¤ REMOVES GAMBLE&NUDGEXĄ¢@3,19," ";@2,15," ";@2,12," ";@2,9," ";@2,6," ";@2,3," ": ¤ GAMBLE NO.S ERASEŌR~0: ‘ 820Ž¢@0,0,o31);G撁 15: ¢@0,0,"Input No.of Credits?";@20,0: C$~ä$: C1~Ü(C$): T~TtC1$č M~1 r C1: C~Ct1w×(C1): ·"A1R"ņ“ C1 s 990*ü’ 15,0: ¢@0,0,"Credit =";C;o12): › M@¢@12,0,"Coins taken =": ’ 0,15: ¢@26,0;Tw10"p": ’ 15,0: ØG~Õ(2): Q~1: “ G}1 s ØA$¢@6,19," ";@12,19," ";@18,19," ": ¤ ERA HOLD ETC.“ C1}4 s ØF8’ 15: ¢@5,7,"G";@5,8,"a";@5,9,"m";@5,10,"b";@5,11,"l";@5,12,"e";(B¢@2,NN," "@27,19,"GAM";@2,19,"COL"+LG$~å$: “ G$~" " s 1120:  “ G$~"V" s Ø1V’ 5,15: ¢@2,19;"COL": ’ 15,5: ¢@2,19,"COL"<[’ 5,15: ¢@27,19;"GAM": ’ 15,5: ¢@27,19,"GAM";: ‘ 1100`’ 15,0: G1~Õ(9)3j G1 ‘ 1160,1180,1200,1220,1240,1200,1200,1220.t¢@2,6,"80";: C2~7: ·"-D0R": “ å~86 s 1270~¢@2,6," ";: ‘ 1240.ˆ¢@2,9,"60";: C2~5: ·"-B0R": “ å~86 s 1270’¢@2,9," ";: ‘ 1240.œ¢@2,3,"`1";: C2~9: ·"-C0R": “ å~86 s 1270¦¢@2,3," "/°¢@2,15,"20";: C2~1: ·"-F0R": “ å~86 s 1270ŗ¢@2,15," "/Ä¢@2,12,"40";: C2~3: ·"-B0R": “ å~86 s 1270Ī¢@2,12," "Ų·"-E0R": “ å~86 s 1260 ā‘ 1120<ģ¢@2,15,"00": C2~u1:  I~1 r 10: ·"+0DR": ›: ¢@2,15," " öC1~C2 I~1 r 500: ›: CH~0: Ø “ R~1 s Ø Z~Õ(5)“ Z}2 s ØB2’ 5,6: ¢@6,19," HOLD";@12,19," HOLD";@18,19," HOLD": ’ 15,0 < 14002F’ 6,5: “ H1~0 s ¢@6,19," HOLD": ¤ FLASH HOLD+P“ H2~0 s ¢@12,19," HOLD": ¤ FLASH HOLD3Z“ H3~0 s ¢@18,19," HOLD": ’15,0: ¤ FLASH HOLD d 1400i“ CH~70 s 2230: ¤ END n‘ 1330$xCH~å:  K~1 r 5: “ CH~70 s 22301}’ 2,0: ¢@27,19,"RUN": ’ 2,13: ¢@2,19,"CAN"~› K~1 r 5:€’ 0,2: ¢@27,19;"RUN": ’ 13,2: ¢@2,19,"CAN": ’ 15,0‚“ CH~0 s ›"Œ“ CH~86 s H1~0: H2~0: H3~0: Ø–“ CH~66 s H1~1 “ CH~78 s H2~1Ŗ“ CH~77 s H3~1Æ“ CH~32 s ”“Ø'¾ K~1 r 13: £ R$(K),T$(K),U$(K): ›*Ə K~1 r 13: £ CR(K),CT(K),CU(K): ›: ØČ¢@27,19;" ": ¤ CLEAR RUNĶ N~1 r VŅ K~1 r 11ę“ H1~1 s 1530P𒁠CR(K): ¢@7,9,R$(K): ’ CR(Kt1): ¢@7,6,R$(Kt1): ’ CR(Kt2): ¢@7,3,R$(Kt2)ś“ H2~1 s 1550S’ CT(K): ¢@13,9,T$(K): ’ CT(Kt1): ¢@13,6,T$(Kt1): ’ CT(Kt2): ¢@13,3,T$(Kt2)“ H3~1 s 1570S’ CU(K): ¢@19,9,U$(K): ’ CU(Kt1): ¢@19,6,U$(Kt1): ’ CU(Kt2): ¢@19,3,U$(Kt2) "› K,N,“ H1~1 s 16106R1~Õ(11)t1V@’ CR(R1): ¢@7,9,R$(R1): ’ CR(R1t1): ¢@7,6,R$(R1t1): ’ CR(R1t2): ¢@7,3,R$(R1t2)EH1~1: V~1: ·"+DR": ‘ 1480JAA~0: “ H2~1 s 1660TR2~Õ(11)t1%^AA~AAt1: “ R$(R1)}T$(R2) s 16502h“ AA~1 s 1650: R4~Õ(4): “ R41 s 1650:  1620Yr’ CT(R2): ¢@13,9,T$(R2): ’ CT(R2t1): ¢@13,6,T$(R2t1): ’ CT(R2t2): ¢@13,3,T$(R2t2)wH2~1: V~1: ·"+ER": ‘ 1480|“ H3~1 s ؆R3~Õ(11)t1d’ CU(R3): ¢@19,9,U$(R3): ’ CU(R3t1): ¢@19,6,U$(R3t1): ’ CU(R3t2): ¢@19,3,U$(R3t2): H3~1: V~1š· "+BR": ‘ 1480$¤“ R1~8 { R1t1~8 { R1t2~8 s Y1~1$®“ R2~4 { R2t1~4 { R2t2~4 s Y2~1'ø“ R3~11 { R3t1~11 { R3t2~11 s Y3~1 Ā“ Y1~1 z Y2~1 z Y3~1 s 1780+Ģ“ R$(R1)~T$(R2) z T$(R2)~U$(R3) s 1800Ö“ R$(R1)~T$(R2) s 1870 ą“ NG~1 s Ø:  C1~u1:  1000źØ8ōC1~4:  2350: Į 3: · "R5B0CDEFGA-B-C-D-E-F3R5": Į 4ž 1040:  1000: NW~1: Ø“ R$(R1)~"```" s C1~9“ R$(R1)~"ńńń" s C1~7“ R$(R1)~"ōōō" s C1~5)&“ R$(R1)~"õõõ" { R$(R1)~"ööö" s C1~30“ R$(R1)~"÷÷÷" s C1~24: 2450: ·"R4-A1-F-CFBFB-C-A5R4":  1040:  1000 DNW~1: ØN“ R$(R1)~"```" s C1~4X“ R$(R1)~"ńńń" s C1~3b“ R$(R1)~"ōōō" s C1~2)l“ R$(R1)~"õõõ" { R$(R1)~"ööö" s C1~1v“ R$(R1)~"÷÷÷" s C1~0€“ R$(R1)~"WIN" s 17600А 2480: ·"R4+B2+E+ADG+B3R4":  1040:  1000 ”NW~1: Ø·¤ ** NUDGE ROUTINE ** ¼N~Õ(4)t1 Į 2223(Ę¢@3,NN;N;@5,7,"N";@5,8,"u";@5,9,"d"Š¢@5,10;"g";@5,11;"e";Ś“ N}1 s ¢@5,12;"s" äN$~å$& 5,15: ¢@6,19;ę(ę(A$,5)tĒ(4),3)/ų’ 15,5: ¢@6,19,ę("NUDGE"tĒ(4),3): ’ 15,0“ N$~"B" s 2110 “ N$~"N" s 2150“ N$~"M" s 2190 “ N}~1 z NW}1 s 20204C1~0: ‘ 1000>“ R1}10 s R1~0HR1~R1t1: ·"+2BR" M 2221VR’ CR(R1): ¢@7,9,R$(R1): ’ CR(R1t1): ¢@7,6,R$(R1t1): ’ CR(R1t2): ¢@7,3,R$(R1t2)W’ 15: ¢@3,NN;N#\· "+D1R": NG~1:  1700: ‘ 2080f“ R2}10 s R2~0pR2~R2t1: ·"+2BR" u 2221Yz’ CT(R2): ¢@13,9,T$(R2): ’ CT(R2t1): ¢@13,6,T$(R2t1): ’ CT(R2t2): ¢@13,3,T$(R2t2)’ 15: ¢@3,NN;N#„· "+D1R": NG~1:  1700: ‘ 2080Ž“ R3}10 s R3~0˜R3~R3t1: · "+B2R"  2221Y¢’ CU(R3): ¢@19,9,U$(R3): ’ CU(R3t1): ¢@19,6,U$(R3t1): ’ CU(R3t2): ¢@19,3,U$(R3t2)§’ 15: ¢@3,NN;N#¬· "+D1R": NG~1:  1700: ‘ 2080 ­N~Nu1®¢@2,NN;" ";Æ“ N~0 s NN~15°“ N~1 s NN~12±“ N~2 s NN~9²“ N~3 s NN~6³“ N~4 s NN~3“ض„: “ T}C s 2260Ą“ TC s 22806Ź¢@4,10,"YOU BROKE EVEN--SO NOBODY LOSES";: ‘ 23109ŌWN~TuC:  2510: ¢@4,10,"YOU LOST "WD$" -- BAD LUCK";Ž· "C5R0+C5R": ‘2310LčWN~CuT:  2510: · "+C5R0C5R0": ¢@0,10,"YOU WON "WD$" - CONGRATULATIONS"ņŽü¬/ ¢@0,20,"GAMBLE AGAIN SOON......TA..RA.": ŽB ‡ ```,÷÷÷,õõõ,ööö,ööö,ōōō,ńńń,ōōō,```,õõõ,WIN,ööö,÷÷÷,```,ńńńB ‡ ōōō,ööö,÷÷÷,õõõ,õõõ,õõõ,WIN,ńńń,ōōō,ööö,÷÷÷,÷÷÷,÷÷÷,ōōō,ööö*$ ‡ ōōō,õõõ,WIN,```,÷÷÷,õõõ,ööö,ööö,ōōō,) ‡ 2,13,6,14,14,4,10,4,2,6,15,14,13,2,10-* ‡ 4,14,13,6,6,6,15,10,4,14,13,13,13,4,14+ ‡ 4,6,15,2,13,6,14,14,45.  K~1 r 10: “ R1~8 s ¢@7,9;ę(A$,3): ¢@7,9,R$(R1)@8 “ R1t1~8 s ’ 6: ¢@7,6;ę(A$,3): ’ CR(R1t1): ¢@7,6,R$(R1t1)@B “ R1t2~8 s ’ 6: ¢@7,3;ę(A$,3): ’ CR(R1t2): ¢@7,3,R$(R1t2)<L “ R2~4 s ’ 6: ¢@13,9;ę(A$,3): ’ CT(R2): ¢@13,9,T$(R2)BV “ R2t1~4 s ’ 6: ¢@13,6;ę(A$,3): ’ CT(R2t1): ¢@13,6,T$(R2t1)B` “ R2t2~4 s ’ 6: ¢@13,3;ę(A$,3): ’ CT(R2t2): ¢@13,3,T$(R2t2)=j “ R3~11 s ’ 6: ¢@19,9;ę(A$,3): ’ CU(R3): ¢@19,9,U$(R3)Ct “ R3t1~11 s ’ 6: ¢@19,6;ę(A$,3): ’ CU(R3t1): ¢@19,6,U$(R3t1)C~ “ R3t2~11 s ’ 6: ¢@19,3;ę(A$,3): ’ CU(R3t2): ¢@19,3,U$(R3t2) ˆ ›: Ø@’  K~1 r 15: ’ 6: ¢@7,9;ę(A$,3);@13,9;ę(A$,3);@19,9;ę(A$,3)Pœ ’ CR(R1): ¢@7,9,R$(R1): ’ CT(R2): ¢@13,9,T$(R2): ’ CU(R3): ¢@19,9,U$(R3) ¦ ›: Ø2°  K~1 r 15: ’ 6: ¢@7,9;ę(A$,3);@13,9;ę(A$,3)6ŗ ’ CR(R1): ¢@7,9,R$(R1): ’ CT(R2): ¢@13,9,T$(R2) Ä ›: ØĪ WN$~Ś(WN): WL~Ļ(WN$)'Ų ’ 15: “ WL~2 s WD$~WN$t"0"t"p": Ø4ā “ WL~3 s WD$~"`"tŽ(WN$,2,1)t"."tß(WN$,1)t"0": Ø4ģ “ WL~4 s WD$~"`"tŽ(WN$,2,2)t"."tß(WN$,1)t"0": Ø4ö “ WL~5 s WD$~"ū"tŽ(WN$,2,3)t"."tß(WN$,1)t"0": Ø!ū ¤ **************************! ¤ *WRITTEN BY PHIL LUDGATE *! ¤ * ADAPTED BY DEN LAKIN *! ¤ * Copyright XtalSoft *! ¤ * Crystal Electronics *! ¤ * July 81 *!# ¤ **************************( Ž’~į