AMAZING `z ubÿê**** Amazing! **** ê(c)1982 Phipps Associates ù ñrs=º(¥*1000è) "û:õ­6;"**** Amazing! ****" õ¬2,0;"Seed: ";rs (ùrs <<ña$="Enter maze width (2-30):":í9000(#:úendËì9999' F'ñw=°a$:úw<2Åw>30Ëì10 P=ña$="Enter maze height (2-20):":í9000(#:úendËì9999' Z'ñh=°a$:úh<2Åh>20Ëì30 dñs=º((30-w)/2) n í7000X È ì9999' Xêcreate maze array m$ bû l'äx-1,y,x>1,x+1,y,x1,x,y+1,y ñx=a:ñy=b H ì7200  „ êfcreate Ž@å7020l:ën=1Ì4:ëm=1Ì3:ãf(n,m):óm:ón ˜ën=1Ì4 ¢;ñz=º(¥*4)+1:úf(z,1)=-1Ëì7330¢ ¬úf(z,3)Ëí7400è ¶ñf(z,1)=-1 Àón Êþ è êaddcell ò%úm$(f(z,2),f(z,1))É" "Ëþ ü/ñm$(f(z,2),f(z,1))=f$:ñr=r+1 #ñr$(r)=Âf(z,1)+Âf(z,2) þ L êconnect V1ñx=¯r$(r,1):ñy=¯r$(r,2):ñr=r-1 `í7600°:úÃnËâ j6ñn=º(¥*n)+1:ña=¯n$(n,1):ñb=¯n$(n,2) t í7700 ~ñz=x:ñx=a:ña=z ˆñz=y:ñy=b:ñb=z ’ í7700 œþ °êfindf ºå7020l:ñn=0 Äëz=1Ì4 Îãa,b,c:úÃcËì7660ì Ø$úm$(b,a)=" "Åm$(b,a)=f$Ëì7660ì âñn=n+1:ñn$(n)=Âa+Âb ìóz öþ Kñz=(a-xÉ0)+(a-x>0)+(b-yÉ0)*4+(b-y>0)*4 *ñz=¯m$(y,x)+z:úz>100dËñz=z-100d # ñm$(y,x)=Âz (õ¬y,x+s;Âc(z+1) 2þ Ü;ñin=º(¥*(h-1))+2:ñout=º(¥*(h-1))+1 æ+ñm$(in,1)=Â(¯m$(in,1)+1) ð'õ¬in,s;">";Âc(¯m$(in,1)+1) õ¬out,s+w+1;Â130‚ þ #( êline input #2î(a$+" ");Êa$:ñend=ña$ #Fþ 'â ²óƒ¥näwA20hsƒS‹ƒ‹ƒŠ‚Š‚‹ƒ‹ƒŠ‚Š‚î˜øžù¨Í]                                                                                                                                             Ò)’                                                              Î †AÿÿÿÿÿÿÿÿÿÿÿÿrFíŽúÄabc©î¯uô\