CC3PA YATSEE-WRITTEN 9/84 BY JIM SIPE. OK TO COPY BUT NOT SELL[ 750: GET # PLAYERSgS²54272„3280: INITIALIZE SOUNDŽ(3220¤2580: INITIALIZE¾<†DI(5): DICE TO ROLLÚF†NR(5): CURRENT NUMBERøPF$²" ": FIRE STATUS IS F ZJ$²" ": UP OR DOWN3 d†CT(3,20): BOARD--PLAYER,LINER nR²»(0): INITIALIZE RANDOMk x 310: PRINT SCREEN ‚‰1150: MAIN GAME¯ Œ ******** SUB FOR RIGHT HALF ***********É –SEL²0: NONE SELECTEDê 1860: READ JOYSTICK OR KEY ª‹F$²" "§160: FIRE ONLY ´860: BLANK DICE1 ¾Q²1¤5:DI(Q)²0:‚F ÈTU²1:880: ROLL[ ÒQ²1¤5:DI(Q)²1:‚w Ü1040: PICK FOR SECOND€ æTU²2 ð‹SEL²0¯TU³±1§™"";:™£30)" ":‰290¶ ú880Ñ 1040: PICK FOR THIRDþ ‹SEL²0¯TU³±1§™"";:™£30)" ":‰290TU²3:880"ŽD,LI$²"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"W6 PRINT SCREENa@™"“";xJ™£16)"YAHTZEEž’"~T™^™" UPPER SECT.¥CT.ª P-1 ¥P-2 ¥P-3 ª ROLL"Üh™"·······································" r™" ACES .....¥ADDª ¥ ¥ ª "8|™" TWOS .....¥ADDª ¥ ¥ ª "f†™" THREES ...¥ADDª ¥ ¥ ª "”™" FOURS ....¥ADDª ¥ ¥ ª "Âš™" FIVES ....¥ADDª ¥ ¥ ª "ð¤™" SIXES ....¥ADDª ¥ ¥ ª " ®™" TOTAL ¥ ª ¥ ¥ ª "L ¸™" BONUS (=63)¥35 ª ¥ ¥ ª "| Â™"TOT. UPPERž’ ¥ ª ¥ ¥ ª "¥ Ì™"································ª"Ó Ö™" 3 OF A KIND¥ADDª ¥ ¥ ª "à™" 4 OF A KIND¥ADDª ¥ ¥ ª "/ê™" FULL HOUSE ¥25 ª ¥ ¥ ª "]ô™" SM. STRT...¥30 ª ¥ ¥ ª "‹þ™" LG. STRT...¥40 ª ¥ ¥ ª "¹™" YAHTZEE ...¥50 ª ¥ ¥ ª "ê™" CHANCE ....¥ADDª ¥ ¥ ª ROLLž"™"TOT. LOWERž’ ¥ ª ¥ ¥ ª "E&™"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"s0™"GRAND TOT.ž’ ¥ ª ¥ ¥ ª "y:Ž…DV²53248¢NQ²0¤447:‡A:—12288ªQ,A:‚¯X—53281,0ËbQ²448¤511:—12288ªQ,0:‚ülQ²0¤63:‡A:—12288ª512ªQ,A:‚: READ BACK HAND+vQ²0¤5:—2040ªQ,(192ªQ):—Vª39ªQ,1:—Vª2¬Q,48M€—Vª1ª2¬Q,60ªQ¬24: Y POSITIONvŠ—2047,200:—Vª46,1:—Vª14,120:—Vª15,86|”‚†ž—V,24“¨—Vª1,212¡²—Vª16,127¯¼—Vª21,127µÆŽÁÐTP²TPª1ÐÚ‹TP²4§TP²1Ùä‰790ïî™"“":™:™:™:™:™""'ø™"žJOYSTICK TO CHANGE TO SEL.":™:™:™B™"HOW MANY PLAYERS ?";KTP²1\™£19)TP"‘"f 1860v*‹J$²"D"§720‡4‹J$³±" "§790>™"ž"£H‹TP³1°TP±3§750®RPL²1:ŽÒ\ Q²1¤5:—2040ªQ,199:DI(Q)²0:‚:Žýf *********** ROLL THE DICE **********p z™"";:™£30)"ROLL "TU"ž"+„Q²1¤5>Ž‹ DI(Q)²0§1020D˜‚O¢Q²1¤5`¬‹DI(Q)²1§990}¶‹ DI(Q)²0§SP²µ(»(1)¬6)ª1À‹ SP²NM(Q)§980®Ê—2040ªQ,SPª192:3310:‰950ÏÔ—2040ªQ,SPª192:3310:DI(Q)²1ÕÞ‚ßèSEL²0åòŽüNM(Q)²µ(»(1)¬6)ª1:‰920‚— Vª1,92:Q2²121860: READ JOYSTICK]$‹F$²"F"¯Â(Vª1)²212§1140: FIRE ON ROLL”.‹F$²"F"§—2040ªQ2,199:DI(Q2)²0:NM(Q2)²0:SEL²1:‰1050±8‹J$²"D"¯Q2²5§1130: ROLLÝB‹J$²"D"§Q2²Q2ª1:—Vª1,92ª(Q2«1)¬24:‰1050L‹J$²"U"¯Q2²1§Q2²5:—Vª1,188:‰1050.V‹J$²"U"§Q2²Q2«1:—Vª1,92ª(Q2«1)¬24:‰10508`‰1050Kj—Vª1,212:‰1050QtŽg~™"PLAYER "PL"ž"wˆ150: ROLL’‰1180“œ CHOOSE SLOT¹¦—Vª21,Â(Vª21)¯254: TURN OFF HANDâ°—Vª21,Â(Vª21)°128: TURN ON BACKHANDïº—Vª15,86ÄLN²1: STARTS AT FIRST LINE&Î1840: PLACE HANDAØ 1860: READ JOYSTICKRâ‹F$²"F"§1430qì‹J$²"D"¯LN²17§J$²" ":‰1240ö‹J$²"U"¯LN²1§J$²" ":‰1240 ‹J$²"U"§1340´ ‹J$²"D"§LN²LNª1Ä‹LN²7§LN²11Õ‹LN²18§LN²17ë(1840: MOVE HANDõ2‰1240þ< UP FLN²LN«1P‹LN²10§LN²60Z1840: MOVE HAND:d‰1240Un TRYING TO PLACE ZERO}x‹ CT(PL,LN)³±0§1210: ALREADY THERE ‚CT(PL,LN)²«1: REPRESENTS ZEROªŒ‰1610Å– PLAYER WANTS IT HEREâ ‹LN³1°LN±17§1400: ERROR÷ª‹LN±6¯LN³11§1400´‹LN±6§2630: BOTTOM¾Q1²0:È‹CT(PL,LN)³±0§1400:AL‡Y THERECÒQ1²0NÜQ²1¤5sæ‹NM(Q)²LN§CT(PL,LN)²CT(PL,LN)ªLNyð‚¥ú‹CT(PL,LN)²0§CT(PL,LN)²«1: FORCED ZERO°Q²1¤6Æ‹CT(PL,Q)²«1§1570ÙQ1²Q1ªCT(PL,Q)ß"‚ï,CT(PL,7)²Q16‹Q1±62§CT(PL,8)²35%@CT(PL,9)²CT(PL,7)ªCT(PL,8)4J™"":™:™:™=TQ1²0J^Q²11¤17`h‹CT(PL,Q)²«1§1660srQ1²Q1ªCT(PL,Q)y|‚Š†CT(PL,18)²Q1«CT(PL,20)²CT(PL,18)ªCT(PL,9)´šTC²0À¤Q²1¤20Õ®‹CT(PL,Q)²0§1740¸‹CT(PL,Q)²«1§™£18ª(5¬(PL«1)))0:TC²TCª1:‰17501Â™£18ª(5¬(PL«1)))CT(PL,Q):TC²TCª1:‰17507Ì™=Ö‚Và‹ CT(PL,8)±0§TC²TC«1 ê:POKEV+21,PEEK(V+21)AND254:POKEV+21,PEEK(V+21)OR128:REM SWITCH HANDS®ô—Vª21,127Ïþ‹TC±16¯PL²TP§3190: ALL FULLÛPL²PLª1ë‹PL±TP§PL²1ôTU²1&‰1150: DONE WITH TOP&0—Vª15,86ª((LN«1)¬8),:ŽWD READ JOYSTICK **********************pNJV²Â(56321):FR²JV¯16‚XJV²15«(JV¯15)™b‹JV²1§J$²"U":‰1920°l‹JV²2§J$²"D":‰1920»vJ$²" "Ô€‹FR³±16§F$²"F":‰1950ßŠF$²" "÷”‹F$²" "¯J$²" "§1860ýžŽ¨ SPRITES START--HAND<²ƒ000,000,000,000,000,000,000,000a¼ƒ096,000,000,224,000,001,192,000†Æƒ003,128,000,007,000,000,014,000«Ðƒ000,029,128,012,059,096,014,118ÐÚƒ216,015,185,180,007,221,108,003õäƒ222,216,003,191,048,001,255,160îƒ000,255,192,000,127,128,000,255?øƒ000,001,254,000,003,252,000,000I ONEnƒ255,255,255,255,255,255,255,255“ƒ255,255,255,255,255,255,255,255¸ ƒ255,255,255,255,255,255,255,255Ý*ƒ255,231,255,255,195,255,255,1954ƒ255,255,231,255,255,255,255,255'>ƒ255,255,255,255,255,255,255,255LHƒ255,255,255,255,255,255,255,255qRƒ255,255,255,255,255,255,255,000–\ƒ255,255,255,255,255,255,255,255»fƒ207,255,255,135,255,255,135,255àpƒ255,207,255,255,255,255,255,255zƒ255,255,255,255,255,255,255,255*„ƒ255,255,255,255,255,255,255,255OŽƒ255,255,243,255,255,225,255,255t˜ƒ225,255,255,243,255,255,255,255™¢ƒ255,255,255,255,255,255,255,000¾¬ƒ255,255,255,255,255,255,255,255ã¶ƒ207,255,255,135,255,255,135,255Àƒ255,207,255,255,255,255,255,255-Êƒ255,231,255,255,195,255,255,195RÔƒ255,255,231,255,255,255,255,255wÞƒ255,255,243,255,255,225,255,255œèƒ225,255,255,243,255,255,255,255Áòƒ255,255,255,255,255,255,255,000æüƒ255,255,255,255,255,255,243,255 ƒ207,225,255,135,225,255,135,2430 ƒ255,207,255,255,255,255,255,255U ƒ255,255,255,255,255,255,255,255z $ ƒ255,255,255,255,255,255,255,255Ÿ . ƒ255,255,243,255,207,225,255,135Ä 8 ƒ225,255,135,243,255,207,255,255é B ƒ255,255,255,255,255,255,255,000!L ƒ255,255,255,255,255,255,243,2553!V ƒ207,225,255,135,225,255,135,243X!` ƒ255,207,255,255,255,255,255,255}!j ƒ255,231,255,255,195,255,255,195¢!t ƒ255,255,231,255,255,255,255,255Ç!~ ƒ255,255,243,255,207,225,255,135ì!ˆ ƒ225,255,135,243,255,207,255,255"’ ƒ255,255,255,255,255,255,255,0006"œ ƒ255,255,255,255,255,255,243,255["¦ ƒ207,225,255,135,225,255,135,243€"° ƒ255,207,255,255,255,255,255,255¥"º ƒ243,255,207,225,255,135,225,255Ê"Ä ƒ135,243,255,207,255,255,255,255ï"Î ƒ255,255,243,255,207,225,255,135#Ø ƒ225,255,135,243,255,207,255,2559#â ƒ255,255,255,255,255,255,255,000H#ì END HEREm#ö ƒ000,000,000,000,000,000,006,000’# ƒ000,007,000,000,003,128,000,001·# ƒ192,000,000,224,000,000,112,000Ü# ƒ001,184,000,006,220,048,027,110$ ƒ112,045,157,240,054,187,224,027&$( ƒ123,192,012,253,192,005,255,128K$2 ƒ003,255,000,001,254,000,000,255p$< ƒ000,000,127,128,000,063,192,000Š$F ‹LN²16§2650: YAHTZEE±$P ‹ CT(PL,LN)±0§1400: ALREADY THEREÊ$Z 2740: BUILD TABLEá$d ‹LN²11§‰ 2840: 3Kø$n ‹LN²12§‰ 2890: 4K%x ‹LN²13§‰ 2940: FH&%‚ ‹LN²14§‰ 3110: SS=%Œ ‹LN²15§‰ 3110: LSS%– ‹LN²16§‰ 3030: Yi% ‹LN²17§‰3070: CHo%ª „%´ Q²1¤6:DT(Q)²0:‚§%¾ Q²1¤5:DT(NM(Q))²DT(NM(Q))ª1:‚Å%È ANS²0:D2²0:D3²0:D4²0:D5²0Ð%Ò Q²1¤6è%Ü ‹DT(Q)±4§D5²Q:‰2830&æ ‹DT(Q)±3§D4²Q:‰2830&ð ‹DT(Q)±2§D3²Q:‰2830*&ú ‹DT(Q)±1§D2²Q0&‚6&ŽK&‹ D3²0¯D4²0§1400V&"Q²1¤5t&,CT(PL,LN)²CT(PL,LN)ªNM(Q)z&6‚&@‰1610: PRINT ITŸ&J‹ D4²0§1400ª&TQ²1¤5È&^CT(PL,LN)²CT(PL,LN)ªNM(Q)Î&h‚ã&r‰1610: PRINT ITì&|Q1²0÷&†Q²1¤6'‹DT(Q)±1§Q1²Q1ª1'š‚!'¤‹Q1³2§1400,'®Q²1¤6L'¸‹DT(Q)±2§CT(PL,LN)²25:‰1610R'Â‚\'Ì‰1400l'Ö‹ D5²0§1400˜'à‹YH²³±0§YH²YHª1:CT(PL,LN)²50ª(YH«1)¬100®'êYH²1:CT(PL,LN)²50Ã'ô‰1610: PRINT ITÎ'þQ²1¤5ì'CT(PL,LN)²CT(PL,LN)ªNM(Q)ò'‚(‰1610: PRINT IT(&D5²0(0Q²1¤66(:‹DT(Q)±0§D5²D5ª1:‰3150M(D‹DT(Q)²0¯D5±3§3160S(N‚(X‹LN²14¯D5±3§CT(PL,LN)²30:‰1610: PRINT IT¤(b‹LN²15¯D5±4§CT(PL,LN)²40:‰1610®(l‰1400á(v™" ";ú(x™"MORE?? Y’/N’ ";)z¡MM$:‹MM$²""§3194){™MM$()€‹MM$²"N"§€;)…‹MM$³±"Y"§3190N)Š—Vª21,0:™"ž":ŠW)”™"“"f)žQ²1¤9:™:‚})¨™£15)"ŸYAT-SEE’"Œ)²Q²1¤9:™:‚¥)¼™£14)"BY JIM SIPEž"«)ÆŽÁ)Ð Q²S¤Sª24:—Q,0:‚Ü)Ú—Sª1,36:—S,85:—Sª24,15â)äŽú)î—Sª4,129:—Sª4,128:Ž