GuustPuzelv vx MAPARO 1985  R.v.Vliet M.Huppertz P.Ramsak :0:5:0:0:0:29999/u "GuustFoto"300000u  550&  680 ('"":#1;" Druk op een toets" 2 0 <4:4:1 F P 1230 Z 860\ d 580D n 1060$ x"21,20;"Maparo Soft" ?23674z\,0:23673y\,0:23672x\,0 HOOFD ROUTINE d=0 610b i$= T((i$"5"i$"8")(i$8i$11 )).1}L*(i$""),0:170 i$="8"i$=9 270 i$="5"i$=8340T i$="6"i$=10 410 i$="7"i$=11 480 .01z# =,-5 a$(line,colm)=32 580D  140 rechts colm=6 "%a$(line,colm)=a$(line,colm+1) ,p=line:q=colm:d$=a$(p,q) 6 950 @colm=colm+1 J Tlinks ^colm=1 h%a$(line,colm)=a$(line,colm-1) rp=line:q=colm:d$=a$(p,q) | 950 colm=colm-1  omlaag line=5 %a$(line,colm)=a$(line+1,colm) p=line:q=colm:d$=a$(p,q)  950 line=line+1  omhoog line=1 %a$(line,colm)=a$(line-1,colm) p=line:q=colm:d$=a$(p,q)  950 line=line-1  &5,0;"De bedoeling van de puzzle is deblokjes in de juiste volgorde tekrijgen en de cursor linksboven."''"De cursor is te besturen met de toetsen 5 - 8 of met de pijltjes (voor ZX Spectrum+)"'''" Veel Succes" 0 1230 : Dv7;2;1;1;;line*2+5,colm*2;" ";line*2+6,colm*2;" " N X goed/fout ? bn=15 lEa$(n)b$((n-1)*6+1(n-1)*6+6) vn m1,13 ;1;2;6;"GOED";3,3;1;" JE HEBT DE PUZZEL OPGELOST" |5,1;"in een tijd van ";((23672x\+256*23673y\+65536*23674z\)/502);" seconden" 1n=040(:(502-n)/500,n:n  0: initialiseren figuur a$(5,6) b$=32 ,#1;0,0;" Even wachten " n=33!61= +#1;0,14;62>-n;" "  b$=b$+n x=(*5)+1 y=(*6)+1 a$(x,y)32 750  a$(x,y)=n n  r=15 *s=16 4;a$(r,s)=32 line=r:r=10 :colm=s:s=12 >s Hr R \ hele figuur f d=0 pp=15 zq=16  d$=a$(p,q)  950 q p  print 1 vierkant  1000 ?7;p*2+5,q*2+d;144;145 ?7;p*2+6,q*2+d;146;147  opslag juiste waarde cod=d$-32 addr=300000u+32 *cod .23675{\,addr-256*(addr/256) 23676|\,(addr/256)  $juiste figuur in beeld . d=16 8p=15 Bq=16 Ld$=b$((p-1)*6+q) V 950 `q jp t n=14424016 ~ n,40( 0,79O n  n=120x40(-16  145,n 95_,0 n  s1:0,0:255,0:0,175:-255,0:0,-174:0: 2z$=19+1+" "+19+0+" " ӂ0,0;:f=122:g=116:1;8;8; z$;:g:z$=z$(4)+z$(3):f: saving   "SAVEing" "GuustPuzel"10 #"GuustFoto"300000u,960 GuustFoto 0uv! %FL9??`pa?bg3'/|xχ?`@,?0????@qT: g\HH6 /C@@@p~0p|99 X`@?qGG>| w `C!? ~@@@ 0GuustLijst$$ $$maparo 1985, pix from gastonpuzzle (7:7:0:59999_ n=6e4`60959 a:n,a (n 2!"GuustFoto"6e4`,960 < :"GuustLijst"1 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,2 $A0,0,0,0,0,0,0,0 .L12 ,16,37%,70F,76L,140,149,153 8B0,0,0,0,0,0,1,14 BD0,0,0,0,0,1,15,247 LN579,231,31,63?,127,255,255,255 VQ255,255,255,255,255,255,255,255 [ checked `H0,0,0,0,63?,255,255,255 jI0,0,0,0,224,252,255,255 tQ255,255,255,255,255,255,255,255 ~Q255,255,255,255,255,255,255,255 E0,0,0,0,0,0,248,255 C0,0,0,0,0,0,0,248 Q255,255,255,255,255,255,255,255 O7,240,255,252,254,255,255,255 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 L240,24,0,192,96`,16,136,198 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,3,0  checked H0,112p,14,1,0,127,128,0 D0,7,24,97a,14,0,0,3 N63?,193,7,207,127,127,255,255 I1,1,2,194,98b,222,103g,31  N513,39',47/,124|,120x,248,241,255 M255,255,255,255,207,135,3,3 Q255,254,254,255,255,255,255,255 (P255,255,255,127,63?,255,255,248 2M255,255,255,255,255,254,6,2 ,124| Q224,240,240,252,243,241,241,243 J192,32 ,16,16,8,8,136,200 M209,212,208,192,159,240,0,0 G136,16,16,224,0,0,0,0 A0,0,0,0,0,0,0,0 F175,119w,10 ,1,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 M255,255,127,177,255,96`,30,1 L253,252,67C,192,252,0,0,192 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 F1,225,33!,25,15,3,1,1 D63?,23,11 ,9 ,4,4,0,0 A1,0,0,0,0,0,0,0  E0,129,126~,0,0,0,0,0 O248,248,240,240,224,64@,127,64@  D0,0,0,0,1,30,240,0 *D64@,128,0,0,0,0,0,0 4A0,0,0,0,0,0,0,0 >E0,3,12 ,480,224,0,0,0 HE240,192,0,0,0,0,0,0 RA0,0,0,0,0,0,0,0 \A0,0,0,0,0,0,0,0 fA0,0,0,0,0,0,0,0 pA0,0,0,0,0,0,0,0 zA0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 /MaakFoto h hj 29999/u  "naam :";n$ n$ (addr=3e40u 2p=15 <q=16 F'2*p-2,2*q-2; P 200 Z'2*p-2,2*q-1; d 200 n'2*p-1,2*q-2; x 200 '2*p-1,2*q-1; 200 q p "Save name :";n$ n$3e40u,960  poke juiste plaats +df cc=23684\+256*23685\ n=18 addr,df cc addr=addr+1 df cc=df cc+256 n  , 6"MaakFoto"10