archivio !R=0:U=0:V=1 :V:V:7:236099\,20:23658j\,8 d-:V;V,6;" MENU PRINCIPALE " n5,6;"1: Creazione file"''6;"2: Immissione record"''6;"3: Visione record"''6;"4: Ricerca"''6;"5: Scrittura file"''6;"6: Lettura file"''6;"7: Fine lavoro";#v;6;"QUALE OPZIONE:" I$=:I$=""500 I$<"1"I$>"7"500 %R=UI$"1"I$"6"I$"7"500 ;.1}L,10 ::(I$-480)*1000:100d ;7,9 ;"SEI SICURO (S/N)?":U:=""1000  "S" /V;10 ,6;" CREAZIONE NUOVO FILE " O0,0;"Numero di campi (1-8)? ";A:A<1A>81030 *A(A):B(A+V):N$(A,10 ):T=U:N=VA 50,0;"Nome del campo ";(N);" ? ";N$(N) $MV,0;"Lunghezza del campo ";(N);" ? ";A(N):A(N)>5021060$ .B(N)=T:T=T+A(N):N:B(N)=T 8j16,2;"Spazio per circa ";(((23730\+256*23731\)-29500N=VA:V;V+N*2,U;N$(N);0;V+N*2,12 ;V;"?":"(fino a ";(A(N));" caratteri)",A$(C,B(N)+VB(N+V)):V+2*N,12 ;A$(C,B(N)+VB(N+V)):N HF=V150:F:C=V RN=C \A$(C)A$(C-V) f3X$=A$(C):A$(C)=A$(C-V):A$(C-V)=X$:C=C-V:C=V p 2140\ J:1;10 ,6;" F I L E P I E N O ":F=V400:F: D=V:A$(V,V)=" " D=UD=V D-V=RD=D-V A$(D,V)=" "D=D-V 9500% OP=VD=D+V:3010 OP=2D=D-V:3010 OP=3 OP=48000@ OP=5MD=V:9000(#  3030 :N=VA:V;N*2,9 ;U;11 ;":- ";N$(N):N (''"RICERCA SU QUALE CAMPO (1- ";A;")?" =""4020 /Y$=:Y$<491ůY$>480+A4030 L.1}L,10 :Z=Y$:'"Cosa cercate nel campo ";Z:Z$(V,A(Z)):Z$(V) :K=V 'A$(K,B(Z)+VB(Z+V))=Z$(V)4050 hK=RA$(K,V)=" ":9 ,3;" NESSUN RECORD CON ";Z$(V),'10 ;"NEL CAMPO ";Z:150: K=K+V:4045 D=V:PM=V:MO=V  D>RD=PM  D=UD=PM A$(D,V)=" "D=PM /A$(D,B(Z)+VB(Z+V))Z$(V)D=D+MO:4060  9500% PM=D  OP=VMO=V:D=D+MO:4060 "'OP=2MO=-V:D=D+MO:4060 ,OP=3 6OP=48000@ @>OP=5DF=U:MD=2:9000(#:DF=VA$(V,V)=" " J 4100 7"Nome del file ";Q$:Q$10 5000 Q$5: pH8,U;"Nome del file da leggere, o solo[ENTER] per il primo file" zX$:X$>10 6010z +13 ,U;"AVVIARE IL RAGISTRATORE":X$ X911 ,7;"Sei sicuro (S/N)?":=""7000X b "S" lU @=U,U;"VARIARE quale campo (1- ";(A);")?";J:J>A8000@ JV;V+2*J,12 ;A$(D,B(J)+VB(J+V)):U,U;"Immettere il nuovo campo",A$(D,B(J)+VB(J+V)):V+2*J,12 ;A$(D,B(J)+VB(J+V)) TD=RJ=-V:8070 ^D=VJ=V:8060| hA$(D)>A$(D+V)J=V rA$(D)19,U;" CANCELLAMENTO IN CORSO " #KDD=D #PD=RDD=DD-V:9060d# #Z1A$(D+V,V)" "A$(D)=A$(D+V):D=D+V:9040P# #dLA$(D)="":F=V100d:F:19,U;" " #nD=DD:A$(V,V)=" "D=U: #p D=UD=V #sA$(D,V)=" "D=D-V #xMD=V #K=V #'A$(K,B(Z)+VB(Z+V))=Z$(V)9130# ##K=RA$(K,V)=" "DF=V:4046 #K=K+V:9100# # DD=D:PA=V #.A$(DD,V)=" "DD=UPA=2:DD=D:MO=MO-V #$A$(DD,B(Z)+VB(Z+V))=Z$(V)D=DD: #DD=DD+MO:9140# %bU,U;"N. del record ";D;" ":N=VA:V;V+2*N,U;N$(N);U;12 ;A$(D,B(N)+VB(N+V)):N %&#1;1;0,0;"[A] avanti","[I] indietro","[M] menu","[V] variazione","[C] cancellam.","[S] stampa " %0=""95200% %:"V$=:V$="S"::::95200% %DOP=U:V$="A"OP=V:MO=V %NV$="I"OP=2:MO=-V %XV$="M"OP=3 %bV$="C"OP=5 %lV$="V"OP=4 %vOP=U95200% %.1}L,10 : klettere u tu w ll=32 :pl=32 "ll=ll+1:t=(pl-ll)/2  d=0  a$:l=a$ ( c=0 2c=l30 <0c=c+1:d=d+1:c>1100d Fa$(c)="#"500 Pa$(c)="*"700 Ua$(c)="&"850R Z7a$(c)="$"13 ;13 ;:d=0:900 _a$=" "+a$:l=l+1 da$(c)=" "800  na$(c); sd>lld=0 x 502 nl=0:ta=ll:be=0 Qle=a$-1:le>ll1;"ERRORE DI FORMATO:"'"INDIRIZZO TROPPO LUNGO": le>bebe=le /nl=nl+1:a$:a$(1)="#"510  1000 &Ftr=t+ll-be:g=1nl:h=1tr:" ";:h:a$:a$(2):g 0 30 _ta=(ll-l)/2+t:taslx110n R13 ;:d=0  b=1t:" ";:b:502  ---TESTO--- "#3 Snodgrass Gardens"  "#Taustenbury" "#5 March 1984" "$" "$Mr Hiram Firem" "&Production Director" $("&Firem Electrical Engineering Co Ltd" ."&22 Station Road" 8"&Taustembury" B "&TA5 1AT" L"$" V"$" `"Dear Mr Firem" j"$" t"*Engineering Trainee" ~"$" ^"&I wish to apply for the above position, as advertised in today's 'Taustenbury Chronicle'." "$As you will see from my CV, enclosed, I am an ex-pupil of Tanstenbury Grammar School, where my five O-levels included English, Mathematics and Physics." V"$In addition, I do have a little pratical experience in electrical work - at home," e" where I helped my father (a qualified electrician) re-wire our house, and at school, where I was" g" a keen member of the electronics club and as such helped build the school's public address system." "$I have always wanted a career in electrical engineering, and should you decide to appoint me you will find me an enthusiastic worker." {"$I should be grateful for the opportunity of an early interview, in the meantime, copies of my references are enclosed." "&" "$Yours sincerely" "$" "$" "$" "Kenneth Sparks"  "$" bilancio 2 ? 24mn=300,:23733\=127mn=100d d.c$(8,16):a(mn):a$(mn,18) nu=0:v=1 xn=v8:c$(n):n 23658j\,8 p=2:tt=u:cr=u D:v;2;6;2,4;" MENU PRINCIPALE " Ev;5;5,4;" 1:- IMMISSIONE ";7,4;" 2:- VISIONE ";9 ,4;" 3:- SCRITTURA SU NASTRO";11 ,4;" 4:- LETTURA DA NASTRO ";13 ,4;" 5:- STAMPA DEI DATI ";15,4;" 6:- MODIFICA ";17,4;" 7:- FINE LAVORO " =3;v;v;20,4;" - SELEZIONE - " =""230 z$=:z$<"1"z$>"7"230 :1000*z$  200 c=u c=c+v:c=mn+v a$(c,v)=" "1010  1005 >u,u;v;2;7;"_DATA__________IMPORTO_____OPE__"  c=mn+v !1500:a$(c,2)=" "  1800 @"Importo ";v$:n=1̱v$:v$(n)<"0"v$(n)>"9"1040  n:a(c)=v$ 1900l:23-v$;v$; a(c)=u1040 $%"Categoria ";f$:f$=""1060$ .)n=v8:f$=c$(n,v̱f$)1090B 8n:1060$ Bn=8cr=cr+a(c) Ln8tt=tt+a(c) V25;c$(n,v7) `F"Operazione ";a$(c,518):a$(c,5)=" "1120` j"13 ;A$(c,518) a$(c,v)=(480+n) c=c+v:1015 4a$(c,24)="":":giorno ";f$:F$="" %f$<1űf$>21500 )f$=1(f$<"1"f$>"9")1500 +f$=2(f$<"01"f$>"31")1500 a$(c,2)=(480+f$) ":mese ";f$ %f$<1űf$>21550 ")f$=1(f$<"1"f$>"9")1550 ,+f$=2(f$<"01"f$>"12")1550 6a$(c,3)=(480+f$) ;=a$(c,2)=79O"101010110101"(f$)"1"1500 <1f$=2a$(c,2)=78N1500 @":anno ";f$ J%f$<1űf$>21600@ T)f$=1(f$<"0"f$>"9")1600@ ^+f$=2(f$<"00"f$>"99")1600@ ha$(c,4)=(480+f$) rXa$(c,2)=77Ma$(c,3)=502ưf$/4ɺ(f$/4)1600@  Ra$(c,2)-480;"/";a$(c,3)-480;"/";a$(c,4)-480;  U#p;a$(c,2)-480;"/";a$(c,3)-480;"/";a$(c,4)-480; & l n=v$-31-3 vv$=v$(n)+"."+v$(n+1) n: Gn=v8:v;n-v;9 ;n*2,6;" ";n;":- ";c$(n):n 9v;2;19,4;" Quale categoria (1-8) " =""2020 !z$=:z$<"1"z$>"8"2020  t=u:c=u ?:#p;ڰz$-1;9 ;v;10 ;c$(z$);31;" " c=c+v:c=mn2500  a$(c,v)=" "2500 a$(c,v)z$2055  6#p;:1820:#p;9 ;a$(c,518); *+v$=a(c):1900l:#p;32 -v$;v$ 4 t=t+a(c) > 2055 V#p;25;"-------":v$=t:1900l:#p;11 ;"TOTALE:- ";32 -v$;v$ z$"8"2590 Bv$=tt:1900l:'#p;"TOTALE DELLE SPESE:- ";32 -v$;v$ Cv$=(t-tt):1900l:'#p;10 ;"SALDO:- ";32 -v$;v$ 62;7'" Press any key to continue " (u:23560\=13 2:2000 8000@:re=v P6;10 ,u;" Nome per il file ":w$:w$>10 3010 w$="" :w$a():w$a$(): 8000@:re=v Jv;10 ,u;"Nome del file da leggere":w$:w$>10 4010 ?3;7;10 ,u;" Avviare il registratore " w$a():w$a$() -cr=u:tt=u:n=vmn:a$(n,v)="8"cr=cr+a(n) a$(n,1)"8"tt=tt+a(n) n: 0v;10 ,u;" Vuoi fare una stampa (s/n)? " u:=""5010 z$= z$="N"p=2: z$="S"p=3:  5010 pc=v:a(c)=u z:u,u;v;(a$(c,v))-v;9 ;" Numero ";c,c$(a$(c,v)) D2;7;''"__DATA__________IMPORTO_____OPE_":1800 (v$=a(c):1900l:23-v$;v$ "13 ;a$(c,518) b3;7;20,u;" A - Avanti I - Indietro EDIT per modificare un record " u ="I"c>vc=c-v:6010z ="A"cmnc=c+v a(c)=uc=c-v "23560\=76100  6010z 41:1500:a$(c,2)=" "6100 "0:6,u;:1800 a$(c,v)"8"tt=tt-a(c) a$(c,v)="8"cr=cr-a(c) O1;"nuovo Importo ";v$:n=1̱v$:v$(n)<"0"v$(n)>"9"6120 )a(c)=v$:1900l:23-v$;v$; a(c)=u6120 a$(c,v)"8"tt=tt-a(c) 41;"nuova Categoria ";f$:f$=""6160 )n=v8:f$=c$(n,v̱f$)6190. $n:6160 .a$(c,v)=(480+n) 8n=8cr=cr+a(c) Bn<8tt=tt+a(c) L25;c$(n,v7) VU1;"nuova Operazione ";a$(c,518):a$(c,5)=" "6230V `"13 ;a$(c,518)  20: X8000@:re=v bu @,4;10 ,9 ;" Sei sicuro? " Ju:re=u:"S"re=v T #(["SPESE VARIE","DIVERTIMENTI","AFFITTO","ABBIGLIAMENTO","AUTO","VACANZE","LIBRI","ENTRATE" istogrammi  6g=0:236099\,20:23658j\,8 d7:7:0: n?1;3;7;4,9 ;" O P Z I O N I " x51;7,6;" 1:- IMMISSIONE DATI " 51;9 ,6;" 2:- VISIONE/MODIFICA " 61;11 ,6;" 3:- GRAFICO " 61;13 ,6;" 4:- INTERO SCHERMO " @1;1;2;16,9 ;" QUALE OPZIONE " =""160 a$=:a$<"1"a$>"4"160 a$"1"g=0160 a$*1000:100d Jn --INPUT NUMERICO-- "(w$);a$:a$=0510 j=1̱a$ 7(a$(j)"0"a$(j)"9")a$(j)="."a$(j)="-"j:v=a$: & 510 --IMMISSIONE-- 1:1:7: "NOME PER L'ASSE X ?"'x$ &1;0,0;" ";x$;" " "NOME PER L'ASSE Y ?"'y$ '1;0,16;" ";y$;" " $(w$="QUANTI "+x$+" (1-25)? ":500 .'v<1v>25vɺv1060$ B z=v:a(z) L k=1z V,w$="IMMETTERE DATI PER "+k+" ":500 `a(k)=v jk,a(k) tk:g=1:502: --VISIONE/MODIFICA-- 2:2:7  cn=1 ::6;2;0,0;x$,y$;31;" "  cn,a(cn) p#1;6;2;0,0;" EDIT per modificare il valore ogni altro tasto prosegue. "  0 =""2050  c$= c$=72500  6cn=z6;2;"FINE DEI DATI":100d: *(cn=cn+1:cn=212025 4 2030 4w$="IMMETTERE NUOVO VALORE DI "+cn+" ":500 a(cn)=v: --GRAFICO CON SCALA-- 50:0:7::hi=0:lo=0 k=1z a(k)>hihi=a(k) a(k)hih=lo  ra=hi-lo #h1hi=1:3150N !#h5hi=5:3150N &%h10 hi=10 :3150N +%h502hi=502:3150N 0'h100dhi=100d:3150N 5'h500hi=500:3150N :)h1000hi=1000:3150N ?)h5000hi=5000:3150N Dh10000'hi=10000' Nwd=(25/z) Xtype=1ft=80P/hi btype=2ft=162/hi l!568,org:198,0 v%557,4:0,160 =n=41688:524,n:3,0:n 0#1;1;0,14;" ";x$;" " z$=" "+y$+" " n=1̱z$ 2n+(19-y$)/2,0;1;z$(n) n dc=1 type=13320 n=hi0-(hi/10 ) n<.01z# =n=0 n$=n dc,(6-n$);n dc=dc+2 n 3400H n=hi-hi-(hi/5) %n<.01z# =n>-.01z# =n=0 n$=n dc,(6-n$);n dc=dc+2 *n H ink=1 R n=1z \cm=org f+ink=ink+1:ink=8ink=2 pink zm=1(a(n)*ft)ͼa(n) @568+(n-1)*wd*8,cm:wd*8-2,0 cm=cm+a(n) m n ""3500 =""3510  --INTERO SCHERMO-- 50:0:7::hi=0:lo=0  n=1z a(n)>hihi=a(n) a(n) 18 a3,6,5,9 ,6,3,6,8,3,5,9 ,4 'isto3  xb a(12 ):n=0  (5,14;"MENU" 2'8,8;"1: IMMISSIONE DATI" <(10 ,8;"2: VISIONE GRAFICO" F$12 ,8;"3: FINE LAVORO" PA$=:A$<"1"A$>"3"80P ZA$*200 d 20 :n=1 '"ELEM. N. ";n;"= ";:a$:a$:a$="" a(n)=a$:n=n+1 n<13 210 n=n-1:  n=0 *:tt=0:t=1n:tt=tt+a(t):t f=2*/tt 127,86V,60< a=0:k=1n  m=a+a(k)*f -127,86V:60<*m,60<*m a=m k  0: ? -  n f|XaIڣ mIڣA3Xcubitali2   23658j\,8 +n(26):a(26,12 ,2) n=126 ( a$:n(n)=a$(1)-480 2!m=1̯A$(1)-480 "Z"n:100d g(10 *(n-1)*x)+x*a(t$-64@,1,1),20+y*a(t$-64@,1,2) m=2n(t$-64@) 9x*a(t$-64@,m,1),y*a(t$-64@,m,2) m n 100d "8000511401/0+03*0" "<0006501/0///+0501/0///+0" "861//,0/10411401/" "70006402.0...,0" "760*00660*00-50" "6000660*00-50" $":52100///,0/10411401/" ."600060-60030*" 8"60060-006-060" B"5011/401105" L"600060-63*-6-" V "360*006" `"500063-330*" j "400066*06" t"910/10411401/0,//,0" ~"70006501/0///+0" "9422.+0/10411401/0+" "90006501/0///+0402-" "<011/401101/1,0/10111401/"  "43006-060" "6060+1/401105"  "3063*36" "5061*232-16" "50066---36*" "53003-33-33"  "460*066*0" ografici 2 S<4U< N=10 F 20,N PX=112 ZY d18,Y-N iN=Y nX 20,10 0,155 20,10 235,0 s502,70F,60<,100d,80P,120x,100d,130,70F,140,90Z,110n nn Pyn grafici 3 5 y(12 ) (n=112 2C"Valore ";(n);" della Y ",y(n):y(n)=y(n)+10 :y(n)-10 <n: F n=10 P 20,n Zx=112 d18,y(x)-n in=y(x) nx 20,10 235,0 20,10 0,155 ? *K)!a+&:** ( Zgrafici 4 OOQQ y(12 ) !xs=2:ys=1/502 (n=112 2y(n) <n: F n=8 P 40(,n Zx=112 d8*xs,(y(x)-n)*ys in=y(x) nx 40(,8 0,8000@*ys 40(,8 100d*xs,0 x=012 2 21,x*2+4;x x ,!y=08000@2000 6%(8000@-y)/400,0;y @y 4000,2000,6000p,3000 ,8000@,4000,5000,2000,6000p,1500,3000 ,500 trace o'\[q''64869e:""64870f,450 '-65282->INTON 65302->INTOFF [d trace% f:F\(PS*E\ͲPS*G\&͸!Z6GZ >(ɯ <8B=0!4*K6\&o))) w$Pf!q#q>G^>?VG P3!]mdv-conv S'SnU'O65199:"insert%"65200,168:"65200"'"per conversione" Rinsert% w*S\####~(&("((  #[K\R8#~*(*Y\էRDM*Y\ *Y\+!+  d^V! sr*"m",1;MOO\GWq !Wv>compander >'>l@COMPANDER TESTO: caricare il programma principale con poi 9991 e inserire le stringhe di testo da impaccare cosi' come $verrebbero stampate. . 8a$(n,2) =offset inizio B ciascuna stringa Lz(..) =testo impaccato V ` 64600,768 '"64599":"": '#"n msg ";n:a$(n,"2"):"64600" '.f="65000-7962":z((f/"5")):z(/)="11" ' p=ç:m=/n:f-z(/)-p ' "msg n. ";(m)'z$ ' z(/)+p+z$>f ' z$="" 'Lp=z$:"64607":a$(m)=("(z(1)-(z(1)/256)*256")+("(z(1)/256)")::m comp% X0! "gqp N#F# ">2!i"#~B(͵(>͵#:B"g @8 O!( >~͵ >y+x!=(ݾ >1ݾA >@'>`"0'0'0'8O~^( ~_ !"yKA! Gݦwxݦ w{8#2> EIAORNLTS^_CUPDMGVZBHFQXYKWJ[\]       ?*K\~00)0(:0)`0 #~8Z  (#^#V# (# NF N#F# "o>2!i"| > {(w#B !~ݦC!88~ /~A0(%0/0/0/ !iO {8#2~_~ !" ^ {  "_{ P3]3]M]3]]MR R \Wq !Wv>decoder lcln'hz(1)=a$(1)+a$(2)*256:650819:z$:: Z$ deve essere predefinita  Pcomp-sorg%x@z;COMPRESSORE DI TESTI ;  ORG 64600 ESTART LD HL,11  LD (MARRY+1),HL  RET $; .ECODES PUSH IX 8 PUSH IY B CALL ESETUP LMARRY LD BC,#FFFF V LD (IY+8),C ` LD (IY+9),B j PUSH IY t ADD IY,BC ~ LD C,(HL)  INC HL  LD B,(HL)  PUSH HL  INC HL  ADD HL,BC  LD (ECTEST+1),HL  LD A,7  LD (BITCNT+1),A  LD HL,CSP  LD (PREFCD+2),HL ECLOOP POP HL  INC HL  PUSH HL  LD A,(HL)  AND A ECTEST LD BC,#FFFF ( SBC HL,BC 2 JR Z,ECLEND < CALL ENCODE F ADD A,0 P JR Z,ECLOOP ZECLEND POP HL d LD A,0 n CALL ENCODE x INC IY  PUSH IY  POP HL  POP BC  LD A,(BITCNT+1)  ADD A,249  SBC HL,BC  LD (MARRY+1),HL  POP IY  POP IX  RET ENCODE LD B,CLAST-CODE+1  CP "@"  JR C,LAKE  XOR #20 LAKE LD C,A  LD HL,CLAST "TRYC SUB (HL) , JR Z,MATCH 6 CP #20 @ JR NZ,NOUPP J LD A,"^"+#20 TREDO PUSH HL ^ PUSH BC h CALL ENCODE r POP BC | POP HL  JR MATCH NOUPP CP #E0  JR NZ,NOLOW  LD A,"_"+#20  JR REDO NOLOW LD A,C  DEC HL  DJNZ TRYC  RET MATCH LD A,B PREFCD LD IX,#FFFF BITCNT LD E,#FF  DEC E  DEC E  DEC A  JR Z,SPACEE & CP (IX+FIRST-CODE) 0 JR NZ,NOTFIR : LD A,0 D JR TOP NNOTFIR DEC E X CP (IX+SECOND-CODE) b JR NZ,LONG l LD A,%010*32 v JR TOP SPACEE LD A,%011*32  DEC E  JR TOP LONG DEC E  DEC E  DEC E  DEC E  DEC E  ADD A,255+CODE-CLAST  CP 255+CEIGHT-CLAST  JR NC,TOP  INC E  SLA A  ADD A,CLAST-CEIGHT+1  CP 255+CSEVEN-CLAST+CSEVEN-CEIGHT  JR NC,TOP  INC E * SLA A 4 ADD A,CLAST-CSEVEN+CEIGHT-CSEVEN+1 > CP 255+CSIX-CSEVEN+CSIX-CSEVEN+CSIX-CEIGHT+CSIX-CLAST H JR NC,TOP R INC E \ SLA A f ADD A,CLAST-CSIX+CEIGHT-CSIX+CSEVEN-CSIX+CSEVEN-CSIX+1 p; zTOP LD C,A  LD A,(HL)  CP "^"  JR Z,TOPOUT  LD A,(IX)  CP "_"  JR NZ,HOLD  LD HL,CPUN HOLD LD (PREFCD+2),HL TOPOUT LD A,C TOPACT LD BC,(BITCNT+1)  LD B,C  INC B JAR RLCA  DJNZ JAR  LD IX,LO  ADD IX,BC $ LD B,A . AND (IX+1) 8 OR (IY) B LD (IY),A L LD A,B V AND (IX+UP-LO+1 ` LD (IY+1),A j LD A,E t CP %10000000 ~ JR C,DONE ADD A,8 INC IY DONE LD (BITCNT+1),A LD A,0 RET ; CODE EQU $ CSP DEFB " " CE DEFB "E" CI DEFB "I" CA DEFB "A" CO DEFB "O" CR DEFB "R" CN DEFB "N"  CL DEFB "L"  CT DEFB "T" ( CS DEFB "S" 2 ; < CSIX EQU $ F CUP DEFB "^" P CAR DEFB "_" Z DEFB "C" d CU DEFB "U" n DEFB "P" x CD DEFB "D" DEFB "M" DEFB "G" DEFB "V" DEFB "Z" ; CSEVEN EQU $ DEFB "B" CH DEFB "H" DEFB "F" DEFB "Q" ; CEIGHT EQU $ CX DEFB "X"  DEFB "Y"  DEFB "K"  DEFB "W" " DEFB "J" , DEFB "[" 6 CPO DEFB "\" @ CLAST DEFB "]" J CPUN EQU $ T FIRST DEFB CUP-CODE ^ DEFB CSP-CODE h DEFB CSP-CODE r DEFB CSP-CODE | DEFB CSP-CODE DEFB CE-CODE DEFB CE-CODE DEFB CA-CODE DEFB CE-CODE DEFB CI-CODE DEFB CS-CODE DEFB CL-CODE DEFB CO-CODE DEFB CE-CODE DEFB CR-CODE DEFB CI-CODE DEFB CE-CODE DEFB CR-CODE  DEFB CE-CODE  DEFB CI-CODE  DEFB CI-CODE & DEFB CE-CODE 0 DEFB CI-CODE : DEFB CU-CODE D DEFB CSP-CODE N DEFB CSP-CODE X DEFB CE-CODE b DEFB CSP-CODE l DEFB CU-CODE v DEFB CAR-CODE DEFB CAR-CODE DEFB CSP-CODE DEFB CAR-CODE ; SECOND DEFB CD-CODE DEFB CR-CODE DEFB CN-CODE DEFB CL-CODE DEFB CN-CODE DEFB CI-CODE DEFB CT-CODE DEFB CL-CODE DEFB CA-CODE  DEFB CT-CODE DEFB CT-CODE  DEFB CAR-CODE DEFB CH-CODE * DEFB CT-CODE 4 DEFB CE-CODE > DEFB CE-CODE H DEFB CA-CODE R DEFB CI-CODE \ DEFB CA-CODE f DEFB CA-CODE p DEFB CA-CODE z DEFB CI-CODE DEFB CA-CODE DEFB CX-CODE DEFB CE-CODE DEFB CA-CODE DEFB CSP-CODE DEFB CA-CODE DEFB CO-CODE DEFB CUP-CODE DEFB CPO-CODE DEFB CAR-CODE DEFB CUP-CODE ; LO DEFB 0  DEFB %1  DEFB %11  DEFB %111 $ DEFB %1111 . DEFB %11111 8 DEFB %111111 B DEFB %1111111 LUP DEFB %11111111 V DEFB %11111110 ` DEFB %11111100 j DEFB %11111000 t DEFB %11110000 ~ DEFB %11100000  DEFB %11000000  DEFB %10000000  DEFB 0 ; ESETUP LD HL,(23627)  LD D,0  LD C,3 EREPEA LD A,(HL)  CP #E0  JR NC,VFOR  CP #C0  JR NC,VSA  CP #A0  JR NC,VMN  CP #80  JR Z,ERROR (NOERRO JR NC,VNA 2 CP #60 < JR NC,VN F JR VS PVFOR LD E,19 Z ADD HL,DE d JR EREPEA nVMN INC HL x LD A,(HL)  CP #E0  JR C,VMN VN LD E,6  ADD HL,DE  JR EREPEA VS CP "Z"  JR NZ,VSA  PUSH HL  DEC C  DEC C  JR Z,FINDEX VSA INC HL  LD E,(HL)  INC HL  LD D,(HL)  INC HL  ADD HL,DE " LD D,0 , JR EREPEA 6VNA CP "z"+#20 @ JR NZ,VSA J PUSH HL T POP IY ^ DEC C h JR Z,FINDEX r JR VSA |FINDEX POP HL  INC HL  RET ERROR DEC C  JR NZ,NOPOPH  POP HL NOPOPH POP HL  POP IY  POP IX  RST 8  DEFB 1 ; ; DFIND PUSH IX  PUSH IY  CALL ESETUP  LD C,(IY+8) & LD B,(IY+9) 0 ADD IY,BC : LD C,(HL) D INC HL N LD B,(HL) X INC HL b PUSH HL l ADD HL,BC v LD (DCTEST+1),HL  LD A,7  LD (BITTY+1),A  LD HL,CSP  LD (CHAR+2),HL  POP HL  LD A,H  JR PUSHL DCHASH LD A,9 DCLOOP CP #20  CALL NC,DECODE  AND A  JR Z,DCHASH  POP HL  LD (HL),A  INC HL PUSHL PUSH HL DCTEST LD BC,#FFFF * SBC HL,BC 4 JR NZ,DCLOOP > POP HL H POP IY R POP IX \ RET f; pDECODE LD IX,LO zBITTY LD DE,#00FF  ADD IX,DE  LD A,(IY)  XOR (IY+1)  AND (IX+1)  XOR (IY+1)  LD B,E  INC B BRAN RRCA  DJNZ BRAN  RLA  DEC E  DEC E CHAR LD IX,#FFFF  JR C,LONGD  RLA  JR C,THREE $ LD A,(IX+FIRST-CODE) . JR FOUND 8THREE DEC E B RLA L LD A,(IX+SECOND-CODE) V JR NC,FOUND ` XOR A j JR FOUND tLONGD RRA ~ DEC E  DEC E  DEC E  CP 255+CEIGHT-CLAST  JR NC,EIG  ADD A,255+CEIGHT-CLAST  SRA A  OR #80  CP 255+CSEVEN-CLAST  JR NC,SEV  ADD A,255+CSEVEN-CLAST  SRA A  CP 255+CSIX-CLAST  JR NC,SIX  ADD A,255+CSIX-CLAST  SRA A  JR FIV (EIG DEC E 2SEV DEC E <SIX DEC E FFIV ADD A,CLAST+1-CODE PFOUND LD HL,CODE Z LD C,A d ADD HL,BC n LD A,E x CP %10000000  JR C,NOCHAN  ADD A,8  INC IY NOCHAN LD (BITTY+1),A  LD A,(IX)  CP "_"  LD A,(HL)  JR NZ,NOTLWR  LD IX,CPUN  LD (CHAR+2),IX  SUB #20  RET NOTLWR CP "^"  JR NZ,NOTUPP  CALL DECODE  JR NZ,NOTUPP " ADD A,#20 ,NOTUPP LD (CHAR+2),HL 6 CP "_" @ JP Z,DECODE J CP " " T RET Z ^ XOR #20 h RET video *,!@~w#   4 xD(H$b)=16*(H$(1)-480-7*(H$(1)>"9"))+H$(2)-480-7*(H$(2)>"9") V"21","00","40","01","00","18","7E","1F","B6","77","23","0D","20","F8","10","F6","C9" 2BOLD=5+23635S\+256*23636T\ (N=BOLDBOLD+16 2A$:N,D(A$):N d9R=126:A,B:BOLD+7,A:BOLD+8,B xG:200:#1;0,0;A,B:.1}L,-20:BOLD $30:N=17:BOLD "N:#1;0,0;A,B 60<:R ROTAZIONI SINISTRA %7,119w,7,190 ROTAZIONI DESTRA '15,119w,15,190 SCROLL DESTRA M23,119w,23,190,31,119w,63?,142 CLS ݗ7,166,7,174,15,166,15,174,23,166,31,166,557,134,63?,134 '557,142,47/,150 BOLD L7,182,15,182,23,182,31,182 INVERSE VIDEO '47/,119w,47/,190 INALERATO '23,174,31,174 ol ]AC9dabfinstring ?A+I(N,A$^,B$u^5)=65251 wla routine nella funzi- one cerca A$ dentro di B$ partendo dal carat- tere Nesimo della B$. '65250:""65251,117u <B$="QUESTO E' UN ESEMPIO DELL' USO DELLA FUNZIONE INSRING" 1,1;B$ 23658j\,8 (A$: )50,0;"----.----|----.----|----.----|--" * 1,1;B$:P=1 2P=I(P,A$,B$) 7P <P=030 PP=P+1:502 B5QUESTO E' UN ESEMPIO DELL' USO DELLA FUNZIONE INSRINGpAinstr% uw* \nf^Vz R#^VRMDnf^V+^ V NF x(   x# nf^VRBMDɃinstr-sorg DEFADD EQU 23563   ORG 65251 ( 2IN_STR LD IX,(DEFADD) < LD BC,0 F LD L,(IX+23) P LD H,(IX+24) Z LD E,(IX+4) d LD D,(IX+5) f LD A,D g OR E h JR NZ,OK1 j RST 8 l DEFB 2 m;Subscript wrong nOK1 AND A x SBC HL,DE RET C INC HL LD E,(IX+14) LD D,(IX+15) SBC HL,DE RET C LD C,L LD B,H INC BC LD L,(IX+21) LD H,(IX+22) LD E,(IX+4) LD D,(IX+5)  ADD HL,DE  DEC HL  LD E,(IX+12) " LD D,(IX+13) ,CONTIN LD A,(DE) 6 CPIR @ RET NZ T PUSH BC ^ PUSH DE h PUSH HL r LD C,(IX+14) | LD B,(IX+15)  DEC BC  LD A,B  OR C  JR Z,END1 LOOP INC DE  LD A,(DE)  CP (HL)  JR NZ,END1  DEC BC  LD A,B  OR C  INC HL  JR NZ,LOOP END1 POP HL  POP DE  POP BC  JR NZ,CONTIN END2 LD L,(IX+23)  LD H,(IX+24)  LD E,(IX+14)  LD D,(IX+15)  AND A & SBC HL,DE 0 SBC HL,BC : LD C,L D LD B,H N INC BC X RET basic + [ Basic + dX65199:""65200,168:#:23735\,176:23736\,254 n  (*8)*8 10 :2 :2 130 bas% Ī(( ͷ!@~/w# ׂͷה!XwX R#^VRMDnf^V+^ V NF x(   x# nf^VRBMDbas+ sorg  ORG 65200  RST 16  DEFW #18 ( CP 221 2 JR Z,INV < CP 171 F JR Z,ATTR P JP #01F0 ZINV RST 16 d DEFW #20 n CALL #05B7 x LD HL,#4000 LD B,24 INVLO PUSH BC LD B,0 INVLI LD A,(HL) CPL LD (HL),A INC HL DJNZ INVLI POP BC DJNZ INVLO JP #05C1 ATTR RST 16 DEFW #20  RST 16  DEFW #1C82  CALL #05B7 " RST 16 , DEFW #1E94 6 LD HL,22528 @ LD (HL),A J LD DE,22529 T LD BC,767 ^ LDIR h RRCA r RRCA | RRCA  OUT (254),A  JP #05C1  END ; ;BASIC: ; ; CLEAR 65199 ; POKE 23735,176: ; POKE 23736,254 ; syntax: ; INVERSE: invert video ; ATTR n : change attrib. ; timer % % M' 32319?~:totale=0 7n=32320@~32554*:a:n,a:totale=totale+a:n +totale24216^"Errore nella data": # (32320@~ 233!,0,0,34",120x,92\,34",121y,92\,62>,40(,237,71G,237,94^,201,0,64@,0,0 <62>,62>,237,71G,237,86V,201,0,229,213,197,245,58:,91[,126~,60<,502,91[,126~,254 F502,32 ,502,175,502,91[,126~,58:,120x,92\,60<,502,120x,92\,254,60<,32 ,35#,175,502 P120x,92\,58:,121y,92\,60<,502,121y,92\,254,60<,32 ,20,175,502,121y,92\,58:,122z,92\ Z60<,502,122z,92\,254,13 ,32 ,5,62>,1,502,122z,92\,58:,122z,92\,38&,0,111o,17 d23,64@,205,234,126~,58:,121y,92\,38&,0,111o,17,26,64@,205,234,126~,58:,120x,92\ n38&,0,111o,17,29,64@,205,234,126~,17,208,61=,33!,29,64@,205,34",127,17,208 x61=,33!,26,64@,205,34",127,62>,120x,33!,24,88X,119w,17,25,88X,1,7,0,237 176,205,191,2,241,193,209,225,251,201,237,83S,80P,126~,1,246,255,205,251,126~ 1,255,255,205,251,126~,201,175,9 ,60<,568,252,237,66B,61=,198,480,229,205,21 127,33!,80P,126~,524,42*,80P,126~,205,34",127,225,201,237,75K,546,92\,38&,0,111o 41),41),41),9 ,235,201,6,8,26,119w,36$,19,16,250,201 "Ora? ";a$ 2a$6(a$<"000000"a$>"235959")200 "23674z\,a$(12) "23673y\,a$(34) "23672x\,a$(56) editor    23659k\,3 7:7:9 : (l(8):n=18:l(n):n (z$="" d;ext=200:t$(ext,32 ):ll=32 :pl=32 i's$=" " nht$(1)="INIZIO DEL FILE DI TESTO":t$(2)="--------------------------------":t$(3)=s$ xft$(4)=s$:t$(5)="--------------------------------":t$(6)="FINE DEL FILE DI TESTO" !t=1:b=6:p=4 ,:1,,10 ;"MENU PRINCIPALE",,, '4,1;"1:-Load del testo";6,2;"2:-Save del testo";8,3;"3:-Cambio carta";10 ,4;"4:-Editor";12 ,5;"5:-Clear del testo";14,6;"6:-Print del testo";16,7;"7:-Modifica stampante";18,8;"8:-Fine lavoro" (#1;7;"Quale scegli (1-8)" a$= a$<"1"a$>"8"170 a=a$: l(a) 140 p=p-1:n=pb+1 ,:1,,9 ;"MENU DELL'EDITOR",,, 8,4;"1:-Inizio testo";10 ,5;"2:-Fine del testo";12 ,6;"3-Linea successiva";14,7;"4:-Menu principale";16,8;"5:-Help" (20,7;"Quale scegli (1-4)" a$= a$<"1"a$>"5"530 & a=a$: 0 a=4 :a=1p=4 Da=2p=b-2 Ia=57000X N1000:2000 X 500 +10 ,8;"Sei sicuro ?":0  ="s"   vis schermo J0,13 :255,0:0,14:255,0 +0,0;:n=p-10 p+8 'n<1n>200s$:1050 n=p t$(n) !22528X+320@,120x n $ imm i$="":j$="" M#1;0,0;i$;1;1;" ";0;0;j$;" " "0:a$=:a$=""2020 a$<32 2500 &a$>31a$<123{i$=i$+a$ qa$=13 b=ext-6#1;0,0;s$;s$;1;"FILE DEL TESTO PIENO":2,10 : YA$=13 űi$+j$=64@#1;0,0;s$;s$;s$:i$=i$+j$:21004 a$=14 9a$=6"Stringa campione?",z$:z$=""2052 $a$=6p=4:8000@ a$=48000@ a$=585004!  2015 4i$>32 2150f 9n=b+1p-1 >t$(n+1)=t$(n) Hn R,t$(n+1)=i$:p=p+1:b=b+1 \$1000:2500 :2000 fn=b+1p-1 p2t$(n+2)=t$(n):t$(n+3)=t$(n+1) zn Tt$(n+1)=i$(32 ):t$(n+2)=i$(33!):p=p+2:b=b+2  2140\ p=p-1:n=pb+1 t$(n)=t$(n+1) n  b=b-1  1000  cod contr 3a$=10 pt+3p=p-1:1000 'a$=12 Ʊi$i$=i$(̱i$-1) 5a$=8Ʊi$j$=i$(i$)+j$:i$=i$(̱i$-1) 5a$=9 Ʊj$i$=i$+j$(1):j$=j$(2) a$72580 :j$=t$(p-1):i$="":#1;0,0;s$;s$ 9j$(j$)=32 j$=j$(̱j$-1):j$2575 $a$=15p>42200  colori ,10 ,4;"Codice di colore (0-7)" ""3005 !a$=:a$<"0"a$>"7"3020 ڰa$:a$:: stampa tt=(pl-ll)/2  d=0 n=t+3b-3  a$=t$(n) a$=0n: 'a$(a$-1)32 4037 4a$(a$)=32 a$=a$(̱a$-1):4032 l=a$  c=0 c=ln:13 : 1c=c+1:d=d+1:c>14100 a$(c)="#"4500 a$(c)="*"4700\ a$(c)="&"4850 %n=n+1:nbl=a$:4111  Ut$(n,1)="$"t$(n,1)="#"t$(n,1)="*"t$(n,1)="&"4110  a$=a$+t$(n)  'a$(a$-1)32 4100  (a$(a$)=32 a$=a$(̱a$-1)  4107  n=n-1:l=a$ a$(c)=32 4800 a$(c); d>lld=0  4050 nl=0:ta=ll:be=0 Ule=a$-1:le>ll1;"FORMAT ERROR - ADDRESS TOO LONG":2,10 LE>BEBE=LE &nl=nl+1:n=n+1:a$=t$(n)  ña$n: 4a$(a$)=32 a$=a$(̱a$-1):4532 a$(1)="#"4510  n=3 Otr=tt+ll-be:g=1nl:h=1tr:32 ;:h:n=n+1:a$=t$(n)  ña$n: 4a$(a$)=32 a$=a$(̱a$-1):4552 a$(2):g n: \dta=(ll-l)/2+tt:ta10 6220L Vmdn$t$() `md*"m",1,n$t$() j 6020 dY0,0;"Larghezza della stampa (1-80)",pl:pl<1pl>80P6500d n`0,0;"Numero di caratteri per linea (1-";(pl);")";ll:ll<1ll>pl6510n xll=ll+1: XHelp b(:1,,10 ;"PAGINA HELP",,, la$="CAPS-SHIFT + " v''''a$;"SYMBOL menu" 'a$;"1";21;"edit"''a$;"2";21;"ricerca"''a$;"3";21;"next"''a$;"4";21;"riordino"''a$;"5/6/7/8";21;"cursori"''a$;"9";21;"erase line" 7#1;0,0;"Premi un tasto per uscire" 0:500 @ ricerca Byz$=""#1;0,0;1;"Stringa campione non definita":100d:#1;0,0;s$;s$: E9#1;0,0;s$;s$:p=b-2p=4 Jn=133!-z$ T9t$(p,nn+z$-1)=z$n=33!-z$:n:8050r ^n h3p=p+1:p=b-2p=p-1:8050r m 8010J rp=p+1:1000: !4sort !9!#1;0,0;s$;s$ !> ss=4 !H t$(ss,1)="^"8550f! !R}ss=ss+1:ss=b#1;0,0;1;"Limiti non definiti":100d:#1;0,0;s$;s$: !\ 8520H! !fse=ss+1 !p t$(se,1)="^"8600! !zse=se+1:se=b#1;0,0;1;"Un solo limite e' definito":100d:#1;0,0;s$;s$: ! 8560p! !)ss=se-1ss=se-28900" !3#1;0,0;1;"FASE DI SORT" !i=ss+1se-1 !k=i !j=i+1se-1 !t$(j)b-2p=p-2 "!#1;0,0;s$;s$ " 1000 " #(X6000p,62008,3000 ,500,900,4000,6500d,10000' dattilo 3 , , V. 1:1:7: !23658j\,8:ER=0 S$="AZSXDCFVGBHNJMKL" d91;8,3;" DATTILOGRAFIA AL COMPUTER " n''6;"LIVELLO (1-5)?" x=""120x A$=:A$<"1"A$>"5"120x .2~L,10 A$*100d+100d 20 1000 K=621 10 ,K;"*" R$=S$(K-5) 1100L C=0240 10 ,K;" " K :1300 , 1000 6K=120 @RN=(*16)+1 J%10 ,RN+5;"*":R$=S$(RN) T"1100L:C=0340T ^10 ,RN+5;" " hK r:1300 ;:"DICITARE IL CARATTERE CHE COMPARE SULLO SCHERMO" N=1100d:N *23672x\,0:23673y\,0 K=120 RN=(*16)+1 11 ,16;S$(RN)  R$=S$(RN) "1100L:C=0470 $1;11 ,16;" ":K :1300 ]:"DIGITARE LA PAROLA CHE COMPARE SULLO SCHERMO":23672x\,0:23673y\,0 <TL=0:N=120::RN=(*24)+1 K=1RN:T$:K 810 ,13 ;" ":10 ,13 ;T$ 3M=1̱T$:9 ,11 +M;" * " &R$=T$(M):1100L 0C=0550& :M DTL=TL+T$:N Nk:19,0;"BATTUTE AL MINUTO= ";(TL*3000 /(23672x\+256*23673y\)+.5) Ss18,0;"PAROLE AL MINUTO= ";(TL*500/(23672x\+256*23673y\)+.5):1300 X::"DIGITARE LE PAROLE CHE COMPAIONOSULLO SCHERMO":T$="" bDN=15::RN=(*24)+1:K=1RN:X$:K lT$=T$+X$+" " vN:T$=T$(̱T$-1) @23672x\,0:23673y\,0:10 ,0;T$ #12 ,0;:M=1̱T$ R$=T$(M):1100L C=0660  T$(M);:M TL=T$:590N /:"PREMERE IL TASTO INDICATO CON UNASTERISCO" 12 ,6;S$ BK=1200:K:23672x\,0:23673y\,0  L 0 V=A$=:A$R$.2~L,-10 :ER=ER+1:C=0: `!.05|L,20:C=1: m20,0;"TEMPO= ";(23672x\+256*23673y\)/502;" SECONDI":"NUMERO ERRORI= ";ER  100d: ]"CASA","SACCA","CLAN","SANSA","MADAMA","BASSA","LACCA","VASCA","ZAG","VANNA","SAX","DALLAS" b"ALGA","AGAKHAN","LAVA","FALDA","BACCA","MASNADA","MALVA","JAZZ","CALCA","LANDA","CALDA","GAMBA" dattilo 4 Q 1:1:7: !23658j\,8:ER=0 !S$="QAWSZEDXRFCTGVYHBUJNIKMOLP" d91;8,3;" DATTILOGRAFIA AL COMPUTER " n''6;"LIVELLO (1-5)?" x=""120x A$=:A$<"1"A$>"5"120x .2~L,10 A$*100d+100d 20 1000 K=227 10 ,K;"*" R$=S$(K-1) 1100L C=0240 10 ,K;" " K :1300 , 1000 6K=120 @RN=(*26)+1 J%10 ,RN+1;"*":R$=S$(RN) T"1100L:C=0340T ^10 ,RN+1;" " hK r:1300 ;:"DICITARE IL CARATTERE CHE COMPARE SULLO SCHERMO" N=1100d:N *23672x\,0:23673y\,0 K=120 RN=(*26)+1 11 ,16;S$(RN)  R$=S$(RN) "1100L:C=0470 $1;11 ,16;" ":K :1300 ]:"DIGITARE LA PAROLA CHE COMPARE SULLO SCHERMO":23672x\,0:23673y\,0 \TL=0:N=120:2000+(*4)*10 :RN=(*12 )+1 K=1RN:T$:K 810 ,13 ;" ":10 ,13 ;T$ 3M=1̱T$:9 ,11 +M;" * " &R$=T$(M):1100L 0C=0550& :M DTL=TL+T$:N Nk:19,0;"BATTUTE AL MINUTO= ";(TL*3000 /(23672x\+256*23673y\)+.5) Ss18,0;"PAROLE AL MINUTO= ";(TL*500/(23672x\+256*23673y\)+.5):1300 X::"DIGITARE LE PAROLE CHE COMPAIONOSULLO SCHERMO":T$="" bdN=15:2000+(*4)*10 :RN=(*12 )+1:K=1RN:X$:K lT$=T$+X$+" " vN:T$=T$(̱T$-1) @23672x\,0:23673y\,0:10 ,0;T$ #12 ,0;:M=1̱T$ R$=T$(M):1100L C=0660  T$(M);:M TL=T$:590N /:"PREMERE IL TASTO INDICATO CON UNASTERISCO" 12 ,2;S$ BK=1200:K:23672x\,0:23673y\,0  L 0 V=A$=:A$R$.2~L,-10 :ER=ER+1:C=0: `!.05|L,20:C=1: m20,0;"TEMPO= ";(23672x\+256*23673y\)/502;" SECONDI":"NUMERO ERRORI= ";ER  100d: s"QUIZ","TORNEO","WALZER","MORMORIO","GIUNTA","FORNO","BANCA","GRANCHIO","HULK","PARTECIPE","UNGUENTO","LUNGHEZZA" q"TRUCCO","LEMBO","VISIONE","SETTANTA","PACCO","CARTA","DRIBBLING","MANTO","MONTAGNA","TRILLO","ASPETTO","PAESE" k"NOME","ZERO","MONDO","SALVE","HOTEL","FRAGILE","BANCA","BANDA","FACCIA","RISVOLTO","COMPUTER","RICHIAMO" z"WIMBLEDON","TENNIS","SPECTRUM","CORRETTO","MIGNOLO","ESERCIZIO","TRUCCO","RICORDO","LAVORO","VASAIO","VALVOLA","TROMBA" dattilo 5 I I PK 1:1:7: !23658j\,8:ER=0 s$="1A2S3D4F5G6H7J8K9L0" d91;8,3;" DATTILOGRAFIA AL COMPUTER " n''6;"LIVELLO (1-5)?" x=""120x A$=:A$<"1"A$>"5"120x .2~L,10 A$*100d+100d 20 1000 K=624 10 ,K;"*" R$=S$(K-5) 1100L C=0240 10 ,K;" " K :1300 , 1000 6K=120 @RN=(*19)+1 J%10 ,RN+5;"*":R$=S$(RN) T"1100L:C=0340T ^10 ,RN+5;" " hK r:1300 ;:"DICITARE IL CARATTERE CHE COMPARE SULLO SCHERMO" N=1100d:N *23672x\,0:23673y\,0 K=120 RN=(*19)+1 11 ,16;S$(RN)  R$=S$(RN) "1100L:C=0470 $1;11 ,16;" ":K :1300 ]:"DIGITARE LA PAROLA CHE COMPARE SULLO SCHERMO":23672x\,0:23673y\,0 \TL=0:N=120:2000+(*4)*10 :RN=(*12 )+1 K=1RN:T$:K 810 ,13 ;" ":10 ,13 ;T$ 3M=1̱T$:9 ,11 +M;" * " &R$=T$(M):1100L 0C=0550& :M DTL=TL+T$:N Nk:19,0;"BATTUTE AL MINUTO= ";(TL*3000 /(23672x\+256*23673y\)+.5) Ss18,0;"PAROLE AL MINUTO= ";(TL*500/(23672x\+256*23673y\)+.5):1300 X::"DIGITARE LE PAROLE CHE COMPAIONOSULLO SCHERMO":T$="" bdN=15:2000+(*4)*10 :RN=(*12 )+1:K=1RN:X$:K lT$=T$+X$+" " vN:T$=T$(̱T$-1) @23672x\,0:23673y\,0:10 ,0;T$ #12 ,0;:M=1̱T$ R$=T$(M):1100L C=0660  T$(M);:M TL=T$:590N /:"PREMERE IL TASTO INDICATO CON UNASTERISCO" 12 ,6;S$ BK=1200:K:23672x\,0:23673y\,0  L 0 V=A$=:A$R$.2~L,-10 :ER=ER+1:C=0: `!.05|L,20:C=1: m20,0;"TEMPO= ";(23672x\+256*23673y\)/502;" SECONDI":"NUMERO ERRORI= ";ER  100d: c"6809D","ADD34","DAD902","6502F","1988","ADA","LLA3510","74S01","HAL2000","SD45F9","K2D93K","64K" a"LALLA","FLAG8","3030","LDL92","SALSA","98DS8","GAS","20873","128K","9212GG","156366","2011GH3" j"SKAL85","ADD34","DFF98","GHAD45","959127","120488","SFALDA","LSK8349","K3D93K","DJ6DJ","LAS5DF","F14SA" c"DADA09","007AGS","JADH","54FLD","K256","GLAD1","FLAGS","FAK3H","LJ45HF","KASDA","FAHJK","226683" dattilo 6 y y S{ 1:1:7: !23658j\,0:ER=0 $S$="!@:#`$?%/&*',(.)_R;""H^-+=" d91;8,3;" DATTILOGRAFIA AL COMPUTER " n''6;"LIVELLO (1-5)?" x=""120x A$=:A$<"1"A$>"5"120x .2~L,10 A$*100d+100d 20 1000 K=229 10 ,K;"*" R$=S$(K-1) 1100L C=0240 10 ,K;" " K :1300 , 1000 6K=120 @RN=(*28)+1 J%10 ,RN+1;"*":R$=S$(RN) T"1100L:C=0340T ^10 ,RN+1;" " hK r:1300 ;:"DICITARE IL CARATTERE CHE COMPARE SULLO SCHERMO" N=1100d:N *23672x\,0:23673y\,0 K=120 RN=(*28)+1 11 ,16;S$(RN)  R$=S$(RN) "1100L:C=0470 $1;11 ,16;" ":K :1300 ]:"DIGITARE LA PAROLA CHE COMPARE SULLO SCHERMO":23672x\,0:23673y\,0 \TL=0:N=120:2000+(*4)*10 :RN=(*12 )+1 K=1RN:T$:K 810 ,13 ;" ":10 ,13 ;T$ 3M=1̱T$:9 ,11 +M;" * " &R$=T$(M):1100L 0C=0550& :M DTL=TL+T$:N Nk:19,0;"BATTUTE AL MINUTO= ";(TL*3000 /(23672x\+256*23673y\)+.5) Ss18,0;"PAROLE AL MINUTO= ";(TL*500/(23672x\+256*23673y\)+.5):1300 X::"DIGITARE LE PAROLE CHE COMPAIONOSULLO SCHERMO":T$="" bdN=15:2000+(*4)*10 :RN=(*12 )+1:K=1RN:X$:K lT$=T$+X$+" " vN:T$=T$(̱T$-1) @23672x\,0:23673y\,0:10 ,0;T$ #12 ,0;:M=1̱T$ R$=T$(M):1100L C=0660  T$(M);:M TL=T$:590N /:"PREMERE IL TASTO INDICATO CON UNASTERISCO" 12 ,2;S$ BK=1200:K:23672x\,0:23673y\,0  L 0 V=A$=:A$R$.2~L,-10 :ER=ER+1:C=0: `!.05|L,20:C=1: m20,0;"TEMPO= ";(23672x\+256*23673y\)/502;" SECONDI":"NUMERO ERRORI= ";ER  100d: q"$174.37","Anch'io","Cappello","87.54%","10,29","12:30","Tu&io","17/4/67","*Routine*","Cosa?","Salve!","LDA#10" r"(numero)","HAL3000","pi-greco","Presto!","#4502","Z80A","Ohi!@","@%#&","(Fha%)","98'30""","""cioe'""","30/3=10" k"`430,000=","ADA","And","Acconto","64K","salve!","Questi","Dall'alto","Grazie","11:45","Franco","Anni'60" i"Presto?","(AdGjL)","Kid#2","(8*9)","!%$#","2^PI","idee$#","Fuori!!","-4000+2","+025%","1,2,3","-Input" dattilo 7 > >R@ 7:7:0: !a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" $a$=a$+"abcdefghijklmnopqrstuvwxyz" (a$=a$+"1234567890!@#$%&'()" 2a$=a$+"""<>;-+=`?/*,." <41;6,7;" TEST 1 OPPURE TEST 2 " F=""70F Pi$=:i$="2"400 Zi$"1"70F d$:"Quanti battute al minuto? ";cpm nt=3000 /cpm xs$="" n=130 !s$=s$+a$((*84T)+1) n 1;11 ,1;s$ +800 :er=0:r=130 *23672x\,0:23673y\,0 10 ,r-1;" *" .02{# =,20 A23672x\+256*23673y\ter=er+1:300, i$=:i$=""240 &i$=s$(r)12 ,r;"^":280 er=er+1 223672x\+256*23673y\ 10 Hn R.2~L,10 \ 2,0;31;" " f dattilo 8  ] 23561 \,0  /t$(3,255):t(3):df=0 (7,7;"QUALE TEST (1 o 2)?" (10 ,9 ;"(0=FINE)" 2a$=:a$<"0"a$>"2"502 < a$="0" Fa$*1000 P_:15,4;"Parole al minuto= ";(c$*500/23672x\+256*23673y\) Z*17,6;"Numero di errori= ";e d 30 1130j 5:" Il tasto DELETE deve essere"'"abilitato (s/n)?" !a$=:a$"n"a$"s"1010 )e=0:d=0:a$="s"d=1  Gc$=""::k=14:r=(*3)+1:j=13 b$:j=rc$=c$+b$ $j:k .c$:: 8 pp=0 Ba$=:a$=""1090B L?23672x\,0:23673y\,0:0:1120` V 0 [a$=:a$=""1110V `)a$c$(pp+1)d=01170 j'a$;95_;8;:pp=pp+1 ta$c$(pp)1170 ~.01z# =,30:pp=c$  1110V ".05|L,-10 :e=e+1 d=01110V )0:a$=:a$12 1190 Fpp=pp-1:8;95_;" ";8;8;:1110V ^"Un cane ammaestrato ","E' un fatto innegabile: chiunque ","Al momento giusto, un elefante " Q"e' capace di curiosare sotto ","e' in grado di sedersi sopra ","puo' saltare " n"la scatola traballante, forata da un lato ","la torre pendente di Pisa ","lo stabile in fondo alla strada " _"e far cadere tutto.","senza creare grande scalpore.","mentre aspetta di prendere l'autobus." :df=12015  df=1 Gn=13:"Numero del brano ";(n)'r$:t(n)=r$:t$(n)=r$:n -"Quale brano vuoi provare"'"(da 1 a 3)? ";p !p>3p<12015 c$=t$(p,t(p)) 4:"Il tasto DELETE deve essere"'"abilitato (s/n)?" !a$=:a$"s"a$"n"2030 )d=0:e=0:a$="s"d=1 :1070.: sort e e g P23658j\,8:T=0:"NUMERO DI ELEMENTI ";AA:AA<210 A(AA)  1 "VALORI NON ORDINATI": Z=1AA (A(Z)=(*100d)+1 2.T;A(Z);:T=T+4:T>30T=0 <Z F&::"PREMERE S PER OTTENERE IL SORT" PK$=:K$"S"80P Y*23672x\,0:23673y\,0 ZK7000X:(23672x\+256*23673y\)/502;" SECONDI" d:"VALORI ORDINATI": n 500 10 T=0:N=1AA .T;A(N);:T=T+4:T>30T=0 N  BUBBLE SORT Z=1AA-1  ZZ=0 Y=1AA-Z JA(Y+1)A(XX)YY=A(X):A(X)=A(XX):A(XX)=YY:ZZ=1 X  ZZ>02030 * 2010 SHELL-METZNER SORT Z=AA Z=(Z/2) Z=0 Y=AA-Z:ZZ=1 X=ZZ XX=X+Z A(X)A(XX)3090 $W=A(X):A(X)=A(XX):A(XX)=W:X=X-Z X13050 ZZ=ZZ+1 ZZY3040 & 3010  SORT CON SCAMBIO RITARDATO I=1AA-1 K=I J=I+1AA A(J)A(K+1)F=0:T=A(K):A(K)=A(K+1):A(K+1)=T  K:FJ:  oSORT CON INSERIMENTO pI=1AA-1 zK=A(I+1) J=I1-1 KA(J)6070 A(J+1)=A(J) J  J=0 A(J+1)=K I: WQUICKSORT XK=0:I=0:S(AA) b'S(I+1)=1:S(I+2)=AA l K=K+1 vK K=K-1:I=K+K  A=S(I+1):B=S(I+2) Z=A(A):U=A:L=B+1  L=L-1 L=U7150 ZA(L)7070  A(U)=A(L)  U=U+1 L=U7150 ZA(U)7110 A(L)=A(U):7070 A(U)=Z IB-U2I=K+K:S(I+1)=U+1:S(I+2)=B:K=K+1 IL-A2I=K+K:S(I+1)=A:S(I+2)=L-1:K=K+1  7030v udg S 31999| #23675{\,23675{\-16 4:7:0: n="A""B"+7:A:N,A:N bT=0:N=32000}32227}:A:N,A:T=T+A:N:T21661T" ERRORE NEI DATI ": #23675{\,23675{\+16 23658j\,8 #X=11 :Y=8:NX=X:NY=Y 2C19,1;"STORE PICK TAPE Z=COPY" 7C20,1;"MIRROR ROTATE CLEAR INVERT" <JY=223255 d+A$="":N=144164:A$=A$+N:N n)B$="":N=65A85U:B$=B$+N:N ?N=87W1518:N,480:0,64@:N ?N=480112p8:87W,N:64@,0:N 3,5;A$ 1;2,5;B$ a10 ,21;"";11 ,21;"";11 ,23;"";12 ,21;"" 32000}  6500d I$="P"5000 I$="S"5100 I$="T"5200P "I$="I"32092\}:1000 MI$="C"32106j},0:32092\}:32106j},12 :1000 "I$="M"32145}:1000 "I$="R"32183}:1000 I$"Z"2000 ,"DUMP DELLO SCHERMO DEI DATI ";Z$ Z$"S"Z$"D"2000 Z$="S":2000 (*CH=65A:N="A""U"+78 2:TA=0:C:M=NN+7:TA;M;:TA=TA+4:M <:CH=CH+1:N < 2000 "QUALE LETTERA (A-U)?",C$ 'C$<65AC$>85U5000 /D=C$+79O:C$=D:6000p:2000 ."DA CONSERVARE IN QUALE CARATTERE(A-U)?",C$ 'C$<65AC$>85U5100 %18,10 ;"FASE DI LAVORO"  N=C$C$+7 -R=0:BIT=128:M=07 =(18432H+(N-C$)*32 +M+11 )1R=R+BIT (BIT=BIT/2:M:N,R 24N:18,0;" ";31;" ":1000 P0"Load O Save ?",C$:C$"L"C$"S"1000 dC$="L"5250 n5"NOME DEL FILE",N$:N$=""űN$>10 5230n xN$"A",168:100d /"NOME DEL FILE",N$:N$>10 5250 M19,0;:N$"A":20,0;" ";31;" ":100d p B="A"+8*(C$-144) z#23675{\,23675{\-16 N=07  V=(B+N) "BIT=128:M=07 >VBIT8+N,11 +M;144:V=V-BIT:6060 "8+N,11 +M;145 BIT=BIT/2:M (N:23675{\,23675{\+16: d$22528X+32 *Y+X,120x iJY6600 j 0 nI$= pI$="0"7000X x!I$="5"X>11 NX=X-1 !I$="8"X<18NX=X+1 !I$="6"Y<15NY=Y+1  I$="7"Y>8NY=Y-1 I$=""6580 #22528X+Y*32 +X,568  X=NX:Y=NY $22528X+Y*32 +X,120x   I=31 I=167000X: $I=1X>11 NX=X-1 $I=2X<18NX=X+1 $I=4Y<15NY=Y+1 #I=8Y>8NY=Y-1 I6600  6560 X#23675{\,23675{\-16 bU(18432H+(Y-8)*32 +X)=11;Y,X;144:7030v l1;Y,X;145 v#23675{\,23675{\+16 <""(223=0ſ223=255)7040  #(85U,171,85U,171,85U,171,85U,171,1,1,1,1,1,1,1,255 #62>,2,205,1,22,62>,22,215,62>,8,215,175,215,33!,11 ,72H,221,33!,118v,72H #6,8,197,6,8,14,128,175,502,91[,125},126~,254,1,40(,7,58:,91[,125},129 #502,91[,125},203,579,35#,16,239,58:,91[,125},221,119w,0,229,221,229,62>,23,215 #62>,5,215,33!,90Z,125},205,40(,26,62>,13 ,215,221,225,225,17,24,0,25,221 #229,209,20,213,221,225,193,16,189,201,0,0,33!,11 ,72H,6,8,197,6,8 #197,126~,254,1,229,40(,12 ,6,7,62>,1,119w,36$,16,252,546,225,24,13 ,6 #ȹ4,546,85U,36$,546,171,36$,16,248,37%,546,255,225,193,35#,16,219,17,24,0 #Ҷ25,193,16,209,201,33!,11 ,72H,6,8,197,6,4,17,7,0,197,229,126~,25 #ܽ78N,119w,225,113q,35#,27,27,193,16,242,17,28,0,25,193,16,229,205,92\,125} #195,92\,125},221,33!,11 ,74J,33!,235,72H,6,8,197,6,8,197,221,126~,0,119w #221,35#,6,32 ,43+,16,253,193,16,241,17,24,0,221,25,17,1,1,25,193 #N16,226,205,92\,125},195,92\,125} CAD D DlF &4:7:0:0:  !23658j\,0:op=1 (Co(12 ):n=112 :o(n):n:x=127:y=87W < x1=x:y1=y Axx=0:yy=0 F/n=65368X65368X+73I:a:n,a:n d65380d ,9 ;2,9 ;" " ,9 ;3,9 ;" DISEGNO " ,9 ;4,9 ;" LINEA " ,9 ;5,9 ;" CARTA " $,9 ;6,9 ;" INCHIOSTRO " .,9 ;7,9 ;" RETTANGOLO " 8,9 ;8,9 ;" SCATOLA " B,9 ;9 ,9 ;" CERCHIO " L-9 ;10 ,9 ;" CANCELLARE " V-9 ;11 ,9 ;" RIPARTIRE " [-9 ;12 ,9 ;" COPIARE " `-9 ;13 ,9 ;" LETTURA " j-9 ;14,9 ;" SCRITTURA " t-9 ;15,9 ;" " ~72H,480:9 ;111o,0:9 ;0,111o:9 ;-111o,0:9 ;0,-111o n=1100d:n '9 ;op+2,10 ;">" "0:a$=:a$=""1170 Aa$=13 op=9 65404|:65368X:1000 Ia$=13 65392p:65368X:n=1100d:n:o(op) op+2,10 ;" " 1a$="a"op=op+1:op=13 op=12 $a$="q"op=op-1:opop=op  1160  disegno n=1502:n  8000@  '=13 65380d:1000 " "2010  n=1502:n *8000@:x,y /'=13 65380d:1000 4=" "2005 > 2090* C'=13 65368X:1000 linea n=1502:n 8000@ '=13 65368X:1000 " "2510 ,n=1502:yy=0:hx=x:hy=y P8000@:hx,hy:1;xx,yy:n=15:n:hx,hy:1;xx,yy " "2540 hx,hy:xx,yy:2500 carta e contorno I#1;0,0;"Colore della carta (0-7)?":""3010 a$= a$<"0"a$>"7"3015 65535,a$*8 65416 n=1502:n G#1;0,0;"Colore del bordo (0-7)?":""3050 a$= a$<"0"a$>"7"3060 a$ <#1;0,0;" ";31;" ";31;" " (65416:65380d:1000 inchiostro =#1;0,0;"Colore (0-7)?":""3510 !a$=:a$<"0"a$>"7"3520 ٰa$ 9#1;0,0;" ";31;" ":1000 rettangolo e scatole box=0:4030  box=1 n=1502:n  8000@ '=13 65380d:1000 " "4040 n=1502:n $xx=0:yy=0:hx=x:hy=y &8000@:n=12:hx,hy G1:0,yy:xx,0:0,-yy:-xx,0:0:n " "4090 9hx,hy:0,yy:xx,0:0,-yy:-xx,0 "box4030 'xx4040 ,n=hxhx+xxͼxx 6n,hy:0,yy:n @ 4040  cerchio n=1502:n  8000@ '=13 65380d:1000 " "5020 n=1502:n $xx=0:yy=0:hx=x:hy=y 48000@:1;hx,hy,xx:1;hx,hy,xx " "5070 hx,hy,xx:5000 | cancella  8000@ (x,y)1;x,y '=13 65380d:1000  5510 pcopia z:1000 X'"Nome ";n$:n$>10 7000X b*n$50000P:65368X:1000 L-"Nome ";n$:n$=""űn$>10 7500L Vn$:1000 @lettura tastiera E1;x,y Ja$= T1a$="q"y<175y1=y+1:yy=yy+1 ^'a$="a"yy1=y-1:yy=yy-1 h1a$="p"x<255x1=x+1:xx=xx+1 r(a$="o"xx1=x1-1:xx=xx-1 |1a$="Q"y<172y1=y+4:yy=yy+4 /a$="A"y>3y1=y-4:yy=yy-4 1a$="P"x<252x1=x+4:xx=xx+4 /a$="O"x>3x1=x-4:xx=xx-4 1;x,y x=x1:y=y1: #(2000,2500 ,3000 ,3500 ,4000,4020,5000,5500|,0,6000p,7000X,7500L #217,0,64@,33!,80P,195,1,0,27,237,176,201,17,80P,195,33!,0,64@,1,0,27,237,176,201 #<17,168,222,33!,80P,195,1,0,27,237,176,201,17,80P,195,33!,168,222,1,0,27,237,176,201 #F33!,0,88X,6,4,197,6,176,203,158,203,166,203,174,58:,255,255,134,119w,35#,16,242,193,16,236,201 Emisure  23658j\,8 L(8):L$(8,10 ):A(7):A$(7,9 ):V(7):V$(7,12 ):M(6):M$(6,9 ):P(5):P$(5,11 ) "K=18:L(K),L$(K):K 1,"POLLICI",12 ,"PIEDI",36$,"IARDE",63360,"MIGLIA",.03937|!Bo,"MILLIMETRI",.3937I ,"CENTIMETRI",39.37zG,"METRI",39370ʙ,"CHILOMETRI" ("K=17:A(K),A$(K):K 21,"POLLICI Q.",144,"PIEDI Q.",6272640?m,"ACRI",4.0145E9oHh,"MIGLIA Q.",.155~Q,"CM Q.",1550,"METRI Q.",1.55E7l,"ETTARI" <"K=17:V(K),V$(K):K F1,"POLLICI CUBI",1728,"PIEDI CUBI",34.67 z,"PINTE",277.36 z,"GALLONI",.061024|yME,"CC",61.0124t ,"LITRI",61024`,"METRI CUBI" P"K=16:M(K),M$(K):K Z1,"ONCE",16,"LIBBRE",35840,"LONG TONS",.03527|wF,"GRAMMI",35.27 z,"CHILOGRAMMI",35270Ɖ,"TONNELLATE" d"K=15:P(K),P$(K):K no1,"SU POLLICI Q.",51.73N,"Hg/mm",6895,"N/mq.",.0681} xG,"ATMOSFERE",68.95 fg,"MILLIBAR" x>:1''6;"QUALE CATEGORIA (0-6) ?";31;" " 6,8;"0 = FINE LAVORO";8,8;"1 - LUNGHEZZA";10 ,8;"2 - SUPERFICIE";12 ,8;"3 - VOLUME";14,8;"4 - PESO";16,8;"5 - PRESSIONE";18,8;"6 - TEMPERATURE" Z$=:Z$<"0"Z$>"6"140 ðZ$ &:1000+(Z$-1)*500 120x 1;0,12 ;" LUNGHEZZA ":2,2;"SELEZIONARE UNITA DI MISURA"::K=18:'10 ;K;" - ";L$(K):K !B$=:B$<"1"B$>"8"1010  B=B$:"NUMERO DI ";(L$(B)),VL 3:2,4;VL;" ";L$(B);" EQUIVALGONO A " B>410808 $_K=14:K*2+4,3;VL*L(B)/L(K+4);18;L$(K+4):K . 1090B 8OK=14:K*2+4,3;VL*L(B)/L(K);18;L$(K):K BZ$=:Z$=""1090B LZ$=13 V:1000 ܎1;0,13 ;" SUPERFICIE ":2,2;"SELEZIONARE UNITA' DI MISURA"::K=17:'10 ;K;" - ";A$(K):K !B$=:B$<"1"B$>"7"1510 B=B$:"QUANTI ";(A$(B)),VL 3:2,4;VL;" ";A$(B);" EQUIVALGONO A " B>41580, _K=13:K*2+4,3;VL*A(B)/A(K+4);18;A$(K+4):K " 15906 ,OK=14:K*2+4,3;VL*A(B)/A(K);18;A$(K):K 6Z$=:Z$=""15906 J:1500 |Z$=13 Љ1;0,12 ;" VOLUME":2,2;"SELEZIONARE UNITA' DI MISURA"::K=17:'10 ;K;" - ";V$(K):K !B$=:B$<"1"B$>"7"2010 B=B$:"QUANTI ";(V$(B)),VL 3:2,4;VL;" ";V$(B);" EQUIVALGONO A " B>42080   \K=13:K*2+4,3;VL*V(B)/V(K+4);18;V$(K+4)  2090*  OK=14:K*2+4,3;VL*V(B)/V(K);18;V$(K):K *Z$=:Z$=""2090* 4Z$=13 >:2000 Ĉ1;0,13 ;" PESO ":2,2;"SELEZIONARE UNITA' DI MISURA"::K=16:'10 ;K;" - ";M$(K):K !B$=:B$<"1"B$>"6"2510 )B=B$:"IMMETTRE NUMERO DI ";(M$(B)),VL 2:2,4;VL;" ";M$(B);" EQUIVALGONO A" B>42580 _K=13:K*2+4,3;VL*M(B)/M(K+3);18;M$(K+3):K 2590 OK=13:K*2+4,3;VL*M(B)/M(K);18;M$(K):K Z$=:Z$=""2590 (Z$=13 2:2500 1;0,11 ;" PRESSIONE ":2,6;"SELEZIONARE UNITA' DI MISURA"::K=15:'10 ;K;" - ";P$(K):K !B$=:B$<"1"B$>"5"3010 *B=B$:"IMMETTERE NUMERO DI ";(P$(B)),VL 3:2,4;VL;" ";P$(B);" EQUIVALGONO A " /T=0:K=15:K=B3070 FK*2+4,3;VL*P(K)/P(B);18;P$(K):T=T+1 K Z$=:Z$=""3080 Z$=13 :3000 1;0,9 ;" TEMPERATURE ":3,11 ;"CONVERSIONE:-":'" CENTIGRADI IN FAHRENHEIT (C) FAHRENHEIT IN CENTIGRADI (F)" !B$=:B$"C"B$"F"3510 B$="C"3560 !"IMMETTERE GRADI FAHRENHEIT",VL .:1,2;VL;" GRADI FAHRENHEIT = " I'2;(VL-32 )*5/9 ;" GRADI CENTIGRADI":3590 !"IMMETTERE GRADI CENTIGRADI",VL -:1,2;VL;" GRADI CENTIGRADI =" ;'2;32 +VL*9 /5;" GRADI FAHRENHEIT" "0:Z$=:Z$=""3590 Z$=13 :3500 quadrati J JL  M2,0;"Lunghezza";3,0;"del";4,0;"lato" O2,24;"Area";3,24;"del";4,24;"quadrato" (z=0:557,23 2n=113 <m=n:m>7m=m-8 F0,n*8 Pm;n*8,0 Zm;0,-n*8 d7;-8*n,0 n@6+13 -n,0;n;6+13 -n,25;n*n x 10 :n '"vuoi confrontare le aree? (s/n) ";a$ a$"s"a$"n"140 a$="n"300, N"Dimmi qual e' il primo quadrato (1-13) ";a:a<1a>13 170 4"E il secondo ";b:b<1b>13 180 x=(a):y=(b) x>y280 H:"La prima area entra nella"'"seconda ";y^2/x^2;" volte." ܮ20,0:x*8,0:0,x*8:-x*8,0:0,-x*8:y*8,0:0,y*8:-y*8,0:0,-y*8 ."vuoi fare atri confronti fra"'"aree? (s/n)" a$ a$"s"a$"n"240 a$="n"z=1:300,  170 P:"La prima area e ";x^2/y^2;" volte"'"piu' grande della seconda." " 220 ,z=1:z=0 6G2;1;0,0;" Premi un tasto per ripetere " @ 0 J ="n" T caduta  ~  #"ALTEZZA DELLA CADUTA IN METRI"'D D<020 (T=((2*D)/9.81) 2V=(2*D*9.81) <T=(T*100d)/100d FV=(V*100d)/100d P=''"TEMPO IMPIEGATO PER RAGGIUNGERE IL SUOLO: ";T;" SECONDI" Z8''"MASSIMA VELOCITA' RAGGIUNTA:"'V;" METRI AL SECONDO" d('"= ";3.6ffff*V;" KILOMETRI ALL'ORA" *#1;"PREMI UN TASTO PER CONTINUARE" 0:10 dxtzvBzbinhexdec hhFj &140,0:0,160 -1;0,8;" BIN, DEC, HEX " (-1;4,2;" BINARIO: " 2-1;9 ,2;" DECIMALE: " 9 lo=lo+7  hi>9 hi=hi+7  hi=hi+480:lo=lo+480 /18,14;hi;18,30;lo " c=8 ,x=03 6n=0:hhcn=c:hh=hh-c ;m=0:llcm=c:ll=ll-c @ c=c/2 J>18,2+x*3;n;18,18+x*3;m Tx *21,6;"TOTALE HEX= ";hi;lo  ~