\ ?"6| D:\=0x#B |< <bDh 88B8D88h8D@BRDT(l=132 :mc=64872h:l A L Pruefen Qp(w) Vw<61125e [?l=16:p(o(l,1))=p(o(l,1))+1:l `qp(1)p(2)p(3)p(4)p(5)p(6)l=16:o(l,2)=1:l: eZp(6):l=1w:o(l,1)=1o(l,1)=5o(l,2)=1 j)p(o(l,1))=p(o(l,1))+1 ol t-l=16:p(l)31150~ yl:1160 ~bf=0:m=1w:o(m,1)=lo(m,2)=1:f=f+1:f=31145y m:1145y l=1w:o(l,2) l null=1: {14,2;"Sum :":236077\,249:14,14-sum;sum:.05|L,1:236077\,60<:  SPIELPROGRAMM  "63999:*1;"CHIC-MC" G#0;1,0;1;" P L E A S E W A I T ! "  8000@ 1:0:0:1:6:0: 'r$=" " alle=0 #20,0;1;r$;;r$ F21,0;5;" Number of Players (max 6) ? " .1}L,-10 :0 !p$=:p$<"1"p$>"6"4070 Pn=p$:20,0;1;r$;r$:.1}L,0:n$(n,9 ):r(n)  100d l=1n:r(l)=:l 0l=0n+1:l,0;7;r$:l ":0,176-8*(n+2):255,0 ,C0,177-8*(n+2):1;255,0 6N18,0;"If your SPECCY shall play also, then type ""Spectrum"" " @ y=1n Jx21,0;5;" Name Player ";y;" (max 8 Digits)":.1}L,-10 :p$:21,0;1;r$ Tp$>84170J ^ n$(y)=p$ h!n$(y,2)="sp"6500d r!n$(y,2)="SP"6500d |!n$(y,2)="Sp"6500d p236077\,249:y+7,1;6;n$(y,8);:.2~L,10 :236077\,60<:y $18,0;r$;r$:100d l=1n-1 r(l)>r(l+1)4235 l:4245 1p$=n$(l):n$(l)=n$(l+1):n$(l+1)=p$ +p=r(l):r(l)=r(l+1):r(l+1)=p  4232  l=1n k236077\,249:l,8;7;n$(l,8);":":.2~L,10 :236077\,60<:l 0l=1n:7+l,0;6;r$:l high=10000'  250 ende=0:p(6) a(n):zahl=0 L4:0,177-8*(n+2):4;255,0 4:20,0;6;r$;r$:#0;0,0;r$;1;" PLEASE ROLL ";n$(1,8);" ":0:#0;1,0;r$ 4:y=1n:sum=0:zahl=0:w=6:o(6,2):y,0;6;8;1;1;r$  10808 l=1521:l,0;4;r$:l 64855W,36$ 64856X,15 64857Y,0  64858Z,21 !64859[,31 "(l=132 :mc=64872h:l &l=1w:o(l,2)=0:o(l,1)=(*6)+1:z=17:s=(l-1)*5+2:1000+10 *o(l,1):4;7;20,s+1;l:.01z# =,o(l,1)*2-10 :l 0wue=0:prwue=0 :null=0:1100L Dnulll$="SORRY-that was nothing! ":pa=(*7):l=031:pa;9 ;1;14,l;l$(l+1):.01z# =,10 -l:l Nnullsum350^l$=" YOU'VE "+(" "sum<1000)+sum+" POINTS GONE!! ":l=1̱l$:7;1;1;13 ,l-1;l$(l):.01z# =,5-l:l:9060d# Xnull5560 ]n$(y,9 )"S"4470v bal=1w:o(l,2)16,(l-1)*5+3;4;6;1;"*" ll v fak=0:alle=0:v=w n$(y,9 )="S"6600 o#0;1;0,0;"PLEASE CHOOSE: A=All * or 1-";w;" Stick -> S Roll -> R " n$(y,9 )="S"6600 23658j\,0:0 p$= ,p$="s"sum350^w65500| p$="a"alle5000 p$="y"alle5000 p$="r"vw4380 p$<"1"p$>"6"4500 .l=16:o(l,2)4590 l:#0;1,0;7;1;" You FOOL";:236077\,249:#0;1,13 ;7;1;" wasted ";:236077\,60<:#0;1,21;7;1;"a STRAIGHT! ":9060d# Hl=24:o(l,2)=0:l:o(6,2)=0 w100d:#0;1;0,0;"PLS CHOOSE: A=All * or 1-";w;" Stick -> S Roll -> R " o(p$,2)4500 alle=1:o(p$,2)=0:z=16:s=2+(p$-1)*5:1070.:z=9 :s=2+zahl*5:1000+o(p$,1)*10 :9020<#:w=w-1:zahl=zahl+1 'p(o(p$,1))<34670>  Il=16:o(l,1)=o(p$,1)o(l,2)4640  l  Rp$=l:fak=fak+1:fak=2p(o(p$,1))=p(o(p$,1))-3 *fak=2sum=sum+(900o(p$,1)=1)+(450o(p$,1)=5)+(100d*o(p$,1)o(p$,1)1o(p$,1)5) 4 4600 >Nsum=sum+(100do(p$,1)=1)+(502o(p$,1)=5) H 1200 Rzahl64740 \#0;0,0;5;1;1;" ";"You must"n$(y,9 )=" ";"I must "n$(y,9 )="S";" (with all dice) ";" roll again --> R "n$(y,9 )"S";" roll again "n$(y,9 )="S" fOn$(y,9 )="S"100d:w=6:zahl=0:10808:4380 pA0:="r"w=6:zahl=0:10808:4380 zzahl=64690R Hn$(y,9 )=" "#0;0,14;1;"only Nbrs. ->"  4500 #0;0,0;r$:u=w:l=1u:o(l,2)o(l,2)=0:z=16:s=2+(l-1)*5:1070.:z=9 :s=2+zahl*5:1000+o(l,1)*10 :9020<#:w=w-1:zahl=zahl+1 l:alle=1 &l=16:p(l)5040 l ,sum=sum+1500:1200:4690R l=16 Yp(l)3p(l)=p(l)-3:sum=sum+(1000l=1)+(l*100dl>1) l sum=sum+100d*p(1) sum=sum+502*p(5)  1200 dzahl=64690R iZp$="y"p$="s"sum350^p$="n":#0;1,0;r$:100d:4530 n 4500 |aufschreiben ga(y)=a(y)+sum:236077\,249:y,24-a(y);1;0;a(y):236077\,60<  90102# g#1;6;0,0;"@ " Oa(y)highy,18;1;1;1;6;2;" " a(y)highende=1 ende=1y=n6000p g#1;6;0,0;"@ " ) #0;0,0;1;6;" Next one is ";:nn=(y+1ya(l)6170 l:6180$ lmax=a(l+1):l$=n$(l+1):a(l+1)=a(l):n$(l+1)=n$(l):a(l)=max:n$(l)=l$:6150 $80:l=9 21:l,0;6;r$:l .Y1:1:9 ,0;1;5;" " 8r10 ,0;1;5;"";5;1;"";1;5;"" Bl=11 19 L8l,0;1;5;"";5;1;"" V9l,30;5;1;"";1;5;"" `l jr20,0;1;5;"";5;1;"";1;5;"" tH21,0;1;5;" " ~ 0 -11 ,3;" Winner of this Round " b12 ,7;"with ";12 ,16-a(1);a(1);12 ,18;"Points"  9040P# l=1915-1 ;1;l,9 ;5;1;"";l,22;"" l @1;5;1;;14,9 ;"" Fl=1519:l,10 ;7;1;" ":l h236077\,249:17,12 ;7;1;n$(1,8):236077\,60<  9040P#  250 `l=1n:l,0;r$;l,8;l;l,10 ;n$(l,8);":";l,25-a(l);a(l) 9020<#:l n$(1,9 )="S"#0;0,0;6;0;1;" HEY YOU ! I LIKE T U B O R G BEER MOST- GET ONE FOR ME!!!":6491[  K#0;1,0;1;7;" ANOTHER GO ? (y/n) " 4l=1100d:l:.1}L,30:0 "y"6490Z (0:6:1: -0l=0n+1:l,0;7;r$:l 2L236077\,249:l=1n:l,8;7;n$(l,8);":" <19020<#:l:236077\,60<:9030F# F 4250 Z&7:7:7:0: [/d=(*4)+1:d=36491[ \.4L/d,(*16) ]1n$(1,9 )="S"Ʀ>4806410  _ 6491[ c dProgramm fuer Spectrum n!6520x+(*6)+1 o#l=1n:n$(l)=p$6510n pl s n$(y)=p$: yp$="Baby BluS": zp$="Monster S": {p$="Gonzo S": |p$="SirCliveS": }p$="Idefix S": ~p$="Gambler S":  risiko=(*2) 1max=a(1):l=1n:a(l)>maxmax=a(l) l 2maxa(y)max>high-high/6.7Vfffrisiko=2 &wue=1wue=0:6970: *prwue=1prwue=0:6880 [#0;0,0;7;1;1;" MOMENT - I am thinking ";r$ &l=16:p(l)6720@ l "236077\,249:#0;1,0;7;7;1;" WOOOOW---- S T R A I G H T ":236077\,60< ,l=60-1:m=031:#0;1,m;1;1;l;9 ;" ":.005y# =,m-3*l:m:l 6150:p$="a":4530 @(l=1v:o(l,2)6740T Jgl:p$="a":#0;1,0;1;"I can take'em all out!! ":100d:4530 T7l=16:p(l)3l26760h ^l:6780| hS#0;1,0;1;6;" GREAT!! -- 3 x ";l;" " r502:69600 |"p(1)w56810 np(1)sum+p(1)*100d+p(5)*502+(200p(2)3)<350^6810  6830 l=16:o(l,1)=1o(l,2)p$=l:wue=1:#0;1,0;1;5;" I take ";"the "p(1)=1;"one"p(1)>1;" ONE out ":502:4530 l ?p(5)w5-(1risiko)p(1)6850 np(5)sum+p(1)*100d+p(5)*502+(200p(2)3)<350^6850  6870 l=16:o(l,1)=5p$=l:wue=1:#0;1,0;1;5;" I take ";"the "p(5)=1;"one "p(5)>1;" FIVE out ":502:4530 l  v=wprwue=1:69600 sum<350^6970: #maxhigha(y)+summax6970: .a(y)+sum>highmax600Xsum<1000risikow3236077\,249:6970: &sum>1000w56970: Ssum>1000sum<1600@risikow4236077\,249:6970: !5risiko=2(a(y)+sum),249,502,557,92\,201 65000 236077\,60<  #( MELODIEN  #2  #3l=110 #4p=50230-10 #5 .01z# =,p #6p:l #7 #<  #= i=502-25-15 #> .01z# =,i #?i #@ #F BEEP  #G 9034J# #Hi=118 #I l,p:l,p:i #J.2~L,0,.1}L,0,.3,5,.3,9 ,.3,5,.2~L,0,.1}L,0,.3,5,.3,9 ,.3,5 #K.2~L,9 ,.1}L,9 ,.3,12 ,.2~L,9 ,.1}L,5,.3,0,.3,0,.6,5 #L #P #Q9.2~L,12 :.2~L,16:.2~L,19 #RR.075},24:.075},24:.075},24:.2~L,24 #SR.075},19:.075},19:.075},19:.2~L,19 #TO.15~,16:.15~,19:.15~,16:.3,12 #U #Z #[z=15 #\k=-10 5025 #] .01z# =,k #^k:z:t #d #e 9063g# #f6l=111 :a:b:.05|L*a,b-6:l: #h8,1,6,1,2,1,8,1,6,4,2,3,4,3,4,1,6,1,2,0,6,1 #n #o.1}L,(*30): '#"m";1;"CHIC-MC":"M";1;"CHICAGO!":*1;"CHIC-MC"64000,1365U:23736\,181:*1;"CHICAGO!"4000:10 ,0;1;" V E R I F Y ":.5,30:*1;"CHIC-MC"64000,1365U:*1;"CHICAGO!" AAa@FR ll*;"run"  @!. z[~( (#F##%' ' '  ''     ''''>''  ''/' ' '  ''     '' ''' >''/>'??'?  '''    '' ''''> ''/  '  '   '''   '' ''''  ''/  '  '    '''  >'' ''''  ''?? ' ' ''    ' '  '''>''''' ''    >'>>'??  ' '  '' '''''' ''    '  ''   >'>''' ''  ''' ''' '''' '  '>'?? >>    ,@h@g?*' '''' '  '  '   ' ' ???,@h?@c?*'''''''  '  '   '  +? @h0@`0+'''''''  ' '''  '  +h 00 @h0@`0+'''''''  '?'? >'??+h 00 +''''''   '' ' ' ',h!0? ?~?+''''''    ' ' ' ',xh''''   '     ,@h@dkbr8rp!?# @2 82R \M0$Rb$Frr8rp!C HRa%Ka"<Frr>!rpC@J IN%KH$PR" Err`!rpC@1c 9:B^0KrE?rp!rpK N?rp!rp?rp!#@0^0@ G b8rp!#Ac n`PM@8AA88888832-juT\ I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(v> 666666 ?go{s>< ?>c>`>cc> >`~cc> >c>cc>>cc?>0  ??  >c >o`>>cccc~c~cc~>c``c>|fccf|`~```~```>c`oc>ccccc? ?cc>flxlfc`cwccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c>c>cccc6cccc6c66cf< 0 `0 xx<~3|00<>f>00>33>000>ff>>ff><``|fff8<60<88<6|~~~~|ffffff>0000<`<|<ffff<ff<<f~~~<f<<~ 0~ 8  xx<>cc>W$Ðkc4i-!!:W:)-!!: Ry( w#-Påy 8 w#-P!!:W:)!!: y( w#Ny 8 w#N`%!!Y:W:)!:+~#w+L!!:W:)!:#~+w#L!!:W:)!:w#LXyO}< != ?> o>g}. o|&gxغWyػ_@}???G}G}''O|o`?*XKZ {'''_}'''oKB>((w, fχχχ8DD|DDD8