F\D?[,\0F:\<<@BB@@< <DxTD 8@8T<@ ~b| @@x8@8Bx88D88x8@bB88888x8888xDh 8@|0D0@xD<(BD@ D 0DD@|bBD@DDDD D@@DD@D~BD D DDBb@@D@@D@ DD@DDT"@ @@8D8xD<<B>Dx 8 88Dx1660 &(p(5,c,2)=1:n$(c)=O$ 'n$(c)="945" (.name=n$(c,1):name=0520 )NAME<65A520 *name<90Z5600 , n$(c,1)=(name-32 ) 0p(7,16,2)=c 3#65278=254610b 4#32766=254610b 5#65022=253610b :&#1;"hold s to shake ":1 ? DQ65022=255ƿ32766=255ƿ65278=255575? bk=16 gp(6,c,2)=0 l.2000:.0125zL,22:3000 vk w#650222555655 xR(c*2),0;n$(c):(C*2),15;p(2,(c+6),2) c=6660  c=c+1  520 ):c=1p(7,16,2) )p(5,c,2)1710 3p(3,(c+6),2)=1710 c=1700 -p(2,(c+6),2) )p(5,c,2)1830>  (c*2),0;n$(c) %=#1;1,0;;0;"Press S to shake dice" &#65022=253810* '#65278=254810* (#32766=254810* ) 806& *16,0;n$(c) /1:k=16 4.2000:3000 :.0125zL,22 86(2*c),15;p(2,(c+6),2) 9 k:70F ;#65022=253815/ < 16,0;" " =F#1;1,0;" ":25:1 >c H :660 R4::4 \15,0;"The first player to go is :-" f10 ,10 ;n$(g) p(15,0;"with a throw of ";v $"Press ENTER to continue ";q$   4000 P(p(7,15,2)/p(7,16,2))=13 1050 0,7;n$(g)  5000  6000p  7000X  7500L  8000@ 5000  c=117 <p(1,c,2)=0:p(2,c,2)=0 p(3,c,2)=0 p(6,c,2)=0 c %p(7,17,2)=0 "Press ENTER to continue";q$ Ap(7,15,2)=p(7,15,2)+1  g=g+1 g81030  g=1 *p(5,g,2)=01020  910 7:0::7 )&10 ,8;"We have a winner" .&11 ,8;"" 0/k=0:v=0:tie=0:3160X { b$=n$(k) |+t=110 :b$(t)=" "1150~ }t ~>ofset=10 +(((12 -t)/2+.5)):c$=b$(t) 2:7::5  5 170,13 32 ,32 ,22620\X 7,13 ;0;"WINNER":9 ,ofset;c$:11 ,14;0;"with":13 ,13 ;1;"**";v;"*":15,13 ;0;"points"  2020 7:0::7 ,0,0;"Name";19;"Score." 'c=1p(7,16,2) 6c=k'2;n$(c);20;p(c,17,1) 6ck'0;n$(c);20;p(c,17,1) Fp(2,(c+6),2)=0:p(6,c,2)=0 c  "Press enter to continue.";q$ 6::6  1190 Z0::90102#:6:2:restart=p(7,17,1):9005-# 6::8,8;" ":10 ,8;"STOP the tape":12 ,8;" ":"Press ENTER to continue.";q$: #rs=(*1000):rs:6: #0,0;"GAME SELECTION MENU.":'"Item:-";28;"CODE":''"Start a new game","with new players.";29;"1":''"Start or continue a","game with old players.";29;"2":''"Save game onto TAPE.";29;"3":''"Finished.";29;"4":''"Instructions.";29;"5" %"Please enter code number:- ";q$ 9q$="759"0:7:7::2:2 q$=""1200  q$="2"8700 ! q$="1"1300  q$="4"1350 F q$="3"9990' q$="5":9200#  1175  q=2  5 <q=3 F1"Do you really mean it?";u$:u$"y"1190 Kp=1:c=7 P c:c::c U#i=18:254,i:i Zp=p+c _$.1}L,c:.1}L,p:.2~L,c d c=c-1 ic01360P nnew (delete rem later) u C=1 v0::.2~L,6 w x 1175  100d 7:0::7 r: dice throw% :SHAKE A DICE. 5p(2,(c+6),2)=1+(*6) 8  I2060 :i=127:a,b:a/8,b-12 :i:10 : H2060 :i=127:a,b:a/8,b-5:i:10 : @2060 :i=127:a,b:a/8,b:i:10 : I2060 :i=127:a,b:a/8,b-12 :i:10 :  3,7,1,11 ,1,11 ,1,11 ,3,14,1,11 ,1,11 ,1,11  3,12 ,1,16,1,16,1,16,3,12 ,1,9 ,1,9 ,1,9 3,11 ,1,14,1,14,1,14,3,12 ,1,14,1,16,1,18 43,19,3,18,6,19 T "Press ENTER to continue.";q$  9dice display+ 43020 +p(2,(c+6),2)*20 K18,y;7;x$:19,y;7;y$:20,y;7;z$ Lp(6,c,2)=13;17,(c*5+4);""  x$=" ":y$=" ":z$=" "  x$=" ":y$=" ":z$=" "  x$=" ":y$=" ":z$=" "  x$=" ":y$=" ":z$=" " & 0x$=" ":y$=" ":z$=" " : Dx$=" ":y$=" ":z$=" " N8  X'c=1p(7,16,2) [w=0:toe=0 ]np(2,c,2)=0:p(2,(c+6),2)=0:p(6,(c+6),2)=0 bc=13190v l%v>p(c,17,1)3210 vk=c v=p(c,17,1) <.2~L,c*4:.1}L,c*5:.2~L,c*3 c c: 'c=1p(7,16,2) \p(c,17,1)=vtie=tie+1:p(6,(c+6),2)=1:A WINNER c tie=11147{ &0,0;" It's a DRAW." 'c=1p(7,16,2) 4p(6,(c+6),2)=03350 'n$(c),p(c,17,1) c +"Press ENTER to continue.";q$:4: *#0,0;"Name.","Score." H'c=1p(7,16,2) M4p(6,(c+6),2)=03490 R y=5 W(2*c),0;n$(c) Y16,0;n$(c) Zk=15 \3#1;"Press/Hold 's' to shake dice.":1 a"s"3425a pDs=13:2000:3000 :.0025x# =,25:s zs ="s"3440p Wy=y+5:p(2,c,2)=p(2,c,2)+p(2,(c+6),2) ;#1;0,0;" " ="s"3478 k ,(2*c),15;p(2,c,2) "Press ENTER to continue.";q$ .4;18,0;" ";31;" " .4;19,0;" ";31;" " .4;20,0;" ";31;" " c 'c=1p(7,16,2) 4p(6,(c+6),2)=03540 $wp(2,c,2)3535 k=c:w=p(2,c,2) c 'c=1p(7,16,2) op(2,c,2)=wp(6,(6+c),2)=1:toe=toe+1:k=c:v=p(k,17,1) hp(2,c,2)%p(1,9 ,2)=25 Hz Rgoto 8500 if fails We=05 \ e1=k-e:e1=07340 f.p(1,(k-e),2)=07340 pe=3low=1 ze=4high=1 e k p(1,13 ,2)=v 3low=1p(1,10 ,2)=30 4high=1p(1,11 ,2)=40(  Kscore select sub Lk=1:c$="":b$=" " Nskip=p(g,k,3) O'skip=1k=k+1:7502N Pd#1;0,0;"E=ENTER, I=INST, CAPS SHIFT=MENU=LEFT, =RIGHT, =UP, =DOWN":1 QK7;18,0;"SELECT":7;" then ":7;"ENTER " Vs=p(1,k,2) `.k>6y=2*(k-6):x=30 t#k6y=2*k:x=7 ~skip=p(g,k,3)  7850 865278=254restart=7500L:9000(# $32766=2547500L 57342=251:9400$:4000:0,7;n$(g):5000:y=9 :c=15:8600!:y=y+5:c:7500L =""7560 '63486=2397640:5 '61438=2397670:6 '61438=2477700:7 '61438=25177302:8 '64510=2517760P:e +49150=2547760P:ENTER  7510V x=77590  7800x k=k-6:7590 /k=13 7800x:k=1:7600  7800x  k=k+1:7600 /k=17800x:k=13 :7610  7800x (k=k-1:7610 2x=307620 < 7800x Fk=k+6:7620 P 7800x R$p(g,k,3)=17565 UK4;18,0;" ":4;" ":4;" " Z%p(g,k,1)=p(1,k,2) dp(g,k,3)=1 n x$p(g,k,3)=17810 }y,x;7;b$ y+1,x;4;b$  s$=s:o=s$ $p(g,k,3)=17860 o=1s$=" "+s$ k=147870 y,x;7;s$ y+1,x;2;c$  ? totals sub @ v=0 E&12 ,11 ;0;"QUINCY" Jc=16 Tv=v+p(g,c,1) ^c hp(g,15,2)=v rv<63?8080 | p(g,14,1)=502 "p(g,15,2)=v+502  v=0 -p(g,15,1)=p(g,15,2) c=713 v=v+p(g,c,1) c p(g,16,1)=v Cp(g,17,1)=p(g,16,1)+p(g,15,1)  !45p(2,(c+6),2)=1+(*6) !> !43020 +p(2,(c+6),2)*20 !K18,y;7;x$:19,y;7;y$:20,y;7;z$ !Lp(6,c,2)=13;17,(c*5+4);"" ! ! restart " restart=6000p8800`" " restart=7500L8900" "#n$(1)=" "2 "$q=1 ".'c=1p(7,16,2) "83y=0:p(3,(c+6),2)=0 "Bc "D>c=15:p(2,(c+6),2)=6:c "F0v=0:p(7,15,2)=0 "Hqp=1p(7,16,2):c=117:p(p,c,1)=0:p(p,c,3)=0:c:p "L 660 "`O4:4::4000:0,7;n$(g):5000:950 "Ā4::4000:0,7;n$(g):5000:y=9 :c=15:8600!:y=y+5:c:970 #( 1190 #-load graphics from data #2 7 #dI"g",0,0,0,0,0,255,255,0 #nI"h",0,0,24,60<,60<,24,0,0 #xI"j",0,255,255,0,0,0,0,0 #M"k",0,16,480,126~,126~,480,16,0 #L"n",0,24,24,24,126~,60<,24,0 #L"m",0,24,60<,126~,24,24,24,0 #K"l",0,8,12 ,126~,126~,12 ,8,0 #n #x=1n:c$ #"r=07:y:c$+r,y:r #x # ##"Two to Six may play the game of" #3,13 ;"QUINCY" #'' #$"Each player throws the five dice" #$"a total of three times per turn." # '"You have 13 turns per game." ##'"Objective is to fill the score" # "card with the highest score." $'"You may HOLD any of the five ":"dice from your first and ":"second throws.":'"Desired score may be entered":"even if obtained on first or":"second throws." $ "Press ENTER to continue ";q$ $6:0::6 $"CONTROL KEYS are:-" $''15;"B:-Break" $ 15;"C:-Clear hold" $ 15;"E:-Enter score" $ 15;"H:-Hold" $15;"I:-Inst." $15;"S:-Shake" $15;":-Left" $15;":-Down" $15;":-Up" $15;":-Right" $A6;"CAPS SHIFT:-GAME SELECT MENU" $Z17,0;"To enter your NAME":"1/ Type in your NAME":"2/ Press the ENTER key" $"Press ENTER to continue";q$ $7::7 $""QUINCY = Five of a kind." $ <'"HIGH RUN = Five consecutive numbers." $"<'"LOW RUN = Four consecutive numbers." $$#'"FULL HOUSE = Three of a kind" $&#" + Two of a kind." $(!"Press ENTER to continue";q$: $*#"On obtaining a second QUINCY,if" $,!"the left side is complete for" $.$"that value,you may select one of" $0"the following:-" $215;"HIGH RUN" $415;"LOW RUN" $615;"FULL HOUSE" $8"Press ENTER to continue";q$ $:6::6 $TZr$(1):"Press ENTER to continue.";q$:r$(2):"Press ENTER to continue.";q$ $/r$(3):"Press ENTER to continue.";q$: % '5p(7,17,1)=restart:" "1180 ' 1190 ' estar9SHAKE/HOLD MODE1 S=SHAKE.Press and hold s key to shake dice (S=SHAKE will alternate with I=INST. when board is ready for play).% B=BREAK.Press b key to break from SHAKE/HOLD MODE.# =LEFT. Press 5 key to move cursor left., =RIGHT.Press 8 key to move cursor right.+ I=INST. Press i key for instructions(while S=SHAKE and I=INST.are alternating).' SHAKE/HOLD MODE1 H=HOLD. Press h key to set HOLD on selected dice.' C=CLEAR.Press c key to clear HOLD on selected dice.B CAPS. Press CAPS SHIFT will SHIFT return the control to game select menu.G Note: Shake the dice,then you may select the dice to be held or cleared, alternatively you may break from this mode if you have a good score.> SELECT/ENTER MODE/ Cursor. or 5 =LEFT. or 8 =RIGHT. or 6 =DOWN. or 7 =UP., E=ENTER. Press ENTER key to enter score.+ I=INST. Press i key for instructions.+ CAPS. Press CAPS SHIFT will SHIFT return control to game select menu.L Note: Select desired score using cursor controls then press the ENTER key. K F vycn##ClQ""  P P t0 tΩMM\vv;Ta! v>>0~~0 ~~ <~~<