ZXTape!PING-PONG  v 0:0:  #1;"ATTENDERE PREGO" 8,0:"" 8,0:"" (8,0:"" +On=021:n,0;7;" ":n ,Xn=210-1:n,0;0;" ":n -0:0: <2,0:"" A%#1;"CARICAMENTO IN CORSO" F2,0:"" ,K1 XF8888888888888888888888888888888888888888888888888888888888888888o2 p!@!@3 v<@??@ |>B<||BJN>B8 pF`D@FB@BFBBBsC00x@>B<@<<<x`8a @<??```1@ !!B$D& 88@ @ @@ 8h 88@8<!!B$D&88 888xxs<T D DDD @ `DDp   l T<<@D D!!B$D&DD8 @@0@xD`` 0 TDD D <DD @@ @x 1 0 T<<8 !!B$Df 88x `<@  @  <p 8 0@ `@     @ 0@ <p`  @D 0 8  @@0D@` <`@8D@π`<"@@ 8@<D" A0  pp<< A` @=P@8x@0 @!@8/////////888888888888888888888?8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888)888888888888888888)8888888888888)8888888888888888)888888888888888)88888888888888)88888888888888888)888888888888)8888888888888888888)8888888888)888888888888888888)88888888888)88888888888888888888)888888888)8888888888888888888888)88888888888888888888888888888888)88888888)88888888888888888888888)888888)8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888c 0  B<~||<|<<@<||~<~B< ?  B< B@<><<<x~@|>B<|@<||>B<@<||>B<<<<<<<|><@@BBBBBB@BBB@@@bB8  C   B((B(BBbBbBBbB@B@@BBBBD@@BbBBBbB@BBB@@BBBfB@BBBfBBB@BBB@B@BBBB<|BBBBBB@BBB|<|RB@  B@ 0 B@~RBR@BRB<@|@@B@BB|@BR@BBR@<@B@@@BBBZB@BBBZB@B> ~> B~<><<<x~~@>B<@~B@B>BB~B@B>BB<<B p@ B ?.~|<@~B@~|~<<@~<<<><><<<><<<x~<|<~<<>B><|<B~~B<<<B<@BB@@fBb@@B@BB@@@BbB@@@@@@@h88Dx8 88x8 88D88hxD88@BBBB@BBB(BBBBD@@BBB@b@BB$@BBBBBF|BB@|ZBR@|B|@B@|~~B~<<~~<B<><><<><><<~x~<BB~<<>B><BBB@<<<<<@` 8>>|><<~~|~B~@<x>|~~>B<|BB~|>B~B<!\!9,B@BbBBB@BB@@@BB@B@b@@BDB@Bb@D@@@BBB@@bBBBBbDB@Bf@bB"j #B@'Ϝ|BJB@~B~@@NB@B@J@@~B|@BJ@B@@@~|~@@J~BBBJBB@|B@JB"j!$g$HDBBFBBBBBB@B@BB@B@F@@BDD@ BF@D@@@B@B@@FBBBBFD$@DB@FB`9>B><<~<<>~|~B~~Bx>B~~>BB@|<~B>B~B<0! $ $I0`9<~9H11111111111111111111111111111114444444444444444444444444444444442222222222222222222222222222222444444444444444444222222222222224qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttwwwt(((((((((((((((((((((((((((((((-(((((((((((((((((((((((((((((((-((((((((((((((((((((((((((((((--(((((((((((((((((((((((((((((((*444444444444444444444444444444422222222222222222222222222222222222222222222222222222222222222222xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888 (o((2,0:"" ]57012:#1;"PREMI SPACE PER COMINCIARE":1324,::90Z:200 J ********************* ( * disegna campo * (J ********************* 2 < ZXj=215-1:j,0;7;" ":j c3:4 d'42*,120x:149,0 nR189,120x:0,-104h:191,120x:0,-104h x-149,0 L42*,16:0,104h:44,,16:0,104h P116t,120x:0,-104h:115s,16:0,104h V1:64@,152:0,23:10 ,-8:-10 ,-8 /2:78N,152:6,23 g3:88X,152:0,23:7,-8:96`,152:0,23 i4:106j,174:-7,-12 :7,-11 :0,11 :-3,0 /0:110n,164:3,0 W3:120x,152:0,23:10 ,-8:-10 ,-8 j1:138,174:-5,-12 :5,-11 :5,11 :-5,12 i2:147,152:0,23:7,-8:155,152:0,23 i4:165,174:-7,-12 :7,-11 :0,11 :-3,0 0 Ol$="   ":6,0;1;l$ 3k$="    " /j=719:j,0;1;k$:j 0j=2021:j,0;1;l$:j vj=05:j,0;7;1;ٺ(*5)+1;" ":j:0    J ********************* ( * variabili * J *********************   Cvv=0:ret=0:x=15:y=2:x1=x:y1=25 Zfuor=0:a$=" ":destra r=400:sinistra k=500 movimento palla=1000 p=0:p1=0 ;"gioc.1 nome?(max3 lettere) ";n$:n$>3230 ;"gioc.2 nome?(max3 lettere) ";o$:o$>3231 $"Punteggio di arrivo? (11/21) ";ss punto=3000 :fuori=3100 :rete=3200 :controllo=4000:batt=2010:vince g1=6000p:vince g2=7000X 7:0,0;"G.1 ";n$;0,24;"G.2 ";o$;2,0;0;1;p;2,27;0;1;p1 cambio palla=5000    J ********************* ( * battuta d'inizio * J *********************   "batte g.1 premi ENTER";q$ sx2=x-1:y2=y+1:dir=2010:a$=" ":c=x-1:c1=y:movimento palla "J ********************* #( * movimento omini * $J ********************* % + ,85:x,y;2;"";x+1,y;2;"" 63x1,y1;1;"";x1+1,y1;1;"" @a=x:a1=x1:b=y:b1=y1 J*x=x+(="z"x<20)-(="x"x>7) T.x1=x1+(="7"x1<20)-(="8"x1>7) ^="v"destra r c h="0"sinistra k m ra,b;" ";a+1,b;" " |!a1,b1;" ";a1+1,b1;" " movimento palla:300 ,   T ********************* ) * scelta traiettorie* J *********************   fuor=1 x2x-1 by2=4fuor=1:dir=2010:a$=" ":450:lunga Zy2=2ret=1:dir=2010:a$=" ":450:in rete y2<2y2>4 !a$=" " (dir=2010+10 *((*3)) Px-1,y;" ":.009ztj,10 :x-1,y;"  ":vv=0   x2x1-1 fuor=1 [y2=26ret=1:dir=2050:a$=" ":540:in rete cy2=24fuor=1:dir=2050:a$=" ":540:lunga y2<24y2>26 #a$=" " (dir=2050+10 *((*3)) Zx1-1,y1;"":.005y# =,30:x1-1,y1-3;"  ":vv=0 & ' 0 :J ********************* D( * movimento palla * NJ ********************* V W (paper=4+(c1<5c1>23) x2=21x2=20 +dir:c,c1;1;paper;a$(vv+1) x2=5x2=6 1vv=vv+1:vv=25fuor=0punto 'x2,y2;1;paper;a$(vv+1)  c=x2:c1=y2 g:g1 x2=x2+g:y2=y2+g1 $x2>19x2<71043  1045 y2<23y2>6fuori (a$(vv+1)="".008zn,0 !fuor=1vv=25fuori ret=1vv=12 rete $ . 8 BJ ********************* C( * traiettorie palla * DJ ********************* E F !0,1:d. normale +(-.25~),1: d. su .(+.25~),1: d. giu' "0,-1:s. normale  +(-.25~),-1: s. su -(+.25~),-1: s.giu'   % *J ********************* -( * controllo punti * /J ********************* 0 3 g1=1p=p+1 g1=-1p1=p1+1 m$="*FUORI*" controllo g1=1p1=p1+1 &g1=-1p=p+1 'fuor=0 +6m$="*FUORI* tira piu' piano" 0 controllo g1=1p1=p1+1 g1=-1p=p+1 ret=0 m$="*RETE*" controllo 7:0,0;"G.1 ";n$;0,24;"G.2 ";o$;2,0;0;1;p;2,27;0;1;p1;4,10 ;m$ "p=ssp-p1<2ss=ss+1 #p1=ssp1-p<2ss=ss+1 0((p+p1)/5)=(p+p1)/5cambio palla p=ssvince g1 p1=ssvince g2 -batt=2010x2=x-1:y2=y+1 /batt=2050x2=x1-1:y2=y1-1 #a$=" " |"premi ENTER";q$:90Z:vv=0:dir=batt:4,10 ;" ": $"CAMBIO PALLA premi ENTER";q$ .batt=2010batt=2050:4011 "batt=2050batt=2010  4011   * >J ********************* H( * Giudizio finale * RJ ********************* \ f o p_:10 ,4;"*********************" z]12 ,4;"*********************" <11 ,4; "* COMPLIMENTI G.1 *" &.2~L,12 :.73333,12 %.2~L,12 :1,24 Uz=16:s$="HAI VINTO QUESTA PARTITA SEI VE-RAMENTE IMBATTIBILE !!":9000(# Cz=20:s$="riprovi ?":9100#:"s/n ";r$ r$="s"r$="si"2 r$="n"r$="no" X_:10 ,4;"*********************" b]12 ,4;"*********************" v<11 ,4; "* COMPLIMENTI G.2 *" &.2~L,12 :.73333,12 %.2~L,12 :1,24 Uz=16:s$="HAI VINTO QUESTA PARTITA SEI VE-RAMENTE IMBATTIBILE !!":9000(# Cz=20:s$="riprovi ?":9100#:"s/n ";r$ r$="s"r$="si"2 r$="n"r$="no" #(-z,0:9998':g=1̱s$:a:b #)'254,33!:254,0 #* 7 #2,.01z# =,b+12 :.01z# =,b+24 #4s$(g);:a/20,b #<g #='254,22:254,0 #> 1 #F #-z,0:9999':g=1̱s$:a:b #,.01z# =,b+12 :.01z# =,b+24 #s$(g);:a/20,b #g # 'g3,0,1,0,1,0,3,0,1,0,1,0,3,4,3,0,3,0,3,4,3,4,1,4,1,4,3,4,1,4,1,4,3,7,3,4,6,4,3,4,1,4,1,4,3,4,1,4,3,4,3,4,1,5,3,5,3,4,5,4,1,4,3,4,1,4,3,4,3,4,1,4,1,4,5,7,17,9 ,1,9 ,5,11 ,17,4,1,4,4,7,17,9 ,1,9 ,5,11 ,13 ,4,4,2,1,0,4,2,1,0,1,2,7,4 '1,12 ,1,12 ,3,11 ,1,11 ,3,9 ,3,9 ,1,9 ,3,7,3,5,12 ,4 z #a bS riprovi ?Rnping XpxxxpࠠBB< <<8|||8