ZXTape!ZX cruci --M /64598V:""64599W *7:7:0::ORZ=0  n="a""c"+7:a:n,a:n 0,124|,124|,124|,124|,124|,0,0,0,480,120x,120x,480,0,0,0,1,1,1,1,1,1,1,255 23658j\,0 :2:n=110 2:n,n:255-2*n,0:0,175-2*n:-(255-2*n),0:0,-(175-2*n):n:0 #S3,8;6;"ZX CRUCIVERBER";6,3;7;"MAIN MENU:" $e8,3;"C.....Creazione cruciverba";10 ,3;"L.....Load dati da nastro" %ORZ=05 &l12 ,3;"G.....Gioca cruciverba";14,3;"S.....Salva dati su nastro":0 'Y16,4;"Quale scegli ?";18,4;1;"L":1:0 (-i$=:i$"c"i$"l"i$"g"i$"s"39' )orz=0(i$="g"i$="s")18,4;1;"Non ho dati in memoria":100d:18,4;" ":39' -i$="c":130 .I$="g":3000 /I$="s"4000 0i$="l"4500  .21,0;"DIMENSIONAMENTO GRIGLIA:" !"X=";LX:LX>19140 !"Y=";LY:LY>31150 9000(# G$(LX,LY) !21,0;30;" " 2000 X=1:Y=1 $X=X+(="6"X1) $Y=Y+(="8"Y1) X,Y;1;"" %="o".1}L,30:300, %="v".1}L,30:390 ="0"g$(x,y)=" " ="1"G$(X,Y)=""  X,Y;"";X,Y;1;G$(X,Y) ="s"1000  200 " ORIZZ , X,Y;"";X,Y;1;G$(X,Y) .="O"300, 1I$=:I$=""3051 6 .2~L,X @I$=13 360h J'X,Y;"";X,Y;1;I$:G$(X,Y)=I$ TY=Y+1:Y>LYY=LY: ^ 3051 h G$(X,Y)="" r | VERT  X,Y;"";X,Y;1;G$(X,Y) ="V"390 I$=:I$=""395  .2~L,Y I$=13 450 'X,Y;"";X,Y;1;I$:G$(X,Y)=I$ X=X+1:X>LXX=LX:  395  G$(X,Y)=""  :"":#0;1;" ATTENDERE UN ATTIMO "  ANALIZZA ORIZZ  O$="":V$="" N=1LX:M=1LY 'M=1G$(N,M)""O$=O$+N+M:M  M=1M .G$(N,M)""G$(N,M-1)=""O$=O$+N+M M:N  ANALIZZA VERT.  $M=1LY:N=1LX .'N=1G$(N,M)""V$=V$+N+M:N 8N=1N B.G$(N,M)""G$(N-1,M)=""V$=V$+N+M LN:M V"ORZ=O$/2:VRT=V$/2 `$P$(ORZ,32 ):B$(VRT,32 ) jA"":20,0;2;"FASE 2:INSERIMENTO DEFINIZIONI" o 8000@ t INS. DEF. ORIZZ.  yd$(32 ) ~N=1ORZ ,X=O$(N*2-1):Y=O$(N*2)  2040 ("DEFINIZIONE ? (max 32 caratteri)";d$ ]#0;0,0;5;(d$)'7;" esatto ?";1;"L":1:0 ="n"1200  p$(n)=d$  2080  N  INS. DEF. VERT.   N=1VRT ,X=V$(N*2-1):Y=V$(N*2)  2120H 2("DEFINIZIONE ? (max 32 caratteri)";d$ <]#0;0,0;5;(d$)'7;" esatto ?";1;"L":1:0 F="n"13302 P B$(N)=D$ Z 2150f dN a"":20,0;1;6;" GENERAZIONE CRUCIVERBA FINITA. ":100d:30 DISEGNA GRIGLIA \N=1LX+1:7,168-(N-1)*8:LY*8-1,0:N UN=1LY+1:7+(N-1)*8,168:0,-LX*8:N   EVID ORZ  K=0:M=YLY  SX,M;1;1;6;"":K=K+1:MLYG$(X,M+1)=""M=LY M:   NORM ORZ  *M=YLY 4FX,M;1;0;7;"":MLYG$(X,M+1)=""M=LY >M: H EVID VERT  Rfk=0:M=XLX:M,Y;1;1;6;"":k=k+1:MLXG$(M+1,Y)=""M=LX \M: f NORM VERT  pNM=XLX:M,Y;1;0;7;"":MLXG$(M+1,Y)=""M=LX zM: 7,168:0,-8*LX-1:8*LY+1,0:0,8*LX+1:-8*LY-1,0:  GIOCARE CRUCIVERBUS  2000 <N=1LX:M=1LY:G$(N,M)=""N,M;1;"" M:N X=1:Y=1 I$= &X=X+(I$="6"X1) &Y=Y+(I$="8"Y1) x,y;1;"" !i$="o"3150N ::3060 & i$="v"3300 :3060 0i$="s"3400H :x,y;1;"" D 3060 N orz Sx,y;1;"" Xy=13166^ ]g$(x,y-1)"" b 2040 cFn=1orz:y=o$(n*2)x=o$(n*2-1)3175g dn lU#0;"D-->definizione I-->inserire R-->Return":1:0 v(i$=:i$"i"i$"d"i$"r"3190v Oi$="d""":#0;1,0;p$(n):1:0:"":3180l i$="r""":2080 :"": f"TESTO:"'i$:i$k#0;0,1;"DEVONO ESSERE ";K;" LETTERE!":100d:3180l 2080  9000(# Jn=yy+k-1:x,n;"";x,n;1;i$(n-y+1):n:8000@: vrt x,y;1;"" g$(x,y)="" x=13340 g$(x-1,y)"" 2120H Fn=1vrt:x=v$(n*2-1)y=v$(n*2)3360 n U#0;"D-->definizione I-->inserire R-->Return":1:0 %(i$=:i$"d"i$"r"i$"i"3365% *Oi$="d""":#0;0,0;b$(n):1:0:"":3360 4i$="r""":2150f: 9\"TESTO:"'i$:i$k#0;0,0;" DEVONO ESSERE ";K;" LETTERE!":3360 >b2150f:9000(#:n=xx+k-1:n,y;"";n,y;1;i$(n-x+1):n:8000@: H FINE GIOCO  Rx,y;1;"" W k=0 X 9000(# \N=1LX:M=1LY ^g$(n,M)=""M:N _m>lyn>lx3480 an,m;1;"" p8(N,M)G$(N,M)1:2:7:K=K+1 r N,M;"" 2N,M;1;G$(N,M):0:7:0 M:N +K=0I$="BRAVISSIMO!NESSUN ERRORE!" *k>1I$="CI SONO "+K+" ERRORI..." &k=1I$="C'E' SOLO UN ERRORE." #0;0,0;I$ 8000@ 1:0:30  SAVE DATA  PK1=23635S\:PK2=23636T\:23635S\,23627K\:23636T\,23628L\:"CRUCIV":23635S\,PK1:23636T\,PK2  30  LOAD DATA  ]#0;0,0;"POSIZIONA IL NASTRO PRIMA DEI DATI E FALLO PARTIRE":"CRUCIV"  30 @norm ch  J-236066\,0:236077\,60<: #( crucchr #2/236066\,87W:236077\,251: e3chr W-_$$$~$$~$>(> >bd&F(*D:  >>> < >>>BB<DHpHDB@@@@@~BfZBBBBbRJFB