PORN M. bS!7V!``P>7V!7V!@ >7V`!7V!P@>7Va O缧:ټ:ڼ:"24791":" M1 LOADING":("256"*"23636"+"23635"+"5") PORN M. `P``PbPPORN M. 23`P`?`b`P 8 Üa}B;\avn("!͵۟:\0Ê۟!w"۟}!!۟!۟n ۟:k!Gb@O1@@*`*` b!@[`[ b۟:q۟́U͗<N!++ѧR~+(~ +>7(#+~+F+N+ x(?:\6XD2~$s,?-~\*[!P@OG@?(^{@ ͬ : ۟͠n:33!,33!:80P,110n:36$,16:170,110n:-33!,33!:170,110n:-36$,16 f1,0:1,7:1,12 :.3,15:1.2,16:100d 1:0:4:  1750 o'''" You start the game and I play for the bank."''" Your cards should add up to as close to 21 as possible, but NO MORE or you are BUST."''" You are dealt one card, on which you must bet, and then you get another."''" You may then receive further cards by pressing '";1;"H";0;"' until you dare take no more for fear of going bust." U21,0;1;" Press any key for next page ";:0:1750 o'''" When you have taken all the cards you want you may stand by pressing '";1;"S";0;"'"''" I take my turn and then show who won (me, I expect)."''" You can only hold five cards, and if I am dealt an Ace and a Picture Card then I have an unbeatable BLACKJACK."''" Aces are tallied as 11 until they would bust a hand, then as 1." U21,0;1;" Press any key for the game ";:0:1750 2 <ze=0:on=1:tw=2:th=3:fi=tw+th:se=fi+tw:te=fi+fi:fif=fi*te:hu=te*te:hu2=hu*tw:hu5=hu*fi:th0=te*hu d z$(th+on) n play=hu c=ze a$(te+th,fi-on) b$="*" h$(tw,fi,tw) h(tw) j=te:q=te:k=te:a=te+on d=ontw b=onfi  h$(d,b)="0" b:d "h(on)=on:h(tw)=on 67bust=ze:pbust=ze:five=ze:bj=ze:pot=ze:playtot=ze ^fi-on:ze:te-on h |control routines  1750 :th,ze;6;" Your "'" hand "''''''" My "'" hand " fi+on,on;se;on;"`";play  th0+hu5 p=on  "1430" tot=te+te+twtot=te+tw .fi+tw,on;0;6;"total:";on;tot h$(tw,tw,on)=""hu5-te-te h$(tw,tw,on)7d$="s"totte+fi-onon/te,ze:on/te,-on:on/te,-tw: H"810" Rd=e \"910" f bust=on pe=fifive=on: "790" %deal card and check for busting  "1640"  h$(p,d)=c$ c$(on)="A"h(p)=h(p)*tw 0y="152"-"56"*(p-on):y1=(p-on)*(fi+tw)+fi-on #x=fi+fi+tw+"32"*d:x1=fi+fi+tw*d  "1730"  "1430"  aces=h(p) 6ze;fi+on;fi+tw+(fi+tw)*(p-on),on;"total:";on;tot totte+te+on aces/twɺ(aces/tw)"1070"  tot=tot-te aces=aces/tw $th0+te . bust=on 8 Bfind winner Lbj=on"1290" V playtot=te+te+one=th"1160" `pbust=on"1290" jbust=on"1160" oplaytot>totfive=on"1290" tplaytot>totfiveon"1160" ~playtottotpfiveon"1290" player wins te+te-on,ze; play=play+pot ,bust=on19,te;th;se;"I busted!!" :bust=ze19,9 ;th;se;"You won that hand!!" &"You now have ";on;"`";play;:" "; %n=-tete*th:on/(hu),n:n:502  5000 playfi*th0"1260" "130"  fi+tw:ze: Cte+on,ze;"You have broken the bank after having won `";play-fif  tw*th0-hu  computer wins &te+te-on,ze;" ";tw;"Bad luck. "; (,bj=ontw;se;"I've got ";on;"BLACKJACK" 2!pbust=ontw;se;"You busted." <'pbust=zebj=zetw;se;"I beat you." F&"You now have ";on;"`";play;:" "; P;n=te-te-on:on/(th*te),n:n:1;"HIT ANY KEY":ze dplay=zeth0+hu5-hu n"130" x fi+tw:ze: 9te+on,ze;"Ha! You've lost all your money."''':"1900" get total in hand p tot=ze  d=onfi h$(p,d,on)=""v=te:"1470" v=h$(p,d,on)  tot=tot+v d  original deal  d=ontw  b=ontw 0y="152"-"56"*(b-on):y1=fi-on+(fi+tw)*(b-on)  x=fi+tw+"32"*d:x1=fi+fi+tw*d  "1640"  h$(b,d)=c$ "c$(on)="A"h(b)=h(b)*tw ,d=onb=twc$="" 1n=b+on 6 "1730" @d=onb=tw"1770" Jb:d ^ hchoose card rcard=(*(te+th))+on |suit=(*(fi-on))+on a$(card,suit)=b$"1650" d$="A23456789JQK"(card) c$=d$+""(suit) a$(card,suit)=b$  print card kx2=x1-on:se=fi+tw:se;y1-on,x2;"";y1,x2;"";y1+on,x2;"";y1+tw,x2;"":c$=""1740 Ite*th:se;y1-on,x2;"";y1,x2;" ";y1+on,x2;" ";y1+tw,x2;"_" 4se;(tw(suittw));y1,x1;c$(on);y1+on,x1;c$(tw) on/te,fi+tw-(y1-fi-tw): P:0,7;1;2;0;1;" PORNO-MOOVIE II ": bet on hand T "How much do you bet on the card?(Whole numbers please.) ";pot:potpot"1780" pot>playpotze"1780" play=play-pot :pot=pot*tw:z$=pot D$fi+on,on;se;on;"`";play;:" " NBse;te+fi+tw,th;"There is ";on;"`";pot;tw+tw;" on the table." X l"Do you want another game ?" qze v="Y"Ŧ="y"fif ="N"Ŧ="n"0  "1905" pot=ze  "1850"   1982, A.Parish  [f=120:f,0;" 7":.005y# =,30:f 23693\,568: 60:a=40007G:b=40008H:c=40009I b2:0,0;"*";0,31;"*";21,0;"*";21,31;"*" @#0;" 7":f=15 b,164:c,156:a (b,165:c,183:40000@  (b,166:c,210:40000@ 43*(5-f/5):.03{u\,15:f '0:7:1::25 (Y0,0;"*";0,31;"*";21,0;"*";21,31;"*" 2!8,6;" " !@ɜG=(2>:?G=( 2?>2>!@ɍ777`D'7A@$7`7BBB|V77 7Bx7 @"77$$$BD8[7N77@71@ A7#p7|DD<777x7<7A@@@7À7>BDx<77<7`ʈ7  h707?@7$$$BD@<7?7G7$7CM7  7@7BBB|8<47x7@p7?7@070ǀ 7? R747 07(77@?7@ 7a` 0 7 7`@ x?@7<?D 7 7 @@4ppT8a 7(7 0 7# ?@7 <;`D27 7?@>?`@0>_@`80 75U@O`?7n 7" 7 <@BI 70~@0P|{߀  ` 7:O$7b 7"` 7 x Y@7 ?@@ @?3:87 7uU_& 7"A7< 7  Y@7|@$ ? } 7ꪯ?o> 7C?7  @7 |J 7 ?<8#L` `0U` 7U_ O`< 7@?  78h @7 2 7  @9x I$ 7??d@L`<C? 7<HD 77 <@@ LZhH?U|`UUW8p?80?,0 (70 (7 7 7 3 7F7>UUW`8UUUUUU``?,UU0(70 7` 7 7pR7?`8ꪪ?, 7z(7 7` 7$ 7S7?UUW?8UUUUUUU ?, 7U\ (77 7? 7$ 7S7???8?0?, 7?0 (7 7 7? 7 7`?S7UUV`8UUUUUUV`?, 7?0(7`7 7 7 7`?S7?<(7(7?`77` 7 7R78}UUUUX ?< UUUUx (7 (77 7 7 7Q7*x7y7x7zzzx7zzx7zzxyzzx7zzzxzzx7zz`x7zx7@(7o777`D'7A@@$7`7BBB|77%77 7Bx7 @"77$$$BD857%7N77@71@ A7#p7|DD5777x7<7A@@@7À7>BDx5770<7`ʈ7 h707?@7$$$BD@<7?7HG7$7CM7  7'@7BBB|8<<7x7˰7?7@070 7? Z747 07(77@?7@  7a`0 77@ x?@7<?D 7 7 @@4PT8a? 7(7 07# ?@7 <;`D27 7@>?`@0>>_@`8?0 75U@W`?7Ȃn7" 7 <@BI 70 ~@0P|{߀ ? ` 7:W$ 71b7$` 7 x Y@ 7  ?@@ @?3:87 7uU_& 7"A7< 7 Y@ 7`|@$ ? } 7ꪯ?o> 7C?7 @7 J  7P ?<L` `0U@/` 7U_`< 7@?  78h @ 7 2  7   @9xI$ 7??Od@`< 7C? 7<HD 77 <@@8|O LZhH??U|`UUW8p80?,0 (70 (7 7 7 3 7F7>UUW`8UUUUUU``?,UU0(70 7` 7 7pR7?`8ꪪ?, 7z(7 7` 7$ 7S7?UUW?8UUUUUUU ?, 7U\ (77 7? 7$ 7S7???8?0?, 7?0 (7 7 7? 7 7`?S7UUV`8UUUUUUV`?, 7?0(7`7 7 7 7`?S7?<(7(7?`77` 7 7R78}UUUUX ?< UUUUx (7 (77 7 7 7Q7*x7y7x7zzzx7zzx7zzxyzzx7zzzxzzx7zz`x7zx7@(7K7#777`D'7A@$7`7BBB|97$#77 < 7Bx7 @"77$$$BD877X#7N77@71@ A7#p7|DD<777x7<7A@@@7À7>BDx<77<7`ʈ7 @h707?@7$$$BD@<7?7G7$7C@M7  7'@7BBB|8<<7x77?7@070 7? Z747 07(77@?7@  7a`0 77@ x?@7<?D 7  7  @@4P8a 7(7 07# ?@7 <;`D27 7@>?`@08>_C`80 75U@S?`?7Ȃn7" 7 <@BI 70 ~@ 0P|{߿  ` 7:W?$ 71b7$` 7 xp Y@ 7 ?@@ @q?3:87 7uU_/? 7"A7< 7 Y@ 7|@$ ?  } 7ꪯ??> 7C?7 @7 J  7 ?<Lx` `0U@'` 7U_`?< 7@?  78h @7 2 7  @9xI$ 7??Gd@?`< 7C? 7<HD 77 <@@ 8 LZhH??U|`UUW?8p?80?,0 (70 (7 7 7 3 7F7>UUW`?8UUUUUU``?,UU0(70 7` 7 7pR7??`8ꪪ?, 7z(7 7` 7$ 7S7?UUW?8UUUUUUU ?, 7U\ (77 7? 7$ 7S7???8?0?, 7?0 (7 7 7? 7 7`?S7UUV`8UUUUUUV`?, 7?0(7`7 7 7 7`?S7?<(7(7?`77` 7 7R78}UUUUX ?< UUUUx (7 (77 7 7 7Q7*x7y7x7zzzx7zzx7zzxyzzx7zzzxzzx7zz`x7z!x7zmx7@(7m7MMMXXL8Wq !1v> 7666666 ?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>ccccc>cccc6cccc6c66cf< 0 `0 xx<~73|00<>f>00>33>000>ff>>ff><``|fff8<60<88<6|~~~~|ffffff>0000<`<|<ffff<ff<< P MMMV~?M2~-~\>v2>!2::\( 6} !9"6\>l|88||8<~~~<888LRRRRLUUUUUUUUUUUUUUUUUUUU77ˀPORN M. @ # 7|<|B<B<~>>57< @ 47˂@7BBBbBfBBB@57@BB@B7B8xDB88( 7D8D88888@8<8h88xx8D88@8 8x(47D8D888@8D8Dx8888 7BBBRBZBBB| 7{8DOV7BBBB@ 7-?$CD2~-~&7~B@|7@DDDB x<0 7DD8< DxD~>>57@ <8 D<<>>>Dx@BBB~J D D"<x @D<BDDBB 78@8 78#788e788 7@8'7@7 7 7$7 7 y7 7 y7˞ 7ˠ 7 7 7 87HPORN M. b 1#ff# <@.T'}~\\]e_%~e2~2~2~\ fT-X![!PP! $Sʃi.ry*~c܇IڢP1!\"\ ]M_]x_"x_  K SR PBlackjack '82 A.Parish 653291:start=653302:errsp=23613=\+256*23614>\:errsp,start-256*(start/256):errsp+1,(start/256) n $j=startstart+n-1:a:j,a:j 27,33!,start-256*(start/256),(start/256),229,58:,58:,92\,254,20,40(,5,254 12 ,194,0,0,253,546,0,255,253,203,1,174,195,125},27  "":"" {0:0:7::" 1987 LP Microsystem Athens/GR":''"How old are you ?":a:a160 8"O.K":''"Give the password":a$:a$"LARRY"0 a"O.K":''''"O. K. C O M E I N S I D E ":f=-40(60<4:.05|L,f:f :#1;" 1987 LP Microsystem Athens/GR":100d,44,,15:115s,44,:0,100d:125},144,10 :125},144:0,-10 :135,144:0,-100d:150,44,,15 1,0:1,7:1,12 :.3,16:1.2,15:0,8;"PORNO-MOOVIE II":19,2;"One more Product by LARRY P." F=2040(1:.005y# =,F:F:100d:100d,44,,5:150,44,,5:125},87W,75K 80P,110=