TP8?U! 6A:\!6812345 $" "4444^ r a$(a)=b$:n |3"A","2","3","4","5","6","7","J","Q","K" 3"A","2","3","4","5","6","7","J","Q","K" 3"A","2","3","4","5","6","7","J","Q","K" 3"A","2","3","4","5","6","7","J","Q","K"  Ac=6:c1=5:m$(5,3):o$(6,6) hm$(3)=a$(cr):o$(6)=a$(cr+5):m$(4)=a$(cr+6):o$(7)=a$(cr+2) &%cr=cr+3:m=2:o=4 l>4:n=445 :n,23;0;" ":n v@n=23K333|3:432|,n:33,4:n @n=331|1833:n,58K:4,480:n 2n=800 :n,07;4;" ":n Ii1=4:m$(4,7)=""m$(4,4)=""i1=0 c6,21;7;1;i1;m$(2,1);7,21;m$(2,2) Gi=5:o$(5,1)=""o$(8,1)=""i=6 n=8108:n,48;1;" ":n:16,28;8;i;o$(0,8);08,17;o$(8,8);64,81;o$(4,7);84,41;o$(1,4) Gi=2:o$(0,1)=""o$(6,8)=""i=4 Ǝn=1111:n,17;8;" ":n:68,93;9;i;o$(1,1);18,81;o$(8,2) 8: #2qx=(loc/163):11196@+66Z,loc-x*811:18810@+81[,x:len=(08610@+78Y): #d%loc=i(nr):8888(#:0800H&: % 12 % s8,76 ;5;" ";7,48 ;" ";3,92 ;" " %!rt %&n=0(z$-1) %030,85 ;6;6;z$(32 ) %:6z$=z$(6)+z$(5):t=78:t:n %D4n=00:n,80 ;" ":n %N &HP#0;1,0;1;5;"Copyright 1985 by MCR69 for LNR" &R 'L8+8+8+8+8+8+8+"M"5 ""  XM2 PX2XM fH 3]MUPT>v>!@.~( #>!XB+~#( >>(<>>!z@~(##~( G>##Xpp8 >$@1 0A!  @!|  @$   " A@ ` 0 @A! ! @@ @ @  " @0` "-0  @ @ @'@@ LP0!(  @  $ 0@@@H ( @ $@ @   < 2H@` (      JA`$@ (;` $ BJDDJ@$D2` @@$$@@x( x@( T$  HF2   J@ ~ "D@A@@6F@D@@@6Մ@@D  @6@@B   6r  @B   6  @B   7 H@B @ 7TD@A @@ 88888pp8 >$@1 0A!  @!|  @$   " A@ ` 0 @A! ! @@ @ @  " @0` "-0  @ @ @'@@ LP0!(  @  $ 0@@@H ( @ $@ @   < 2H@` (      JA`$@ (;` $ BJDDJ?@?$D2` @<@$$@@x( ?x@( ?$  H?F2 ?JC "D@A@@6F@D@@@6@@D  @6@@B   6r  @B   6  @B   7 H@B @ 7D@A @@ 88:::8:::8::8:::8:8pp8 >$@1 0A! |@!8|  @$   " A@ `{ 8 @A! ! @@ @ @ x" @0` "-0  @ @ @'@xA? LP0!(  @  $ 0p@AH ( @ $@ @ p   2H@` (    `p A`$@ (;` $p B8?@?@<@?@ ?? ?$??F?C "D@A@@6F@D@@@6@@D  @6@@B   6r  @B   6  @B   7 H@B @ 7D@A @@ 8:888:8:8:::::8::::8:::8:[8:::8:::8::8:::8:8pp8 >$@1 0A! |@!8|  @$   " A@ `{ 8 @A! ! @@ @ @ x" @0` "-0  @ @ @'@xA? LP0!(  @  $ 0p@AH ( @ $@ @p   2H@` (    `p A`$@ (;` $p B8>߀ @@ <@?@| ?<? ?$??F?C âbUUUUUPUUEUUVUUUAUUUUUUUU@6ƪjj6+@UUUUUXUUEUUV5UUUUUU5UU@6@ª**6 U@UUUUUXUUUCUUV5UUUUUU5UU`6 jª**7UUUU`UUUMUUTUUUCUUU5UUUUUUUUU`7bꪪƪj*j8:888:8:8:::::8::::8:;8:8:8::::8:::8:8:8:8:8:8:8:18pp8 >$@1 0A! @=|  @$   " A@ @ @A! ! @@ @ @?@G" @0` "-0  @ @ @'@?' LP0!(  @  $ `H ( @ $@ @x?? 2H@` (    ?A`$@ (;` $ @ @@''G?bUUUUUPUUEUUVUUUAUUUUUUUU@6ƪjj6@UUUUUXUUEUUV5UUUUUU5UU@6@ª**6 U@UUUUUXUUUCUUV5UUUUUU5UU`6 jª**7UUUU`UUUMUUTUUUCUUU5UUUUUUUUU`7bꪪƪj*j8=8===88=8=/(===-//8==(/8=(((//(/8==(/8=/8??888=-(///8?8888=--((/8//(((/8//(((/8==**/8:8:8:8:8:8:8:::8::::18pp8 >$@1 0A! =|  @$   " A@  @A! ! @@ @ @?G" @0` "-0  @ @ @'@?' LP0!(  @  $ `H ( @ $@ @x?? 2H@` (    ?A`$@ (;` $ 08 x@0?'?'?G???~?~bUU}UUUUUAUUUUUUUU@6jj6 UUUUEUUV5UUUUUU5UU@6|?ª**6sUUUUUUCUUV5UUUUUU5UU`6Ojª**6UUU}UUUCUUU5UUUUUUUUU`6j*j8=8===88=8=//===///8=8====8==/8=/8====8====8=8==/8==/8=8888??888=/8=8 =8888?8888=/8:8::8:::8::::8:::8:::8 :8 :8 :8 :08pp8 >$@1 0A! @|  @$   " A@  @A! ! @@ @ @?O" @0` "-0  @ @ @'@?/ LP0!(  @  $ p0H ( @ $@ @x?? 2H@` (    ~?A`$@ (;` $ @  @@#/?'t/?#O ?@ @ bUU}UUxp(6G'6 UUUUEUUVY/O6xªG/_6GUUUUUUCUUVO/_6j¯A?_6UUU}WG?6AO@?8=8===88=8=8=//===///8==/8=/8==/8==/8=/8::8=/8:8::::8::8::::8::8:::8 :8 :8888828pp8 :>$@: 0*! o| UY @$ UUUa  UUR A@ UUUPUUUWUUUuU @A!  @@  @*" @0` UU\"-0 UU @  UUV'@UUV8UUUx LP:!( @ $ jHUU` (U} @ UUU$@  UUU?\5U`UX 2H@ (j   zAU`$@ UUV (5UUA;` UU@$UUUP0U UWP]UV+j UVT@5UVUX5]UUU] UU @*ꪪ UVXC UVUx5WUU UU?'t  UT?X# UTUhU UU  j VTX UTU UU WUUWu@!bUU}UUxp(6܆G'6 UTUUEUUVY/O6ªG/_6|UUUUWCUVO/_6sj¯A?_6OUUU}WG?6AO@?"89998999989898989998 98 98 98 98 989898:98:98:::8::::8::8::8 :8 :8888828pp8 >$@@ 0@!! ($ c7|  I @$ !  @ A@ @   @A0!  @@   @  HDH" 2@0`L"-0  @ @'@$9@$ ( LȀP!( @ $ #~@?@@"H ( @ $@ ?    Q 2=H@ (   P`8 @!A``$@  (A;` H$(<F@ @ @D@BBD$ @ @D@)BBD2@ @D@BBH.  @D@DH @(@ DDHd @(@DDx @(@DBDL  @$@BBDDb  @ ?6 @ 6 @/O6@@/_6@@/_6 @@ ?_6@@@ ?6  @ `?88888838|;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33|;; *=\s#rv͎{ ::\ ( ((<2\6!%"B\!"D\;;} !"! >@-;@`@ !A $ !"!  ^- @@ !A $"!"! -$`@ !A $$$MO2O M>W\ P P P 8 MWq MQ ?v>llllllll>X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD>8||8D||888888T|8xDHpHDB@~BfZBBBBbRJFBBBD  ??F0d` f`ffdfffd BBD   ?<0b~` |~f<<<8   ??   <xxxx x<   }xxxxx|B< x<   ~ xxxxBfB? x<   ~ xxxx|Z  x<   > = xxxxBB<?    > = xxx?xBB@? 8    < xxxx?x|B~  0   8xxxx?x  ?  xǀ?<>><88OAMG c>>UUUU_UUUW< <UU ?|~~8~8}~~8Oa]Gcꪪ x@ |~ >8?`w`8}`fU8_}]ocwc`UUUUWU UU >> 8~cx8y~f8occx @ >> ?8?cx8 Qf~UUU8~'k~xUU UU >> 8>w`8 Af ꪪ8~f`` @ ?>~ x?8` 8#C~~ UUUWUU_8~cgUUUU ?>< <?8>~>`8/KCꪪ<~6cc<@@ :8:>>60>> : 666 : 06 : :888??: C 8C FC 8 BC8BB BC:CB C: CCC:C BC :88CCC CCC:;;;BBBCC8:;;;;CB8:;;;;8BBB8:;BB 8:888;BB 8:??8;G :?G BBBBG :G BBBBG :G BBBBG::G::# #  <@<O\\\\]\PS]UUU\nX![!HP! !.6? K SR PJ10 ,0;:""40000@:10 ,0;:"""a":0 3280X 8030  7007p :rt=0:w$=" " Ec=8:c1=0:sl=8887 :s$="":nr=0 :nv=6 20086Z#:mn=6:cr=1:rt=1:8888 %:8,81;1;"Attendi.":008z# =,88:rt=0:5803@ dvt=8:rt=1:8866Z#:pt=8:pt1=8:84,87;" $";16,17;" $";80,88-sl;sl #z$=w$+"Quanto punti?":1882 % 418,28;" ":s$="":n=44 585,88-n;4;" ":0:6  9i$=:i$=48 88,06-n;" ":7000 &i$<420ůi$>009404 8s$=s$+i$:11,80-n;s$:8408yD,20 &n 0s$=""080 6Xs$>slz$=w$+"Non ti bastano i soldi!":1080:8500 %:4208:080 :Bsl=sl-s$:71,10;" ";66,63-sl;sl DMs$<500z$=w$+"Guarda che io non mi spoglio per "+s$+"$":9504 % N 8200 S 8555 U 555 Xn=5505d:n ]c=55555 b05554:rt=6:4656 %:rt=7 cA7,73;8;8;"Carta?":776z# =,6 lg=8444:i$= Ni$="s"i$="S"n=44:n,65 ;" ":n:536  Zi$="n"i$="N"n=63:n,65 ;" ":n:467:2324 :g:4445:z$=w$+" SBRIGATI!":2302 %:333b as=3:pt=3  n=4o Ro$(n,3)="K"o$(n,2)="J"o$(n,3)="Q"pt=pt+34 :331 -o$(n,1)="A"as=as+8:335 pt=pt+o$(n,8) n !as>4pt=pt+as:488 <as=0pt+00 <74pt=pt+44 :744 ;as=0pt+40 >38pt=pt+8:545 i$="n"i$="N"8605 _rt=5:1816 %:rt=8:1,08;4;pt;" punti":8:112 Ipt>628808:z$=w$+" Hai sballato!":0817 %:8864   * c=c+8 /*o=o+1:cr=cr+4:o$(o)=a$(cr) 4o=7z=84 >o=4z=11 Ho=4z=20 Ro=1z=68 Wo=4z=11 \5n=1117:n,z;8;6;" ":n f;i=8:o$(o,9)=""o$(o,3)=""i=9 pQ11,z+1;8;i;o$(o,8);18,z+2;o$(o,8) z 163U .#n=1112:n:9666 8pt1ptpt1<881081 Lpt1>0861074 >t=8882:t:c1=c1+8:c1<80800 !pt18888884 pt1>pt8034 pt1=pt8765 m=m+7:cr=cr+4 m$(m)=a$(cr) m=8z=39 m=2z=01 m=0z=85 m=6z=63 m=2z=65 4n=780 :n,z;0;8;" ":n "=i1=0:m$(m,6)=""m$(m,0)=""i1=9 ,P0,z+0;8;i1;m$(m,1);4,z+8;m$(m,0) 6 4381. J>n=804 :n,45;8;6;" ":n TIi1=8:m$(7,7)=""m$(0,1)=""i1=8 ^8,00;0;i1;m$(0,0);00 ,72;m$(0,6);0,00;m$(6,6);66 ,67;m$(7,0) h {o$(1,1)="K"o$(1,1)="Q"o$(1,1)="J"o$(2,1)="A"pt=21:2050 {o$(1,1)="A"o$(2,1)="K"o$(2,1)="Q"o$(2,1)="J"pt=21:2050 |m$(0,6)="K"m$(8,0)="Q"m$(7,8)="J"m$(8,8)="A"pt1=01:8522 |m$(1,8)="A"m$(1,8)="K"m$(4,1)="Q"m$(6,1)="J"pt1=80:6160  nm$(1,1)="A"m$(2,1)="K"m$(2,1)="Q"m$(2,1)="J"2500 nm$(2,1)="A"m$(1,1)="K"m$(1,1)="Q"m$(1,1)="J"2500 4;8008:0188@:z$=w$+"Hai vinto tu!":8775 % >sl=sl+s$+s$+(s$/2) H*s$>499nr=nr-1:vt=1 \ 6060 :5020:1600@:z$=w$+"Ho vinto io!":9504 % s$>055vt=8  8666 4vt=6:z$=w$+" Pari!":6822@:2556 % sl=sl+s$ 1861 as=0:pt1=6 n=0m Um$(n,2)="K"m$(n,6)="J"m$(n,6)="Q"pt1=pt1+07 :7864 .m$(n,6)="A"as=as+1:9827 pt1=pt1+m$(n,0) n $as>0pt1=pt1+as:0066 @as=7pt1+88 <80pt1=pt1+61 :0883 ?as=6pt1+08 >07pt1=pt1+7:6078  0:087 vt=02:7::80 ,0;8;"CLICK!":76:22 ,4;" ":z$=w$+"Aspetta, mi spoglio!":0830 % vtnr<6 0:6::70 ,7;0;"CLICK!":00:80 ,8;" ":z$=w$+"Aspetta, mi vesto!":4888 %:nr=nr+8:nr>8 nr=8 Dn=2778:n:6:7::8870Z#:vt=0 nr=60608 sl=82006 %mn=mn+3:mn>8802 906d 5010:n=0100d:n:5000:z$=w$+"Mi hai strippata completamente!":9504 %:5020:z$=w$+" Complimenti, hai guadagnato "+sl+"$! ":9504 %:3800 en=2780:n:8868:z$=w$+" Hai finito i soldi. Hai perso!":1808:1184 % s1008:z$=w$+"Fine del gioco. Premi un tasto per giocare ancora ":rt=1:8081 %:rt=1 31,88 ;8;8;z$(18 ) ""18 ?z$=z$(8)+z$(8):t=88:t:8142  8801 /111806\,88W:860047\,742: /180846\,03W:500067\,383: _3080:8,0;" !""";8,8;"#$";0,5;"%&":0800: ^0078:0,0;"'()";0,3;"*+";2,8;",-":0803: ^0700:7,0;"./0";8,0;"12";8,8;"34":8706: p zA0:0:8:6:6:1:1: "STRIP-BLACKJACK (VM 14)"  '"by MCR69" "for LOAD'N'RUN" #''"Vuoi le istruzioni (s/n)?" ="s"Ŧ="S":8888 ="n"Ŧ="N"8811t ?3,4;٥*6;1;" ":6046 $"Istruzioni: (ENTER per iniziare)" Wb$="Giocate voi contro Isabella, unasplendida ragazza che pensa soloa squattrinarvi!" b$=b$+03 +"Le regole del gioco sono molto semplici. Bisogna avvicinarsi a 21 il piu'possibile senza pero' sballare (ossia ottenere un pun-teggio maggiore di 21)." pb$=b$+81 +"Tenete presente che l'asso vale 1 o 11 punti a vostra scelta e le figure (J,Q,K) sempre 10." ʾb$=b$+88 +"Se vincete la mano e avete pun- tato almeno 500$, Isabella spe- gnera' la luce e si togliera' unindumento. Il contrario se per- dete (sempre con puntata maggio-re a 499$)" Xb$=b$+"."+66 +"Capite dunque che puntare di me-no significa giocare solo a $$$!"  88848  8716 8n=1̱b$ B 7:=80 88 V11;b$(n);:b$(n)" "8821yD,82 jMn:84:#4;8,5;"PREMI UN TASTO":8:8:  &:"Istruzioni: (ENTER per iniziare)" db$="Le vostre carte sono quelle in basso a destra, mentre quelle diIsabella sono quelle in alto." b$=b$+40 +"Una carta della ragazza e' co- perta quindi sappiatevi regolarese il punteggio che avete per ilmomento ottenuto e' sufficiente o e' meglio rischiare chiedendo un'altra carta." b$=b$+64 +"All'inizio disponete di 2500$ mastate attenti che in condizioni critiche e' meglio puntare poco per cercare di riguadagnare il denaro perso." b$=b$+88 +"Un ultimo consiglio: man mano che vincete, Isabella sara' sem-pre piu' svestita. Cercate di non guardarla ma di concentrarvisul gioco!!!" Lb$=b$+80 +"& BUON DIVERTIMENTO!" 67008:4200t X4041180840 ] i(8 ) l-2080v:n=80 :a:i(n)=a:n vm40136Ȝ,42618z,45149],47726n,50338,52857y,55313,57722z,60206.  65 Ja$(67(,7) T$7388|:n=776(:b$ ^a=(*68()+4 ha$(a)