2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)? 4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4 6 [139] A$[178]"N" [167] 88 8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)? 10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10 12 IF B$="S"THEN D=3 14 IF B$="P" THEN D=4 16 OPEN D,D 18 PRINT#D," 20 [152]D,"YATZY BY ROBERT COOK 22 PRINT#D,"RUN IT RIGHT: C-64; JOYSTICK 24 [152]D," 26 PRINT#D,"IN THIS 4 PLAYER GAME, YOU GET THREE 28 [152]D,"ROLLS OF THE DICE TO MAKE A HAND. 30 PRINT#D,"USING A JOYSTICK IN PORT 2, POINT THE 32 [152]D,"HAND AT EACH DIE YOU WANT TO REROLL 34 PRINT#D,"THEN FIRE. WHEN YOU'RE READY, POINT 36 [152]D,"AT "[199](34)"ROLL"[199](34)" AND PRESS FIRE AGAIN. 38 PRINT#D,"CANCEL YOUR SELECTIONS WITH "CHR$(34)"UNDO"CHR$(34)". IF 40 [152]D,"YOU LIKE THE FIRST OR SECOND ROLL, JUST 42 PRINT#D,"ROLL AGAIN. 44 [152]D," 46 PRINT#D,"THE UPPER SCORE AREA LISTS THE NUMBERS 48 [152]D,"ON A DIE. THE LOWER LISTS POKER HANDS. 50 PRINT#D,"ABOVE, A SCORE IS THE NUMBER LISTED 52 [152]D,"TIMES ITS FREQUENCY IN THE ROLL, AND 54 PRINT#D,"THERE'S A BONUS FOR TOTALS OF 63 OR 56 [152]D,"MORE. BELOW, A FULL HOUSE, SMALL AND 58 PRINT#D,"LARGE STRAIGHTS, AND YATZY EARN FIXED 60 [152]D,"SCORES. THREE AND FOUR OF A KIND AND 62 PRINT#D,"CHANCE (A CATCH-ALL) TOTAL ALL FIVE 64 [152]D,"DICE.":[139] D[178]4 [167] 74 66 [153]"PRESS ANY KEY TO CONTINUE" 68 [161] DD$:[139] DD$[178]"" [167] 68 70 [152]D," 72 PRINT#D," 74 [152]D," 76 PRINT#D,"EACH TURN, CHOOSE THE UNUSED CATEGORY 78 [152]D,"THAT WILL SCORE THE MOST. IF YOU USE 80 PRINT#D,"AN INAPPROPRIATE CATEGORY, YOU SCORE 82 [152]D,"ZERO. PLAY ENDS WHEN EVERYONE HAS USED 84 PRINT#D,"ALL CATEGORIES. 86 [152]D,"":[160]D 88 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..." 90 [161] E$:[139] E$[178]"" [167] 90 92 [156] 94 [143] YATZY - ROBERT B. COOK 96 [141]376:[141]408:[141]322 98 [141]110:[141]170 100 [141]198:[141]282 102 C1[178]C1[170]1:[139]C1[178]NP[172]13[167]310 104 PL[178]PL[170]1:[139]PL[177]NP[167]PL[178]1 106 [137]98 108 [178] START [178] 110 [153]"WAITSTOP"[163]58)[200]("SGNSTOP#1 SGNSTOP#2 SGNSTOP#3 SGNSTOP#4 INT",NP[172]6[170]2) 112 [153]""[163]54[170]PL[172]4)" #"[202]([196](PL),2)" WAITSGN" 114 RL[178]1:[153]DN$[163]36)"ON"RN$(1) 116 [129]L1[178]1[164]5:[151]2040[170]L1,200:DI(L1)[178]0:[130]:[151]SP[170]21,62 118 [141]126:[139]RL[178]4[167][142] 120 [141]150:[139]RD[177]0[167]118 122 [142] 124 [178] ROLL DICE [178] 126 [129]L1[178]1[164]5 128 [139]DI(L1)[178]0[167]DN(L1)[178][181]([187](1)[172]6[170]1) 130 [130] 132 [129]L1[178]1[164]5:[139]DI(L1)[178]1[167]142 134 T1[178][181]([187](1)[172]6[170]1) 136 [151]WV,129:[151]LF,85:[151]HF,36 138 [151]2040[170]L1,192[170]T1:[129]L2[178]1[164]25:[130]:[151]WV,128 140 DI(L1)[178]1:[139]T1[179][177]DN(L1)[167]134 142 [130] 144 RL[178]RL[170]1:[139]RL[179]4[167][153]DN$[163]36)"ON"RN$(RL) 146 [142] 148 [178] CHOOSE DICE [178] 150 [151]SP[170]1,92:[151]SP[170]21,63:RD[178]0:T1[178]1 152 JS[178][194](56320)[175]31:[139]JS[178]31[167]152 154 [139]JS[178]15[175]T1[178]0[167][129]L1[178]1[164]5:[151]2040[170]L1,192[170]DN(L1):DI(L1)[178]1:[130]:RD[178]0 156 [139]JS[178]15[175]T1[178]6[167]166 158 [139]JS[178]15[175]T1[177]0[167][151]2040[170]T1,200:RD[178]RD[170]1:DI(T1)[178]0 160 [139]JS[178]29[167]T1[178]T1[170]1:[139]T1[177]6[167]T1[178]6 162 [139]JS[178]30[167]T1[178]T1[171]1:[139]T1[179]0[167]T1[178]0 164 [151]SP[170]1,68[170]24[172]T1:[129]L1[178]1[164]99:[130]:[137]152 166 [146]56320,16,15:[142] 168 [178] CHOOSE LINE [178] 170 [151]SP[170]21,254 172 LN[178]1:[151]SP[170]15,86 174 JS[178][194](56320)[175]31:[139]JS[178]31[167]174 176 [139]JS[178]15[175]MX(PL,LN)[178]0[167][142] 178 [139]JS[178]15[167][141]304 180 [129]L1[178]1[164]99:[130]:[139]JS[178]30[167]190 182 [139]JS[179][177]29[167]174 184 LN[178]LN[170]1:[139]LN[178]7[167]LN[178]11 186 [139]LN[177]17[167]LN[178]1 188 [137]194 190 LN[178]LN[171]1:[139]LN[178]10[167]LN[178]6 192 [139]LN[179]1[167]LN[178]17 194 [151]SP[170]15,78[170]LN[172]8:[137]174 196 [178] CALCULATE [178] 198 SC[178]0:MX(PL,LN)[178]1 200 [145][171](LN[179]7)[137]204:[137]218 202 [178] UPPER [178] 204 [129]L1[178]1[164]5 206 [139]DN(L1)[178]LN[167]SC[178]SC[170]LN 208 [130] 210 SC(PL,1)[178]SC(PL,1)[170]SC:[139]SC(PL,1)[177]62[167]SC(PL,2)[178]35 212 SC(PL,3)[178]SC(PL,1)[170]SC(PL,2):SC(PL,5)[178]SC(PL,3)[170]SC(PL,4) 214 [142] 216 [178] LOWER [178] 218 T1[178]0:T2[178]0:SC[178]0 220 [129]L1[178]1[164]6:CT(L1)[178]0:[130] 222 [129]L1[178]1[164]5:T2[178]T2[170]DN(L1):[129]L2[178]1[164]6 224 [139]DN(L1)[178]L2[167]CT(L2)[178]CT(L2)[170]1 226 [130]:[130] 228 [145]LN[171]10[141]236,236,246,258,258,270,278 230 SC(PL,4)[178]SC(PL,4)[170]SC:SC(PL,5)[178]SC(PL,3)[170]SC(PL,4) 232 [142] 234 [172] 3 [176] 4 OF A KIND [172] 236 [129]L1[178]1[164]6 238 [139]LN[178]11[175]CT(L1)[177]2[167]SC[178]T2 240 [139]LN[178]12[175]CT(L1)[177]3[167]SC[178]T2 242 [130]:[142] 244 [172] FULL HOUSE [172] 246 [129]L1[178]1[164]6 248 [139]CT(L1)[178]2[167]T1[178]T1[170]2 250 [139]CT(L1)[178]3[167]T1[178]T1[170]3 252 [139]T1[178]5[167]SC[178]25 254 [130]:[142] 256 [172] SMALL STRAIGHT [176] LARGE STRAIGHT [172] 258 [129]L1[178]1[164]6 260 T1[178]T1[170]1:[139]CT(L1)[178]0[167]T1[178]0 262 [139]LN[178]14[175]T1[178]4[167]SC[178]30 264 [139]LN[178]15[175]T1[178]5[167]SC[178]40 266 [130]:[142] 268 [172] YATZY [172] 270 [129]L1[178]1[164]6 272 [139]CT(L1)[178]5[167]SC[178]50 274 [130]:[142] 276 [172] CHANCE [172] 278 SC[178]T2:[142] 280 [178] [153] [178] 282 [151]646,0:[139]LN[178]16[167][151]646,4 284 [153][200](DN$,LN[170]4)[163]19[170](4[172](PL[171]1)))[201](" "[170][196](SC),3) 286 [141]298 288 [129]L[178]1[164]5:T[178][197]([202]("01112132224",L[172]2,2)) 290 [151]646,1:[139]L[178]2[167][151]646,2 292 [153][200](DN$,T)[163]19[170](4[172](PL[171]1)))[201](" "[170][196](SC(PL,L)),3) 294 [130]:[151]SP[170]21,62:[142] 296 [178] BLIP [178] 298 [151]SR,240:[151]WV,17:[151]HF,50:[151]LF,35 300 [129]L1[178]1[164]99:[130]:[151]WV,16:[151]SR,0:[142] 302 [178] BUZZ [178] 304 [151]SR,240:[151]WV,33:[151]HF,5 306 [129]L1[178]1[164]150:[130]:[151]WV,32:[142] 308 [178] [128] GAME [178] 310 [151]SP[170]21,0:[151]829,234 312 [153]" PRESS FIRE " 314 [129]L1[178]1[164]NP:HS[178]SC(L1,5):[139]HS[179][178][194](829[170]L1[172]2)[172]256[170][194](830[170]L1[172]2)[167]318 316 [151]829[170]L1[172]2,HS[173]256:[151]830[170]L1[172]2,(HS[173]256[171][181](HS[173]256))[172]256 318 [130]:[146]56320,16,16:[146]56320,16,15:[138] 320 [178] SCREEN [178] 322 [153]"LOADABS ORTAN^ORTAN^ORTAN^ORTAN^ORTAN^ WAIT(null)USRUSRUSR(null)USRUSRUSR(null)USRUSRUSR(null)USRUSRUSRINTSYS " 324 [153]"ABS (null)Y(null)(null)A(null)(null)T(null)(null)Z(null)(null)Y(null) WAITSGN SGN SGN SGN INTSYS " 326 [153]"ABS /TANEXP/TANEXP/TANEXP/TANEXP/TANEXP WAIT(null)ANDANDAND(null)ANDANDAND(null)ANDANDAND(null)ANDANDANDINTSYSUNDO" 328 [153]"ABSCONT HIGH SCORE WAITFN FN FN FN INTSYSUSRUSRUSRUSR 330 PRINT"[182][144]ACES........[165][144]ADD [165] [165] [165] [165] [181] 332 [153]"ABSSTOPDEUCES......FNSTOPADD FN FN FN FN INT 334 PRINT"[182][144]THREES......[165][144]ADD [165] [165] [165] [165] [181] 336 [153]"ABSSTOPFOURS.......FNSTOPADD FN FN FN FN INT 338 PRINT"[182][144]FIVES.......[165][144]ADD [165] [165] [165] [165] [181] 340 [153]"ABSSTOPSIXES.......FNSTOPADD FN FN FN FN INT 342 PRINT"[182] SUB TOTAL [146][165] [165] [165] [165] [181] 344 [153]"ABS BONUS (63) WAITFN=35 FN FN FN FN INT 346 PRINT"[182] TOTAL UPPER [146][165] [165] [165] [165] [181] 348 [153]"ABSUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)USRUSRUSRUSR(null)USRUSRUSR(null)USRUSRUSR(null)USRUSRUSR(null)USRUSRUSRINT 350 PRINT"[182][144]3 OF A KIND.[165][144]ADD [165] [165] [165] [165] [181] 352 [153]"ABSSTOP4 OF A KIND.FNSTOPADD FN FN FN FN INT 354 PRINT"[182][144]FULL HOUSE..[165][144]=25 [165] [165] [165] [165] [181] 356 [153]"ABSSTOPSM STRAIGHT.FNSTOP=30 FN FN FN FNCLOSE INT 358 PRINT"[182][144]LG STRAIGHT.[165][144]=40 [165] [165] [165] [165] [181] 360 [153]"ABSCLRYATZY WAITFNCLR=50 FN FN FN FN INTFORANDANDANDAND 362 PRINT"[182][144]CHANCE......[165][144]ADD [165] [165] [165] [165] [181][129]ROLL 364 [153]"ABS TOTAL LOWER WAITFN FN FN FN INTFOR(null)USRUSR(null) 366 PRINT"[182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][146][207][183][183][183][207][183][183][183][207][183][183][183][207][183][183][183][181][129][165] [170] 368 [153]"ABS GRAND TOTAL WAITFN FN FN FN INTFORFN THEN 370 PRINT"[182] [146][181][129][204][175][175][186][154] 372 [129]L1[178]1[164]NP:[153]"CONT"[163]15[170]L1[172]4)[201](" "[170][196](HS(L1)),3);:[130]:[142] 374 [178][178][178][178][178][178][178][178][178][178] O P T I O N S [178][178][178][178][178][178][178][178][178][178][178] 376 [151]53281,15:[151]53280,15:NP[178]1 378 [153]"LOADCLR ORTANTANTAN^ORTANTANTAN^ORTANTANTAN^ORTANTANTAN^ORTANTANTAN^ 380 PRINT" [221][223][223][146][169][221][221][190][185][188][146][221][221][162] [162][146][221][221][162][187][146][169][221][221][223][223][146][169][221] 382 [153]" (null)  WAIT (null)(null) WAITVAL WAIT(null)(null)  WAIT(null)(null)STEPLOGWAITNEW(null)(null) WAIT (null) 384 PRINT" [173][192][192][192][189][173][192][192][192][189][173][192][192][192][189][173][192][192][192][189][173][192][192][192][189] 386 [153]" PRESS JOYSTICK [CLRPORT 2] UP OR DOWN 388 PRINT" TO CHANGE NUMBER OF PLAYERS 390 [153]" PRESS VERIFYFIRE TO PLAY 392 PRINT" HOW MANY PLAYERS?[149]"; 394 PRINTTAB(27)NP"[157][157][157]"; 396 JS=PEEK(56320)AND31:FORL1=1TO75:NEXT 398 IFJS=30THENNP=NP+1:IFNP=5THENNP=1 400 IFJS=29THENNP=NP-1:IFNP=0THENNP=4 402 IFJS<>15THEN394 404 PRINT"[147]":RETURN 406 = INITIALIZE = 408 PL=1:SP=53248:R=RND(-TI) 410 LF=54272:HF=54273:WV=54276:SR=54278 412 RN$(1)="[169][146][161][157][157][161][146][161]" 414 RN$(2)="[197] [157][157] [196]" 416 RN$(3)="[197] [157][157][196] " 418 DN$=" 420 [134] DI(5),MX(4,20),SC(4,5),HS(4) 422 [129]L1[178]LF[164]LF[170]24:[151]L1,0:[130]:[151]LF[170]24,15 424 [139][194](829)[178]234[167]430 426 [129]L1[178]0[164]511:[135]A:[151]12288[170]L1,A:[130] 428 [129]L1[178]512[164]575:[151]12288[170]L1,.:[130]:[151]830,0:[151]831,0 430 [129]L1[178]1[164]5:[151]SP[170]39[170]L1,1 432 [151]SP[170]2[172]L1,52:[151]SP[170]1[170]2[172]L1,60[170]L1[172]24:[143] COLOR,X,Y POS 434 [130] 436 [151]2040,192:[151]SP[170]39,9:[151]SP,30:[151]SP[170]1,212:[143] LEFT 438 [151]2047,199:[151]SP[170]46,7:[151]SP[170]14,120:[151]SP[170]15,86:[143] RIGHT 440 [151]SP[170]16,127 442 [129]L1[178]1[164]NP:HS(L1)[178][194](829[170]L1[172]2)[172]256[170][194](830[170]L1[172]2):[130] 444 [142] 446 [178] [254] [131] = 448 [172] LEFTH[175] [172] 450 [131]000,000,000,000,000,000,000,000 452 [131]096,000,000,224,000,001,192,000 454 [131]003,128,000,007,000,028,014,000 456 [131]014,061,192,007,123,064,007,118 458 [131]224,007,189,160,007,219,112,007 460 [131]222,208,007,221,176,003,255,096 462 [131]003,255,192,001,255,128,001,255 464 [131]000,001,254,000,003,252,000,000 466 [172] [145]E [172] 468 [131]255,255,255,255,255,255,255,255 470 [131]255,255,255,255,255,255,255,255 472 [131]255,255,255,255,255,255,255,255 474 [131]255,231,255,255,195,255,255,195 476 [131]255,255,231,255,255,255,255,255 478 [131]255,255,255,255,255,255,255,255 480 [131]255,255,255,255,255,255,255,255 482 [131]255,255,255,255,255,255,255,000 484 [172] TWO [172] 486 [131]255,255,255,255,255,255,255,255 488 [131]207,255,255,135,255,255,135,255 490 [131]255,207,255,255,255,255,255,255 492 [131]255,255,255,255,255,255,255,255 494 [131]255,255,255,255,255,255,255,255 496 [131]255,255,243,255,255,225,255,255 498 [131]225,255,255,243,255,255,255,255 500 [131]255,255,255,255,255,255,255,000 502 [172] THREE [172] 504 [131]255,255,255,255,255,255,255,255 506 [131]207,255,255,135,255,255,135,255 508 [131]255,207,255,255,255,255,255,255 510 [131]255,231,255,255,195,255,255,195 512 [131]255,255,231,255,255,255,255,255 514 [131]255,255,243,255,255,225,255,255 516 [131]225,255,255,243,255,255,255,255 518 [131]255,255,255,255,255,255,255,000 520 [172] FOUR [172] 522 [131]255,255,255,255,255,255,243,255 524 [131]207,225,255,135,225,255,135,243 526 [131]255,207,255,255,255,255,255,255 528 [131]255,255,255,255,255,255,255,255 530 [131]255,255,255,255,255,255,255,255 532 [131]255,255,243,255,207,225,255,135 534 [131]225,255,135,243,255,207,255,255 536 [131]255,255,255,255,255,255,255,000 538 [172] FIVE [172] 540 [131]255,255,255,255,255,255,243,255 542 [131]207,225,255,135,225,255,135,243 544 [131]255,207,255,255,255,255,255,255 546 [131]255,231,255,255,195,255,255,195 548 [131]255,255,231,255,255,255,255,255 550 [131]255,255,243,255,207,225,255,135 552 [131]225,255,135,243,255,207,255,255 554 [131]255,255,255,255,255,255,255,000 556 [172] SIX [172] 558 [131]255,255,255,255,255,255,243,255 560 [131]207,225,255,135,225,255,135,243 562 [131]255,207,255,255,255,255,255,255 564 [131]243,255,207,225,255,135,225,255 566 [131]135,243,255,207,255,255,255,255 568 [131]255,255,243,255,207,225,255,135 570 [131]225,255,135,243,255,207,255,255 572 [131]255,255,255,255,255,255,255,000 574 [172] RIGHTH[175] [172] 576 [131]000,000,000,000,000,000,006,000 578 [131]000,007,000,000,003,128,000,001 580 [131]192,000,000,224,000,000,112,056 582 [131]003,188,112,002,222,224,007,110 584 [131]224,005,189,224,014,219,224,011 586 [131]123,224,013,187,224,006,255,192 588 [131]003,255,192,001,255,128,000,255 590 [131]128,000,127,128,000,063,192,000