ZXTape!5 DONI TTV 5:5:5: /0,0;:"":0,0;:"" @C @D;;;;;;;;;;;;;;;;;;;;;;;;;;;;;@;;   |  N  ̀̀@̀' ̀ ̀`;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;O; ;0p@  [  |;8;@p;; ;B!; ;;    |     >8   !7 p@A78 0̀@̀@7̀|̀@̀ ̀̀`̀; ;@p;9;1@; ;;; @   $)JR    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ̀̀̀;;;;;;;;;;;;;;;;;;;;;;;;;;;;; )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))99999999999999999999999999))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111113111119))))))91111111111111111113321119))))))91111111111111111111221119))))))91111111111111111114411119))))))91111111111111111111122119))))))91111111111111111111122119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))91111111111111111111111119))))))99999999999999999999999999)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((C 77b7] CINQUE DONI SOTTO L'ALBERO andevi' 85 51,20:23658j\,8:z$(32 ) Fn$(20,28):nn=1:i(5):q=0:9000(# ef(5,3):s(5,3):6:n=15:g=13:s(n,g):g:n  y3,8,4,4,6,2,1,4,1,2,2,3,1,4,5 i=0:p=i+4 #k=(*9 +1):t=0 d schermo e7:7:1: g236077\,1:7,4;"aaaaaaaaaaaaaaaaaaaaaa";18,4;"aaaaaaaaaaaaaaaaaaaaaa":n=817:n,4;"a";n,25;"a":n:236077\,60< hF0;7;9 ,11 ;"OPZIONI":k=11 108l j10;11 ,6;"1 INFORMAZIONI" l0;12 ,6;"2 INSERIMENTO DATI";13 ,6;"3 CONTROLLO DATI";14,6;"4 TACCUINO";15,6;"5 SOLUZIONE" n;.005y# =,10 :.005y# =,30:=""110n p)="R"q=1:9028D#:100d r<"1"Ŧ>"5"110n t*(11 ,6)"1"Ʀ="1"110n v찦*1000 opzioni  info 9 :0:0: i(1)1102N 0,0;"OPZIONE 1 INFORMAZIONI":':236077\,14:"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ":236077\,60< 4,0;"CON QUESTA OPZIONE POTRAI AVERE"'"DELLE INFORMAZIONI UTILI."'"ATTENTO PERO', PERCHE' LE INFORMAZIONI NON SARANNO PIU' RIPETUTE." +"QUINDI PRENDI NOTA DI QUELLO CHESAPRAI." I(1)=1  1300 N1t=t+1:k=k+1:k>10 k=1 Pt=11 k=11 Q0:0:7: V 1500 Y(W=(*4):k=11 1115[ Zp;3,2;"IL ";"BARBIERE "W;"POSTINO "W=1;"FORNAIO "W=2;"SARTO "W=3;"TI CONFIDA CHE"i<2;"TI RIVELA CHE"i=2;"TI DICE CHE"I>2:1116\ [%p;2,8;"TUTTI DICONO:" \.1200+K*2:1300:9999' 2p;4,2;"ANDREA NON SI CHIAMA BRUNI"  p;4,2;"IL GIORNO DI SANTO STEFANO";5,2;"LA PICCOLA ROSSI HA INVITATO";6,2;"CAROLINA E I RAGAZZI";7,2;"A GIOCARE COL SUO MONOPOLI."  ~p;4,2;"IL TRENO ELETTRICO E' STATO";5,2;"PORTATO AL NUMERO 4";6,2;"DI VIA DEI PINI."  p;4,2;"I SIGNORI FANTI NON SONO";5,2;"PER NIENTE INTERESSATI";6,2;"AGLI HOME-COMPUTERS."  tp;4,2;"LA CASA DELLA BAMBOLA";5,2;"E' STATA REGALATA";6,2;"A UNA RAGAZZA."  rp;4,2;"LA FAMIGLIA BRUNI";5,2;"ABITA AL NUMERO 4";6,2;"DI VIA DEI PINI."  Pp;4,2;"I GEMELLI BRUNI";5,2;"SONO DI SESSO DIVERSO"  Np;4,2;"IL COGNOME DI MAURIZIO";5,2;"NON E' FANTI"  |p;4,2;"BEATRICE ABITA TRA I BRUNI";5,2;"E CHI HA AVUTO IN DONO";6,2;"LO SPECTRUM."  pp;4,2;"LA BICICLETTA NON E'";5,2;"IL REGALO RICEVUTO";6,2;"DA ANDREA."  Ep;5,9 ;"SPIACENTE!";7,7;"NON SO ALTRO..."  ?n=13 20:p;n,12 ;" ":n Cp;0;13 ,18;"OPZIONI:":k=11 1306 5p;0;15,13 ;"1 INFORMAZIONI" p;0;16,13 ;"2 INSERIMENTO DATI";17,13 ;"3 CONTROLLO DATI";18,13 ;"4 TACCUINO";19,13 ;"5 SOLUZIONE" B.005y# =,2:.005y# =,12 :i$=:i$=""1310 ="R"q=1:9028D#  i$<"1"i$>"5"1310 "-(15,13 )=" "i$="1"1310 $#.3,30:i$*1000 ;i=i+1:p=i+4:p>7i=0:p=4 236077\,10 :i;p;0,0;"ssssssssssssssssssssssssssssssss";9 ,0;"ssssssssssssssssssssssssssssssss":n=18:i;p;n,0;"s";n,31;"s":n:236077\,60<   2500 i(2)2010 ''''"QUESTA OPZIONE TI CONSENTE DI MEMORIZZARE I DATI CHE HAI RICAVATI."'"SCEGLI IL NUMERO RELATIVO AL NOME CHE TI INTERESSA."'"SE NON VUOI RISPONDERE AL DATO RICHIESTO PREMI ~0~" -21,0;"UN TASTO PER CONTINUARE" Pi(2)=1:.005y# =,10 :.005y# =,30:=""2008 :i(2)=1:n=821:N,0;z$:n In=15:n+8,10 ;n;" ";b$(n,̰b$(n,10 )):n O18,0;"PREMI IL NUMERO CORRISPONDENTE AL NOME CHE TI INTERESSA." <.005y# =,10 :.005y# =,30:=""2012 <"1"Ŧ>"5"2012 sol=::21004 4236077\,15:0,0;"aaaaaaaaaaaa";4,0;"aaaaaaaaaaaa":n=13:n,0;"a";n,11 ;"a":n:236077\,60< 6-2,2;b$(sol,̰b$(sol,10 )) 8J18,0;"IL COGNOME DI ";b$(sol,̰b$(sol,10 ));" E'....." :e$:e$=""2106: ;e$(1)="0"2120H <e$<52106: >)n=14:e$=c$(n)2114B @Yn:18,0;"NON CONOSCO NESSUNO CON IL COGNOME ~";e$;"~.":2106: Bf(sol,1)=n H'n=1821:n,0;z$:n JD18,0;b$(sol,̰b$(sol,10 ));" ABITA AL NUMERO..." Le$:e$=""2124L Me$(1)="0"2140\ Npe$"2"e$"4"e$"6"e$"8"18,0;"NON CONOSCO NESSUNO CHE ABITI AL NUMERO ";e$;".":2124L Pf(sol,2)=e$ \'n=1821:n,0;z$:n ^U8,0;b$(sol,̰b$(sol,10 ));" HA RICEVUTO IN DONO..." `9n=15:n+10 ,2;n;" ";d$(n):n bD'''"PREMI IL NUMERO CORRISPONDENTE."'"~0~ SE NON VUOI RISPONDERE." d="0":100d f<"1"Ŧ>"5"2148d h&f(sol,3)=:.3,10 iUn=1821:n,0;z$:n:21,0;"UN TASTO PER CONTINUARE." j;.005y# =,0:.005y# =,20:=""2154j l20:100d 1:7:1: v''"OPZIONE 2: INSERIMENTO DATI":236077\,6:'"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb":236077\,60<   2:7:2: i(3)3009 x:''"OPZIONE 3: CONTROLLO DATI":236077\,6:'"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb":236077\,60< ''''"QUESTA OPZIONE TI CONSENTE DI CONTROLLARE I DATI CHE HAI MEMORIZZATI."'"SCEGLI IL NUMERO RELATIVO AL NOME CHE TI INTERESSA." -21,0;"UN TASTO PER CONTINUARE" Pi(3)=1:.005y# =,10 :.005y# =,30:=""3008 w:'"OPZIONE 3: CONTROLLO DATI":236077\,6:'"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb":236077\,60< In=15:n+8,10 ;n;" ";b$(n,̰b$(n,10 )):n O20,0;"PREMI IL TASTO CORRISPONDENTE AL NOME CHE TI INTERESSA." <.005y# =,10 :.005y# =,30:=""3014 <"1"Ŧ>"5"3014 n= Finf=0::"CONTROLLO DATI"'"RELATIVI A ";b$(n,̰b$(n,10 )) K'':f(n,1)'"IL SUO COGNOME E' ";c$(f(n,1)):inf=inf+1 Af(n,2)'"ABITA AL NUMERO ";f(n,2):inf=inf+1 Df(n,3)'"DONO RICEVUTO:":d$(f(n,3)):inf=inf+1 0inf=0'''"NON HAI INSERITO ALCUN DATO." :inf0inf<3''"NON HAI INSERITO ALTRI DATI" 1300   taccuino $4500:I(4)4006 '''''"L'OPZIONE ~TACCUINO~ TI CONSENTE"'"DI PRENDERE DELLE ANNOTAZIONI,"'"DI RILEGGERLE QUANDO VUOI, E DI"'"CANCELLARLE SE LE CONSIDERI"'"SUPERATE." I(4)=1 14,0;"1 INSERIRE NUOVE ANNOTAZIONI";16,0;"2 LEGGERE ANNOTAZIONI";18,0;"3 CANCELLARE ANNOTAZIONI" )20,0;"0 RITORNO AL MENU'" <.005y# =,10 :.005y# =,12 :=""4012 ="0"100d <"1"Ŧ>"3"4012 4000+*100d  4500 tnn<2015,0;"HO SPAZIO PER ";20-nn;" NOTE"'"DELLA LUNGHEZZA DI 28 CARATTERI.":4103 [nn2010 ,0;"SPIACENTE."'"NON HO PIU' SPAZIO DISPONIBILE.":4399/ nn=204010 H.2~L,20:.2~L,25:'"INSERISCI LA TUA ANNOTAZIONE."  Jn$(nn):4,0;1;nn;0;" ";n$(nn):nn=nn+1  .2~L,nn 3N=1520:N,0;Z$:N:4010 h 4500 iFnn=1''"NON HO NESSUNA ANNOTAZIONE"'"MEMORIZZATA":4399/ j2n=1nn-1:" "n<10 ;n;" ";n$(n) ln  4399/  4500 Fnn=1''"NON HO NESSUNA ANNOTAZIONE"'"MEMORIZZATA":4399/ 'n=1nn-1:n;" ";n$(n):n &"NUMERO DELLA NOTA DA CANCELLARE";nc ?nc>nn-1'"NON HAI MEMORIZZATO LA NOTA ";nc:4399/ 2n$(nc)="":"LA NOTA ";nc;" E' STATA CANCELLATA." $n=nc19:n$(n)=n$(n+1) n nn=nn-1 /v'''''"1 PRENDERE APPUNTI"'"2 LEGGERE NOTE INSERITE"'"3 CANCELLARE NOTE INUTILI"'"0 RITORNO AL MENU'":4012 6:6:9 : 0,0;"OPZIONE: TACCUINO":236077\,12 :2,0;i;p;"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa":236077\,60<    5500| ;n=15:g=13:f(n,g)5008 g:n:5010 h8,0;"NON PUOI ACCEDERE AL CONTROLLO SE PRIMA NON HAI INSERITO TUTTI I DATI.":1300 x=15:5500| ;'"CONTROLLO DELL'ESATTEZZA DEI DATI ATTRIBUITI A:" 236077\,4:7,8;"CCCCCCCCCCCC";11 ,8;"CCCCCCCCCCCC":n=810 :n,8;"C";n,19;"C":n:236077\,60< 3n=810 :n,9 ;x;" ":n B5700D:x;9 ;9 ,10 ;b$(x,̰b$(x,10 )) =13 ,0;"IL SUO COGNOME E' ";c$(f(x,1));"." \f(x,1)=s(x,1)x;1;13 ,26;"ESATTO":5550:5030 21;13 ,26;"ERRATO":5600 715,0;"ABITA AL NUMERO ";f(x,2);"." \f(x,2)=s(x,2)x;1;15,26;"ESATTO":5550:5040 21;15,26;"ERRATO":5600 N17,0;"IL DONO RICEVUTO E':";18,0; d$(f(x,3)) \f(x,3)=s(x,3)x;1;18,26;"ESATTO":5550:5050 21;18,26;"ERRATO":5600 #X=65550:5100 Gx<521,0;x;9 ;"UN TASTO PER CONTINUARE..." <.005y# =,20:.005y# =,30:=""5054 x 6:6: 'f$=" " *f$=f$+" " *f$=f$+" " y=1:b=1:n=1204:n,y;b;f$:b=b+1:y=y+2:m=2040(2.5 :.02{# =,m:m:n  5550 H.2~L,20:.2~L,25:10 :5114:5112 =""  { |:6:6:9 : }v"OPZIONE 5 SOLUZIONE":':236077\,1:"GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG":236077\,60< ~ 0n=2026.2~L:.02{# =,n:n:  q19,0;"SPIACENTE!!!LE TUE CONCLUSIONI"'"NON SONO ESATTE.":1;"PREMI UN TASTO PER RITENTARE." 1.2~L,20:.1}L,0:5604 =""5602  Du$=b$(x,̰b$(x,10 )) F`i=1̱u$:x;9 ;9 ,i+9 ;u$(i):.02{# =,10 :.02{# =,30:i H o pgraf #(,9001)#:k="a""c"+7:j:k,j:k #)0,128,128,192,192,224,224,240,240,120x,120x,60<,60<,30,30,15,15,7,7,3,3,1,1,0 #*6:0:6: #,!a$="CINQUE DONI SOTTO L'ALBERO" #.On=1̱a$:1,n+2;a$(n):.002xn,(*10 +40():n #2Y''"Cinque ragazzi, amici tra loro,"'"abitano in quattro case vicine"'"in Via dei Pini." #4"Ognuno di loro ha trovato sotto"'"l'albero un bel dono."'"Devi ricostruire, in base alle"'"informazioni che avrai, a quale"'"numero abita ognuno dei cinque,"'"quale e' il suo cognome,"'"e quale dono ha ricevuto." #6''"Il programma prevede diverse"'"opzioni."'"Per ognuna avrai le informazioni"'"necessarie.":'" BUONA CACCIA." #7<.002xn,10 :.009ztj,30:=""90157# #c$(4,5):9035K#:n=14:c$(n):n #K!"BRUNI","FANTI","MONTI","ROSSI" #NO0,16;"COGNOMI:":n=14:n+1,16;c$(n):n #PE8,0;"ABITANO AI NUMERI 2-4-6-8 DI VIA DEI PINI." #R$12 ,0;"DONI RICEVUTI:" #T?d$(5,23):9050Z#:n=15:d$(n):n #Zh"UNA CASA PER LA BAMBOLA","IL GIOCO ~MONOPOLI~","UNA BICICLETTA","UNO SPECTRUM","UN TRENINO ELETTRICO" #_1n=15:N+12 ,0;d$(n):n #d1;19,0;"POTRAI RIVEDERE QUESTA PAGINA QUANDO VUOI, PREMENDO ~R~ COME OPZIONE. " #f<.002xn,10 :.009ztj,30:=""9062f# #iqq=0::100d #k ' '65536-7962 r