ZXTape!6SCOPA d 60000`:0:0:0::10 ,10 ;7;"CARICAMENTO";#1;7;"  Original soft.":20,0;:"":20,0;:"" :SCOPA  * \####^#Vz *=\s#rS\!0 [=\s#r!C s#r!::\<( ( B\!\*S\ 6#::\ 81>2:\vM8Z Z P P P 3]MR7R \Wq !`v>l|88|T8TT8||8~B.5 /tocca10 ,8;"INIZI TU A GIOCARE" 1tocca10 ,6;"INIZIO IO A GIOCARE" 100d H9900&:23659k\,1:22,15;" Original soft." 8mano=mano+1:mano>69000(#:100d cartegio=0 ?mano=1n=14:p(n)=m(n):n:ppoint=4 mano=185004! cartegio=0cond=5+(3tocca=0)+(mano-1)*6:n=condcond+2:i(n+1-cond)=m(n):n:ipoint=3 " 8600! ,cartegio=0cond=5+(3tocca=1)+(mano-1)*6:n=condcond+2:s(n+1-cond)=m(n):n:spoint=3 @ 8780L" E0,0;"Mano:";mano J'tocca=16000p:7000X O0,0;"Mano:";mano T'tocca=07000X:6000p ^cartegio=cartegio+1 hcartegio=3220 m 330J qpoint=04020 "k=1qpoint*22 g(s(q(k))lmincs(q(k))lmaxc)(p(q(k+1))lmincp(q(k+1))lmaxc)vett=1:4500 k wpoint=04040 "k=1wpoint*33 (s(w(k))lmincs(w(k))lmaxc)(p(w(k+1))lmincp(w(k+1))lmaxc)(p(w(k+2))lmincp(w(k+2))lmaxc)vett=2:4500 k epoint=04060 "k=1epoint*44 (s(e(k))lmincs(e(k))lmaxc)(p(e(k+1))lmincp(e(k+1))lmaxc)(p(e(k+2))lmincp(e(k+2))lmaxc)(p(e(k+3))lmincp(e(k+3))lmaxc)vett=3:4500 k rpoint=0 "k=1rpoint*55 (s(r(k))lmincs(r(k))lmaxc)(p(r(k+1))lmincp(r(k+1))lmaxc)(p(r(k+2))lmincp(r(k+2))lmaxc)(p(r(k+3))lmincp(r(k+3))lmaxc)(p(r(k+4))lmincp(r(k+4))lmaxc)vett=4:4500 k: lminc37%4530 =vett=1conv=502:vetpresa=1:vetpoint=k: =vett=2conv=502:vetpresa=2:vetpoint=k: =vett=3conv=502:vetpresa=3:vetpoint=k: =vett=4conv=502:vetpresa=4:vetpoint=k: lminc74560 Kvett=140(>convconv=40(:vetpresa=1:vetpoint=k: Kvett=240(>convconv=40(:vetpresa=2:vetpoint=k: Kvett=340(>convconv=40(:vetpresa=3:vetpoint=k: Ivett=440(>convconv=40(:vetpresa=4:vetpoint=k  lminc314590 Kvett=130>convconv=30:vetpresa=1:vetpoint=k: Kvett=230>convconv=30:vetpresa=2:vetpoint=k: Kvett=330>convconv=30:vetpresa=3:vetpoint=k: Ivett=430>convconv=30:vetpresa=4:vetpoint=k  Kvett=120>convconv=20:vetpresa=1:vetpoint=k: Kvett=220>convconv=20:vetpresa=2:vetpoint=k: Kvett=320>convconv=20:vetpresa=3:vetpoint=k: Ivett=420>convconv=20:vetpresa=4:vetpoint=k  "carta<11 valcarta=carta: Fvalcarta=((carta)(2)):valcarta=0valcarta=10 :  a(4):qpoint=0wpoint=0epoint=0rpoint=016,17;"CARTA SCARTATA";17,17;" ";18,17;" ":6255o 16,13 ;"Inserisci i numeri";17,13 ;"delle carte da ";18,13 ;"prendere: ":len=0 0:presa= /presa=13 .2~L,20:5120 +presa<491presa>5575115 D.01z# =,20:len=len+1:18,21+len;presa len<45115  qpointlen15125  len=1qpoint5500|  len=2wpoint5514  len=3epoint5520  len=4rpoint5526 19,13 ;"COMBINAZIONE";20,13 ;"ERRATA":.5,0:19,13 ;" ":20,13 ;" ";18,22;" ":5110 17,13 ;" SCOPA!  ";16,17;" ";18,17;" ":.5,10 (/n=1ppoint-1:u(upoint+n)=p(n):n 26u(upoint+ppoint)=p(ppoint)+100d:ppoint=0 <;upoint=upoint+n:n=xcuripoint-1:i(n)=i(n+1) FTn:ipoint=ipoint-1:17,13 ;" ":85004!:8600!: |Qa(1)=(18,22):n=1qpoint:q(n)=a(1)5507 n:5125 Rupoint=upoint+2:u(upoint)=p((18,22)):ppoint=ppoint-1 3n=(18,22)ppoint:p(n)=p(n+1) Wn:u(upoint-1)=i(xcur):ipoint=ipoint-1:n=xcuripoint:i(n)=i(n+1) n:85004!:8600!: Da(1)=(18,22):a(2)=(18,23) `n=1wpoint:a(1)=w(n*2-1)a(2)=w(n*2)point=n:5750v n:5125 fa(1)=(18,22):a(2)=(18,23):a(3)=(18,24) n=1epoint:a(1)=e(n*3-2)a(2)=e(n*3-1)a(3)=e(n*3)point=n:5810 n:5125 a(1)=(18,22):a(2)=(18,23):a(3)=(18,24):a(4)=(18,25) n=1rpoint:a(1)=r(n*4-3)a(2)=r(n*4-2)a(3)=r(n*4-1)a(4)=r(n*4)point=n:5870 n:5125 DYupoint=upoint+1:u(upoint)=p(point):n=q(point)ppoint-1:p(n)=p(n+1) Nn:ppoint=ppoint-1 XTupoint=upoint+1:u(upoint)=i(xcur):n=xcuripoint-1:i(n)=i(n+1) bn:ipoint=ipoint-1 l85004!:8600!: vupoint=upoint+2:u(upoint-1)=p(w((point-1)*2+1)):u(upoint)=p(w(point*2)):k=21-1 Bn=w((point-1)*2+k)ppoint-1:p(n)=p(n+1) n:ppoint=ppoint-1:k Tupoint=upoint+1:u(upoint)=i(xcur):n=xcuripoint-1:i(n)=i(n+1) n:ipoint=ipoint-1 85004!:8600!: upoint=upoint+3:u(upoint-2)=p(e((point-1)*3+1)):u(upoint-1)=p(e((point-1)*3+2)):u(upoint)=p(e(point*3)):k=31-1 Bn=e((point-1)*3+k)ppoint-1:p(n)=p(n+1) n:ppoint=ppoint-1:k Tupoint=upoint+1:u(upoint)=i(xcur):n=xcuripoint-1:i(n)=i(n+1) n:ipoint=ipoint-1 85004!:8600!: upoint=upoint+4:u(upoint-3)=p(r((point-1)*4+1)):u(upoint-2)=p(r((point-1)*4+2)):u(upoint-1)=p(r((point-1)*4+3)):u(upoint)=p(r(point*4)):k=41-1 Bn=r((point-1)*4+k)ppoint-1:p(n)=p(n+1) n:ppoint=ppoint-1:k Tupoint=upoint+1:u(upoint)=i(xcur):n=xcuripoint-1:i(n)=i(n+1) n:ipoint=ipoint-1 85004!:8600!: pf6900:16,17;"ATTENDI";17,17;"VALUTAZIONE";18,17;"PRESA" zcarta=i(xcur) t(carta)=1  5000 q(4):qpoint=0 w(40():wpoint=0 e(40():epoint=0 r(40():rpoint=0 valute=valcarta Rscopa=0:n=1ppoint:carta=p(n):5000:scopa=scopa+valcarta:n valute=scopa5150 ppoint=05100 gn=1ppoint:carta=p(n):5000:valcarta=valuteq(qpoint+1)=n:qpoint=qpoint+1 n ppoint<25100 ,n=1ppoint-1:j=2ppoint n=jn>j6140 Ycarta=p(n):5000:valsum=valcarta:carta=p(j):5000:valsum=valsum+valcarta `valsum=valutew(wpoint*2+1)=n:w(wpoint*2+2)=j:wpoint=wpoint+1 j:n  ppoint<35100 Fn=1ppoint-2:z=2ppoint-1:j=3ppoint %n=zn=jz=jn>zn>jz>j6190. carta=p(z):5000:valsum=valcarta:carta=p(n):5000:valsum=valsum+valcarta:carta=p(j):5000:valsum=valsum+valcarta $}valsum=valutee(epoint*3+1)=n:e(epoint*3+2)=z:e(epoint*3+3)=j:epoint=epoint+1 . j:z:n =ppoint<45100 B`n=1ppoint-3:k=2ppoint-2:j=3ppoint-1:z=4ppoint L=n=kn=jn=zk=jk=zj=zn>kn>jn>zk>jk>zj>z6240` Qcarta=p(n):5000:valsum=valcarta:carta=p(k):5000:valsum=valsum+valcarta:carta=p(j):5000:valsum=valsum+valcarta:carta=p(z):5000:valsum=valsum+valcarta Vvalsum=valuter(rpoint*4+1)=n:r(rpoint*4+2)=k:r(rpoint*4+3)=j:r(rpoint*4+4)=z:rpoint=rpoint+1 ` z:j:k:n j 5100 o*ppoint=ppoint+1:p(ppoint)=i(xcur) t*n=xcuripoint-1:i(n)=i(n+1) ~n:ipoint=ipoint-1 85004!:8600!: xcur=2 22,xcur;"^" 0:.001wn,502:=" "ipoint>122,xcur;" ":xcur=xcur+4*(xcur=2)+4*(xcur=6ipoint=3)-8*(xcur=10 )-4*(xcur=6ipoint=2):22,xcur;"^" -=13 22,xcur;" ":6925   6910  Yxcur=(xcur=2)+2*(xcur=6)+3*(xcur=10 ):.2~L,30: XU3,0;"ATTENDI"'"LA RISPOSTA DEL"'"COMPUTER":spoint=17060 ]0spoint=2s(1)<317060 bspoint=2s(1)>30s(2)<31s(3)=s(1):s(1)=s(2):s(2)=s(3):7060 gDspoint=2s(1)>30s(2)>307060 l@s(1)>30s(2)>30s(3)7060 qIs(1)<31s(2)>30s(3)>307060 v5s(1)<31s(2)<317060 {s(1)>30s(2)<31s(3)<31app=s(1):s(1)=s(2):s(2)=s(3):s(3)=app:7060 s(1)>30s(2)>30s(3)<31app=s(3):s(3)=s(2):s(2)=s(1):s(1)=app:7060 s(1)<31s(2)>30s(3)<31app=s(2):s(2)=s(3):s(3)=app:7060 7app=s(2):s(2)=s(1):s(1)=app ppoint=07500L 1carsco=0:n=1spoint:scopa=0 Ck=1ppoint:carta=p(k):5000:scopa=valcarta+scopa:k carta=s(n):5000 scopa=valcartacarsco=n n:carsco=07140 J.5,20:1,2;" SCOPA! ":n=carsco:8700! Lt(s(carsco))=1:cpoint=cpoint+1:c(cpoint)=s(carsco)+100d ,n=carscospoint-1:s(n)=s(n+1) n:spoint=spoint-1 $n=1ppoint:c(cpoint+n)=p(n) `n:cpoint=cpoint+ppoint:ppoint=0:85004!:8780L":1,2;" ": tq(24):qpoint=0:w(502):wpoint=0:e(502):epoint=0:r(502):rpoint=0 *h=1spoint:carta=s(h):5000 valcom=valcarta n=1ppoint:carta=p(n):5000:valcom=valcartaqpoint=qpoint+1:q(qpoint*2)=n:q(qpoint*2-1)=h n ppoint<27260\ ,n=1ppoint-1:j=2ppoint n=jn>j7190  Ycarta=p(n):5000:valsom=valcarta:carta=p(j):5000:valsom=valsom+valcarta uvalsom=valcomwpoint=wpoint+1:w(wpoint*3-2)=h:w(wpoint*3-1)=n:w(wpoint*3)=j j:n ppoint<37260\ Fn=1ppoint-2:j=2ppoint-1:z=3ppoint  %n=zn=jz=jn>jj>zn>z72204 *carta=p(n):5000:valsom=valcarta:carta=p(j):5000:valsom=valsom+valcarta:carta=p(z):5000:valsom=valsom+valcarta /valsom=valcomepoint=epoint+1:e(epoint*4-3)=h:e(epoint*4-2)=n:e(epoint*4-1)=j:e(epoint*4)=z 4 z:j:n 9ppoint<47260\ >`n=1ppoint-3:k=2ppoint-2:j=3ppoint-1:z=4ppoint C=n=kn=jn=zk=jk=zj=zn>kk>jj>zn>jn>zk>z7250R Hcarta=p(n):5000:valsom=valcarta:carta=p(k):5000:valsom=valsom+valcarta:carta=p(j):5000:valsom=valsom+valcarta:carta=p(z):5000:valsom=valsom+valcarta Mvalsom=valcomrpoint=rpoint+1:r(rpoint*5-4)=h:r(rpoint*5-3)=n:r(rpoint*5-2)=k:r(rpoint*5-1)=j:r(rpoint*5)=z R z:j:k:n \h fconv=0 kNlminc=37%:lmaxc=37%:n=1ppoint:p(n)=37%:4000 pn u.n=1spoint:s(n)=37%:4000 zn glminc=7:lmax=27:n=1spoint:s(n)=7s(n)=27s(n)=17:4000 n In=1ppoint:p(n)=7p(n)=17p(n)=27:4000 n Nlminc=31:lmaxc=40(:n=1ppoint:p(n)>30:4000 n .n=1spoint:s(n)>30:4000 n =lminc=1:lmaxc=40(:n=1ppoint:4000 !n:n=1spoint:4000 n:conv=07500L !vetpresa=1n=q(vetpoint) !vetpresa=2n=w(vetpoint) !vetpresa=3n=e(vetpoint) !vetpresa=4n=r(vetpoint) .3,0:8700! >spoint=spoint-1:cpoint=cpoint+1:c(cpoint)=s(n) k=nspoint:s(k)=s(k+1) k vetpresa17410 9cpoint=cpoint+1:c(cpoint)=p(q(vetpoint+1)) 9n=q(vetpoint+1)ppoint-1:p(n)=p(n+1) 4n:ppoint=ppoint-1:8780L":85004!: vetpresa27435  Ok=21-1:cpoint=cpoint+1:c(cpoint)=p(w(vetpoint+k)) 3n=w(vetpoint+k)ppoint-1:p(n)=p(n+1) n:ppoint=ppoint-1:k 8780L":85004!:  vetpresa37465) Ok=31-1:cpoint=cpoint+1:c(cpoint)=p(e(vetpoint+k)) 3n=e(vetpoint+k)ppoint-1:p(n)=p(n+1) n:ppoint=ppoint-1:k $8780L":85004!: )Ok=41-1:cpoint=cpoint+1:c(cpoint)=p(r(vetpoint+k)) .3n=r(vetpoint+k)ppoint-1:p(n)=p(n+1) 3n:ppoint=ppoint-1:k 88780L":85004!: L?carta=s(1):5000:scarto=valcarta:carsco=1 V_n=spoint1-1:carta=s(n):5000:valcarta9 v$=carta h#v$(2)="1"c$(8)=s$: r4v$(2)="2"c$(2)=s$:c$(14)=s$: |Dv$(2)="3"c$(2)=s$:c$(8)=s$:c$(14)=s$: Uv$(2)="4"c$(1)=s$:c$(3)=s$:c$(13 )=s$:c$(15)=s$: ev$(2)="5"c$(1)=s$:c$(3)=s$:c$(13 )=s$:c$(15)=s$:c$(8)=s$: uv$(2)="6"c$(1)=s$:c$(3)=s$:c$(7)=s$:c$(9 )=s$:c$(13 )=s$:c$(15)=s$: v$(2)="7"c$(1)=s$:c$(3)=s$:c$(5)=s$:c$(7)=s$:c$(9 )=s$:c$(13 )=s$:c$(15)=s$: v$(2)="8"c$(1)=s$:c$(3)="J":c$(5)="":c$(8)="":c$(11 )="":c$(13 )="J":c$(15)=s$: v$(2)="9"c$(1)=s$:c$(3)="Q":c$(5)="":c$(8)="":c$(11 )="":c$(13 )="Q":c$(15)=s$: ‹v$(2)="0"c$(1)=s$:c$(3)="K":c$(5)="":c$(8)="":c$(11 )="":c$(13 )="K":c$(15)=s$:  yc,xc;2*(carta<11 carta>30);c$(13);yc+1,xc;c$(46);yc+2,xc;c$(79 );yc+3,xc;c$(10 12 );yc+4,xc;c$(13 15): `over:x,y:27,0:0,-43+:-27,0:0,43+:0: ?j=nlpnlu:j,0;" ":j: !40:7:14,2;"1";14,6;"2";14,10 ;"3";14,14;"4";14,18;"5";14,22;"6";14,26;"7" !9 ppoint>7ppoint=7 !>P6,38&,70F,102f,134,166,198:y=113q !H>8510>!:n=1ppoint:x:over=1:8160:n !R'nlp=8:nlu=12 :8170 !\ 8510>! !aover=0 !f*n=1ppoint:carta=p(n):8000@ !p8yc=8:xc=(n-1)*4+1:8150 !zx:8160:n !#n=1ppoint:t(p(n))=1 !n: !8510>!:y=491 !2n=1ipoint:x:over=1:8160:n !(nlp=16:nlu=20:8170 !8510>!:over=0 !*n=1ipoint:carta=i(n):8000@ !9yc=16:xc=(n-1)*4+1:8150 !x:8160:n: !222,190,158 "4y=169:x=222:over=1:8160 "$over=0 ".carta=s(n):8000@ "8%yc=1:xc=28:8150 "B8160: "LK8700!:y=169:n=1spoint:x:over=1:8160:n "N&nlp=1:nlu=5:8170 "P8700!:over=0 "R.n=1spoint:carta=.1}L:8000@ "T:yc=1:xc=32 -(n*4):2:8150 "V7:x:8160:n: #("toccappoint09040P# #2ppoint=09060d# #<)n=1ppoint:upoint=upoint+1 #Fu(upoint)=p(n):n:9060d# #P)n=1ppoint:cpoint=cpoint+1 #Zc(cpoint)=p(n):n #dn23659k\,2:4:4:0::23659k\,1:22,15;" Original soft." #i120x,24:0,151:119w,24:0,151:0,24:255,0:0,25:255,0 #n1,4;"SPECTRUM";1,23;"TU":2,0;"********************************":20,0;7;0;"ATTENDI CON PAZIENZA IL RESPONSO" #s5,0;7;1;"CARTE:";cpoint;5,16;"CARTE:";upoint:puntu=(upoint>cpoint):puntc=(cpoint>upoint) #x^ori=0:n=1cpoint:(c(n)>30c(n)<41))c(n)>130ori=ori+1 #}2n:8,0;7;3;"ORI:";ori #auori=0:n=1upoint:(u(n)>30u(n)<41))u(n)>130uori=uori+1 #4n:8,16;7;3;"ORI:";uori #0puntc=puntc+(ori>uori):puntu=puntu+(uori>ori) #7ce=0:carta=37%:mazzo=1:9300T$ #Wcepuntc=puntc+1:11 ,0;7;2;"SETTEBELLO":9125# #ce=0:mazzo=2:carta=37%:9300T$:cepuntu=puntu+1:11 ,16;7;2;"SETTEBELLO" #mazzo=1:primc=0 #k=03:ce=0 #Mcarta=7+10 *k:9300T$:ceprimc=primc+100d:9170# #Lcarta=6+k*10 :9300T$:ceprimc=primc+60<:9170# #Lcarta=1+k*10 :9300T$:ceprimc=primc+557:9170# #Lcarta=5+k*10 :9300T$:ceprimc=primc+502:9170# #Lcarta=4+k*10 :9300T$:ceprimc=primc+40(:9170# #Lcarta=3+k*10 :9300T$:ceprimc=primc+30:9170# #@carta=2+k*10 :9300T$:ceprimc=primc+20 #k #mazzo=2:primu=0 #k=03:ce=0 #Mcarta=7+10 *k:9300T$:ceprimu=primu+100d:9225 $ #Lcarta=6+k*10 :9300T$:ceprimu=primu+60<:9225 $ #Lcarta=1+k*10 :9300T$:ceprimu=primu+557:9225 $ #Lcarta=5+k*10 :9300T$:ceprimu=primu+502:9225 $ #Lcarta=4+k*10 :9300T$:ceprimu=primu+40(:9225 $ #Lcarta=3+k*10 :9300T$:ceprimu=primu+30:9225 $ $@carta=2+k*10 :9300T$:ceprimu=primu+20 $ k $Rprimc>primu14,0;7;3;"PRIMIERA":puntc=puntc+1 $Sprimu>primc14,16;7;3;"PRIMIERA":puntu=puntu+1 $Fscope=0:n=1cpoint:c(n)>100dscope=scope+1 $Jn:17,0;7;1;"SCOPE:";scope:puntc=puntc+scope $"Fscope=0:n=1upoint:u(n)>100dscope=scope+1 $'Kn:17,16;7;1;"SCOPE:";scope:puntu=puntu+scope $,Ypuntc>puntu20,0;7;0;" HA VINTO IL COMPUTER ! " $1_puntu>puntc20,0;7;0;" HAI VINTO TU ! " $6]puntu=puntc20,0;7;0;" PUNTEGGIO PARI ! " $;6#1;"Vuoi fare un'altra partita?[s/n]":0 $@(="s"23659k\,2::10 $E 0 $Tmazzo=29315c$ $Y,n=1cpoint:c(n)=cartace=1: $^n:ce=0: $c,n=1upoint:u(n)=cartace=1: $hn:ce=0: &H:m(40() &\0c=140(:posc=(*40()+1 &f(m(posc)=0m(posc)=c:9870& &p4n=posc+140(:m(n)m(n)=c:9870& &z6n:n=1posc-1:m(n)m(n)=c:9870& &n &c: &7:7:0: &0,118v:255,0:0,119w:255,0:0,557:255,0:0,546:255,0 & &023659k\,2:1:7:1 &^:23659k\,1:0,10 ;"S C O P A";0,9 ;1;"___________" &<2,13 ;"by";3,6;" Original soft." &5,0;"Chiunque di voi conosce le rego-le del gioco della scopa."'"Quindi,esponiamo subito i tasti comandi per giocarci." &"Il video e' diviso in 3 parti."'"La parte superiore e' dedicata alle carte del computer e visua-lizza la mano in corso. La partecentrale e' occupata dalle cartedel piatto (numerate da 1 a 7)." &"Infine la parte inferiore visua-lizza le vostre carte.Per gioca-re una carta, utilizzate il ta- sto 'SPACE' che muove una frec- cia lampeggiante sotto le vostrecarte. Posizionate la freccia sotto la carta da giocare e pre-mete 'enter'." &2200:23659k\,2::0,10 ;"S C O P A";0,9 ;1;"___________";0;2,13 ;"by";3,6;" Original soft." '~5,0;"Se la carta da voi giocata puo' prendere delle carte dal piatto,allora digitate i numeri relati-vi ad esse in ordine successivo e premete ancora 'enter'"'"Vi ricordiamo che nelle peggio- ri condizioni (7 carte sul piat-to e 3 carte in mano al compu- ter), il vostro Spectrum potra' metterci circa 2 minuti prima dirispondervi."'"E adesso buona scopa !!" 'L21,0;"Vuoi rivedere le istruzioni?";#1;"[s/n]":0 ' ="s"9950& '