MANUALE a *23613=\,0:23614>\,0 "MANUALE"30 *23613=\,0:23614>\,0 (&1:7:7:2: 2$.2~L,5:.2~L,5 <<`x0@@@BBB`?0|@|B@B`?0@@@|@~`x0@@@DBB`< 8~~~B>8hxD88D88x DTDDD <0D0@0DD DTDDx D(8DD DTxD@ D(DD8T@8 < <88x88D@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyxxxxxxxxxxxxxxxxxxxyyxxxxxxxxxxyyyxxxxxxxxxxxxxxxxxyxxxxxxxxxxxxyyxxxxxxxxxxxxxxxxxyyyxxxxxxxxxyyyxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxttttttttttttttttttttxxxxxxxxxxxxttttttttttttttttttttxxxxxxxxxxxxttttttttttttttttttttxxxxxxxxxxxxttttttttttttttttttttxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyzzzz{{{{||||}}}}~~~~xxxxyyyyzzzz{{{{||||}}}}~~~~xxxxyyyyzzzz{{{{||||}}}}~~~~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888MAGIC U UkU 5:5:0: $.1}L,2:.2~L,7 (:2,0;"Titolo:MAGIC":5,0;"Autore del programma:":"ALESSANDRO SANTALUCIA":'''"produttore esclusivo:":"ELETTRONICA CS*COMPUTER DIVISION" )''''"QUESTO PROGRAMMA E'PROPRIETA' ESCLUSIVA DELLA ELETTRONICA CS; E' QUINDI FATTO DIVIETO A CHIUNQUE ESEGUIRE COPIE DELLO STESSO.I TRASGRESSORI SARANNO PERSEGUITI A NORMA DI LEGGE. " *!100d:236099\,30 + 5500| , 300, .'a(4):d(5):m(14): 123692\,255 < 5000 K"subdolo","rabbioso","verde","grosso","rosso","sorridente","fetido","sporco","lercio","piccolo","bianco","marrone","basso","grigio","stupido","buono","gentile","carino","carino" c 15 dw=0:res=1:s=0:sd=0:q=0:bal=0:v=0:t=0:tt=0:x=11 :ch=-2 eHmf=1:ma=0:y=7:lp=2000:f=1:g=0 %i=114:m(i)=0:i ,n"Prima di iniziare vorrei sapere il tuo nome, per scriverlo negliannali dei prodi =====> ";n$ /n$=""300, 1"n$(1)<96`320@ 6,k=1̱n$:n$(k)=(n$(k)-32 ):k J+:10 ,2;1;" SI PARTE " L 100d Mi=15 O>k=07:k:7-k::.03{u\,10 *i+k:k Qi T5:5:  4200h  1900l Nk=15:d(k)=aa-2*(aa/2):aa=(aa/2):d(k);:k  C1131k+y:a$:a$=a$(x+1):a$=" "m=0:1022 m=a$-33! Cp=24:a(p)=m-4*(m/4):m=(m/4):p  -5:5::k=1:1033  "i=118:a$:k;a$:i  " "  ""  "  "  "  ""  "  $"  " ("   " &"  " &"   " &"    " &"    " ""   " ""   " ""   " $"   " ("   " &"   " &"   " " " B U" " V" " W" " X" " Y" " Z" " [" " \" " ]" " ^" " _" " `" " a" " b" " c" " d" " e" " f" " j k" " l" " m" " n" . # ) " o" . " p" Q # " q" S " r" " s" * # " t" 1 _ " u" C _ " v" % " w" _ ) " x" D " y" $ " z" " {" $ " |" "  w>0   1030  m(9 )=01260 1y,x+1;"X":0,1;  1131k :i=118:a$:1;1;a$:i:0 .3,21;4;"";:"= Pianura" ,6;5,21;"";:"= Rocce" -4;7,21;"";:"= Palude" 44;9 ,21;"";:"= Selva" /12 ,23;"N";13 ,23;"^" 14,22;"O+E"; 15,23;"S"; 20,0;   !w=1w=231222 w=33300 (:23692\,255 ,(8,0;"Attorno a te c'e' :" -y5,24;"N";6,24;"^";7,23;"O+E";15,10 ;"--------";8,24;"S" <j=-11 Fi=-11 Ja(1)=0 P1109U+y+j:j$ Uo$=j$(x+1+i) Wo$1471370Z X7h$="PIANURA":j=0i=0a(1)=0 Y 1380d Zo$1461373] [5h$="ROCCE":i=0j=0A(1)=1 \ 1380d ]o$1441376` ^7h$="SELVA":i=0j=0A(1)=2 _ 1380d `o$1451379c a6h$="PALUDE":i=0j=0A(1)=4 b 1380d c9h$="ACQUA":i=0j=0a(1)=3 d+14+2*j,10 +i*9 ;h$ ni j  1020  Ga(2)=1"Qui c'e' una capanna di canne piena di paglia" Ha(2)=2"Qui c'e' un campo di margherite dai petali rossi" Ha(3)=1a(3)=2a(4)>0"Qui c'e' "; Aa(3)=1"una porta d'oro ornata da statued'argento" Ka(3)=2"Un cerchio nero e";0;"misterioso nella terra" ia(4)=1"un castello di cristal-lo con le finestre di diamante. Le porte sembrano aperte" Ba(4)=2"l'entrata di una";0;"fetida caverna" 5a(4)=3"una strana porta nella roccia" 3a(2)=2a(3)=38000@  0k=14:a(k)=3*(k=1):k " l vlp>2002020 lp>01991  30 1,-30 (:"Che peccato, eri partito cosi bene"  9100# "Cominci a sentirti stanco" "Cosa faccio ora? ";  "==> ";a$ a$=""2040 +(a$(1)"m"res0)2050 "E riguardo al ";y$;" ? ";  2040  9000(#  a$:e / 1900l 4 t=t+1 5!w=1w=23200 > "Quale direzione? N,NE,etc "; Ra$:a$=""2130R Ua$:w=33370* Y xx=x:yy=y ]a$(1)="f"9100# ^a$(1)="n"y=y-1 _a$(1)="s"y=y+1 `a$(a$)="o"x=x-1 aa$(a$)="e"x=x+1 bx=xxy=yy21004 c$((x<0)(x>15)(y<0)(y>15))2151 d71109U+y:j$:j$(x+1)=32 2151g e4a(1)=3m(10 )>02170z f a(1)32170z g x=xx:y=yy i1300 l?1;7;1;" ACQUA TROPPO PROFONDA " t 21059 z 1300 {$lp=lp-10 *a(1)-10 }a(1)=3   1020 =(w>0)(w<3)(a(2)a(3))4300 '(w0)(bal=1)2210 ?(((x-7)1)((y-11 )1))2210  4300 bal=1:  i=(*16):mm=i*10 i>10 mm=0 3res=0:a1=(*9 )+9 *(i>10 ) &a2=(*9 )+9 *(i>10 ) a1=a22240 i=0a1=9 i=0a2=10 ԏ"topo","lupo","serpente","coniglio","cinghiale","titano","gnomo","drago","troll","cervo","montone","verme","agnello","orso","gatto","cavallo"  2260:c=0i:y$:c 75K:c=0a1:p$:c 75K:c=0a2:z$:c m$="un "+y$+" "+p$+" e "+z$ '"Inoltre hai incontrato:";0;m$ ii=(*7) i>10 ii=7 o"monete","pezzi di argento","pepite di oro","diamanti","una spada","una cesta","un manto","nulla","nulla" ;2300:c=0ii:s$:c:"posto a guardia di ";s$ i>10 res=1 >p=20*(ii+1)-20*(ii-5)*(ii>3): e1;"il suo valore e' di ";mm+1*(i>10 );0;"punti combattimento " "im(7)mm=0 $ lp=lp-10 res=1 mm>02560 d"Incredibile ";n$;0;"la tua forza l'ha spaventato al punto di farlo fuggir via":2920h "quanti punti vita rischi? "; a$ a$=""2575 a$: a$(1)="f"9100# -((a$480)(a$579))2620< :9000(# $e ' (x=(*9 +3):y=(*9 +3):res=1:m(2)=m(2)-1:w=0:m(11 )=-m(11 ) . 1300 / 0"Accidenti ";n$;",";0;"lo hai vaporizzato!!!";0;"Peccato che la magia non funzioni sempre":m(1)=m(1)-1 2 2900T 4E:"E' sparito in uno sbuffo di fumo":m(6)=m(6)-1 6 2900T 8;:"E' caduto addormentato":m(5)=m(5)-1 : 2900T < k=a$: FEk>lp"Sono spiacente ";n$;" non puoi,hai solo ";lp;" punti vita": Q lp=lp-k R!m(11 )02670n V#"vuoi l'aiuto dello zombi? ";:a$ Ya$=""2646V Za$: ^a$(1)"s"2670n `)m(8)=0m(11 )=0 bk=k+1000 n1r=((+)/2+.3)*(k+f-.02{# =*q)/mm xr<.52790 r>12880@ <mm=(mm/2)::"ora il ";y$;" e' arrabbiato.... "  qq=(q*.73333):"Mi spiace ";n$;",":"il ";y$;" ti ha colpito";0;"e ti ha preso un po' del tuo tesoro" ,mm>4002900T 6 res=1 ; @ "Ottimo! Hai vinto facilmente" T:mm=mm-400 ^mm>0 hq=q+p+p*2*(w>0) i((ii>3)(>.75@)7000X jii>3 kres=1:s=s+1 n((s10 *(s/10 ))2940| pb:f=f*2:"Complimenti ";n$;0;"ora sei un ammazzamostri di grado ";(s/10 ) |sd>08090 %<(.9ffff-.2~L*(w>0)) mf=0 8000@ W(v=13 m(14)>0)(a(3)=1m(12 )>0)6000p ,(w=0)a(3)=24000 (m(11 )=-m(11 ):w=a(4) w=0 xx=x:yy=y:f=f/2 w>13060 x=1:y=3 3090 w=33300 x=0:y=1  pp=1 2aaa=1+(32 *) 4aa=aaa 5Mk=51-1:d(k)=aa-2*(aa/2):aa=(aa/2) Nd(pp)=1 bad(k)0k<5"c'e' una porta a ";"ovestest sud nord "(k*5-4k*5) lk v "quale porta ? ";:x1=x:y1=y a$ a$=""3289 a$(1)="f"9110# a$ =a$(1)="n"d(4)=1y=y-1:pp=3 =a$(1)="s"d(3)=1y=y+1:pp=4 =a$(1)="e"d(2)=1x=x+1:pp=1 =a$(1)="o"d(1)=1x=x-1:pp=2 (x=x1y=y1)3275 ):"non ci sono porte a ";a$:3200 a(3)=1+3* d(5)>08000@ !x0y9 2165u 1w=0:x=xx:y=yy:m(11 )=-m(11 ) 1020 f=f*2 2165u l:"sei in una strana stanza con otto uscite a N,S,E,O,NE etc verso passaggi doppi"::"la lettera "; 1;(v+65A); " e' su un muro": v13 3356 (:"c'e' anche una botola d'argento":  >a$="n"v=v+3 Ha$="s"v=v+2 Ra$(a$)="e"v=v-6 \a$(a$)="o"v=v-4 v>13 v=v-13 v<0v=v+13 v=03480 2165u 2w=0:f=f*2:m(11 )=-m(11 ) 1300: 85004! !m(3)=0:f=f*2  m(4)=m(4)-1 lp<1500lp=lp+500  res=1 w=03608 %:"troppo stretto li dentro...":: %i=(*12 ):h=010 h*10 >mmhi3680` $@h::"non sei stato abbastanza veloce":"ora devi combattere." B 2560 eo"qualche volta riesci ad essere veloce...":xx=x:yy=y:x=(*3-1)+xx:y=(*3-1)+yy ?1109U+y:j$:j$(x+1)=32 a(1)=3 T(a(1)=3)(x<0)(x>15)(y<0)(y>15)3700t res=1: res=1 sd=1 "quanto vali ? "; k:k;" fiorini" kq3850  /"questo e' piu' di quanto tu possieda....":  &(k0)(sd>0)3910F  0i=(*22):l=0:h=020 kl*pih3910F #Vl=l+1:h:"sei stato veramente fortunato questa volta":q=q-k:res=1: F9:"il";m$(3):"l'ha presa male e ora ti attacca" _ 2500  xx=x:yy=y i=(*5) 4040+10 *i #x=14:y=4:4090 "x=5:y=4:4090 "x=1:y=9 :4090 #x=3:y=15:4090 x=10 :y=9 x=xxy=yy4025 fk=14:6:0:.05|L,46.::0:6::.05|L,12 :k 5:5:  1300 6;3;1;"Sei entrato in una delle porte di trasferimento del GRANDE MERLINO " :lp=lp-502: h23692\,255 rU2;7;"AL TURNO ";T;" TU HAI ";LP;" PUNTI VITA";" E ";q;" FIORINI" } 1;7;"LISTA DEI COMANDI: dona,combatti,riposa,muoviti, scambia,prendi,entra,mappa, fine,informa,mostra,save,load " :m(9 )=0 =w=04;1;0;"Uscita a X=7 e Y=11" $"Le tue coord. sono: x=";x;" y=";y  p=500:res=0:sd=1:m$="Il terribile "+"BARBABLU MAGO GNOMO "(w*9 +1(w+1)*9 ) mm=1500+w*1000 "Hai sorpreso il " X"subdolo BARBABLU","grande mago MERLINO","re di tutti gli GNOMI","re di tutti i MAGHI" ,4330:c=0w:y$:c:y$;" ...."   1(w0res=0) 2tt=t 3tt=t 4 85004! 5:(a(2)=1a(2)=2)lp=lp+190 N res=1  "Quanto darai a" m$;"? ";:a$ ,A(m(13 )>0)(mm=1500)(a$="rubino")4800 .%a$="rubino"a$="RUBINO"4620  8 k=a$:k 9k>q4610 ;q=q-k:p=p+k =sd=0 >9((k1000)(k>q/2)(sd>0))8000@ M>m$;" si e' offeso":lp=(lp/10 ):q=0:sd=0 R 150 W 2600( C0;"Egli prende il rubino e ti ringrazia":res=1 >.75@8000@   5025 j=15:q$ u=07 var:q$+u,var u:j O"a",0,60<,126~,126~,126~,60<,24,24 Q"b",170,85U,170,85U,170,85U,170,85U K"c",0,100d,68D,4,12 ,0,204,0 H"d",0,10 ,4,0,0,80P,32 ,0 K"e",0,36$,40(,16,74J,36$,24,0 :5,0;"C'era una volta il tempo in cui il valore di un Uomo era misurato dai nemici vinti in battaglia e dall'oro e gioielli ottenuti dalla sua abilita',tempo in cui la magia aveva il posto dell'odierna tecnologia." "Riuscirai tu,uomo del XX secolo,a dimostrare il tuo valore su un'isola magica,legata a quel tempo,dominata dal GRANDE MERLINO, senza avere l'accesso ad altre istruzioni ?" "S/N ===> ";a$  a$="s"   3,0;"Il tuo obbiettivo e' uscire dall'isola magica col massimo del tesoro (in fiorini). Per fare cio dovrai prima localizzare la porta incantata, quindi superare gli ostacoli cheil GRANDE MERLINO ti porra' di fronte." "Fortunatamente hai dalla tua parte la FATA MORGANA che ha nascosto oggetti in grado di fare aumentare i tuoi poteri magici,ma stai attento, qualcunodi questi oggetti potrebbe esserstato scoperto da MERLINO..." &21,0;"Continua":: (::"La lista dei comandi e lo stato vengono forniti dal comando informa.La maggior parte di essi non necessitano di commentiesplicativi." 2"La mappa che ti viene mostrata dall'apposito comando non fornisce informazioni sulla tua posizione,a meno che tu ne abbiail potere, e' quindi compito tuodedurre dove ti trovi." 4"Il comando save salva su nastro il gioco congelandolo alla situazione in cui e' al momento del salvataggio.L'inverso viene eseguito dal comando load." 7L"Se un comando non e' adatto allasituazione descritta viene ignorato" 921,0:: < P,"Nome del file da salvare ===> ";a$ Za$2000 d ,"Nome del file da caricare ===> ";a$ "a$ | 5520 i=115 0a$:k=18:a:(a$)+k-1,a:k i M"a",0,60<,68D,68D,68D,68D,205,546 M"c",0,28,34",32 ,32 ,96`,161,30 M"i",16,0,16,16,480,80P,147,12 M"o",0,24,36$,79O,66B,66B,164,24 M"s",0,16,40(,36$,34",66B,133,24 L L"k",0,60<,66B,66B,66B,66B,66B,66B M"l",68D,40(,480,224,32 ,16,13 ,0 M"g",0,568,68D,68D,68D,68D,199,60< J"h",4,12 ,20,20,36$,24,0,0 H"m",0,0,13 ,18,18,2,2,2 L"n",0,0,172,72H,72H,72H,72H,72H E"p",2,2,2,2,2,2,2,2 M"q",72H,72H,72H,72H,72H,72H,73I,71G I"d",0,60<,66B,66B,66B,2,2,2 H"e",2,2,2,2,2,35#,68D,568  &$.1}L,2:.2~L,7 JP"Elettronica CS*Computer Divisionvi presenta un nuovo modo di sognare :" K.8,8;"AVVENTURA nell'" M12 ,0; N&8;" " X$8;" " b$8;" " v p zX"STUPENDO FANTASTICO HAI VINTOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO!"  4200h  9100# X ]h"La ";"spada cesta cappa "((ii-4)*6+1(ii-4)*6+6);" era magica e " b>.8L8260D l"7030v+(ii-4)*10 v"aumenta la tua forza" xlp=(lp*1.2) z -"ottieni una pozione magica":q=q*1.3&fff  0"aumenta il tuo potere difensivo":f=f*2  @:res=1 Esd=18090 Jch>t-38070 Ytg=((*5+1)+5*mf)*((a(3)3)(w0))+11 *((a(3)=3)(w=0)) ^"Qui c'e' un ";"anelloscudo robot"((((g-1)/6))*6+1(((g-1)/6)+1)*6);" marcato ";" ZIP VAI ERG CURA ZZZ ESPL PAURACORRIM.MAPACQUAZOMBI"(G*5-4G*5) h :ma=1:ch=t:mf=1  ,g=(w+(*2))*(w>0)+(w=0) C"una chiave dorata","un rubino splendente","una chiave argentata" =8100:c=1g:l$:c:m$;0;"ti offre ":l$ g=g+11 :sd=0  8040h ma=18250: ""non v'e' nulla da prendere qui" 0 : 85004! <'(>.2~L)(g>10 )8320 D X^"Mi spiace ";n$;",";0;"MERLINO vi ha posto del veleno, ora la tua forza e' dimunuita" llp=(lp*.75@) v 8360 .(g=7)(m(7)>2)8380 0(g=11 )(m(11 )=1)8400 g7m(g)=m(g)+3 g>7m(g)=1 ma=0 g7 5"La tua magia della PAURA e' di grado ";m(7)  m(7)=m(7)+1 8360 "E' permesso un solo ROBOT" 8360 !4"OK" !R #(e=9060d# #)a$=""9060d# #*a$="mappa"e=1200 #+6a$="zip"m(1)>0e=26080 :distrugge #,+a$="vai"m(2)>0e=2600( #-+a$="erg"m(3)>0e=3500 #.,a$="cura"m(4)>0e=3540 #/+a$="zzz"m(5)>0e=26168 #0,a$="espl"m(6)>0e=26124 #23a$="save"e=5200P:Salva il gioco su nastro #4a$="load"e=5400 #9e9060d# #:%a$3űa$=1a$=a$+" " #;b$=a$(1) #< b$="c"e=2500 :combatti #=b$="r"e=44000:riposa #>b$="s"e=3800:scambia #Ab$="m"e=21004:muovi #Cb$="i"e=4200h:informa #Db$="p"e=8200 :prendi #Eb$="f"9100#:fine #Gb$="d"e=4600:dai #H=b$="e"a$(3)"p"a$(3)"g"e=3000 :entra #J.b$="m"a$(3)="s"e=1300:mostra #L-b$="c"a$(3)="r"e=3600:corri #Z #i'1;a$;:" non compreso:Riprova" # # fine  #0"Vuoi fare un'altra partita ? (S!N)==> ";a$ # a$="s" # 150 # #$"Va bene, ci vediamo piu' tardi": #Santalucia Alessandro 4