ZXTape! 0Created with Ramsoft MakeTZXBLACKJACK  1:1::7 ':"BLACKJACK af Hans Henrik Bang "'' ("Du starter med en formue p 100`og du skal derefter f den til at vokse. Nr du har indtastet din indsats, fr bde du og jeg" 2"2 kort (dine for oven). Det 1. er lukket og det kan jeg ikke se. Kortene glder deres vrdi, undtagen esser, der valgfrit tller 1 eller 11 - og billed- kort, der tller 10." <'"Du skal derefter komme s tt p21, uden dog at f mere. (for at stoppe trykker du S - ellers fr du endnu et kort). Derefter er det min tur. Den, der har mest, er vinder. Desuden tller 5 kort under 21 for 21. Banken sprnges ved 500 `. VENT" Z"" "BLACKJACK"1000 ""+0,00000000 ""+1,00000000 ""+2,00111110> ""+3,00001001 ""+4,00111110> ""+5,01001000H $""+6,001101117 .""+7,00000000 L""+0,00011000 V""+1,00000000 `""+2,00111100< j""+3,00000010 t""+4,00111110> ~""+5,01000010B ""+6,00111110> ""+7,00000000  1 Blackjack *#*, 9500%  85004!  7000X  sp=0 bank=100d 4:1:4: n=12 :9600% &11 ,12 ;1;"BLANDE" (mn=130:0.003xD,20:.003xD,0:.003xD,-20:.003xD,-40(:n 2 <c$(524) A10 ,0;"Bank=";bank;"`":demo=112 ,0;"Tryk ""S"" for at starte":200:12 ,0;" ":="s"2 B3bank>200ƥ>.73333n=20:9600% Cn=2:9600% Ddemo=17100 F"Indsats? ";bet PAbet0betɺbetbet>bankn=21:9600%:70F U'10 ,15;"Indsats=";bet;"`" V+bet/bank.8Ln=15:9600% W+bet/bank.1}Ln=14:9600% ZLpl=0:com=0:y$="":z$="":np=2:nc=2:sum=0 d 5000 n#y=0:x=28:8000@ xpl=pl+v:v=1y$="A" $x=22:5000:8000@ 'pl=pl+v:sum=sum+v:v=1y$="A" 7:2 i=1521 i,27;"" i 0:4 $y=15:5000:8000@ com=com+v v=1z$="A" &ti=0:demo=17200  4ti=ti+1:ti=500n=7:9600% =""231 ="s"1000 %pl16n=17:9600% 'x=x-6:y=0:np=np+1 5000:8000@ 'pl=pl+v:sum=sum+v:v=1y$="A" pl>212000 "np<5230 ''7;12 ,10 ;"5 UNDER" (n=8:9600% )i=13 ,n=030 6%0.01z# =,n:0.01z# =,30-n @n Ei J(12 ,10 ;" " Tsum=20 $y$="A"pl<12 pl=pl+10 mpl=2112 ,10 ;0;"Blackjack":n=9 :9600%:12 ,10 ;" " Xpl=21np=2n=030:.1}L,n:n:bet=bet*2:3000 S12 ,10 ;"Min tur":n=3:9600%:12 ,10 ;" " Ny=15:x=28:5000:8000@:com=com+v:v=1z$="A" x=22:1500  x=x-6  100d nc=nc+1 65000:8000@:com=com+v:v=1z$="A" com>213000 ps=com &z$="A"com<12 ps=com+10 ,nc<5ps<17pssum1020 12 ,10 ;"jeg staar":n=4:9600%:12 ,10 ;" ":ps=2112 ,10 ;"jeg har Blackjack":n=9 :9600%:12 ,10 ;" " com=ps np=5pl=21 )np=2pl=21bet=bet*2 nc=512 ,10 ;"5 kort under 21":n=8:9600%:12 ,10 ;" ":com=21 pl>com3000 712 ,10 ;"Jeg vandt":n=5:9600% bank=bank-bet bank>04000 =12 ,10 ;"Du er bankerot":n=10 :9600% demo=12 A12 ,10 ;"Nyt spil? (j/n)":n=11 :9600% "j"Ʀ"n"2050 ="j"3  E12 ,10 ;"Tak for spillet ":n=13 :9600% 1:1000  2 W12 ,10 ;"Du vandt":n=6:9600%:12 ,10 ;" " bank=bank+bet  sum=0 ?sp=0bank500n=19:9600%:sp=1 0n=1524:c$(n)=" "sum=sum+1 n sum<13 20   65A  ]v=(*13 )+1:c=(*4)+1:c$(13 *(c-1)+v)" "5000  c$(13 *(c-1)+v)="1"  s$=""  s$=s$(c) i$(7,5) 5000+100d*v 3q$="JQK":p$=v:v>10 p$=s$+q$(v-10 ) v=10 p$="" v=1p$="A" =i$(1)=p$:i$(7,5-(v>10 )5)=p$ v>10 v=10  i$(4,3)=s$: P2i$(2,3)=s$:i$(6,3)=s$: 5100:5200P: bi$(2,2)=s$:i$(2,4)=s$:i$(6,2)=s$:i$(6,4)=s$: |5100:5400: >5400:i$(4,2)=s$:i$(4,4)=s$: D&5600:i$(3,3)=s$: &5700D:i$(5,3)=s$:  \5500|:i$(3,24)=s$+" "+s$:i$(5,24)=s$+" "+s$: pW5900 :i$(4,3)=" ":i$(3,3)=s$:i$(5,3)=s$: i$(4,3)="J": 8i$(4,3)="Q": i$(4,3)="K": X>21,0;4;"Tryk paa en knap for at starte." ] 1 bdemo=0 g 500 i""5 ldemo=1: v 5  21,0;"Indsats? ";  502 Wbet=(bank*)+1:bet:100d:21,0;" ":80P  100d:""2 %Upl17pl+10 *(y$="A")18pl+10 *(y$="A")<221000 * 245 @2:7 Ji=06 Ty+i,x-1;"" ^i cc=1c=40 hn=175K:n ri=06 |y+i,x-1;i$(i+1) i 4:0 #v=1n=18:9600%  !41:6:3: !9 !p 5 !za$="Blackjack" !n=1̱a$ !1x=((*9 )+1):a$(x)=" "8590! !c=11 +x !i=113 !i-1,c;" ";i,c;a$(x) !.04|# =,30-2*i !i ! a$(x)=" " !n ! 1 !n=110 !i=12 20 !'ٺ(*6)+2:13 ,i;" " !i "n " n=1:9600% " n=16:9600% " 0: " #(b"Blackjack"9100#:"BlSpeech"31500 {,(63150-31500 {):"Blchrs""a",64@ #Z 1 #31500 {:"":"" # 1 % 62975,61370,60010j,58907,57878,56390F,54958,54000,53100l,52201,510008,50100,48500t,47500,46000,44800,41700,39750F,38400,35000,32600X,31500 { %&6s(22):9500%:n=122:s(n):n %0 2 %st=s(n):sl=s(n+1) %dta=st:9700%:62976,re:62977,q:ta=sl:9700%:62978,re:62979,q %q=63056P % %(q=(ta/256):re=ta-256*q: BlSpeech { {*{>????ٙv6_|??/????~Ã|NjW????~???|?>????~?????3|??~?}<??1>{|>??o????o??}}??~????~>??<?|7|x߿n?e}ǹjU_CﯻUުW߮խ+P???????????`/@?u[}|gKJSۢH!tW]%պ^ʽ},עHUޭ^I~{U֪??????>?;?|?~??????????????@?_Ygm{}nRUW[z]z_zZ__ |????/@w@6o?O/?`A????~~?z??=?<:xpqq8p/sɏ~??s!>x><9|~q????/??????????o??;w3g8sg߾<8gxxp޸||x|x{wz[{zۻ?;?=G7y}ps;s8Gq<Îq8w< xG|x<=c?????7~  ~ ?~?~>????}jU+RjۼsF[*i1Kz,Q3Zђ.v3 Khλ1DRޣޑvNKVoYV@?????I??@?yy/.nwn{OWK|Iݿ/6?????|wĀ8qxw̜xxs3xs8wǏ8ss8nj8y8sǏq8s8<Çq??8~<{8>?x?o~>xO<????R_????}?ȿ~{??~?6??~/ 3[ ??????????ַ?fk{V?????@??????_wOs_o@_~?????߁~?'?c~=χ#Ã~?@~???;ߏ?w899?g?????????"???????aq?????~~?~? ?<>?|???_Vz]zo????~? 3<yp|#|???????>?|?_mY$[3g{_ղ[X~{?~?????C_}U_}&ECxUe_oLo5.upgՖ]aӧWڕer:_]Zj{V ??_??~~????|??|??????{?????????????p?_?????????p'?@j K?[??N???@{?m @_iV?y? ?߶ ????g????????_? o? @? ??_Y]Uu_U{]^׫W߿mƍgg0ƀa#;?wN<8o~ύ?fٶ6vowۭ"?{??~??????????a?67_?v??Ͽ>???s????~???7~?~~?~gÇ<~?CO?N?@??~@?O??u=JkUjUiՕշ){޵M֒k[g?????? 3??r??@????????????pM}>[iTzW{]UUV]kU{ԺŪUo}Oow_o_?O?uZjuVuVW/#???}!> ???~??|???x????`'??3?o'???;w?={ϼ<9#??????{v7o{?nc|/d3=~~ ??_)VK[jSjoZ[_W_}g ?ȟ`oC3O?y!?9!?o>!3?A??????އ??<px??o?a0|???? ?????G??|??C??'??ϼq8q9<_/?qǎ8<7? 8x ;yx~͈~~???M}?o_??? ??~?}p>?xx>??p07 }y#31uݫ[_ү]`C?_?`7r?????7W]_UZ]UݪU:j_UUUۮU^uZ{\w~^]UUjU]_nWU߾߮?;>|>A?8????xx00>|>>??o?@??0???@?7 ??@O '? `?'???????{'??????u꭯jUZ]On]]EZZTz^[[INw^I]Y)/ֻK;ݿ5Z_??`????~? #?~s39ggg73sqs13w<9qÿsg ߾8Äߜ8Ä~ǏxƟF? ?[?????~????UZw7nwg_߿[9VUkImuvz{mJ՗z޵Vh??`~/w?wO~O?spfcscĮόΎ8ss33'7€0 x~|??Cs;=??z?1???????̇? ??? vw{j٘sjəͺMZ8>YmtKݱ/җ}k??@???@???߯+|N^Ikv+]ZVe~eR]eVLi{iזӷnsO-v6??`{?????W=iu/^ͪd[}VZ*&օUm{J6OlmdJZ򺽻yzԉֶ.:h%N&5[TwI[/oӴB{????k'?_'d????j^o­UvivoolD4oo򗾱~?b_$6Vv"#K=-J܅}*__C;??l?E?~??_[?{ggOʵI]UlEm-*%fUۛrol^ެm~???_~Io~߻w?oمfG7?}x??pG~6?<{rdvp??7ӿKmR*%RiEj%۫VZZ[Ҫ}?`>|l<?'_?f? o7a?|><x><|3><9pxs<ᄍ8؟aao_?@???????????????Oo? Fܮ*w(yOyw͎z +CͅN˧y WyOz[R(+T:H\˿˷˯˧˟*zBlchrs @Xy9WB8|Tf~<<~~<8883333~@|@@@