Ko[hni n_gji _! j[mm[ni9                                                       ?! l_[fn[! ijjol_ oh miahi 9                                                   G[ ch `ih^i ]b_ cgjiln[ht[ b[ 9                                                Hih _! `ilm_ f[ pcn[ mn_mm[ oh miahi 9                                         =illc [``[hhim[g_hn_ h_f `cnni \im]i ]_l][h^i(((                               Nc m_hnc ac[! j_l^oni ko[h^i cgjlippcm[g_hn_                                   hinc mof m_hnc_li oh p_]]bci \[of_ [\\[h^ih[ni(                                                                                                               F[ ]oj[ fo]_ ^_f `cnni \im]i mc [nn_ho[ ]ig_ f[ no[ [haim]c[(                  Nc nlipc [ ][ggch[l_ ch oh ][gji ^c `cilc ^[c ]ifilc chcgg[ach[\cfc(           G_hnl_ f[ no[ g_hn_ mc [\\[h^ih[ [ ko_mn[ pcmcih_ j[l[^cmc[][                  hinc ko[f]im[ goip_lmc nl[ c `cilc(                                            Nc [ppc]chc [ ko_ffi ]b_ m_g\l_l_\\_ _mm_l_ oh \[g\chi(                        F!_mm_l_ [pp_ln_ f[ no[ jl_m_hn[ _ mc acl[ ^c m][nni p_lmi ^c n_               lcp_f[h^i oh pcmi ^_`ilg_ ^[c nl[nnc `_fchc(((                                 Il[ nc mn[ ao[l^[h^i(                                                          Nc nlipc il[ ch oh[ l[^ol[ ^[ff[ fo]_ cll_[f_(                                 Mifi h_c noic miahc jco! jli`ih^c b[c l_mjcl[ni                                oh![ngim`_l[ mcgcf_((                                                          Cf ]fcg[ _! ][f^i(                                                             =ihn_gjfc l[jcni ko_mni foiai ch]l_^c\cf_                                      [ppifni ^[ oh![mmil^[hn_ mcf_htci(((                                                                                                                                                                                                         >iji oh fohai ][ggchi nl[ gihnc _ p[ffc acohac ch pcmn[                        ^c oh jc]]ifi f[ai ^c gihn[ah[(                                                @[ gifni `l_^^i koc(                                                           Cf `cm]bc[l_ a_fc^i ^_f p_hni _! f[ no[ ohc][ ]igj[ahc[(                       Nc [mm[f_ oh ji! ^c m]ih`ilni g_hnl_ f_hn[g_hn_ nc [ppc]chc                    [ff[ lcp[ ^_f f[ai(                                                            Il[ nonni n[]_(                                                                                                                                               Nc nlipc il[ ch oh[ p[ff_ mchaif[l_(                                           Oh ][gji ]igjf_n[g_hn_ poini ]ihnl[mn[ ]ih                                     f!cgjih_ht[ ^c oh[ li]]c[ _hilg_ _^ [fncmmcg[(                                                                                                                                                                                                                                                                                                                                                                                                                                            Ch ko_mni foiai _! mifi mcf_htci _^ im]olcn[!(                                 =!_! oh![ngim`_l[ m_gjfc]_g_hn_ [haim]c[hn_(                                   Pc_hc n_llilctt[ni ^[c p_lmc _ ^[ff![hmcg[l_                                   ^c oh _hilg_ foji h_li ]b_ lchabc[h^i mc [ppc]ch[(((                           F[ \_fp[ ch][lh[ cf HOFF;                                                      `ch_ ^_ff[ `[hn[mc[ ^_f gih^i(                                                                                                                                                                                                               =[ggch[h^i hinc ]b_ f[ p_a_n[tcih_ mc ch`ifncm]_ mchi                          [ ^cp_hn[l_ oh[ \im][afc[(((((                                                 >iji [f]oh_ il_ ^c ][ggchi m_c ko[mc ^_]cmi [ nilh[l_ moc noic                 j[mmc ko[h^i hinc ch fihn[h[ht[ oh[ `f_\cf_ fo]ch[(((                          Mjchni ^[ff[ ]olcimcn lcjl_h^c [ ][ggch[l_ h_ff[ mo[ ^cl_tcih_(                                                                                                                                                                                                                                                            @ch[fg_hn_                                                                    F[ jlch]cj_mm[ _! fc! ^[p[hnc [ n_(                                            Hinc j_li! ]b_ oh mihhi jli`ih^i f_ cgj_^cm]_ ^c ^_mn[lmc((                    ?! mc]ol[g_hn_ jl_^[ ^c oh ch][hn_mcgi(((                                      I]]ill_ [mmifon[g_hn_ mj_tt[l_ f[ g[ac[(((                                                                                                                                                                                                                                                                                  Hih ]!_! gifni ^[ p_^_l_ koc((((                                               Oh p_hni a_fc^i chctc[ [ mc\cf[l_ nl[ afc [f\_lc(((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      N_h^c f!il_]]bci _ cf mc\cfi mc nlm`ilg[                                       ch oh f[g_hni fihn[hi4 ;CON;GC                                               Mifi NO joic m[fp[lgc(((                                                                                                                                                                                                                                                                                                                                                                                                                                                                  F[ `[n[ mc g[hc`_mn[ [ n_ ch nonn[ f[ mo[                                      mjf_h^_hn_ \_ff_tt[(                                                           ?g[h[ oh[ fo]_ []]_][hn_(                                                                                                                                                                                                                                                                                                                                                                                                                                                                       mcahil[((((                                                                    Mn[ n_h^_h^i f_ \l[]]c[ p_lmi ^c n_(((                                         Jimmi ko[mc ni]][lf[(((                                                                                                                                                                                                                                                                                                     Il[ cf p_hni a_fc^i mc  jf[][ni(((((                                          Fi mj_]]bci ^![]ko[ ^_f f[ai ^iji _mm_lmc ch]l_mj[ni                           f_hn[g_hn_ nilh[ cggi\cf_ _ ]lcmn[ffchi((((                                                                                                                                                                                                                                                                                                                                                                                                                                                mcmn_g[ni((( ]b_ h_ ^cl_mnc ^c goip_l]c ^[ koc 9                    Ko_mni jimni gc ^[ c \lcpc^c((((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ?]]i ]im!_l[ f[ fo]ch[                                                        ?! oh[ ][m[( >[ff[ fo]_ ^cl_c ]b_  [\cn[n[((((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Il[ f[ jlch]cj_mm[  ^_mn[((((                                                 >_pc mifi ^[lf_ ]ci! ]b_  moi(((((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
Hih ]! gifni [fnli ^[ p_^_l_ koc(((                                           Mifi `cilc(((`cilc(((_ [h]il[ `cilc [ j_l^cn[ ^!i]]bci                        =b_ h_ ^cl_mnc ^c goip_lnc9                                                                                                                                                                                                                                                                                                                                                                                                                                                               Hih ]! gifni [fnli ^c chn_l_mm[hn_ koc((((                                    @ilm_ m[l g_afci goip_lmc(((((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           rop  Disabled 
            CPTask  Enabled  
            } 
         PROGRAM   
            { 
            TITLE	     1           @   	C	o	n	f	i	g	u	r	e	 	(L                 Load Pull-downs...         Edit Pull-downs...         Password...                Display Options           Tree                      Data Protection           Execution                 Drive Mapping              Confirmation...            Define Function Keys...    Secure Options...          Startup Programs           Speed                     Configure Editors         Save Configuration        '	)    a        @																													       L&EPYTAX-
D C.F!
ROSN1V/V 	W .	X `	Y 	c 	i 	n 
s \
t 
u 
v 
w { Cx U MAND  C:\PCTOOLS\PCSECURE.EXE 
            QUICKRUN  Disabled 
            PAUSE  Disabled 
            EXITAFTER  Disabled 
            FORCE  Disabled 
            NOCLS  Enabled  
            TOOLSAPP  Enabled  
            AllowDrop  Disabled 
            CPTask  Enabled  
            } 
         PR	     )           @   	T	o	o	l	s	 	0D                  Anti-Virus              CP Backup               Commute                 Disk Optimization       Build Emergency Disk    Undelete                Unformat                DiskFix                 FileFix                 System Information      Maps                   Program Scheduler       Network Message         DOS Session            /	;    m        @																										
 
      AB0C.IER	D 
F!Y
M2S	N1O t    % > e    + X ~orland International^M^M^BC compiler^M" 
         DIRECTORY  D:\TC 
         COMMAND  D:\TC\TC.EXE <Path>   
         FILESPEC  *.C 
         QUICKRUN  Disabled 
         PAUSE  Disabled 
         EXITAFTER  Disabled 
         FORCE  Disabled 
         NOCLS  Disa*	     5           @  	A	c	c	e	s	s	o	r	i	e	s	 	;P              N Notepads                    Outlines                    Clipboard                   Databases                   Appointment Scheduler       Modem Telecommunications    Electronic Mail             Fax                         Calculators                ASCII Table                :	+    e        @																														
 
      N1OB0D A	M2
EF!
C.S W    > s    ^_66x$66v$66x$66v$
l6<6;w66<6@6;|$r6|$- 6@6;<s6<6;w
66<666< 3;t$D tD t6ouA6;6|$s63t|
;
sM6v$6x$      +3	     -           @et 	W	i	n	d	o	w	s	 	+CH    b          op File Window            Tree Window            View Window            Menu Window            Single List Display    Dual List Display      Menu Window Only       DOS Command Line       Function Key Line      Background Mat         Hide All Windows       Compare Windows        Move Window            Size Window            Zoom Window            Reset Window Sizes    +B	}            @																									       F!TV/M2SL&Y
D K%
B0
H#C.OWZ,R  & H e     4 s    ' @ q                                                                                             @                
!/!S!o!p!*! !!! !!!"="W"	o""" "@""##"#2#F#Q#[#p######*
$i1+rC+c.p+p+.' ud6 ut
tu	67 u Sǻ'.׳y [r.>'iu 49	     '           @ . 	T	r	e	e	 	4KB    b          iu Expand One Level +    Expand Branch    *    Expand All            Collapse         -   4J	}            @																								       EB0AC.    ˎۻ3$f|\[:8 RҚ fZ6u26w26y26{2Sˎۻ3$f|\[!AtO|\:?	     '           @{ 	H	e	l	p	 	:IB              . Topics        Index         Keyboard      Commands      About...      DOS Advice   :H	            @																       TIK%C.AD  $ 0 C Q b L @dd86&F P f6>D u6D s 6ؚyd|\ 3ʾ%QHt
uy fY6F/                  Print Directory    Print File...     .	             @																					       D F!   ckups, Diskfix and other^M   events^M" 
     0               OL Select All          Select Filter...    Deselect All       /	    <        @	W																					       SF!D ! " C# g  
            { 
            TITLE  ^System Information 
   ,               m  Edit...         Hex Edit...     Attribute...    Wipe           +	    0        @	Q																	       EH#AW% & ' ( LS\SI.EXE 
            QUICKRUN  Disabled 
            PAUSE  Disabled 
            EXITAFTER  ,               CE Verify...       File Info...   +	              @	 																	       V/F!* + "  "^M^INetMessage:^N^M^M^B^N  Allows a mes'               on Encrypt    Decrypt   &	              @	 												       ED - O. ^ITAFTER  Disabled 
            FORCE  Disable.               bl Zip Files...      Unzip Files...   -	              @																				       Z,U0 m1 ew^N       Shows files in native^M           format^M" !=    _          HE Add Directory...           Rename Directory...        Delete Directory...        Prune and Graft...         Directory Attributes...    Expunge Directory...       DM Program                !
<
	z            @																													       ARD PIEM2G .H >I QJ dK L M s of a disk and file^M   system, including the partition^M   table, boot sector, file ^M   allocation tables, and ^M   data areas^M" 
         )E    G             Colors...                  Screen Size...             Screen Blanker...          Disk Light...              List Filter...             Upper Case                 File Display Options...    Split Horizontal           Tiled Windows             )D	b            @																														 	      C.Z,
SL&F!U	D H#TZ [ \ ] ^ _ 2` Ra b PAUSE  Disabled 
            EXITAFTER  Disabled 
            FORCE  Disabled 
            NOCLS  Enabled  
            TOOLSAPP  Enabled  
            AllowDrop  Disabled 
            CPTask  En)J                 Startup First Level             Local Tree                      Return to Startup Dir           Reset Current Directory         Drop on Drive Copies to Root   )I	            @																																		       F!	 L& R C. D  d e 
f g
g 
h 
  FORCE  Disabled 
            NOCLS  Enabled  
            TOOLSAPP  Enabled  
            AllowDrop  Di)B
    S          k  Delete Protection...    Write Protection...     Directory Locking...    Wipe Options...        )	A		n            @																										       D WL&Oj "k Rl mm 
            PAUSE  Disabled 
            EXITAFTER  Disabled 
            FORCE  Disabled 
   )	A    G          
  Autodialer...          Execution Passwords    Quick Run              Wait on DOS           )
@
	b            @																									       AEQWo p q r \ QUICKRUN  Disabled 
         PAUSE  Disabled 
         EXITAFTER  Disabled 
         FORCE  )?    /           D Speed Search         Keyboard Speed...    Mouse Speed...       PC-Cache Status     )>	J    v        @																							       SK%M2P| } ~   PK^zip 
         HELP  "^M^IPKzip^M^NBy: PK Associates^M^M^BFile compression utility^M" )<               ve File Editor...    Disk Editor...   );	              @																				       F!D y 1z Q   AllowDrop  Enabled  
         CPTask  Enabled  
    1A               Di File Map       Disk Map       Memory Map     Memory Info   1@	    "        @	C																       F!D EM2    <CE<pD2<D|;vGx=G;E>I;H=H'>8I=H?>pI=H=H=H;E<B;H[:oD=Hf>I;bH;ER:<M                  Algebraic       Financial       Programmer's    Scientific     <L	    0        @	Q																	       AF!PS < m  ry (xx)Unknown errorBad command passed to diskette I/OBad address mark or drive not readyWrite H=H'>8I=H?>pI=H=H=H;E<B;H[:oD=Hf>I;bH;ER:<M                  COMMAND ANY
        FlagOFF {game started} (* First game turn -- initialize Battery life *)
        SetVariableTo {batt life} {initial battery charge}
        TurnFlagON {game started} (* Initialization process is now over *)
      END_COMMAND

      COMMAND ANY
        FlagON {flashlight lit}
        SubtractFromVariable {batt life} 1
      END_COMMAND

      COMMAND ANY
        FlagON {flashlight lit}
        Present {on flashlight} (* No warning unless Flashlight here *)
        VariableGT {batt life} 0
        NOT VariableGT {batt life} {battery warning level}
        PrintMessage "Flashlight will last only #VAR{batt life}# more turns!"
        VariableEquals {batt life} {battery warning level}
        PrintMessage "You had better save your batteries!"
      END_COMMAND

      COMMAND ANY
        FlagON {flashlight lit}
        VariableEquals {batt life} 0
        TurnFlagOFF {flashlight lit} (* Turn it off for the last time! *)
        SwapLocations {on flashlight} {dead flashlight}
        Present {dead flashlight} (* No message unless Flashlight here *)
        PrintMessage "The Flashlight's batteries are dead!!"
      END_COMMAND

      COMMAND LIGHT FLASHLIGHT
        Present {off flashlight}
        TurnFlagON {flashlight lit}
        SwapLocations {off flashlight} {on flashlight}
        PrintMessage "The flashlight is ON and shining brightly!"
        DoneWithTurn
      END_COMMAND

      COMMAND LIGHT FLASHLIGHT
        Present {on flashlight}
        PrintM
ON ERROR GOTO ERRORE
RANDOMIZE TIMER
color ,,2
$INCLUDE "TBWINDO.INC"
$INCLUDE "TBMENU.INC"

call qfill(1,1,25,80,32,fnattr%(7,1))

CALL MAKEWINDOW (10%,27,6,27,fnattr%(15,2),2%,2%,1)
CALL PRTCWINDOW (1%,"L'AMORE E IL NULLA")
CALL PRTCWINDOW (2%,"AVVENTURA TESTO")
CALL PRTCWINDOW (3%,"DI ROBERTO MARCARINI")
CALL PRTCWINDOW (4%,"BRESSO 26 FEBBRAIO 1989")
DELAY 5

CALL REMOVEWINDOW











cls
chiede:

 INPUT"Come ti chiami";NOME$
 IF NOME$="" THEN FRASE$="Dammi il tuo nome per favore.":GOSUB SPELL:?:GOTO chiede
 NOM1$=LEFT$(NOME$,1):NOM2$=MID$(NOME$,2,LEN(NOME$))
 NOM2$=LCASE$(NOM2$):NOM1$=UCASE$(NOM1$):NOME$=NOM1$+NOM2$

 call qfill(1,1,24,80,32,fnattr%(7,1))
  for i% = 1 to 29
    j% = rnd(1)*69
    k% = rnd(1)*19
    f% = rnd(1)*14
    b% = rnd(1)*6
    call makewindow(k%+1,j%+1,5,16,fnattr%(f%+1,b%+1),2,2,1)
    call prtcwindow(2,"Ciao "+nome$+"!")
    delay 0.05
  next i%
  DELAY 4

    for i%= 1 to 29
    call removewindow
    delay 0.05
    next i%



 IF NOME$="TITA" OR NOME$="Tita" OR NOME$="tita" THEN FRASE$="Ciao Amore!":GOSUB SPELL
 IF NOME$="CLAUDIO" OR NOME$="Claudio" OR NOME$="claudio" THEN FRASE$="Ciao cognato!":GOSUB SPELL
 IF NOME$="TANIA" OR NOME$="Tania" OR NOME$="tania" THEN FRASE$="Ciao tipa!":GOSUB SPELL
 IF NOME$="PIPPO" OR NOME$="Pippo" OR NOME$="pippo" THEN FRASE$="Ciao Fesa!":GOSUB SPELL
 IF NOME$="NANDO" OR NOME$="Nando" OR NOME$="nando" THEN FRASE$="Vecchio squalo spelacchiato..":GOSUB SPELL
 IF NOME$="BOBO" OR NOME$="Bobo" OR NOME$="bobo" THEN FRASE$="Ciao Roia malefica...":GOSUB SPELL
 delay 3
 CLS
rem tasti funzione
key off
KEY 1, "GUARDA"
KEY 2, "AIUTO" + CHR$(13)
KEY 3, "SAVE" + CHR$(13)
KEY 4, "LOAD" + CHR$(13)
KEY 5, "NORD" + CHR$(13)
KEY 6, "SUD" + CHR$(13)
KEY 7, "EST" +CHR$(13)
KEY 8, "OVEST" + CHR$(13)
KEY 9, "STOP" + CHR$(13)
KEY 10, "COSA" + CHR$(13)
KEY ON

DIM FRISP$(6)
DIM VSPIA (22)

RESTORE RISPOSTINE
FOR I = 0 TO 6
READ FRISP$(I)
NEXT I

RESTORE VSPIA
FOR IC=1 TO 22
READ SPIA (IC)
NEXT IC



RISPOSTINE:
  DATA "Non ho capito un tubo.","Eeeh ?","Chi ti capisce  bravo.."
  DATA "Cerca di essere piu' chiaro.. in fondo sono solo un computer."
  DATA "Questa proprio non l'ho capita..","Certe volte proprio non ti capisco.."
  DATA "Non ho capito una vacca..."


VSPIA:
  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

APRE:
  OPEN "PROVA.TXT" FOR RANDOM AS #2 LEN=632
  FIELD #2, 79 AS TD1$,79 AS TD2$,79 AS TD3$,79 AS TD4$,79 AS TD5$,79 AS TD6$,79 AS TD7$,79 AS TD8$


113 CLS
120 REM
130 REM
135 T1=100
140 GOTO 710:REM MAIN
150 REM
160 REM - CERCA P$ IN DIZIONARIO, C=CODICE (0 SE ASSENTE) -
170 REM
180 I=1:F=FD
190 A=INT((I+F)/2):A$=DZ$(A):IF P$=A$ THEN C=DZ%(A):GOTO 240
200 IF P$>A$ THEN I=A+1
210 IF P$<A$ THEN F=A-1
220 IF I<=F THEN 190
230 C=0
240 RETURN
250 REM
260 REM - ESTRAE P$ DA IN$[IN], TROVA CODICE C, SALTA ARTICOLI -
270 REM
280 C=0
290 C$=MID$(IN$,IN,1):IF C$=" " OR C$="'" THEN IN=IN+1:GOTO 290
300 IF IN>LI THEN P$="":GOTO 360
310 A=IN:REM INIZIO
320 C$=MID$(IN$,IN,1)
330 IF C$<>" " AND C$<>"'" AND IN<=LI THEN IN=IN+1:GOTO 320
340 P$=MID$(IN$,A,IN-A):GOSUB 180:REM CERCA
350 IF C=7 THEN 280:REM ARTICOLO
360 RETURN
370 REM
380 REM - CERCA AZIONE A, A=AZIONE (0 SE NON TROVATA) -
390 REM
400 I=1:F=FA:N=A
410 A=INT((I+F)/2):M=CA(A):IF N=M THEN A=AZ%(A):GOTO 460
420 IF N>M THEN I=A+1
430 IF N<M THEN F=A-1
440 IF I<=F THEN 410
450 A=0
460 RETURN
470 REM
480 REM - ESEGUE AZIONE A, A=0 SE NON TROVATA -
490 REM
500 GOSUB 400:IF A=0 THEN 550
510 IF C2=0 OR A>0 THEN 530:REM SOLO VERBO O NO TEST
520 A=-A:IF OG=0 THEN PRINT "- Qui non ne vedo.":GOTO 540
530 GOSUB 2500:REM ESEGUE
540 A=1
550 RETURN
560 REM
570 REM - ELENCA OGGETTI IN LUOGO L, CON PREFISSO P$, A=0 SE NESSUNO -
580 REM
590 A=0:FOR I=1 TO FO
600 IF ABS(L(I))=L THEN PRINT P$;OG$(I);".":A=1
610 NEXT:RETURN
620 REM
630 REM - OG=INDICE OGGETTO C2, 0 SE NON PRES. O TRASP. -
640 REM
650 OG=0:FOR I=1 TO FO
660 IF CO%(I)=C2 THEN IF ABS(L(I))=LU OR L(I)=0 THEN OG=I:I=FO
670 NEXT:RETURN
680 REM
690 REM - MAIN (PARSER) -
700 REM
710 GOSUB 1060:REM INIT
720 GOSUB 4480:REM INTRODUZIONE
730 GOSUB 1500:REM <SP>
740 REM
750 REM CICLO DI GIOCO:
760 REM




COLOR 15:PRINT:FRASE$="Sei "+DE$(LU)+".":GOSUB SPELL:REM DESCRIZIONE

REM ** CONTROLLA SE IL LUOGO  STATO VISITATO **


XOD=LU
IF SPIA(XOD)=0 THEN GOTO DESCRIVE
GOTO 770
DESCRIVE:

         COLOR 6
REM INCREMENTA IL CODICE LUOGO DI 100 IN PARTICOLARI SITUAZIONI
        IF XOD=1 AND L(11)<>-99 THEN XOD=101
        IF XOD=2 AND VTX=1 THEN XOD=102
        IF XOD=2 AND L(24)=-99 THEN XOD=202
        IF XOD=3 AND L(13)=-3  THEN XOD=103
        IF XOD=3 AND L(13)=-99 THEN XOD=203
        IF XOD=4 AND L(8)<>-99 THEN XOD=104
        IF XOD=6 AND L(14)=-99 THEN XOD=106
        IF XOD=7 AND L(20)=-7 THEN  XOD=107
        IF XOD=8 AND V5=1 THEN XOD=108



         GET #2,XOD
DECODIFICA:
      A=LEN(TD1$)
      FOR CD = 1 TO A
      AP1=ASC(MID$(TD1$,CD,1))
      IF AP1=32 THEN GOTO SKP1
      AP1=AP1+6
SKP1:
      TCDX1$=TCDX1$+CHR$(AP1)
      NEXT CD


      B=LEN(TD2$)
      IF B=0 THEN GOTO MARCA
      FOR CD = 1 TO B
      AP2=ASC(MID$(TD2$,CD,1))
      IF AP2=32 THEN GOTO SKP2
      AP2=AP2+6
SKP2:
      TCDX2$=TCDX2$+CHR$(AP2)
      NEXT CD


      C=LEN(TD3$)
      IF C=0 THEN GOTO MARCA
      FOR CD = 1 TO C
      AP3=ASC(MID$(TD3$,CD,1))
      IF AP3=32 THEN GOTO SKP3
      AP3=AP3+6
SKP3:
      TCDX3$=TCDX3$+CHR$(AP3)
      NEXT CD


      D=LEN(TD4$)
      IF D=0 THEN GOTO MARCA
      FOR CD = 1 TO D
      AP4=ASC(MID$(TD4$,CD,1))
      IF AP4=32 THEN GOTO SKP4
      AP4=AP4+6
SKP4:
      TCDX4$=TCDX4$+CHR$(AP4)
      NEXT CD


      E=LEN(TD5$)
      IF E=0 THEN GOTO MARCA
      FOR CD = 1 TO E
      AP5=ASC(MID$(TD5$,CD,1))
      IF AP5=32 THEN GOTO SKP5
      AP5=AP5+6
SKP5:
      TCDX5$=TCDX5$+CHR$(AP5)
      NEXT CD


      F=LEN(TD6$)
      IF F=0 THEN GOTO MARCA
      FOR CD = 1 TO F
      AP6=ASC(MID$(TD6$,CD,1))
      IF AP6=32 THEN GOTO SKP6
      AP6=AP6+6
SKP6:
      TCDX6$=TCDX6$+CHR$(AP6)
      NEXT CD


      G=LEN(TD7$)
      IF G=0 THEN GOTO MARCA
      FOR CD = 1 TO G
      AP7=ASC(MID$(TD7$,CD,1))
      IF AP7=32 THEN GOTO SKP7
      AP7=AP7+6
SKP7:
      TCDX7$=TCDX7$+CHR$(AP7)
      NEXT CD


      H=LEN(TD8$)
      IF H=0 THEN GOTO MARCA
      FOR CD = 1 TO H
      AP8=ASC(MID$(TD8$,CD,1))
      IF AP8=32 THEN GOTO SKP8
      AP8=AP8+6
SKP8:
      TCDX8$=TCDX8$+CHR$(AP8)
      NEXT CD

















         FRASE$=TCDX1$:GOSUB SPELL
         IF LEFT$(TCDX2$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX2$:GOSUB SPELL
         IF LEFT$(TCDX3$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX3$:GOSUB SPELL
         IF LEFT$(TCDX4$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX4$:GOSUB SPELL
         IF LEFT$(TCDX5$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX5$:GOSUB SPELL
         IF LEFT$(TCDX6$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX6$:GOSUB SPELL
         IF LEFT$(TCDX7$,1)= " " THEN GOTO MARCA
         FRASE$=TCDX7$:GOSUB SPELL
         IF LEFT$(TCDX8$,1)=" " THEN GOTO MARCA
         FRASE$=TCDX8$:GOSUB SPELL


MARCA:
         SPIA(XOD)=1
         TCDX1$="":TCDX2$="":TCDX3$="":TCDX4$="":TCDX5$="":TCDX6$="":TCDX7$="":TCDX8$=""

770 ?:color 9:L=LU:P$="Vedo ":GOSUB 590:REM OGGETTI
780 GOSUB 970:REM TEMPO
790 PRINT:PRINT
800 IN$="":frase$="Cosa devo fare ":gosub spell

    IF LU=1 THEN DIREZ1$="":DIREZ2$="S":DIREZ3$="":DIREZ4$=""
    IF LU=2 THEN DIREZ1$="N":DIREZ2$="":DIREZ3$="E":DIREZ4$=""
    IF LU=3 THEN DIREZ1$="":DIREZ2$="S":DIREZ3$="":DIREZ4$="O"
    IF LU=4 THEN DIREZ1$="N":DIREZ2$="S":DIREZ3$="E":DIREZ4$=""
    IF LU=5 THEN DIREZ1$="N":DIREZ2$="":DIREZ3$="":DIREZ4$=""
    IF LU=6 THEN DIREZ1$="N":DIREZ2$="":DIREZ3$="":DIREZ4$="O"
    IF LU=7 THEN DIREZ1$="":DIREZ2$="S e B":DIREZ3$="":DIREZ4$=""
    IF LU=8 THEN DIREZ1$="A":DIREZ2$="":DIREZ3$="":DIREZ4$=""

    CALL MAKEWINDOW (1,65,7,15,FNATTR%(15,1),2,0,0)
    CALL TITLEWINDOW (2,"[ DIREZIONI ]")
    CALL PRTCWINDOW (1%,DIREZ1$)
    CALL PRTCWINDOW (2%,"|")
    CALL PRTCWINDOW (3%,DIREZ4$ +" -------- "+ DIREZ3$)
    CALL PRTCWINDOW (4%,"|")
    CALL PRTCWINDOW (5%,DIREZ2$)




    input IN$:IF IN$="" THEN 800
    COLOR 4:IN$=UCASE$(IN$)

810 LI=LEN(IN$):IN=1:GOSUB 280:P1$=P$:C1=C
820 IF P1$="" THEN frase$="- Beh ?":gosub spell:GOTO 760
830 IF RIGHT$(P1$,2)="RE" THEN frase$="- Dammi del tu, per favore.":gosub spell:GOTO 760
840 IF C1=0 AND P1$<>"" THEN FRASE$="- Non conosco il verbo '"+P1$+"'.":gosub spell:GOTO 760
850 GOSUB 280:P2$=P$:C2=C:IF C2>0 AND C2<7 THEN 850:REM NO ARTICOLI
860 IF C2=0 AND P2$<>"" THEN FRASE$="- Non conosco la parola '"+P2$+"'.":GOSUB SPELL:GOTO 760
870 IF C2<>0 THEN GOSUB 650:REM OG=INDICE
880 N1=LU*10000:N2=C1*100
890 A=N1+N2+C2:GOSUB 500:IF A GOTO 760:REM VERBO+NOME IN LU
900 IF C2<>0 THEN A=N1+N2+99:GOSUB 500:IF A GOTO 760:REM VERBO+X IN LU
910 A=N2+C2:GOSUB 500:IF A GOTO 760:REM VERBO+NOME GENERICO
920 IF C2<>0 THEN A=N2+99:GOSUB 500:IF A GOTO 760:REM VERBO+X GENERICO
ILCASO:

    I=INT(RND(1)*7)
    FRASE$=FRISP$(I)
930 frase$=frisp$(i):gosub spell:GOTO 760
940 REM
950 REM - TEMPO -
960 REM
970 IF T1 THEN T1=T1-1:GOSUB 3000
980 IF T2 THEN T2=T2-1:GOSUB 3200
990 IF T3 THEN T3=T3-1:GOSUB 3400
1000 IF T4 THEN T4=T4-1:GOSUB 3600
1010 IF T5 THEN T5=T5-1:GOSUB 3800
1020 RETURN
1030 REM
1040 REM - INIT -
1050 REM
1060 DIM DZ$(150),DZ%(150):REM DIZIONARIO
1070 DIM DE$(98),DI$(98):REM MAPPA
1080 DIM CA(160),AZ%(160):REM AZIONI
1090 DIM OG$(50),CO%(50),L(50):REM OGGETTI
1100 F$=NOME$:REM FILE SITUAZIONE
1110 REM FD,FM,FA,FO=0
1120 FRASE$="Un attimo di pazienza...":GOSUB SPELL
1130 READ A$:IF A$<>"FD" THEN FD=FD+1:DZ$(FD)=A$:READ DZ%(FD):GOTO 1130
1140 READ A$:IF A$<>"FM" THEN FM=FM+1:DE$(FM)=A$:READ DI$(FM):GOTO 1140
1150 READ A$:IF A$<>"FA" THEN FA=FA+1:CA(FA)=VAL(A$):READ AZ%(FA):GOTO 1150
1160 READ A$:IF A$<>"FO" THEN FO=FO+1:OG$(FO)=A$:READ CO%(FO),L(FO):GOTO 1160
1170 FOR I=2 TO FD:REM --- CONTROLLO DIZIONARIO (ELIMINABILE) ---
1180 IF DZ$(I)<=DZ$(I-1) THEN PRINT "Errore: "DZ$(I)" <= "DZ$(I-1):END
1190 NEXT
1200 FOR I=2 TO FA:REM --- CONTROLLO AZIONI (ELIMINABILE) ---
1210 IF CA(I)<=CA(I-1) THEN PRINT "Errore: "CA(I)" <= "CA(I-1):END
1220 NEXT
1230 CLS:RETURN
1470 REM
1480 REM - <SP> PER CONTINUARE -
1490 REM
1500 PRINT:PRINT "- Premi <spazio> per continuare -";
1510 A$=INPUT$(1):IF A$<>" " THEN 1510
1520 CLS:RETURN
1570 REM
1580 REM - DOMANDA A$, A=VERO SE SI' -
1590 REM
1600 PRINT A$;:INPUT " ";B$:B$=LEFT$(B$,1)
1610 IF B$<>"S" AND B$<>"N" THEN 1600
1620 A=(B$="S"):RETURN
1670 REM
1680 REM - PAUSA A SECONDI CIRCA -
1690 REM
1700 FOR I=1 TO 20*A:PLAY"p64.":NEXT:RETURN
1710 REM
1720 REM * (METTERE QUI ALTRE SUBROUTINE DI USO GENERALE) *
2470 REM
2480 REM - ESEGUE AZIONE A -
2490 REM
2500 REM
2510 ON A GOTO 5000,5200,5400,5600,5800,6000,6200,6400,6600,6800
2520 ON A-10 GOTO 7000,7200,7400,7600,7800,8000,8200,8400,8600,8800
2530 ON A-20 GOTO 9000,9200,9400,9600,9800,10000,10200,10400,10600,10800
2540 ON A-30 GOTO 11000,11200,11400,11600,11800,12000,12200,12400,12600,12800
2550 ON A-40 GOTO 13000,13200,13400,13600,13800,14000,14200,14400,14600,14800
2560 ON A-50 GOTO 15000,15200,15400,15600,15800,16000,16200,16400,16600,16800
2570 ON A-60 GOTO 17000,17200,17400,17600,17800,18000,18200,18400,18600,18800
2580 ON A-70 GOTO 19000,19200,19400,19600,19800,20000,20200,20400,20600,20800
2590 ON A-80 GOTO 21000,21200,21400,21600,21800,22000,22200,22400,22600,22800
2600 ON A-90 GOTO 23000,23200,23400,23600,23800,24000,24200,24400,24600,24800
2610 ON A-100 GOTO 25000,25200,25400,25600,25800,26000,26200,26400,26600,26800
2620 ON A-110 GOTO 27000,27200,27400,27600,27800,28000,28200,28400,28600,28800
2630 ON A-120 GOTO 29000,29200,29400,29600,29800,30000,30200,30400,30600,30800
2640 ON A-130 GOTO 31000,31200,31400,31600,31800,32000,32200,32400,32600,32800
2650 ON A-140 GOTO 33000,33200,33400,33600,33800,34000,34200,34400,34600,34800
2660 ON A-150 GOTO 35000,35200,35400,35600,35800,36000,36200,36400,36600,36800
2670 PRINT A" ???":RETURN:REM PER SICUREZZA
2920 REM
2930 REM
2940 REM ### FINE INTERPRETE, INIZIO AVVENTURA ###
2950 REM
2960 REM
2970 REM - TIMER -
2980 REM
2990 REM T1:
3000 IF T1>40 THEN RETURN
3010 IF T1<40 AND T1>30 AND OCIO1=0 THEN color 5:FRASE$="Hei "+nome$+" ' gia' pomeriggio inoltrato...":gosub spell:OCIO1=1:color 9:RETURN
3020 IF T1<30 AND T1>10 AND OCIO2=0 THEN color 5:FRASE$="Qui il tempo passa.E'l'imbrunire":gosub spell:OCIO2=1:color 9:RETURN
3030 IF T1<10 AND T1>0 AND OCIO3=0 THEN color 5:FRASE$="Attenzione! "+NOME$+" Il sole e' basso sull'orizzonte!":GOSUB SPELL:OCIO3=1:color 9:RETURN
3040 IF T1=0 THEN FRASE$="TROPPO TARDI!!! Il sole ' tramontato PER SEMPRE su Fantasia.":GOSUB SPELL:FOR I = 1 TO 3000:NEXT I:GOTO 4010
3050 RETURN
3190 REM T2:
3200 IF T2>1 OR T2<0 THEN RETURN
3202 IF T2=1 THEN FRASE$="La strega si e' stufata di aspettare. Con una magia  ti trasforma in un rospo malefico..":GOSUB SPELL:FOR I = 1 TO 2000:NEXT I
3204 FRASE$="Vagherai per Fantasia senza meta nutrendoti di insetti":GOSUB SPELL:FOR I = 1 TO 2000:NEXT I
3206 FRASE$="....Che schifo!":GOSUB SPELL:FOR I = 1 TO 4000:NEXT I:GOTO 4010
3390 REM T3:
3400 IF T3<0 THEN RETURN
3405 IF T3=10 THEN FRASE$="Fossi in te mi affretterei..":GOSUB SPELL:RETURN
3410 IF T3=3 THEN FRASE$="Presto "+NOME$+" !! Presto!":GOSUB SPELL:RETURN
3415 IF T3=0 THEN FRASE$="Troppo tardi. E pensare che c'eri quasi..":GOSUB SPELL:FOR I = 1 TO 5000:NEXT I:GOTO 4010
3420 RETURN
3590 REM T4:
3600 PRINT:PRINT "T4":RETURN
3790 REM T5:
3800 PRINT:PRINT "T5":RETURN
3970 REM
3980 REM - MORTO -
3990 REM
4000 GOSUB 1500:REM <SP>
4010 REM --- METTERE QUI IL FINALE NEGATIVO ---
4011 CLS:PRINT"***************REQUIEM PER UN AVVENTURIERO*******************"
4012 FRASE$="Il regno di Fantasia e tutto cio' che lo abitava sono stati ingoiati dal Nulla.":gosub spell
4013 frase$="La principessa Maria Antonietta aspettera' invano il suo salvatore":gosub spell
     frase$="prigioniera del sonno eterno perpetrato dalla malefica entita'":gosub spell
4450 A$="Vuoi giocare ancora":GOSUB 1600:IF(A) THEN RUN:REM RIPARTE
4460 PRINT:PRINT:PRINT "Ciao ";NOME$;"!":CLOSE #2:END
4470 REM
4480 REM - INTRODUZIONE -
4490 color 7
4500 REM  frase$="                       l'AMORE E IL NULLA":gosub spell
     REM  frase$="                         DEDICATA A TITA ":gosub spell
4501 REM  frase$="                     AVVENTURA DI MARCARINI R.":gosub spell
4502 REM  frase$="                      Bresso 26 Febbraio 1989":gosub spell
4503 REM  FOR I=1 TO 8000:NEXT I:CLS
     color 2
4504 frase$="In un tempo lontano esisteva un regno bellissimo di nome FANTASIA.":gosub spell
4505 frase$="Regnava su di esso una bella principessa di nome Maria Antonietta.":gosub spell
4506 frase$="Per molti anni il regno visse in amore e serenita', ma un brutto giorno":gosub spell
     frase$="una orrenda creatura ,il Nulla, essere malvagio invidioso,":gosub spell
4507 frase$="rapi' la principessa per poter distruggere Fantasia.":gosub spell
4508 frase$="Solo un umano puo' salvare Fantasia, liberando la principessa,la quale":gosub spell
     frase$="si trova nascosta in un posto segreto del regno":gosub spell
4509 frase$="Ma cio' deve avvenire prima del tramonto poiche' la maledizione del Nulla":gosub spell
     frase$="ha decretato che al calare della notte Fantasia verra' distrutta":gosub spell
4510 frase$="e il mondo non vedra' piu' una nuova alba":gosub spell
4515 PRINT:frase$="Per terminare digita STOP":gosub spell
4517 frase$="Buona Fortuna "+NOME$+" !":gosub spell
4520 REM --- RICORDARSI LU=LUOGO INIZIALE ---
4530 REM
4950 LU=1:PRINT:RETURN
4960 REM
4970 REM - AZIONI: -
4980 REM
4990 REM 1: (DIREZIONI)
5000 A=VAL( MID$(DI$(LU),2*C1-1,2))
5010 IF A=0 THEN frase$="- Mi spiace "+nome$+" ma di li' non posso andare.":gosub spell:RETURN
5020 LU=A:RETURN
5190 REM 2: (PRENDI)
5200 IF L(OG)=0 THEN frase$="- Gia' fatto.":gosub spell:RETURN
5210 IF L(OG)<0 THEN frase$="- Non e' possibile.":gosub spell:RETURN
5220 L(OG)=0:frase$="Fatto!":gosub spell:RETURN
5390 REM 3: (LASCIA)
5400 IF OG=0 OR L(OG)<>0 THEN frase$="- Non ce l'ho.":gosub spell:RETURN
5410 L(OG)=LU:frase$="Fatto.":gosub spell:RETURN
5590 REM 4: (GUARDA)
5600 gosub descrive:RETURN
5790 REM 5: (SAVE)
5800 REM
     FRASE$="Inserisci il nome con cui salvare la tua situazione":GOSUB SPELL
     FRASE$="Premi solo INVIO (RETURN) per vedere i precedenti salvataggi":GOSUB SPELL
     ?:INPUT NOME2$
     IF NOME2$="" THEN FILES "*.SAV":GOTO 5800
     NOME2$=NOME2$ + ".SAV"


     OPEN NOME2$ FOR OUTPUT AS #1
5810 FOR I=1 TO FO:PRINT #1,L(I):NEXT
5820 WRITE #1,LU,T1,T2,T3,T4,T5,V1,V2,V3,V4,V5,V6,V7,V8,V9,V0
5822 WRITE #1,VA1,VA2,VA3,VA4,VA5,VA6,VA7,VA8,VA9,VA10,VA11,VA12,VA13,VA14,VA15,VA16,VA17,VA18,VA19,VA20,VA21,VA22,VA23,VA24,VA25,VA26,VA27,VA28,VA29,VA30,VA31
5824 WRITE #1,VA32,VA33,VA34,VA35,VA36,VA37,VA38,VA39,VA40,VA60,VA61,VA62,VA63,WE
5830 CLOSE #1:?:INPUT"vuoi continuare";RISP$
5835 IF RISP$="S" OR RISP$="s" OR RISP$="SI" OR RISP$="si" THEN RETURN
5840 FRASE$="Ciao "+NOME$:GOSUB SPELL:CLOSE #2:END
5990 REM 6: (LOAD)
6000 REM
     FRASE$="Inserisci il nome della situazione da caricare":GOSUB SPELL
     FRASE$="Premi solo INVIO (RETURN) per vederle tutte da disco":GOSUB SPELL
     ?:INPUT NOME2$
     IF NOME2$="" THEN FILES "*.SAV":GOTO 6000
     NOME2$=NOME2$ + ".SAV"


6005 OPEN NOME2$ FOR INPUT AS #1
6610 FOR I=1 TO FO:INPUT #1,L(I):NEXT
6020 INPUT #1,LU,T1,T2,T3,T4,T5,V1,V2,V3,V4,V5,V6,V7,V8,V9,V0
6022 INPUT #1,VA1,VA2,VA3,VA4,VA5,VA6,VA7,VA8,VA9,VA10,VA11,VA12,VA13,VA14,VA15,VA16,VA17,VA18,VA19,VA20,VA21,VA22,VA23,VA24,VA25,VA26,VA27,VA28,VA29,VA30,VA31
6024 INPUT #1,VA32,VA33,VA34,VA35,VA36,VA37,VA38,VA39,VA40,VA60,VA61,VA62,VA63,WE
6030 CLOSE #1:RETURN

6190 REM 7: (COSA)
6200 frase$="Possiedi:":gosub spell:PRINT:L=0:P$="- ":GOSUB 590
6210 IF A=0 THEN frase$="- Un bel tubazzo....":gosub spell
6220 RETURN
6390 REM 8:
6400 L(1)=-99:L(2)=-1
6401 IF L(11)=0 THEN RETURN
6402 L(11)=1:RETURN
6590 REM 9:
6600 IF L(11)=1 THEN frase$="Dentro c'e' un cagnolino di pezza.":gosub spell:RETURN
6601 frase$="E' un vecchio baule di legno tarlato":gosub spell:RETURN
6790 REM 10:
6800 IF L(1)=-1 THEN frase$="E' gia' chiuso..":gosub spell:RETURN
6805 frase$="Fatto":gosub spell:L(2)=-99:L(1)=-1
6806 IF L(11)=1 AND L(11) <> 0 THEN L(11)=-99
6807 RETURN
6990 REM 11:
7000 frase$="E' un cagnolino di pannolenci dall'aria triste":gosub spell:RETURN
7190 REM 12:
7200 frase$="Attento ! un giorno passa veloce..e' meglio affrettarsi":gosub spell:RETURN
7390 REM 13:
7400 IF V1=1 THEN frase$="Inutile insistere..":gosub spell:RETURN
7401 frase$="Non posso aiutarti qui..":gosub spell:V1=1:RETURN
7590 REM 14:
7600 IF V2=1 THEN frase$="ERRARE E' umano ma perseverare e' diabolico!":gosub spell:RETURN
7601 frase$="A mani nude?...Dopo esserti fatto un male cane rinunci.":gosub spell:V2=1:RETURN
7790 REM 15:
7800 frase$="Non ce la fai...e' troppo pesante":gosub spell:RETURN
7990 REM 16:
8000 frase$="E' meglio non farlo.Da retta a me":gosub spell:RETURN
8190 REM 17:
8200 IF L(4)=0 THEN frase$="Gia' fatto":gosub spell:RETURN
8202 L(4)=0:frase$="fatto":gosub spell:RETURN
8390 REM 18:
8400 frase$=NOME$+"...come osi? Gator ti trasforma in un fiore":gosub spell:FOR I =1 TO 3000:NEXT I:GOTO 4010
8590 REM 19:
8600 IF L(5)<>-99 THEN frase$="Gator si aspetta qualcosa da te":gosub spell:RETURN
8601 IF L(28)<>-99 THEN frase$="Mi hai seccato,vattene.":gosub spell:RETURN
8602 frase$="Caro piccolo mortale,non sopporto i ficcanaso ma apprezzo chi vuol socializzare.":gosub spell
     frase$="ti meriti proprio un regalo...e ti da qualcosa":gosub spell:L(5)=2:vtx=1:RETURN
8790 REM 20:
8800 IF L(28)<>-99 THEN frase$="Non puoi..e' rotto":gosub spell:RETURN
8801 IF LU=3 AND L(13)<>-99 THEN frase$="Ecco,bravo l'hai spaventata!...e' scomparsa.":gosub spell:L(13)=-99:V6=1:RETURN
8802 IF L(5)<>0 THEN frase$="Prima ti conviene prenderlo...":gosub spell:RETURN
8803 IF LU <> 2 OR L(24)=-99 THEN frase$="Bravo...bravo,ma non succede nulla..":gosub spell:RETURN
8804 frase$="Una melodia dolcissima aleggia nell'aria ...Gator danzando si dissolve..":gosub spell
     frase$="qualcosa luccica tra i fiori":gosub spell:L(24)=-99:RETURN
8990 REM 21:
9000 IF L(24)=-99 THEN frase$="Hei.."+NOME$+"..cerca di spremere le meningi.":gosub spell:RETURN
9001 IF L(28)<>-99 THEN frase$=NOME$+" ! "+" Non avresti dovuto rompere quel violino!":gosub spell:RETURN
9002 frase$="Perche' non provi a socializzare?":gosub spell:RETURN
9190 REM 22:
9200 frase$="Cosa diavolo aspetti?":gosub spell:RETURN
9390 REM 23:
9400 IF L(28) <>-99 THEN frase$="L'ho gia' fatto":gosub spell:RETURN
9402 frase$="Crash!!!":gosub spell:IF L(5)=0 THEN L(28)=0:L(5)=-99:RETURN
9404 L(28)=LU:RETURN
9590 REM 24:
9600 IF L(3)=0 OR L(24) <> -99 THEN frase$="Sono dei bellissimi fiori di campo":gosub spell:RETURN
9602 frase$="tra fiori vedo una chiave dorata":gosub spell:L(3)=2:RETURN
9790 REM 25:
9800 IF L(5) <> -99 THEN frase$="E' uno Stradivari autentico di Cremona !":gosub spell:RETURN
9802 frase$="Era uno Stradivari autentico di Cremona (sigh!)":gosub spell:RETURN
9990 REM 26:
10000 IF L(5)<>-99 THEN frase$="E' li che ti guarda.Ora ha un'aria piu' bonaria...":gosub spell:RETURN
10002 frase$="E' un folletto dal corpo di bambino e il viso da gatto":gosub spell
      frase$="...e ti sta osservando minaccioso":gosub spell:RETURN
10190 REM 27:
10200 frase$="E' una rigogliosa sorgente dall'acqua pura e ghiacciata":gosub spell:RETURN
10390 REM 28:
10400 IF L(13)<>-99 OR V6=1 THEN frase$="Glu...glu...":gosub spell:RETURN
10402 frase$="non appena tocchi l'acqua con le labbra noti una luce intensa vicino a te.....":gosub spell:L(13)=-3:RETURN
10590 REM 29:
10600 frase$="E' una donna d'eta' ma molto bella,con gli occhi azzurri e i capelli raccolti":gosub spell
      frase$="come usavano una volta le nonne.Ti sorride.":gosub spell:RETURN
10790 REM 30:
10800 IF L(6)<>-99 OR L(7)<>-99 THEN frase$="Ok,ok...piano con gli entusiasmi..":gosub spell:RETURN
10802 frase$="mentre lo fai la sua luce diventa intensissima....ecco..sta scomparendo..":gosub spell
      frase$="..noto pero' qualcosa sul terreno":gosub spell:L(6)=3:L(7)=3:L(13)=-99:V6=1:RETURN
10990 REM 31:
11000 IF LU<>8 THEN frase$="E' un antico volume rilegato in cuoio...":gosub spell:RETURN
11002 color 5:frase$="Il libro splende di una luce intensissima!!!!!!":gosub spell:RETURN
11190 REM 32:
11200 frase$="E' una collana fatta di fiori.":gosub spell:RETURN
11390 REM 33:
11400 IF L(6)<>0 THEN frase$="Come diavolo lo leggo se e' in terra??":gosub spell:RETURN
11401 IF LU<>8 THEN frase$="Sulla pagina leggo: ogni cosa ha il suo tempo...":gosub spell:RETURN
11402 frase$="Sul libro leggo il nome di una donna:Maddalena":gosub spell:RETURN
11590 REM 34:
11600 IF V9=1 THEN frase$="- Non ho altro da dirti "+nome$+"...":gosub spell:RETURN
11602 frase$="Benvenuto a te "+nome$+" ! E a tutti i puri di cuore.(Tende le braccia verso di te)":gosub spell:RETURN
11790 REM 35:
11800 IF L(7)=0 THEN frase$="Fatto":L(8)=0:L(27)=0:gosub spell:RETURN
11802 frase$="Pazzo!! Come osi prendere cosi' sfacciatamente un animale sacro?":gosub spell
      frase$="Un fulmine ti incenerisce e il vento spazza i tuoi miseri resti":gosub spell:FOR I = 1 TO 6000:NEXT I:GOTO 4010
11990 REM 36:
12000 IF L(8)<>-99 THEN frase$="Ora le sue acque si sono un po' increspate...":gosub spell:RETURN
12002 frase$="E' un piccolo laghetto di montagna freddo e immobile come uno specchio":gosub spell:RETURN
12190 REM 37:
12200 IF L(8)<>-99 THEN frase$="Non posso piu' aiutarti..":gosub spell:RETURN
12202 frase$="Confida nella tua immagine":gosub spell:RETURN
12390 REM 38:
12400 IF L(8)<>-99 THEN frase$="Non vedo nulla.L'acqua e' troppo mossa...":gosub spell:RETURN
12402 IF L(7)<>0 THEN frase$="Vedo la tua immagine riflessa nell'acqua tranquilla...":gosub spell:RETURN
12404 frase$="L'acqua inizia a ribollire .":gosub spell
      frase$="Un maestoso unicorno bianco sorge dal lago e lentamente ti si avvicina.":gosub spell:L(8)=4:L(27)=4:V7=1:RETURN
12590 REM 39:
12600 frase$="Splash!! Cavolo,l'acqua e' freddissima......":gosub spell:FOR I =1 TO 2000:NEXT I
12602 frase$="Sento che sto per avere dei crampi di freddo....":gosub spell:FOR I = 1 TO 3500:NEXT I
12603 frase$="Dopo una breve agonia affoghi per assideramento...":gosub spell:FOR I =1 TO 5000:NEXT I:GOTO 4010
12790 REM 40:
12800 IF L(27)=0 THEN frase$="E' un bellissimo cavallo bianco":gosub spell:RETURN
12802 frase$="E' un bellissimo cavallo bianco con un corno dorato sulla fronte":gosub spell:RETURN
12990 REM 41:
13000 frase$="La sua pelle e' vellutata e questa sensazione ti infonde serenita' e purezza":gosub spell:RETURN
13190 REM 42:
13200 IF L(9)<>-99 THEN frase$="E' una roccia normalissima.":gosub spell:RETURN
13205 frase$="E' una roccia cosi' alta da non vederne la cima.":gosub spell:RETURN
13390 REM 43:
13400 IF L(8)=0 THEN frase$="Il cavallo non ce la fa...":gosub spell:RETURN
13402 frase$="Sei sulla sommita' della roccia":gosub spell:L(9)=5:L(8)=-99:V8=1:RETURN
13590 REM 44:
13600 IF L(9)<>-99 THEN frase$="Non ho piu' nulla da dirti...":gosub spell:RETURN
13602 frase$="dicono che l'aria di montagna faccia bene alla salute":gosub spell:RETURN
13790 REM 45:
13800 IF L(9)<>-99 THEN frase$="E' una vecchia spada spagnola.":gosub spell:RETURN
13802 frase$="Non riesco a guardarla:mi abbaglia!":gosub spell:RETURN
13990 REM 46:
14000 IF L(27)<>0 THEN frase$="Non puoi:non si muove..e' preda di un incantesimo.":gosub spell:RETURN
14002 L(9)=0:frase$="fatto":gosub spell:RETURN
14190 REM 47:
14200 IF L(9)<>0 THEN L(9)=-99:V8=0:frase$="Fatto.":gosub spell:RETURN
14202 L(8)=5:V8=0:frase$="Fatto.":gosub spell:RETURN
14390 REM 48:
14400 frase$="Invece di continuare a chiedere aiuto,fai lavorare il cervello...":gosub spell
      frase$="comunque qui fa un caldo bestiale...":gosub spell:RETURN
14590 REM 49:
14600 frase$="Non posso,mi abbaglia....":gosub spell:RETURN
14790 REM 50:
14800 frase$="E' un enorme lupo nero e ti ringhia contro.":gosub spell:RETURN
14990 REM 51:
15000 IF L(9) AND L(10) <>0 THEN frase$="Con che cosa,scusa?":gosub spell:FOR I = 1 TO 3000:NEXT I:GOTO 4010
15001 IF L(10)=-99 THEN frase$="La tua spada arrugginita non ha alcun effetto..":gosub spell:FOR I = 1 TO 6000:NEXT I:GOTO 4010
15002 frase$="Appena colpito dal tuo fendente il Nulla si dissolve...":gosub spell:L(14)=-99:RETURN
15190 REM 52:
15200 frase$="Ma sei pazzo? Parlare ad una bestia del genere...":gosub spell:RETURN
15390 REM 53:
15400 frase$="I vili non hanno posto in questo regno.Il Nulla ti uccide senza pieta'.":gosub spell:FOR I = 1 TO 5000:NEXT I :GOTO 4010
15590 REM 54:
15600 IF L(14)=-99 THEN frase$="Ora affrettati.La principessa ti attende.":gosub spell:RETURN
15602 frase$="Porta la luce della purezza in questo posto oscuro.":gosub spell:RETURN
15790 REM 55:
15800 IF L(9)<>0 THEN frase$="Non succede nulla.Ti manca qualcosa.":gosub spell:RETURN
15802 frase$="Sta succedendo qualcosa di magico!!!La tua spada si illumina!":gosub spell:L(9)=-99:L(10)=0:RETURN
15990 REM 56:
16000 IF L(19)<>-99 THEN frase$="No,e' meglio restare qui...":gosub spell:RETURN
16002 frase$="Ecco mi sto avvicinando ...":gosub spell:FOR I = 1 TO 2000:NEXT I
16004 frase$="Ecco,ci sono...ora vedo bene":gosub spell:L(21)=-99:L(19)=-7:L(25)=-7:RETURN
16190 REM 57:
16200 IF L(25)=-7 OR L(26)=-7 THEN frase$="E'una casetta umile e carina..trallallero trallalla'..":gosub spell:RETURN
16202 frase$="E' una costruzione fatta di legno immersa nel verde":gosub spell:L(25)=-7:RETURN
16204 IF L(19)=-99 AND LU=7 THEN frase$="Ci sei dentro.":gosub spell:RETURN
16390 REM 58:
16400 frase$="E' una pesante porta in legno massiccio...":gosub spell:RETURN
16590 REM 59:
16600 IF L(3)<>0 THEN frase$="Con che cosa scusa?":gosub spell:RETURN
16602 frase$="Fatto":gosub spell:L(25)=-99:L(26)=-7:RETURN
16790 REM 60:
16800 frase$="Ti fracassi la mano contro la porta,che non si sposta di un centimetro":gosub spell:RETURN
16990 REM 61:
17000 IF L(26)=-99 THEN frase$="Non puoi.La porta e' chiusa.":gosub spell:RETURN
17002 IF L(8)=0 THEN frase$="Entri nella casa col cavallo???":gosub spell:RETURN
17004 frase$="Fatto":gosub spell
17005 IF L(8)=7 THEN L(8)=-99
17007 L(19)=-99:L(20)=-7:L(22)=-7
17009 IF V3=1 THEN L(20)=-99:L(16)=-7
17010 RETURN
17190 REM 62:
17200 IF L(25)=-7 THEN frase$="Adesso passi attraverso le porte?":gosub spell:RETURN
17202 L(19)=-7:L(20)=-99:L(22)=-99
17203 IF L(8)=-99 AND V7=1 THEN L(8)=7
17205 IF L(18)=-7 THEN L(18)=-99
17207 IF L(16)=-7 OR L(17)=-7 THEN L(16)=-99:L(17)=-99
17208 IF T2<0 THEN RETURN
17209 REM ************************************************
17210 RETURN
17390 REM 63:
17400 IF V8=1 THEN frase$="Aaaargh!!! Sei caduto dalla roccia sfracellandoti al suolo.":gosub spell:FOR I=1 TO 6000:NEXT I:GOTO 4010
17402 GOTO 4990
17590 REM 64:
17600 frase$="E' una giovane donna dai capelli nerissimi e folti..ti fissa attenta..":gosub spell:RETURN
17790 REM 65:
17800 frase$="E' incredibile:dovunque guardi vedo miriadi di fiori di ogni tonalita' di colore":gosub spell:RETURN
17990 REM 66:
18000 frase$="Salute a te o baldo guerriero.Io,nella mia grande sapienza so gia' quel che cerchi.Posso anche aiutarti,ma bada di non deludermi...potrei":gosub spell
      frase$="arrabbiarmi e la cosa non ti piacerebbe..ti do qualche secondo":gosub spell:return
18190 REM 67:
18200 frase$="Devi essere pazzo:prima che tu ti possa muovere ti trasforma in uno dei tanti fiori della stanza":gosub spell:FOR I = 1 TO 3000:NEXT I:GOTO 4010
18390 REM 68:
18400 IF V3=1 THEN frase$="L'hai gia' fatto..svegliun!!":gosub spell:RETURN
18405 frase$="Bravo! La gentilezza con le signore ha sempre successo.La strega                commossa dal tuo gesto fa un incantesimo e sparisce..":gosub spell:L(20)=-99:L(16)=-7:T2=-T2:V3=1:RETURN
18590 REM 69:
18600 frase$="Fatto.":gosub spell:L(16)=-99:L(17)=-7:L(18)=-7:RETURN
18790 REM 70:
18800 frase$="E' una botola normalissima..":gosub spell:RETURN
18990 REM 71:
19000 frase$="Tutto regolare. Sono delle scale in legno.":gosub spell:RETURN
19190 REM 72:
19200 IF L(16)=-7 THEN frase$="La botola e' chiusa .Testassa...":gosub spell:RETURN
19202 IF L(16)=-99 AND L(17)=-99 THEN frase$="In che senso scusa?":gosub spell:RETURN
19204 GOTO 4990
19390 REM 73:
19400 frase$="Nessuno ti risponde..Sembra disabitata.":gosub spell:RETURN
19590 REM 74:
19600 IF L(20)=-7 THEN frase$="Cantavano una volta:Grazie dei fior....":gosub spell:RETURN
19602 frase$="Smettila di belare e muoviti.":gosub spell:RETURN
19790 REM 75:
19800 IF V3=1 THEN frase$="La porta non si muove piu'.":gosub spell:RETURN
19802 frase$="Fatto.":gosub spell:L(25)=-7:L(26)=-99
19806 RETURN
19990 REM 76:
20000 frase$="E' un bellissimo letto in ottone. (Modello Lipparini...)":gosub spell:RETURN
20190 REM 77:
20200 frase$="E' una normalissima grotta scavata nella roccia.":gosub spell:RETURN
20390 REM 78:
20400 IF V5=0 THEN frase$="E'una ragazza bionda e ricciolina...addormentata.":gosub spell:RETURN
20402 IF V5=1 THEN frase$="E' una bella ragazza bionda e ricciolina.Ora ti guarda.":gosub spell
20404 IF L(11)<>0 THEN RETURN
20406 IF L(11)=0 AND V5=1 THEN frase$="Guarda con interesse qualcosa che hai in mano.":gosub spell:RETURN
20590 REM 79:
20600 IF V5=0 AND L(6)=0 THEN frase$="La soluzione e' a portata di mano":gosub spell:RETURN
20602 IF V5=1 AND L(11)=0 THEN frase$="Dai impegnati un po'...":gosub spell:RETURN
20604 IF V5=1 AND L(11)<>0 THEN frase$="Ti manca qualcosa di essenziale.":gosub spell:RETURN
20606 frase$="Non posso dirti tutto..":gosub spell:RETURN
20790 REM 80:
20800 frase$="Cosa vuoi che ci sia sotto il letto? No, lascia perdere..":gosub spell:RETURN
20990 REM 81:
21000 IF L(6)<>0 OR LU<>8 THEN frase$="Qui non succede nulla":gosub spell:RETURN
21001 IF L(14)<>-99 THEN frase$="Solo la morte del nulla puo' rompere l'incantesimo":gosub spell:RETURN
21002 IF V5=1 THEN frase$="Non ripeterti. Quello che doveva accadere e' accaduto.":gosub spell:RETURN
21004 frase$="L'incantesimo e' rotto!!! La principessa apre gli occhi e ti sorride.":gosub spell:V5=1:RETURN
21190 REM 82:
21200 GOTO 21000
21390 REM 83:
21400 IF V5=1 THEN frase$="Ella ti abbraccia raggiante di felicita':Fantasia e' salva!":gosub spell:FOR I = 1 TO 5000:NEXT I:GOTO 60010
21590 REM 84:
21600 IF V5=1 THEN frase$="Ehi..vacci piano,in fondo ci conosciamo appena.....(diventa rossa)":gosub spell:RETURN
21602 frase$="Mentre la baci senti il suo profumo e un fremito ti coglie al contatto con la sua pelle vellutata":gosub spell:RETURN
21790 REM 85:
21800 frase$="Sotto le tue dita senti le sue vesti di seta e le sue guance dalla pelle vellutata..":gosub spell:RETURN
21990 REM 86:
22000 frase$="E' un soffitto molto alto e umido...noto la botola da cui sei entrato":gosub spell:RETURN
22190 REM 87:
22200 IF V5=0 THEN frase$="Non puo' parlare: e' addormentata..":gosub spell:RETURN
22202 IF L(11)<>0 THEN frase$="Ha un'aria malinconica: Portami tristetriste,ti prego! Altrimenti Fantasia scomparira'...":T3=10:gosub spell:RETURN
22204 frase$="Tristetriste mio! Alfine ti ritrovo! (e guarda qualcosa che possiedi.)":gosub spell:T3=-T3:RETURN
22390 REM 88:
22400 frase$="E' la botola da cui sei entrato che porta alla casa della strega.":gosub spell:RETURN
22590 REM 89:
22600 frase$="E' fredda.":gosub spell:RETURN
22790 REM 90:
22800 IF L(26)=-7 THEN frase$="E'gia' aperto...":gosub spell:RETURN
22802 frase$="Ok..e' nella toppa.":gosub spell:RETURN
22990 REM 91:
23000 frase$="E' una lucina. E' molto lontano non vedo bene.":gosub spell:RETURN
23190 REM 92:
23200 rem


item$(1) = "SALVO LA SITUAZIONE"
item$(2) = "CARICO UNA PRECEDENTE SITUAZIONE"
item$(3) = "CI HO RIPENSATO:GIOCO ANCORA."
item$(4	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopHih ]! gifni `[ p_^_l_ koc((((                                                Oh p_hni a_fc^i chctc[ [ mc\cf[l_ nl[ afc [f\_lc((((                           N_h^c f!il_]]bci _ cf mc\cfi mc nl[m`ilg[ ch oh f[g_hni fihn[hi4               ;CON;GC((((;CON;GC((((( Mifi NO joic m[fp[lgc(((                                                                                                                                                                                                                                                                                                                                                         A[nil mc goip_ h_lpim[g_hn_ [p[hnc _ ch^c_nli((((                              M_g\l[ ]b_ mnc[ [j_nn[h^i ko[f]im[ ^[ n_((                                     J_hmi mc[ g_afci ][jcl_ ]im[ poif_(                                            G_afci hih `[lfi chh_lpimcl_((((                                                                                                                                                                                                                                                                                                                                                                           F[ `[n[ mc g[hc`_mn[ [ n_ ch nonn[ f[ mo[ mjf_h^_hn_ \_ff_tt[(((               F[ no[ [nn_htcih_  ]igjf_n[g_hn_ l[jcn[ ^[ ko_mn[ g_l[pcafcim[                pcmcih_((((                                                                    Mn[ n_h^_h^i f_ \l[]]c[ p_lmi ^c n_(                                           Jimmi ko[mc ni]][lf[((((                                                                                                                                                                                                                                                                                                    Il[ cf p_hni a_fc^i mc  jf[][ni(                                              Fi mj_]]bci ^![]ko[ ^_f f[ai ^iji _mm_lmc ch]l_mj[ni                           f_hn[g_hn_ nilh[ cggi\cf_ _ ]lcmn[ffchi(                                                                                                                                                                                                                                                                                                                                                                                                                                                   REM 123:
29400 PRINT 123:RETURN
29590 REM 124:
29600 PRINT 124:RETURN
29790 REM 125:
29800 PRINT 125:RETURN
29990 REM 126:
30000 PRINT 126:RETURN
30190 REM 127:
30200 PRINT 127:RETURN
30390 REM 128:
30400 PRINT 128:RETURN
30590 REM 129:
30600 PRINT 129:RETURN
30790 REM 130:
30800 PRINT 130:RETURN
30990 REM 131:
31000 PRINT 131:RETURN
31190 REM 132:
31200 PRINT 132:RETURN
31390 REM 133:
31400 PRINT 133:RETURN
31590 REM 134:
31600 PRINT 134:RETURN
31790 REM 135:
31800 PRINT 135:RETURN
31990 REM 136:
32000 PRINT 136:RETURN
32190 REM 137:
32200 PRINT 137:RETURN
32390 REM 138:
32400 PRINT 138:RETURCf Hoff[  mcmn_g[ni(((]b_ h_ ^cl_mnc ^c goip_l]c ^[ koc9                      Ko_mni jimni gc ^[ c \lcpc^c(((((                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ?]]i ]im!_l[ f[ fo]ch[                                                       ?! oh[ ][m[( >[ff[ fo]_ ^cl_c ]b_  [\cn[n[(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Il[ f[ Jlch]cj_mm[  ^_mn[(                                                    >_pc mifi ^[lf_ ]c ]b_  moi(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           77,"LIBRO",46,"LO",7,"LOAD",12
40085 DATA "LUCE",47,"LUCINA",21
40087 DATA "MADDALENA",88,"METTI",48,"MONTA",8,"MUSCHIO",49
40090 DATA "N",1,"NEL",7,"NELLA",7,"NORD",1,"NULLA",50
40100 DATA "O",4,"OCCHI",51,"OSSERVA",10,"OVEST",4
40105 DATA "PARLA",52,"PORTA",53
40110 DATA "POSA",9,"PRENDI",8,"PRINCIPESSA",54
40115 DATA "QUERCE",55,"RADICI",56,"RADURA",57
40120 DATA "RIPRENDI",12,"RIVA",81,"ROCCIA",58,"ROMPI",59
40130 DATA "S",2,"SALI",5,"SALUTA",52,"SALVA",11
40140 DATA "SAVE",11,"SCALA",60,"SCALE",61,"SCAPPA",62,"SCENDI",6,"SFONDA",59,"SMONTA",9,"SOFFITTO",63,"SORGENTE",64,"SORRIDI",93
40145 DATA "SPADA",65,"SPECCHIATI",66,"SPOSTA",67,"STANZA",69,"STOP",94,"STREGA",70,"SUD",2,"SULL",7,"SULLA",7,"SUONA",68,"SVEGLIA",83
40147 DATA "TIRA",71,"TOCCA",72,"TRA",7,"TUFFATI",73
40150 DATA "UCCIDI",74,"UN",7,"UNA",7,"UNICORNO",75,"UNO",7,"USA",94
40155 DATA "VEGETAZIONE",29,"VIOLINO",76
40160 DATA "W",4
40170 DATA "FD": REM --- RICORDARSI L'ORDINE ALFABETICO!!! ---
44970 REM
44980 REM - MAPPA:
44981 DATA " in un bosco bellissimo immerso in una folta vegetazione",000200000000"
44982 DATA" in un giardino di fiori dai colori stupendi","010003000000"
44983 DATA" ai margini del bosco in una radura dalla luce irreale","000400020000"
44984 DATA" sulla riva di un lago","030506000000"
44985 DATA" nella valle della roccia","040000000000"
44986 DATA"In un luogo buio c'e' una atmosfera minacciosa...","070000040000"
44987 DATA" nella fitta boscaglia","000600000008"
44988 DATA" in una grotta sotterranea dal soffitto umido","000000000700"
44990 REM
45000 DATA "FM": REM --- LUOGHI E MAPPA, DAL LUOGO N.1 ---
49970 REM
49980 REM - AZIONI:
49990 REM
50000 DATA 100,1,200,1,300,1,400,1,500,1,600,1,675,3,899,-2,975,3,999,3
50010 DATA 1000,4,1025,-11,1031,-109,1033,-32,1046,-31,1065,-45,1075,-40,1076,-25,1099,-4,1100,5,1200,6,1300,7,1746,108,2975,41,4546,-33,5925,16,5976,-23,6876,-20,7275,-41,9400,92,11022,9,11028,93,11029,95,11600,13,11722,8
50011 DATA 11800,12,13628,94,13728,96,15922,14,16722,15,17922,10,21013,24,21040,-24,21041,-26,21080,97,21600,21,21800,22,23041,-19,23240,-17,25241,-19,27441,-18
50013 DATA 31039,-29,31047,49,31057,98,31064,-27,31600,48,32039,-30,32300,28,32314,28,32664,99,34546,-33,35239,-34,37214,100,37239,-30,39339,-30
50015 DATA 40875,-35,41014,103,41044,36,41081,102,41600,37,46600,38,46644,38,47214,89,47344,39,48444,101
50017 DATA 50100,63,50500,43,50558,43,50658,-47,50865,-46,51058,42,51600,44,56058,43
50018 DATA 61050,-50,61600,54,63039,55,64339,55,65250,-52,66200,53,67450,51
50019 DATA 70600,72,70624,72,70661,72,71021,-91,71024,-70,71027,-57,71040,105,71053,-58,71061,-71,71069,-65,71070,-64,71082,104,71600,74,71724,-69,71753,-59,72600,56,73540,-68,73600,61,73627,61
50020 DATA 73700,62,75270,-66,75953,-60,77470,-67,77953,-75,78553,73,79431,-90,80561,107,81024,88,81042,-77,81054,-78,81063,86,81077,-76,81600,79,82054,-84,83088,82,83525,-83,85254,-87,86777,-80,87254,-85,88354,106,88800,81
50030 DATA "FA": REM  --- RICORDARSI L'ORDINE NUMERICO!!! ---
54970 REM
54980 REM - OGGETTI:
54990 REM
55000 DATA "Un baule chiuso",22,-1,"Un baule aperto",22,-99
55010 DATA "Una chiave",31,-99,"i fiori",40,2
55020 DATA "Un violino",76,-99,"Un libro",46,-99
55030 DATA "Una collana",33,-99,"Un unicorno",75,-99
55040 DATA "Una spada arrugginita",65,-99,"Una spada di luce",65,-99
55050 DATA "Un cagnolino",25,-99,"Un letto",77,-8
55060 DATA "Una fata",39,-99,"Il nulla",50,-6
55070 DATA "Una grotta",42,-8,"Una botola chiusa",24,-99
55080 DATA "Una botola aperta",24,-99,"Delle scale",61,-99
55090 DATA "Una casa",27,-99,"Una strega",70,-99
55100 DATA "Un bagliore",21,-7,"Una stanza",69,-99
55110 DATA "Una principessa",54,-8,"Gator",41,-2
55120 DATA "Una porta chiusa a chiave.",53,-99,"Una porta aperta",53,-99
55130 DATA "Un corno",78,-99,"Un violino rotto",76,-99
55132 DATA "Una sorgente",64,-3,"Una roccia",58,-5
60000 DATA "FO": REM --- DESCRIZIONI E DATI OGGETTI, DAL N.1 ---
60010 REM finale positivo
60020 CLS:PRINT"*********************CONGRATULAZIONI!!!*************************"
60030 PRINT:PRINT:PRINT"Passerai alla storia di Fantasia come eroe nazionale.....":FOR I =1 TO 2000:NEXT I
60040 PRINT"L'amore,alla fine,trionfa sempre."
60050 PRINT:PRINT:PRINT"ciao.....e grazie di aver giocato......":FOR I=1 TO 1000:NEXT I
60060 PRINT:PRINT:PRINT:PRINT"                                       Roberto."
close # 2:end
 SPELL:
            ?
            LUNG=LEN(FRASE$)
            FOR W= 1 TO LUNG
            FRX$=MID$(FRASE$,W,1)
            ? FRX$;
            SETT$=" "
            IF FRX$=SETT$ THEN FLIC = FLIC + 1
            IF FRX$<>SETT$ THEN FLIC = 0
            IF FRX$=SETT$ AND FLIC > 5 THEN FLIC=0:RETURN
            DELAY 0.04
            NEXT W
            FLIC=0
            RETURN

ERRORE:
            if err= 53 then goto norec
            if err= 71 then goto nodis
            goto imprev
norec:
            call qfill(1,1,24,80,32,fnattr%(7,1))
            CALL MAKEWINDOW (10,26,3,31,fnattr%(15,5),2%,2%,1)
            CALL PRTCWINDOW (1%,"Nessun record da visualizzare")
            delay 5:cls:resume 23200

nodis:
            call qfill(1,1,24,80,32,fnattr%(7,1))
            CALL MAKEWINDOW (10,26,5,35,fnattr%(15,5),2%,2%,1)
            CALL TITLEWINDOW (2,"Gentile "+ nome$)
            CALL PRTCWINDOW (1%,"Ti spiace rimettere il dischetto")
            CALL PRTCWINDOW (2%,"nel drive ? Grazie....")
            CALL PRTCWINDOW (3%,"ESEGUI e premi un tasto")
 ATTENDE:
               TST$=INKEY$
               if tst$="" then goto attende
            CLS
            resume


imprev:
            call qfill(1,1,24,80,32,fnattr%(7,1))
            CALL MAKEWINDOW (13,20,4,45,fnattr%(15,5),2%,2%,1)
            CALL TITLEWINDOW (2,"Contattare Marcarini 02/6106069")
            CALL PRTCWINDOW (1%,"Si  verificato un errore di codice "+ str$(err))
            CALL PRTCWINDOW (2%,"Alla linea di programma "+ str$(erl))
            close
            end !"#$%&'()+,-./0123456789:;<=>?@ABCDEFJKLMNOQRSTUVWXYZ[\^defghijklmnopqrstuvwxyz{|}~ [r8tI&d7I0
~rDRB$vNZAS<	afݤ2ϓRD|Ǡy8g
J7iKi$2S/DN״~NKC0
T)ݚ|  
HimscgInAM]?t 
DYhNtmkZP,3	!;	ly>H!yܧl.M\P4S ; j$
52_FK*.HaZ5\:PRHn4
Df$WFZH'#ATa5+EQ
 @TPNKJZG۔/IQ` '9R ?+h3+.@OqL!)rR)ɪ/ `|x)r)Y(
ENpWGB7X',:W	lSH:W	u$ԪO+kr$֡`DɑP7p[ 
TGB@pŀu+ʇH.[itK=jVB jAsZk:	 _n
^Y(5:VBBAz9 Г9+J
>5 ~~6ui
t0pgd v"GB^׹Z)#ZaA#7b뫅nQ.Xn{r\r$ Y@ dc &$a_" KH eajprx
Le)+o-$xّ0
s
n[.܁3;^%ʑ( g10&uV>RWK?7+5B,N-or$4X|mN͗@TEcl&n`VOT&v([9K4+ HU4pҁ< Zh$ RC N lI	%K$=LK:
^0ݕ~&0(5UnۀJ	-EQT:k`}
VF[[=ig_ m_c [llcp[ni koc 9                                                        Ko[hni n_gji  j[mm[ni 9                                                       ?! l_[fn[! i  mifi oh miahi 9                                                 G[ oh `ih^i ]b_ cgjiln[ht[ b[9 Hih  `ilm_ f[ pcn[ mn_mm[ oh miahi 9           =illc [``[hhim[g_hn_ h_f `cnni \im]i ]_l][h^i oh[ pc[ ^!om]cn[(                F_ ig\l_ ^_afc [f\_lc nc mipl[mn[hi ]ig_ mjclcnc gch[]]cimc(                   Nc m_hnc ac[! j_l^oni ko[h^i hinc pc]chi [^ oh [f\_li oh p_]]bci               \[of_ [\\[h^ih[ni((((                                                          F![ngim`_l[  jco! l[mmc]ol[hn_ koc( =c mihi `cilc ^[jj_lnonni(                Chctc [ ][ggch[l_ ch oh ][gji ^c `cilc ^[c ]ifilc chcgg[ach[\cfc(              F[ no[ g_hn_ mc mn[ ac[! [\\[h^ih[h^i [ ko_mn[ pcmcih_ j[l[^cmc[][             ko[h^i hinc ko[f]im[ goip_lmc nl[ c `cilc(                                     M_g\l_l_\\_ oh \[g\chi((( hi  ko[f]im![fnli ^_ff_ ^cg_hmcihc ^c oh            \[g\chi(                                                                       ;ppc]ch[h^inc m]ijlc ]ih l[]][jlc]]ci ohi mnl[hi _mm_l_ ^[f ]ilji              gchoni _ ^[ff[ n_mn[(((^c a[nni Nc mn[ ao[l^[h^i(((                           F[ p_a_n[tcih_ mc ^cl[^[ mchi [ ^cp_hn[l_ oh al[h^_ mjc[tti(                   Cf ]fcg[  gifni ][f^i( Ko[mc nillc^i(                                         =! oh mcf_htci ko[mc cll_[f_ ]b_ [ppifa_ iahc ]im[(((                         M\[afc_l                                                                                                                                                                                                                                                                                                                                                                                                  >iji oh fohai ][ggchi nl[ gihnc _ p[ffc acohac ch pcmn[                        ^c oh jc]]ifi f[ab_nni ^c gihn[ah[(                                            @[ gifni `l_^^i koc(((                                                         F!ohc]i logil_ ]b_ i^c  cf `cm]bc[l_ a_fc^i ^_f p_hni(                        Nc [mm[f_ oh j ^c m]ih`ilni((( F_hn[g_hn_ nc [ppc]chc [ff[                    lcp[ ^_f f[ai(((                                                               Nonni n[]_(                                                                                                                                                   Ko_mn[  jlijlci oh[ p[ff_ mchaif[l_(                                          ?! ^igch[n[ ^[ oh[ li]]c[ _hilg_(                                              F[ li]]c[  n[fg_hn_ [fn[ ]b_ hih lc_m]i [ p_^_lh_ f[ ]cg[(                                                                                                                                                                                                                                                                                                                                                                                                                               Ch ko_mni foiai  mifi mcf_htci _ im]olcn(                                    =! oh![ngim`_l[ ^[ g_nn_l_ c \lcpc^c( Mch]_l[g_hn_ gc mni                     ][a[h^i minni(                                                                 M_ht[ ]ihn[l_ jic ]b_ ^[p[hnc [ g_ ]! oh _hilg_ foji                          ]b_ lchabc[h^i mc mn[ [ppc]ch[h^i [ al[h^c j[mmc(((                            F[ \_fp[ ch][lh[ cf HOFF;( >ip_ ]! cf Hoff[ hih ]!                           pcn[ _ goil_ f[ `[hn[mc[(((                                                                                                                                   =[ggch[h^i hinc ]b_ f[ p_a_n[tcih_ mc ch`ifncm]_ mchi                          [ ^cp_hn[l_ oh[ \im][afc[(((((                                                 >iji [f]oh_ il_ ^c ][ggchi m_c ko[mc ^_]cmi [ nilh[l_ moc noic                 j[mmc ko[h^i hinc ch fihn[h[ht[ oh[ `f_\cf_ fo]ch[(((                          Mjchni ^[ff[ ]olcimcn lcjl_h^c [ ][ggch[l_ h_ff[ mo[ ^cl_tcih_(                                                                                                                                                                                                                                                            @ch[fg_hn_                                                                    F[ jlch]cj_mm[  fc! ^[p[hnc [ n_(                                             Hinc j_l ]b_ oh mihhi jli`ih^i f_ cgj_^cm]_ ^c ^_mn[lmc(((                    >_p_ _mm_l_ oh ch][hn_mcgi(((                                                  >_pc nlip[l_ cf gi^i ^c mj_tt[l_ f[ g[ac[((((                                                                                                                                                                                                                                                                               	

Hih ]! gifni [fnli ^[ p_^_l_ koc(((                                           Mifi `cilc(((`cilc((((_ [h]il[ `cilc [ j_l^cn[ ^!i]]bci(                       =b_ h_ ^cl_mnc ^c goip_lmc 9                                                                                                                                                                                                                                                                                                                                                                                                                                                              Hih ]! gifni f[nli ^c chn_l_mm[hn_ koc(((                                     G_afci goip_lmc(                                                               Cf acilhi m]ill_ p_fi]_(((                                                                                                                                                                                                                                                                                                                                                                                                                                                                