ZXTape!SUPERBASICr9:9:9:46285H\,8::"":""::49614[:50629,25#:63925,132:63310[:"" color load  AV for LNR ]a51 ?:H\8>8 >!? O0!+| 00>Ƹ0$ 0x0yO& 0uyO~+.>˸|gz |>= >Щ (y/O72 [!Z>7V!\p&>7VKGGAAAAAAAAAAAAAAAAAAAAAAAAAEEEEEEEEEEEEEEEEEEEEEEAABBBBBBBBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAA~f??????~>~~~~~~8xxxx8``8~8xxxx8``8??8````8~~~8````8~x8f8y`~~8f8y`???888~ 888r&3# # <@TT89\\\u\:nVPv&\X![!@@P!!88  W K SR P)7:7:0::9000(# M#1;"*SUPER BASIC istruzioni By A.V.********** LOAD'N'RUN**********"  1 q=42-1 0,0 =su=175:des=255:giu=-173:sin=-253 f=187W S7;f/20;0;11 ,12 ;"*SB IST*":254,f/20 30,su:des,0:0,giu:sin,0 6su=su-q:des=des-4:sin=sin+4:giu=giu+q #f (q 2mg=0100d:g:0:f=0175:0,f:255,0:.005y# =,f/3:f <7:f/20::0,0:255,0:-255,175:255,0:-255,-175:0,175:255,-175:0,175 F1:1:7: d 85004! n"Il programma che di seguito si carichera' e' una potentissima Utility che comprende62 nuove istruzione Basic fresche di for-no...."'"Queste 'linguaggio',cosi' lo si puo' definire,e' stato ideato soprattutto per colmare le lacu-ne lasciate nella creazione del nostro ben amato Spectrum,"'"Nella demo aggiunta al carica- mento del programma sono conte- nuti i programmi per chiarire i dubbi della potenza di SB mentrein questo programma esamineremo la sintassi delle singole istru-zioni" x6'"E allora bando alle ciance ini- ziamo il tutto..." 8000@:85004! m"Le nuove istruzioni sono suddi- vise in:"'"30=nel GRAPHIC MODE"'"21=con FN"'"11=con normale parola chiave" ''"Il modo G si ottiene con CAPS-9 Per le 21 basta aggiungere a FN la stringa o la letter con aper-tura parentesi."''"es=FN t$=TIME$"'" FN a(=AND("'" G+a=ALTER" 8000@:85004! h"ALTER = G+a"'"Cambia i colori del video in al-tri o tutto insieme"'"ALTER attr TO attr"'"ALTER attr" ^'"AUTO = G+6"'"Serve per l'inserimento automa- tico di linee"'"AUTO linea"'"AUTO linea,step" '"CLOCK = G+c"'"Un orologio a portata di video con opportunita' sveglia"'"CLOCK ""ora"":CLOCK 7(vedi tabellain DEMO)"'"CLOCK ""Aora""(A specifica che e' l'ora della sveglia)" 8000@:85004! "DEF KEY =G+caps-1"'"Serve per la definizione di pro-grammi richiamabili tramite una lettera"'"DEF KEY ""lettera"";""programma"""'"DEF KEY ""lettera"":programma"'"Con il : il programma va diret- tamente in esecuzione"'"Con il ; il programma compare nel EDITOR(linee in basso)" ܵ'"DEF PROC =G+1"'"PROC =G+2"'"END PROC =G+3"'"Servono per definire procedure richiamabili attraverso nome."'"DEF PROC nome"'"programma"'"END PROC"'"Per utilizzare dare PROC nome" 8000@:85004! {"DELETE = G+7"'"Serve per cancel-lare linee o parti di programmi DELETE AB(toglie da A a B) DELETE C(toglie fono a C)" '"DO = G+d"'"LOOP = G+l"'"EXIT IF = G+i"'"WHILE = G+j"'"UNTIL = G+k"'"Insieme servono per attivare ci-cli compresi tra DO e LOOP.EXIT IF e' un'uscita obbligata al ve-rificarsi di una certa condizi- ne.WHILE significa mentre e UN- TIL finche'"  "Dietro vediamo un esempio..." 8000@:85004! A"LET a=0"'"DO WHILE ""d"""'"EXIT IF a=100"'"LET a=a+1"'"LOOP" "["Questo ciclo inizia se non e' premuto ""d"" esce se a=100 e con-tinua incrementando a" ,d'"DPOKE = G+p"'"Serve per inserire un numero tra0 e 65535 in due numeri(hi e lo)DPOKE ind.,numero" 6c'"EDIT =G+caps-5 e con 0"'"Serve per editare una linea"'"EDIT (edita linea cursore)"'"EDIT linea" @8000@:85004! Jm"ELSE = G+e"'"Signifa oppure e va posto dopo THEN programma"'"IF a=0""0"":ELSE : PRINT ""diverso da 0""" TC'"FILL = G+f"'"Serve a riempire ina zona deli- mitata"'"FILL x,y" ^L'"GET = G+g"'"Sostituisce il basic PAUSE 0: LET stringa="'"GET stringa" hO'"JOIN = G+caps-6"'"Serve per la linea indicata con la seguente"'"JOIN linea" r8000@:85004! |i"KEYIN = G+caps-4"'"Serve per creare linee tramite stringa"'"LET stringa=""programma"""'"KEYIN stringa" W'"KEYWORDS = G+8"'"Serve per attivare o distattiva-re SUPER BASIC"'"KEYWORDS (0 o 1)" '"ON = g+o"'"Si usa per fare un salto condi- zionato da una variabile"'"GO TO ON lettera;10,40,20,100,.."'"Se lettera=1 GOTO 10"'"Se lettera=2 GOTO 40 ..." 8000@:85004! "ON ERROR = G+n"'"Serve per non iscire dalla ese- cuzione di un programma in caso di errore"'"Si puo' decifrare il tipo di er-rore tramite l'APPENDICE A nellaDEMO"'"ON ERROR linea"'"linea PRINT ""ERRORE"":GOTO 1" Q"POP = G+q"'"Serve per sapere da che linea proveniva il GO SUB"'"POP lettera" '"RENUM = G+4"'"Rinumera delle linee decidendo anche lo step"'"RENUM (AB)cd"'"Rinumera da A a B partendo da c con step d" 8000@:85004! "ROLL = G+r"'"SCROLL = G+s"'"Servono per effettuare movimentiROLL con rientro SCROLL senza"'"ROLL dir;x,y;xx,yy"'"Rulla in dir(vedere tabella in DEMO).x e y sono il vertice in alto a sinistra della finestra. xx e' la larghezza in caratteri e yy e' l'altezza in pixels." ֕'"SORT = G+m"'"Serve per mettre in ordine alfa-betico una striga"'"SORT stringa"'"E' possibile ordinare inversa- mente facendo SORT INVERSE stri." 8000@:85004! "TRACE = G+t"'"Serve a tracciare il percorso del programma specificandoti la linea e il punto in cui si e'"'"TRACE inserisce i valori in stat& line che andranno stampati sulcideo con una linea apposta che ha come coda un RETURN"'"TRACE linea"'"linea PRINT 21,0;stat,line:RETURN" '"USING = G+u"'"Serve per formattare un numero"'"PRINT USING ""00.0"";numero"'"Gli zeri vanno messi in corri- spondenza del tipo di formatta- zione si desidera." 8000@:85004! _"BREAK"'"Serve per BREAKare INPUT o pro- grammi in L/M che non disabili- tino gli Interrupts" _'"LIST"'"LLIST"'"Servono per avere il (L)LIST di un pezzo di programma"'"LIST AB"'"LLIST C" T'"PLOT"'"Serve a stampare una scritta al-la altezza desiderata"'"PLOT x,y;stringa" &8000@:85004! 0n"POKE"'"Serve ad inserire in memoria i codici corrispondenti a lettere di una scritta"'"POKE iniz.,stringa" :N'"SPLIT"'"(non e' parola chiave)=simbol -w"'"Si usa per dividere una linea" Dq'"NEW"'"Cancella il programma e le va- riabili senza intaccare il restodella memoria e senza ef- fetto CRASH!" N8000@:85004! X"AND =a("'"Serve a fare un AND come in L/M tra bit."'"0 & 0 = 0"'"1 & 0 = 0"'"0 & 1 = 0"'"1 & 1 = 1"'"PRINT AND(numero,numero)" bS'"BIN$ =b$"'"Serve a dare di un numero la forma binaria"'"PRINT BIN$(numero)" ld'"CHAR$ =c$"'"Serve a darti le lettere corri- spondenti al numero immesso."'"PRINT CHAR$(numero)" v8000@:85004! 4"COSE =c("'"E' un coseno 6 volte piu' velocedi " j'"DEC =d("'"Da il numero decimale corrispon-dente al numero esadecimale im- messo"'"PRINT DEC(stringa)" \'"DPEEK =p("'"Serve a dare il numero scompostoin due numeri(DPOKE)"'"PRINT DPEEK(indir.)" ]'"FILLED =f("'"Da i pixels usati per riempire con FILL meno il contorno"'"PRINT FILLED()" 8000@:85004! Y"HEX$ =h$"'"Serve a darti il numero esadeci-male di uno decimale"'"PRINT HEX$(numero)" '"INSTRING =i("'"Serve per cercare una stringa inun altra"'"PRINT ISTRING(iniz,stringa1,stringa2)"'"Cerca la stringa2 nella stringa 1 partendo dal carattere iniz. Se la prova e' positiva il ri- sultato e' 0" ;'"MEM =m("'"Ti scrive la memoria disponibilePRINT MEM()" 8000@:85004! o"MEMORY$ =m$"'"Serve a memorizzare parte della memoria in una stringa"'"LET stringa=MEMORY$()(startfinish)" "Per reinserire usare POKE" S'"MOD =v("'"Serve a darti l'avanzo di una divisione"'"MOD(dividendo,divisore)" r'"NUMBER =n("'"E' l'incontrario di CHAR$.Da il numero corrispondente ad una stringa"'"PRINT NUMBER(stringa)" 8000@:85004!  ["OR =o("'"Esegue un OR come in L/M tra bit0 & 0 = 0"'"0 & 1 = 1"'"1 & 0 = 1"'"1 & 1 = 1" B'"RNDM =r("'"Un decisamente piu' veloce"'"PRINT RNDM(numero)"  K'"SCRN$ =k$"'"E' uno che riconoce gli UDG"'"PRINT SCRN$(linea,colonna)" *A'"SINE =s("'"Un calcolo della sinusoide sei volte piu veloce" 48000@:85004! >"STRING$ =s$"'"Setve a riempire il video o una variabile con un certo numero dicaratteri"'"LET stringa=STRING$(numero,stringa)" H='"TIME$ =t$"'"Scrive l'orario del momento"'"PRINT TIME$()" Rs'"USING$ =u$"'"Da la formattazione di una linea(come USING di un numero)"'"PRINT USING$(formato stringa,numero)" \8000@:85004! ff"XOR =x("'"Serve a fare uno XOR come in L/Mtra bit"'"0 & 0 = 0"'"0 & 1 = 1"'"1 & 0 = 1"'"1 & 1 = 0" p8000@:85004! z"Per concludere ci sono"'"XOS-YOS-XRG-YRG"'"Quattro variabili."'"Le prime due detrminano l'origi-ne grafica.Le seconde le misure del video per cambiare scala di rappresentazione" 8000@:85004! b"vuoi rileggere (s/n)" l0:="s" v8:11 ,0;"****AVVIA IL REGISTRATORE****" "" ? @+#1;"a=avanza c=copia su stampante" J"0:"a"Ʀ"c"8010J T ^ ="a" h ="c": !4ea=31:f=031:0,f;"":21,a;"":a=a-1:f:0,0: #(Tf="a""a"+7:f,0:f:"a"+3,85U:"a"+4,170: ߁>߁>@>߁>߁xOxg > xO >2 Rxg >߁>߁!R˖.6Ͱ![:R8˺7>!ZEaEv[R"R:[2R:R8˺%ѷR"R:R8˺!R>߁x_( xWX!X6 !:R8˼˺jR[R:R7aE!@x"sb"23552\,9840p&::659k\,0:1 SB R-BRR(N)=0:S(NHF)=0R:C(NHF)=0P:I(N,A$,B$)=0B:A(NF,Nd)=0b:K$(N,N)=0-:O(NF,Nd)=0Y:X(Nd,N)=0P:C$(NVA)=0:N(C$))=0:H$(N)=0:D(H$Dg)=0:U$(S$,!,N)=0:S$(Nd,S$))=0:P(N\)=0:B$(N)=0x:T$()=0:M$()=0:V(N,N)=0k:M()=0-0:F()=0: Ucl=p(23730\):59904:"SUPER"2:"sb"cl+1,65367W-cl: cl:"sb"::584193 'cl:"":""45000ȯ:584193 6z$=m$()(45000ȯ44999ǯ+2048*2)  9000(# 9600% pag j0,0;"--------------------------------"'21,0;"--------------------------------" 0,0  2camb 7-#1;"a=avanza c=copia su stampante " <)a$:a$="a"80P:a$="c"70F A 60< F Pg=06:g:.1}L,0:.1}L,2:.1}L,4:.1}L,5:.1}L,7:.1}L,4:.2~L,7:.1}L,8:.1}L,5:.2~L,8:.1}L,7:.1}L,4:.2~L,7 Z dcls n7,0,0:f=71756:0,f;"DEMO SUPER BASIC  LOAD'N'RUN AV":f:f=07:f:f:  7:7:0: pag:"Prevedendo che Voi abbiate lettobenissimo le istruzioni del pro-gramma precedente vorrei passaresubito alla esaminazione della sintassi delle singole istru- zioni.Le prime 30 si usano con il modo GRAPHICS e sono cosi' disposte:" 18432H,z$ camb:cls pag:"A queste 30 si ne aggiungono altre 21 + altre 12 con parola- chiave normale.In poche parole il tutto si riassume in questo:" '"[attributo]attributo"'"[linea part.][,step]"'" BREAK shift+space"'" CONTROLLO CURSORI 8-11"'"carattere : prgramma"'"nome"'"[linea][linea]"'"oo "'" inizio,numero{0-65535}" N" [linea]"'":"'""'" condizione"'"[ocolore;]x,y"'"numero o variabile" camb:cls:pag o"[numero linea]"'"striga"'"1 o 0"'"[linea][linea]"'"[linea][linea]"'"oo"'" e'n;linea,linea.." ""numero linea"'"x,y;stringa"'"inizio,stringa"'"[variabile numerica]"'"nome"'"(inizfine)[nuova li- nea part][numero]" ,"dir[,pixels][;x,y;car,alt]"'"[dir][,pixels][;x,y;car, alt]"'"stringa o numeric array o string array"'" SPLIT{si crea con poi ENTER}" 6camb:cls:pag @"numero linea"'"si usa cono "'" instringa, numero"'"si usa con o"'" XOS inXOS=numero"'" YOS inYOS=numero"'" XRG inXRG=numero"'" YRG inYRG=numero"'' J"E' da chiarire che se una delle scritte precedenti era tra pa- rentesi es.[numero] vuol dire che il contenuto,in questo caso il numero,serve,ma se ne puo' fare a meno.Se invece le paren- tesi sono quste ( ),vedi,significa che le parentesi vannomesse." Tcamb:cls:pag ^"Passiamo ora ad esaminare la sintassi delle altre 21 istru- zioni.Per attivarle non si usa piu' il modo G ma basta FN+una certa lettera o stringa."'' h"FN a a(numero,numero)"'"FN b$ b$(numero)"'"FN c$ c$(numero)"'"FN c c(numero)"'"FN d d(stringa)"'"FN p p(indirizzo)"'"FN f f()"'"FN h$ h$(numero)" r"FN i i(iniz,strin,strin)"'"FN m m()"'"FM m$ m$()"'"FN v v(numero,numero)"'"FN n n(stringa)"'"FN o o(numero,numero)" wcamb:cls:pag |"FN r r(numero)"'"FN k$ k$(linea,colonna)"'"FN s s(numero)"'"FN s$ s$(numero,stringa)"'"FN t$ t$()"'"FN u$ u$(formato stringa,nu- mero)"'"FN x x(numero,numero)" '"per far comparire la parola chiave:nei casi con FN+lettera basta aprire la parentesi es. FN x(=x( mentre per i casicon la stringa basta il premere del $;es FN t$=t$.OK?" camb:cls:pag "Per non prolungare troppo la faccenda non ripeto la pappar- della di come usare SUPER BASIC.Preferisco invece inserire dei programmini dimostrativi per chiarire gli ultimi dubbi.Spero solo di essere stato abbastanza chiaro e via allo studio..." camb:cls:pag 6;"ALTER"'7;"G+a"''"10>PRINT 7,0;""SUPER BASIC PROVA DI  LNR"":6: PAUSE 100:1,0: PAUSE 100: PRINT 0,0;""CIAO"":100:03" camb:cls:pag  7,0;"SUPER BASIC PROVA DI  LNR":6:100d:1,7:100d:0,0;"CIAO":100d:03 200:cls:pag ֲ6;"AUTO"'7;"G+6"''"=dalla linea cursore+10 con step 10"'"100 =dalla linea 100 con step 10"'"100,5 =dalla linea 100 con step 5" '''6;"BREAK"'7;"shift+space"''"Per BREAKare un INPUT coperto con ON ERROR o per fermare un programma che non disabiliti gliINTERRUPTS(fate una prova con ilFlipper di LNR n.11)" camb:cls:pag #6;"CLOCK"'7;"G+c"'' &U"Da aggiungere non c'e' niente, solo la tabella dei modi"'"modo sveglia video 0 NO NO NO 1 NO NO SI 2 NO SI NO 3 NO SI SI 4 SI NO NO 5 SI NO SI 6 SI SI NO 7 SI SI SI" 0camb:cls:pag :^6;"8 =sinistra"'"9 =destra"'"10=giu'"'"11=su"'7'"es.":580D620l ?camb:cls:pag D+a$="1234"+8+10 +"5"+8 N10 ,10 ;a$ X 100d: b+n=32 255:n,n/2;a$:n l200:cls:pag vO6;"DEF KEY"'7;"G+shift-1"''"""j"": INPUT ""nome"";a$: LOAD a$" Q''6;"=G+1"'"=G+2"'"=G+3";7'"es"':100d180:'"cls" camb:cls:pag i6;""'7;" G+7"''"1020 =da 10 a 20"'"50 =fino a 50"'"=tutto tranne 0"'"100=da 100" q''6;"=G+d"'"=G+l"'"=G+j"'"=G+k"'"=G+i"'7;"es"'':680680:'"premi a per fermare" :.05|L,30:="a" camb:cls:pag Y6;""'7;" G+p"''"es."':710710:8,0;"infatti.." R23296[,32769:10 ,0;"lo=";23296['"hi=";23297[ L''6;""'7;" G+caps-5 o 0"'"=linea cursore"'"100=linea 100" camb:cls:pag <6;""'7;" G+e"''"es."'':750750  100d =x=(*3):x=0'"x=0":1,1::"x0" =''6;""'7;" G+f"''"es"'':770770 camb:cls:pag :128,88X,41):2;128,88X  200:cls:pag P6;""'7;"G+g"''"es."'':800 800 :'"premi un tasto"''  a$:"Hai premuto ";a$ *m''6;"JOIN"'7;"G+6"''"=unisce linea cursore con seguente"'"60=unisce 60 con seguente" 4camb:cls:pag >I6;"KEYIN"'7;"G+caps-4"''"10>LET a$=""100 10-5"":a$" HR''6;"KEYWORDS"'7;"G+8"''"1=attiva S.BASIC"'"0=disattiva S.BASIC" Rl''6;""'""''7;"(L)LIST20=lista fino a 20"'"(L)LIST 1050=da 10 a 50"'"(L)LIST 100=da 100" \camb:cls:pag fB6;""'7;"G+o"''"10>INPUT a:a;10,20,50,30..." pw''6;""'7;"G+n"''" 10>ON ERROR 5000: PLOT 300,500 20 5000 PRINT ""errore""" z*''6;"PLOT"'':900900 camb:cls:pag 2f=870F3:f,f;"Ciao da LNR":f 200:cls:pag (6;""'':930930:' @23296[,"Compra LNR":f=23296[23305 [:f,¾f:f camb:cls:pag B6;""'7;"G+q"'':10001020:1030  1010  iniz "Go Sub alla linea ";iniz iniz+1 ''6;""'7;"G+4"''"(10100)=rinumera da 10 a 100"'"(1050)510 =rinumera da 10 a 50 partendo da 5 con step 10" camb:cls:pag C6;"ROLL =G+r"'"SCROLL =G+s"'':1060$1100L:camb $Ff=120:f,0;"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA":f .Mf=0502:7,2;100d,100d;5,502:f 8!f=0175:6:f B)f=0100d:5,2:f LEf=0502:7;100d,100d;5,502:f 100d:cls:pag "tabelle direzioni"''"codice direzione movimento di 1 sinistra attributi 2 giu attributi 3 su attributi 4 destra attributi 5 sinistra caratteri 6 giu caratteri 7 su caratteri" " 8 destra caratteri 9 sinistra entrambi10 giu entrambi11 su entrambi12 destra entrambi" (camb:cls:pag 296;""'7;"G+m"'':1340<1370Z:' <a$="LOAD'N'RUN e' forte!" F a$:a$' Pb$="LOAD'N'RUN e' meglio!" Z b$:b$ dZ''6;"SPLIT"'7;"simbol-w()"''"es:10>PRINT ""ciao""::""arrivederci""" ncamb:cls:pag xN6;""'7;"G+t"''"9000>PRINT1;line;"":"";stat:"''"9000": P''6;"USING"'7;"G+u"'':14201420:'':camb:cls:pag 5f=120:x=*100d:x,"000.00";x:f camb:cls:pag "5;"XOS"'"YOS"'"XRG"'"YRG" '':14501500  camb:cls  1490 xrg=128:1490 yrg=88X:1490 +xrg=256:1490:1510 7:0,0:502,0:0,502 3-502,0:0,-502:100d: xrg=256:yrg=176 100d:cls:pag B4;"AND"'7;"FN a("''"10>PRINT a(70,100)"''"68" O''4;"BIN$"'7;"FN b$"''"10>PRINT b$(150) = ";b$(150) R''4;"c$"'7;"FN c$"''"10>PRINT c$(16726) = ";c$(16726VA) *"A=";"A","V=";"V"'"65*256+86 = 16726" "camb:cls:pag ,e4;"COSE"'7;"FN c("'':1590615906:#1;"Premi per continuare":0 6?f=0255:f,60<+502*c(f/128*):f @camb:cls:pag Jk4;"DEC"'7;"FN d("''"d(""FF"") =255"'"d(""10"") =16"'"d(""4000"") =16384"'"d(""e"") =14" TW''4;"DPEEK"'7;"FN p("''"2000+256*2001 64358"''"p(2000)"'" 64538" ^camb:cls:pag hg4;"FILLED"'7;"FN f("'':1650r1650r:#1;"Premi per continuare":0 r0,8:100d,0:0,100d:-100d,0:0,-100d:1,31:10 ,15;f() |11 ,15;"Sono 9801 e non"'12 ,15;"10000,perche' bi-"'13 ,15;"sogna togliere il"'14,15;"perimetro e quin-"'15,15;"di e' come fare"'16,15;"99*99=9801" camb:cls:pag q4;"HEX$"'7;"FN x$"''"h$(32) =""20"""'"h$(255) =""FF"""'"h$(512) =""0200"""'"h$(-64) =""C0""" camb:cls:pag 14;"MEM"'7;"FN m("''"m()":'m() P''4;"MEMORY$"'7;"FN m$"'':17801800:camb:cls:pag f=32 150:f;:f #v$=m$()(16384@18431G) 40(::18432H,v$  40(:cls:pag B4;"MOD"'7;"FN v("'':18201820:camb: 9f=0200:v(f,256),v(f,176):f &502:cls:pag 0K4;"NUMBER"'7;"FN n("''"10>PRINT n(""AV"") = ";n("AV") :D''4;"OR"'7;"FN o("''"10>PRINT o(70,100)"''"102" DH''4;"RNDM"'7;"FN r("'':1870N1870N:camb:cls N5f=0200:r(255),r(175):f X502:cls:pag bU4;"SCRN$"'7;"FN k$"'':0:1900l1950:camb:cls:pag l60:f="a""l"+73:f,255:f "":a$="" )c=07:a$=a$+k$(1,c) c  a$:1 100d:cls:pag c4;"SINE"'7;"FN s(":19801980:#1;"Premi per continuare":0 ?f=0255:f,60<+502*s(f/128*):f camb:cls:pag f4;"s$"'7;"FN s$"'':20102010:';#1;"Premi per continuare":0 a$=s$(100d,"LNR!"):a$ camb:cls:pag 94;"TIME$"'7;"FN t$"''"t$()"''"10:20:15" F''4;"u$"'7;"FN u$"''"PRINT u$(""ciao"",000) =cia%" F''4;"XOR"'7;"FN x("''"10>PRINT x(100,200)"''"172"  camb:cls:pag q5;"error";7;"=e' la variabile che con- tiene il n. del errore (Vedi appendice a)"  ''5;"stat & line"'7;"per TRACE=linea e numero durante esecuzione"'"per ON ERROR=linea e nuemro dove e' avvenuto l'erro- re" *:''"Chiaramente siccome sono varia- bili si leggono con" 4camb:cls:pag >!7;1;"APPENDICE A" H""n.err cod. messaggio"''" 0 0 OK"'" 1 1 NEXT without FOR"'" 2 2 Variable not found"'" 3 3 Subscript wrong"'" 4 4 Out of memory"'" 5 5 Out of screen"'" 6 6 Number too big"'" 7 7 RETURN whithout GO SUB" R" 8 8 End of file"'" 9 9 statement"'"10 A Invalid argument"'"11 B Integer out of range"'"12 C Nonsense in BASIC"'"13 D BREAK - CONT re- peats" \camb:cls:pag f"n.err cod. messaggio"''"14 E Out of data"'"15 F Invalid file name"'"16 G No room for line"'"17 H in"'"18 I FOR whitout NEXT"'"19 J Invalid I/O device"'"20 K Invalid colour"'"21 L BREAK into program"'"22 M RAMTOP no good"'"23 N Statement lost"'"24 O Invalid stream"'"25 P FN whitout DEF"'"26 Q Parameter error"'"27 R Tape loading error" p#''"E per chi ha l'INTERFACE 1..." zcamb:cls:pag W"n.err cod. messaggio"''"43 b Program finished"'"44 c Nonsense in basic"'"45 d Invalid stream number"'"46 e Invalid device ex- pression"'"47 f Invalid name"'"48 g Invalid drive num- ber"'"49 h Invalid station number" "50 i Missing name"'"51 j Missing station number"'"52 k Missing drive num- ber"'"53 l Missing baud rate"'"54 m Header mismatch error" $21,0;"--------------" camb:cls:pag "n.err cod. messaggio"''"55 n Stream already open"'"56 o Writing to a""read"" file"'"57 p Reading a ""write"" file"'"58 q Drive ""write"" pro- tected"'"59 r Microdrive full"'"60 s Microdrive not pre- sent"'"61 t File not found"'"62 u Hook code erroe"'"63 v CODE error"'"64 w MERGE error"'"65 x Verification has failed"'"66 y Wrong file type" camb:cls:pag "E infine quelli di SUPER BASIC"''"n.err cod. messaggio"''"28 S Missing LOOP"'"29 T LOOP without DO"'"30 U No such line"'"31 V No POP data"'"32 W Missing DEF PROC"'"33 X No END PROC"'"34 Y Too hard" camb:cls:pag !7;1;"APPENDICE B" #':f=128145:f,f:f camb:cls:pag  f=146164:f,f:f camb:cls:pag "Tra poco resettero il programma.Rimarranno due linee per poter salvare il programma senza demo.E' possibile salvare il program-ma su microdrve addottando la sintassi per l'Interface 1.Con- siglio il salvataggio a chi ha l'Interface 1 con nuova ROM a cui sono stati cambiati dei datiall'inizio"''"P.S.=Dimenticavo di dire che il NEW resetta solo le linea e le variabili e non la memoria" camb:cls:pag $"CIAO A TUTTI ora mi RESETTO" .wf=150-1:g=070F:g:10 ,0;"MANCANO ";f;" SECONDI ":.05|L,30:f 8 9950& #' #(B9000(#:#1;"Non BREAKare into program, 0:1 ":9 %l1:1:7::"Hai l'INTERFACE 1 con nuova ROM?":''"S/N":a$:a$="s"a$="S"9650%: %56843 ,102f:61212,183:61224(,191:57488,195:57489,68D:57490,12 :57531,62>:59326,58:: & &>89900&::12:9950&9950& oorrnglZ  30 `:X0ҨdgGwuTw/@  < <  ~ < ~ < < <p d@;0:.df%p < B ~ | B > < | ;ؑB{ UTp*]@`* ( #T(@TD$BU@D ( B B  @ @  B B F3He% U@@ @ -@"(UU@ B B @ B  D B  B B(!QB@ UT@+I@)P+01ʇ21ٖGVF&vbUNd   ( | |  < B J*" hTU c̔C:1+[$,VV` B B | B  ( B  B B3Q8B pUg*G)`* "T @TD$BU@D  <  H  B  B > R+31YTU`@ @ H"(TU@ R B @ |   B  B |(QB @ UT@*I@)@3(`:X(Hgw'r(w" @  @ B ~ B B  B  b*" HTU  p gpg)0:(dd%p J Z @ D   B  B @Ө8ԝ{x )WpIp@ > ~ <  < <  < < <3Hd% < $ ~ B   < > < @   ` ?< < < x ~ < B  D @ 41ff0 ~ B < B | B B ̐!b B @ D @ B B  H @ DJ( -!*@h@  $ B B B b f  UL88x~8`t88 B < B | @ ~  p @ DJ0p+ ,@h@   @ B | R Z L`dd fjd*S\~#ͻR*E\|":G\2!s:G\ =(++#(0 60Z:;\$0%(v +:q\( R0B++Ͷ*]͂,Š$v€+͙PYx!60K050>٧(*\"2\22\>O8x O{_0H 8Y8ڏ=68&!F 0 G8 \֥ [{\[6\o&)))KE: *"\> !0#>8Dwu͌̀ +C< M Æ*_\ͭ*[\7R$,*[\ (L1~+F +~(#~ #F#~7#"[\!b((r.X$ x˯ 8# yx*Q\^#VS͟,2p [̀ K\    ; ; BCHKMSTUACDFIMNOPRSVXBICHAHESCRMEMORSTRINTIMUSINFNANCOSDEFILLEINSTRINMENUMBEODPEERNDSINMOXO!9~?T]"=\F+N+#@R)^R !!5 f626:.ͫԫԫ:܁(?O 5+I(!˾A($ :H\8@ P  8!9^#V;B 6+67^(!;\n:\ˮ#nđ Ô͌("*U\7RDM ! ͌++ x(͈,( ͪx(Eͽyx >> 66͈,_ ͪ{ +~:  *[\US[\͙!BDM*\ "\*=\ "=\ɯͪ[\RDMxW*\#~#N#F#7Ⱥ *\!9R}##R ̈́bk rDM9#'8>!9~>>N*S\!!?0%¾M !\~+6+6w*K\*U#!*\R!f"\͂0$(1! 6P4 5 > ; 5F ( @ $א$͂Š͌6*O\\RÎ# *]\ ߽߀߳رح߽߾ѩ+0%(>͑6 K\:k\8!GC\>2\ Ñ+SM\͗*Y\xU#*M\*E\:G\*=\s=\~ "=\(*Y\"]\x(]6 ͊"=\<2D\"B\>!>60%8 H ( 0%(8͂ ͙x 'T͙x?gi"I\nUF#N+*B07>.* \##0 ,ʹ38͗2~#N#na,0Oݭy8 G!><< }l˅<&^,V,N,fiR:0>=)|(\U8˻4-7-O8(:= R8 |)=y'/7Y?GNKV].e{lsz@ϕ:}LMĎdt׬۬u[wWcy'gZbi >": >4 = FÔ70} p [Š ̀ :W:=0 ^ K> x:\WE . ~2#~460+60?\t* \##~ ##~#7-ʹ3'80%!/ç*O\^#V>(Sr+s> 29\>G^> !~/#>!2<\*=\6#6+S{"M\++~:Š6 *Y\"]\xʊ*a\"[\*M\"a\]*[\"a\*M\[]\*]\"[\2`\612ì͙*I\x(`in##N#F T]#~n ##~#fo q#p6:#@ xͱ"_w !4#4T  Ȯ!q##p(x 8[e\!"&R">G*90#x  (  x(>!!9!###N#F(͖8DMT]++, $)9*98!<47]â*Y\W~ z0f 3ʹs=\͟H ,#y0_y@Wx ҟ*6\$M%+y= *{\O%+y= &Kv\a.xBB_R0#"v\>=j\U4-K0!0!:W:G&(M8Kg*T]͕M͕͕% g$%(M͕% E}r,o͕% `!T]DM*M͕% :[*}8Do-L:GM~T]#% :[}=8D_:WD*M}o~i[i%|<} o|g~<6#6og![-F( XE,r,s,q,6G![T]w}<݅O$|} o|gH >  >2>2͂;(&, ͂0%(͔2;( ! y;Šy#x(y(`#͔8!~ qTx<8@g}!09=82o(6 02(= DMͪ""Gx_(W8 ͚ ͸ ? 8:s:8 :\e% ~e% ɧ :\[% ~[% u 8:o\GM bk GM% GM:(A:\T]-MT],M -P͋|g |Xg2[!"#0+"x2qy2s:8\0 ́("(!"y- .."́=*\++rV!xUͧ%*Y\"]\@=S+"]\S>ï!:\6~06#606/y WN}<oyNB~w}=oq% !96w#6*"B\:<2D\͙s+rͱ x4F#N../-8+H Y !#*S\####?~_*02G\  ; #~-0# ʹ3"]\͙#IͿ8+-.8+SW\ё(0*##N#FDog DMp+q0 DOU#Obk *W\ "]\H #'Š8! "u"Z'ͭ*I*!u_!Z_+"Z +"ZKz('BBR0 *@U\*uR0ͦÛ*ZnF#NͿq+p##N#F# C*Q\#~ͺ +ü ( µ=. !w&͓K*O\s#rzH ( , *I\ B?2%"I\Cø*F#N8:%*I\K |'П!vs+r(q >22KEYWORDDEF PROPROEND PRORENU---AUTDELET---JOIEDIKEYI------DEF KE---ALTECLOCDELSFILGEEXIT IWHILUNTILOOSORON ERROODPOKPOROLSCROLTRACUSINp |p |N”8+~ ( (.(+:8d!; _"E\r !GG :ìGà :F\!~(--~0! ~˾;!5 F-N!}+-N +a>.( ERROR=STAT=LINE=::\<!:\~6,O+-*]\!\x "]\*0d<00:02:40000:00:000͹~+w~ݽ ~$*V#^"E\"I\!{=\!2!U6@~+o&=~# $v( x y0 2>G^C+! .y>0( a(-8w#~:(>8 >02 2:5oR~w# - % Ͳ(~.v(i4#N#F>0#~#N#F_=W(= #^#V#ͭ*(R*ͭ*) I*0%/!.(+bk)) x *Ͳ*bk))!8ͩ0 JC!~ˆ+x *y% #T] -(8 +C#?(?8!+͗2 - % % T] -((8C (#(JCH ( vʊ0 (F#N+-*[À ͯ!<\ˮM F1D!Z:\ +w 61Ô.... 8( 7(>7͂0%(840?͙x(CI\qͩ̀ ñ *~B "[\ǘ0%Ĕw͐+"[\Ù Missing LOOLOOP without DNo such linNo POP datMissing DEF PRONo END PROToo har,( w$0%Í#8 ͱx y(0!G:800))))oDMf $3ʹ2D\&"Ê!I\@.l@s?\6ͯà^#Vz(*uKZM!@r#s+*ZRT#nV#^*Z7R0##r#s# 0ͱ18+-8͙x(%͙h= - !4-8!;\n'͢-ڟ( /Ox/G(x(yAKAw+84ͥ8@Y8B0>Gco&F#~O#~͂0%(͔D"ѳ_,Y7( Q4y/W!!X~ ~w#- % 0%Ͳ( F+N+V+^́< ͔ҟ=>(>2,Š0% &#ͧ*S\~##N#FT]9 +9(9(9 B+++G͎>H !8͙͙DOxGDOxGDOxG͠687-͙x(A:61860+#?:G\"<*ÿ*@ KS\B!!g(͂͂;Š0% ͂,(-(O͂ 8,(..& 6xp+q*[\+~(Êéͳͱ͙x * z4{(AR8=#B88 #DM>#=((#(B DMH8: *\++6+6"=\2~<8 60+~<860++w 80x ! ,}= oorrnglgE͙x K\[K\*Y\+`͎!;\ˮͯ0v (-/8 0 8(-͙*!T^õ^(:62é*ZB*ZB(?!@̀0##| gF#N*K\ ô3!;\ˆ  #%),/28;ADGQY`cfilswz}e ir,lHY͙`iN#F!o6KI\ͿCI\68y .(5+~.(# >0-8 <:860 >%w80%(840~ "ҳw )<#####~#( (%"@~#"9:((غM*"]\7~">&ͧ͟ *\.8"\:G\! +wW*Y\͋ͧ6!5 (Z د\DM*S\~0 ##^#V#þ#~+>>!v ˾,,,;:8+pͲ*ͧ+18͞͞+0>%gŃ0_y+0OA~.( #(0>% w#A ~#(-80q#ͳͲ*61'Ͱ>~ 0f(@}ͧ6*Y\"]\x (0Fį͑>O2\66 v0N::\2% 8> xͣ 6 KE\>:N ͗::\<( ( 4 p\!D\~( 6 0%²292Î [[\R C~ 0Ҕ!` (ڔ  ր0A   ô3L>2 $2G\=2:\Ϳ4 R (z:(!wHڊO!H N *t\~#"t\R]֑oo&U<#T{ ~ q*B\|(!"E\*a\+[Y\:D\3͹:D\( CG~x(0%*U\>͍#^SE\#^#V#"U\"]\W6 r (͋(0% (:(!5RA(*3 -\ CI\*]\!U*a\7R`in ͸y=((+[S\U"S\*a\++*I\p+q+s+r!n*K\( ŠH (Ը7R#͂0%7͙`i*=\!s=\+0 >+͙ͣ!i!q\ ( n.Io*I\n͕!J\'q ͂0%ęxʟq#p "  j_"V>*Q\ß r#?8!*!"}\0͔>M D*Q\ n_{ ڊ0ր&on`E&o^#VU>>0%M &E ( N ( < | ;ؑB{ UTp*]@`* ( #T(@TD$BU@D ( B B  @ @  B B F3He% U@@ @ -@"(UU@ B B @ B  D B  B B(!QB@ UT@+I@)P+01ʇ21ٖGVF&vbUNd   ( | |  < B J*" hTU c̔C:1+[$,VV` B B | B  ( B  B B3Q8B pUg*G)`* "T @TD$BU@D  <  H  B  B > R+31YTU`@ @ H"(TU@ R B @ |   B  B |(QB @ UT@*I@)@3(`:X(Hgw'r(w" @  @ B ~ B B  B  b*" HTU  p gpg)0:(dd%p J Z @ D   B  B @Ө8ԝ{x )WpIp@ > ~ <  < <  < < <3Hd% < $ ~ B   < > < @   ` ?< < < x ~ < B  D @ 41ff0 ~ B < B | B B ̐!b B @ D @ B B  H @ DJ( -!*@h@  $ B B B b f  UL88x~8`t88 B < B | @ ~  p @ DJ0p+ ,@h@   @ B | R Z L`dd fjd