ZXTape! 0Created with Ramsoft MakeTZXHUNTER UvI$ "HUNTER" >>  MACBRIDE 1983<< '10 ,5;"ONE MOMENT PLEASE" 4000 /Animals Dead Ducks Riddled Rabbits !A=0:D=0:R=0 33000 :8:9 :R=060< #Score Display (*19,0;"RABBITS":T=1R 2720,2*T;"":21,2*T;"":T <D=085U F.19,20;"WILD DUCKS":T=1D P%20,15+2*T;"":T UStart point of Gun Z#V=15:H=14:600X _%a=a+1:A=12 44000 cRandom Ducks or rabbits d>.5300, n#l=(*6)+8:c=0 x S=0 l,c;"":l+1,c;"" Random hops x=(*3) Key contact ? />513Ư<579600X:170 *.25~,-30:.25~,-15 C=C+X "l,c-X;" ":l+1,c-X;" " l-1,c;"":l,c;"" />513Ư<579600X:220 *.25~,-30:.25~,-15 l-1,c;" ":l,c;" " c=c+x C>2995_ 130 + Duck ,#L=(*6)+1:C=0 6 S=1 @L,C;" ":.05|L,16 J C=C+1 T/>513Ư<579600X:360h ^(.05|L,24:.05|L,16 hL,C;" ":.05|L,24 r C=C+1 |/>513Ư<579600X:400 &.2~L,10 :.2~L,22 'C>29L,30;" ":95_  320@ W trigger X="4"740 ]arrow movement b,="5"H=H-1:H<1H=H+1 l-="8"H=H+1:H>27H=H-1 v-="6"V=V+1:V>14V=V-1 ,="7"V=V-1:V<1V=V+1 V-1,H;" " "V,H;" ":V+1,H;" " *V+2,H;" ":V+3,H;" " V+4,H;" "  checking for hit ..5,0:V=LV+1=L760  S=Switch.Rabbit or duck MS=1H>C-3HC-3H,28,3,"f",144,128,0,0,0,0,0,128 "G",3,12 ,16,32 ,32 ,64@,64@,112p,"H",64@,64@,32 ,32 ,16,12 ,3,0 "I",224,152,132,130,2,1,1,7,"J",1,1,2,2,132,152,224,128 "K",0,3,7,15,31,63?,63?,63?,"L",128,224,240,248,252,252,254,254 "M",63?,63?,31,15,7,7,7,7,"N",254,254,252,248,240,240,240,240 Q"O",60<,60<,219,231,231,219,60<,60< "P",0,0,134,255,120x,568,480,32 ,"Q",480,480,190,255,0,0,0,0 ^front page h4:7:0: | 0,13 ;"HUNTER" X2,4;" MOVE THE GUN BY PRESSING":4,8;"THE ""ARROW"" KEYS " ]6,15;" 7 ":8,15;"":9 ,11 ;" 5   8 " P10 ,15;"":11 ,15;"":13 ,15;" 6 " ^115s,120x:0,8:112p,125}:3,3:3,-3 \103g,90Z:-8,0:98b,87W:-3,3:3,3 \144,90Z:8,0:149,87W:3,3:-3,3 ]115s,72H:0,-8:112p,67C:3,-3:3,3 ,15,7;" 4  IS THE TRIGGER" 317,1;"FIRE WHEN TARGET IS IN SIGHTS" .19,4;"YOU WILL SEE 12 TARGETS." 621,0;"PRESS ANY KEY TO GO ON.":0  0+t=112 :.25~,24:t 5"ANOTHER GAME?";A$ :A$="YES"A$="yes"20 DA$="Y"A$="y"20 N bNQa d `  0cQˀvhsxAn BLACKHOLE SK%?U "BLACKHOLE" >>  MAC BRIDE << GRAPHICS DEFINITION (N=14:G$ 2R=07:B < G$+R,B FR:N PM"A",1,6,14,60<,120x,152,16,32 UM"C",32 ,16,152,120x,60<,14,6,1 ZM"E",4,8,25,30,60<,112p,96`,128 _M"G",128,96`,112p,60<,30,25,8,4 d7:7:0: n 0,11 ;"BLACK HOLE" x12,0;" In this game you use your" 64,0;" BINARY ATOMIC TRANSPORTER " 66,0;" (BAT) to knock a spaceship " %8,0;" into the....." %10 ,10 ;"BLACK HOLE" ;21,0;"PRESS ANY KEY WHEN READY":0 :1:0 $IF IT IS BRIGHT IT IS "SOLID" DRAWS FRAME NOTE INK COLOURS SEE LINE 2060 N=118 1,N;7;"*" 18,N;3;"*" N N=118 N,1;5;"*" N,18;1;"*" N THE BLACK HOLE "4R=16:1;80P,96`,R:R '7:0 +BAT LINE AND COLUMN ,.BL=13 :BC=3:8:1000 6I7:0,20;"TRY MOVING":2,20;"THE B.A.T." @4,20;"PRESS KEYS":6,20;"5 LEFT":8,20;"6 DOWN":10 ,20;"7 UP":12 ,20;"8 RIGHT" J/21,0;"PRESS G TO GO TO GAME" T8:1000:7 ^="G"Ŧ="g"400 h 340T D=1:DIRECTION SHIP CO-ORDINATES SL=4:SC=7 START CLOCK *23672x\,0:23673y\,0 SL,SC;(143+D) MOVE BAT ? ""1000 SL1=SL:SC1=SC &MOVEMENT DEPENDS ON DIRECTION 7SL=SL-(D=1)-(D=7)+(D=3)+(D=5) 7SC=SC+(D=1)+(D=3)-(D=5)-(D=7) WHAT HAS IT HIT ? BAT ATTR =58 /(SL,SC)=58:21004:SL=SL1:SC=SC1 EDGE AND HOLE ATTR>64 /(SL,SC)>64@2000:SL=SL1:SC=SC1 SL1,SC1;" "  420 BAT MOVER BL1=BL:FOR RUB-OUT BC1=BC  LEFT OR RIGHT BC=BC-(="5")+(="8")  DOWN OR UP BL=BL-(="7")+(="6") OFF THE EDGE ? ?(BL,BC)>64@ū(BL+1,BC)>64@BL=BL1:BC=BC1: $BL1,BC1;" " .BL1+1,BC1;" " 8BL,BC;2;"" BBL+1,BC;2;"" L WHAT HAS IT HIT ? THE BLACK HOLE  (SL,SC)=120x2500  THE BAT (SL,SC)=58:21004 THE EDGES  COMPARE D WITH INK CODE  +D=D+2+(4D=(SL,SC)-64@) D>8D=D-8   *THE BAT BOUNCE /SHIP MOVING DOWN 4SL>SL1D=3D=5: >SL>SL1D=5D=3: CSHIP MOVING UP HSLTI=((256*23673y\+23672x\)/5)/10 SUPERNOVA R=1212 *80P,96`,R:.01z# =,R*2 R WHITE DWARF STAGE &1:R=211-2 80P,96`,R:R 0 621,0;"YOUR TIME WAS ";TI;" SECONDS" "ANOTHER GAME ?";A$ A$="YES"A$="yes"200 a$="no"a$="NO"3000 ($"YES OR NO PLEASE.";A$:2580 7:7:0: 0,13 ;"INDEX" 1,13 ;"" 23,0;"GRAPHICS DEFINITION........30" 25,0;"GAME BOARD................200" 27,0;"GAME START................400" 29 ,0;"CLOCK...START.............415" +10 ,8;"STOP.............2505" 312 ,0;"SHIP MOVEMENT.............445" 314,0;"CHECK FOR CONTACTS........465" 316,0;"BAT MOVER................1000" &318,0;"SHIP BOUNCE ROUTINES.....2000" 0320,0;"END OF GAME..............2500"  bGG l cd l c Ano DRAGON {!R(}! "DRAGON" >>  MACBRIDE 1983 << ,0,10 ;2;"DRAGON'S LAIR" (Q2,0;"There's treasure to be found anddragons and goblins to meet." -n5,0;"Work your way through the lair. You won't know where things are until you bump into them." 259 ,0;"Use Keys 5 to 8 to move your man" 7 3000 9 ,22;"He has ";g;10 ,22;"coins. " 0B13 ,22;"Score over";14,22;R;"to kill." :"Fight or Run ?(F/R)";i$ Di$="f"i$="F"620l Hi$="R"i$="r"590N J.5,0:570: N>.73333.8L,-10 :1.6L,-22:15,22;"You have ";16,22;"dropped ";17,22;"your gold.":m=0:230 X>.8L2,12 :15,22;"Escaped...":1,-12 :16,22;"..wounded.":d=2:230 btz=15:.2~L,0:z:15,22;" You got ";16,22;" away. ":245 l15,22;"SCORE " vk=10 +(*80P) <S=1k:15,28;S:.02{# =,s-502:S KR16,22;"He's dead.";17,22;"You get ";18,22;"his gold. ":m=m+g:p(l,c)=1:230 d=d+2:d<616,22;"You are ";17,22;"wounded. ";2,29;1;d:570: 16,22;"You lost. ";17,22;"Don't feel";18,22;"burnt up ";19,22;"about it. " "Like another game ?";a$ A$=""690 -a$(1)="Y"a$(1)="y":60< Aa$(1)="n"a$(1)="N"21,10 ;"GOODBYE": 1,-10 :700  $6,22;"!!GOBLIN!!" *#g=10 +(*10 )*10 4b8,22;"Pay ";g;" ";9 ,22;"pieces or ";10 ,22;"gamble. " >"PAY or GAMBLE ?(P/G)";a$ Ha$="G"a$="g"880p RA$="P"A$="p"870f \1,-10 :830> fm=m-g:230 pA12 ,22;"Pick the ";13 ,22;"long straw" u 4 zO14,22;" ";15,22;" ";16,22;" "  "Left or Right? ( L or R)";a$ q= a$="r"a$="R"950 a$="L"a$="l"970 1,-10 :920 2q>.517,22;" ":995 &17,22;" ":990 2q>.517,22;" ":995 17,22;" " ނ19,22;"You won.":.2~L,12 :.2~L,7:.2~L,4:.4L,0:m=m+g*2:230 M1,-30:19,22;"You lost.":m=m-g*2:230 RANDOM PATH STEPS x= >x<.3l=l+2:l>20l=l-2:1000 4x<.3p(l,c)=1:p(l-1,c)=1 Hx>.3x<.5l=l-2:l<2l=l+2:1000 ?x>.3x<.5p(l,c)=1:p(l+1,c)=1 Ix>.5x<.8Lc=c+2:c>20c=c-2:1000 $?x>.5x<.8Lp(l,c)=1:p(l,c-1)=1 .Gx>.8Lx<1c=c-2:c<2c=c+2:1000 8>x>.8Lx<1p(l,c)=1:p(l,c+1)=1 B t=115 x=(*18)+2 y=(*18)+2 <z=:z<.3p(x,y)=1p(x,y)=3:2060  Bz>.3z<.6p(x,y)=1p(x,y)=4:2060  Bz>.6z<.9ffffp(x,y)=1p(x,y)=5:2060   2010  t  t=12:g$ r=07:b g$+r,b r:t M"a",524,36$,44,,60<,524,36$,44,,60< P"b",24,24,480,124|,96`,112p,80P,216  (UUU bGblcx a1pm ybdg q`k@A@IrAno! CROSSES -O/ "CROSSES" >>  MACBRIDE 1982 << Number of games Computer Score Player Score #n=0:cs=0:ps=0 Screen array S(3,3) #!p=0:w=0:f=0 'Checking array (C(8,3) 2C6:7:0::0,7;"NOUGHTS & CROSSES" <'5,15;"Move by entering " FB7,15;"a (";2;"red";0;") letter. " P!10 ,15;"You start." UDraws frame Z&480,100d:40(,0 d&480,116t:40(,0 n%60<,88X:0,40( x%76L,88X:0,40( Letters in squares &x=13:y=13 G4+x*2,4+y*2;2;(93]+3*x+y) y:x Loop starts here w=11400x Player Win &x=13:y=13 Cs(x,y)=14+x*2,4+y*2;1;"X" Cs(x,y)=44+x*2,4+y*2;1;"O" y:x f=11200 Computer win p=51600@ Draw "Which letter ?";I$ small letters 3I$>96`ƯI$<106jZ=94^:240 CAPITAL LETTERS 2I$>64@ƯI$<74JZ=62>:240 200 x=((I$-Z)/3) y=I$-(Z-1+3*x) IS THE SQUARE EMPTY ? s(x,y)>0200 34+x*2,4+y*2;1;"X" s(x,y)=1  p=p+1 ,x=13 6y=13 ;ACROSS LINES @c(x,y)=s(x,y) EDOWN LINES Jc(3+x,y)=s(y,x) Ty YDIAGONALS ^c(7,x)=s(x,x) hc(8,x)=s(4-x,x) rx w FIRST MOVE ? |p>1490 CENTRE SQUARE Dc(2,2)=1c(1,1)=4:1000 RANDOM ERROR 9<.75@c(2,2)=4:1000 no Move made  m=0 totals each line x=18 *t=c(x,1)+c(x,2)+c(x,3) player Wins 7t=3w=1:m=1:x=8:540  Found winning line! !t=8f=1:650 x !m=11000 &x=18 0*t=c(x,1)+c(x,2)+c(x,3) 52 X's in a line :t=2650 Dx Nm=0700 X 1000 Fills a line y=13 c(x,y)>0680 c(x,y)=4 y=3:m=1  x=8 y: RANDOM ERRORS If no move yet made n<.5s(1,1)=1s(3,3)=1s(2,1)=4:1000 n<.5s(1,3)=1s(3,1)=1s(2,3)=4:1000 S<.5s(1,3)=0s(1,3)=4:1000 S<.5s(3,2)=0s(3,2)=4:1000 &x=13:y=13 'Find any hole when all else fails 6s(x,y)=0s(x,y)=4:y=3:x=3 y:x Transfer - screen array x=13 y=13 c(x,y)0s(x,y)=c(x,y) /c(3+x,y)0s(y,x)=c(3+x,y) y +c(7,x)0s(x,x)=c(7,x) $3c(8,x)0s(4-x,x)=c(8,x) .x 8 160 :End of loop (20,10 ;1;"I WIN !!" t=15 6.1}L,0:.1}L,4:.1}L,7 t CS=CS+1  1800 x=20,10 ;6;1;1;" YOU WIN " T=15 (.3,-10 :.3,-22 T PS=PS+1  1800 @(20,10 ;1;" DRAW " JL.5,24:.5,12 :.5,0:.5,-12 T 1800 6n=n+1:12 ,15;5;" SCORE "  *13 ,15;5;" GAME ";n +14,15;5;" ME ";CS +15,15;5;" YOU ";PS &"Another game ?";a$ 0a$="YES"a$="yes"30 :a$="NO"a$="no"1870N D"yes or no ?";a$:18400 N47::3,0;"THANKS FOR THE GAME." X36,0;"YOU MAY FIND IT USEFUL TO LOOK" b)8,0;"THROUGH THE LISTING." l410 ,0;"THERE ARE LOTS OF REMS TO HELP" v012 ,0;"EXPLAIN WHAT IS HAPPENING."  ~LINE 5000 SHOWS HOW  MUCH MEMORY IS LEFT  1K+ WAS USED IN REMS M(23730\+256*23731\)-(23653e\+256*23654f\) npwfz^m2}IiAnoG SUBS # "SUBS" >>  MACBRIDE 1983 << 7:7:0  0,10 ;"SUBMARINES" 12,0;"HIDE YOUR SUBMARINES IN YOUR" #34,0;"BLOCK OF SEA ,THEN TRY TO FIND" (/6,0;"MINE. WE BOTH HAVE 6 SUBS." 238,0;"1 POLARIS OF 3 SQUARES PPP" 7>10 ,0;"2 HUNTER KILLERS,2 SQUARES HH HH" <>12 ,0;"3 MIDGETS OF 1 SQUARE M M M " F616,0;"I PROMISE TO FORGET WHERE I HAVE" P%18,0;"PRINTED YOURS !" Z621,0;"Press any key to go on.":0 _ 6: c Frames d y=16484T-80P nx=12 17280P xw=064@16 z=064@16 x,y-w:64@,0 x+z,y:0,-64@ z:w:x:y Lettering l=212 10 c=22210 l1=0:c1=0 t=97a112p l+l1,c+c1;t 6c1=c1+2:c1=8c1=0:l1=l1+2 t:c:l "0,14;6;"YOU" :10 ,0;"DEPTH 1";15;"2";25;"3" +20,15;2;7;"ME" d=1100d:d Player's INPUT +21,0;"Where are your subs ?"  #PS=0:HS=0:S=0 >"Polaris - depth?";D$:D$<491ůD$>513270 D=D$-1 ,t=13 6H("Polaris - square ";t);c$:c$<97ac$(1)=(c$+32 ) @ 2000 ^l,c;6;"P" ht rh=12 |L("Hunter-killer ";h;" - depth?");D$:D$<491ůD$>513380| D=D$-1 t=12 S("Hunter-killer ";h;"- square ";t);c$:c$<97ac$(1)=(c$+32 )  2000 l,c;6;"H" t:h t=13 D("Midget ";t;"- depth ");D$:D$<491ůD$>513470 D=D$(1)-1 K("Midget ";t;" - square ");c$:c$<97ac$(1)=(c$+32 )  2000 l,c;6;"M" t Computer's SUBS &/21,0;"Just hiding mine.Hang on." 0Z(3,4,4) 5 POLARIS :D=(*3)+1 D>.5630v N0l=(*2)+1:c=(*4)+1 Xt=02 bz(D,l+t,c)=2:t l 660 v0c=(*2)+1:l=(*4)+1 t=02 z(D,l,c+t)=2:t D=(*3)+1 0l=(*3)+1:c=(*4)+1  HUNTERS t=01 -z(D,l+t,c)>0t=1:t:660 z(D,l+t,c)=3:t D=(*3)+1 0c=(*3)+1:l=(*4)+1 t=01 -z(D,l,c+t)>0t=1:t:700 z(D,l,c+t)=4:t  MIDGETS t=13 D=(*3)+1 l=(*4)+1 c=(*4)+1 z(D,l,c)>0750  z(D,l,c)=4+t t:1,12  121,0;"You can have first shot. " $S array for Comp. shots %<S(3,4,4):CH=0:CS=0 &Comp.HitsComp. Sunk *5"Depth ?";D$:D$<491ůD$>513810* 4D=D$-1 9/"Which square ?";c$:c$>"p"c$=""8259 >4c$<97ac$(1)=(c$(1)+32 ) CLetters to co-ords. Hn=c$-97a Rl=((n/4)+1) W c=n+1 \#c>4c=c-4:860\ aZ array = Comp. board f.H=z(D+1,l,c):z(D+1,l,c)=0 p 2000 u2000 for PRINT position zBh=0l+10 ,c;1;C$(1):1,-30 eh=2l+10 ,c;1;"P":PS=PS+1:.5,20:5:.5,20 %PS=3S=S+1:PS=0 Polaris Sunk fh=3h=4l+10 ,c;1;"H":HS=HS+1:.5,30:.5,10 %HS=2S=S+1:HS=0 Hunter Sunk Qh>4l+10 ,c;"M":S=S+1:.5,20:.5,40( S=61500 ?2:7:21,0;"MY TURN - " IF vessel hit ch=1 CH=11030  m=0 RANDOM SHOT D=(*3)+1 0L=(*4)+1:C=(*4)+1 s(d,l,c)>0940 s(d,l,c)=1 L21,9 ;"Depth ";D;" Square ";(96`+4*(L-1)+C) 7:0 -"Hit H,Sunk S or Miss M ";a$ 'a$="h"a$="H"1700:1020 'a$="s"a$="S"1800:1170 .a$="m"a$="M"1,-20:1190 1,-12 :980 2 marks Hit  *S(D,L,C)=2:CH=1:1190 1300 finds hit  1300  shoots around hit..  T=0 ..but only 5 times.. T>51450  Y=:Z= $>.51100L .L=L+(Y>.5)-(Y<.5) 8L<1L=1 BL>4L=4 L>.51140t VC=C+(Z>.5)-(Z<.5) `C>4C=4 jC<1C=1 t+S(D,L,C)>0t=t+1:1050 ~ 965 Comp. has Sunk one CH=0:CS=CS+1 9x=13:y=14:z=14 $s(x,y,z)=2S(x,y,z)=3  z:y:x b2*l,2*c+10 *(d-1);1;(97a+(c-1)+(4*(l-1))) CS=61600@ C21,0;1;" YOUR TURN ":810* Finds hit ( Z(D,L,C)=2) 9X=13:Y=14:Z=14 S(X,Y,Z)21350F (D=X:L=Y:C=Z 2!X=3:Y=4:Z=4 F Z:Y:X P Precision shooting ! t=-11 i=-11 %l+t>4l+t<11481 &c+i>4c1+i<11480 :s(d,l+t,c+i)=0l=l+t:c=c+i:i=3:t=3  m=1 i t 4Random shot,if no space found. Failsafe device m=0940  965  21,0;"YOU WIN."  1900l @I21,0;"I WIN ";1;"HERE THEY ARE";0;" " EShows surviving subs J9D=13:L=14:C=14 T&Z(D,L,C)=2A$="P":1650r ^7Z(D,L,C)=3Z(D,L,C)=4A$="H":1650r h&Z(D,L,C)>4A$="M":1650r mZ(D,L,C)=01660| rB2*L+10 ,2*C+(10 *(D-1));1;A$ | C:L:D  1900l Assorted Silly noises T=13 P=040(5  .01z# =,P P:T  t.15~,10 :.15~,10 :.15~,7:.15~,14:.3,10 :.3,7  lH.2~L,0:.2~L,7:.2~L,0:.6,7 v"Another game ?";a$ +a$(1)="Y"a$(1)="y"95_ #a$(1)="N"a$(1)="n" $"yes or no please.";a$:1920 Letters to co-ords. n=c$-97a "l=2*((n/4)+1) $n>3n=n-4:2020 "c=(n+1)*2+D*10  Td Pn @xP@JJJsnrmD1CfAyes POKER P*0] "POKER" >>  MACBRIDE <<  500:FIRST PAGE #13302:BONUSES (1000:GRAPHICS -S=1:WHO STARTS 1!CC=MY CASH CP=YOUR CASH 2CC=1000:CP=1000 7 <#D(2,5):TWO HANDS FV(2):HAND VALUES K*Y=137:1200: DRAWS DICE P1300:PRINTING ZS=-1200 _PLAYER STARTS dP=1:.5,10 n/21,5;"YOUR GO.PRESS ANY KEY" s40:21,5;" " x1500:YOUR GO 1800:Your Bet 2000: VALUATION 1700:My bet 09 ,0;"Your Hand Value ";v(1) 750:MY GO /19,0;"My Hand Value ";v(2) 300, COMPUTER STARTS P=2:750 /19,0;"My Hand Value ";v(2) 1700 1800:Your bet Y=137:1200 W.5,10 :P=1:21,3;"YOUR GO. PRESS ANY KEY":0 .21,3;" " 1500 2000 09 ,0;"Your Hand Value ";v(1) ,5V(2)>V(1)400:COMPUTER WINS 6,V(2)=V(1)350^:DRAW @/21,3;" YOU WIN. " J(.5,-10 :.5,-20 OCP=CP+BC:CC=CC-BC T 440 ^:21,4;"DRAW. Bets cancelled.":450 221,5;" I WIN. " )n=17:.1}L,10 :n CC=CC+BP:CP=CP-BP "ANOTHER GAME ?(Y/N) ";A$ 'A$="y"A$="Y"S=S*-1:557 A$="N"A$="n"4000 1,-12 :450 @0,11 ;"POKER DICE":1,11 ;"" :4,0;"SCORE = FACE VALUE + BONUSES."  1 !6,6;"FACE VALUES." 8,10 ;"ACE 6" 9 ,10 ;"KING 5" 10 ,10 ;"QUEEN 4" !11 ,10 ;"JACK 3" &12 ,10 ;"TEN 2" +13 ,10 ;"NINE 1" 0 0 D917,0;"BONUSES ARE PAID FOR PAIRS,ETC." N/19,0;"DETAILS ON THE NEXT PAGE." X921,0;" PRESS ANY KEY TO GO ON. " b 0: *21,5;" MY GO NOW " Y=491:1200  C(5) P=2:3000 *21,5;" SORTING MY DICE"  2000  900  502 *I=12 4*21,5;" ROLLING AGAIN. " > 3000 H 2000 M 900 R 502 \I f T=15 C5+(11 P=2),T*3;(143+D(2,T)) T  U=16:G$ R=07:N  G$+R,N R:U K"A",568,68D,68D,68D,60<,4,4,568 U"B",190,162,162,162,162,162,162,190 $L"C",14,4,4,4,100d,68D,68D,124| .Q"D",568,68D,130,130,130,138,68D,59; 8P"E",226,68D,72H,112p,72H,68D,66B,225 BN"F",60<,66B,66B,66B,126~,66B,66B,66B L X=21117u24 OX,Y:12 ,0:0,-12 :-12 ,0:0,12 l5,5:12 ,0:0,-11 :-5,-6:0,12 :5,5 X  "0,2;"DICE NUMBERS " 62,3;"1 2 3 4 5" 91,20;"YOUR":2,20;"CASH `";CP (74,20;"MY":5,20;"CASH `";CC - 2%:1,12 ;"BONUSES" <%4,8;"5 of a kind 100" F%6,8;"Flush ACE - 80" P%8,8;"Flush KING - 75" Z&10 ,8;"4 of a kind 60" d&12 ,8;"Full House 50" n&14,8;"3 of a kind 40" x&16,8;"Each Pair 10" C21,0;" PRESS ANY KEY TO GO ON. ":0  C(5):3000 I=12  C(5) 810 ,1;" PRESS THE NUMBERS OF THE ONES" 811 ,1;" YOU WANT TO KEEP THEN PRESS " <12 ,1;"  ENTER  "  0 .1}L,0 "=13 1620T ,%<491ů>5351555 6t= @c(t)=1 J 1555 T 3000 ^I hBL=10 13 :C=031:L,C;7;" ":C:L  S=-11740 .BC=150-(V(1)/10 )*10  1750 BC=V1+502 !9 ,19;"MY BET `";BC  2"How much do you bet ? `";B$:B$=""1800 KZ=1̱B$:B$(Z)<480ůB$(Z)>579Z=502:Z:1800 Z &BP=B$ (3BP>CP"NO CREDIT.BET AGAIN.";B$:1810 0#7,18;"YOUR BET `";BP : VALUATION !V(P)=0:T=15 V(P)=V(P)+D(P,T) T  SORTING  T=15 N=14  #D(P,N)D(P,N+1)2120H * E=D(P,N) 4D(P,N)=D(P,N+1) >D(P,N+1)=E HN:T fHOW MANY OF A KIND V1=0:Bonus Value T=14  Pair ? JD(P,T)=D(P,T+1)V1=V1+10 :2400` :T<42230  2300  Three ? TD(P,T)=D(P,T+2)C(T+2)=1:V1=V1+30:T<32250 #T=T+1:T>4T=4  2300  Four ? ID(P,T)=D(P,T+3)C(T+3)=1:V1=V1+20:2290  T=T+2 Full House ? >T=3D(P,4)=D(P,5)V1=502:2400`  2300 ?D(P,1)=D(P,5)C(5)=1:V1=V1+40(  T=4 T V1>02370B  FLUSHES F=1:T=14 *D(P,T)D(P,T+1)+1F=0 T $F=02370B .#D(P,1)=6V1=80P 8#D(P,1)=5V1=75K =$T=15:C(T)=1:T BV(P)=V(P)+V1 L `C(T)=1 jC(T+1)=1 t T DICE ROLLING T=15 C(T)=13060 D(P,T)=(*6)+1 N=16 85+(11 P=2),T*3;(143+N) .03{u\,0 N =5+(11 P=2),T*3;(143+D(P,T)) .2~L,7 T: 2,12  14,10 ;"GOODBYE": M(23730\+256*23731\)-(23653e\+256*23654f\) GFs yup h h2eZf7 (@B50An-