'=========================================================================== ' Subject: QUICK MAZE MAKER Date: 08-20-96 (15:44) ' Author: Kris Reeves Code: QB, QBasic, PDS ' Origin: kc7hrh@seamac.wa.com Packet: EGAVGA.ABC '=========================================================================== 'Batch Installation instructions: 'You MUST have PKUNZIP in your path statement for the install batch program to 'work. it would be best if you extract the zip file and the install batch 'program into the C:\ directory. Otherwise, you will need to move the QMMPRO 'directory to your root directory after installation. 'Manual Installation instructions: 'Make a directory named "QMMPRO" on the root directory. move the zip file to 'this directory. Unzip the ZIP file USING THE STORED PATHS (-d switch if 'you're using PKUNZIP). 'To Run QMazMakrPRO: '>From the DOS prompt in the C:\QMMPRO directory, simply type: QMMPRO 'This program is made to run from DOS and quit back to dos, so if you have 'QBASIC, you don't have to fiddle around inQbasic with running and quitting. 'Notes: 'This is the first program I've ever completed and uploaded somewhere. I would 'really appreciate comments on any aspect of the program, suggestions, etc. 'Please write me about the "Checking" feature explained in the .BAS file! I'm 'a little confused as to whether or not i even need that! Also, I have little 'experience with saving files and doing so efficiently. Please tel me if you 'know of a better way to save my files! 'You can e-mail me at KC7HRH@Seamac.WA.COM with comments, suggestions, 'questions, or problems. 'I plan on making installation improvements and some other stuff in the future 'if enough people like this program, including much more flexible 'installation, possibly taking out the "Checking" feature (explained in the '.BAS file) and compressing saved maze files. 'Thanks for trying out QMazMakrPRO! DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QMM.ZIP",4^6:Z&=6937:?STRING$(50,177); U"%up()%9%%%#%%wS%1F%%%%%%%%%%%%%%%+%%%%rf&)jxT%up()%/%%%I%%zU71F U"XT%9LF%%%%F%%%%0%%%%hf%yfqt%lSrr%uEXE%2/ij%rtrf&)j2/%ijrt/.y&t% U"2/ij.rt.X%2/up%()9%%'%-%(3Y1FB6kc[%>%%%%M%%%%/%%%%vrru%wtSh%klx U"UmWzY^7wU-)A$5[g3mFB(..#QJ&P)%u%p()9%%'%-.%yY1CFq3N%Z.7%1%j3%%% U"/%%%%vrr%uwtS[gfxfjaTATs]+h'fkdC1DxYYadBpEeN=26&D$8p4AXyiH9.^.T U"N-S'+Lpsfs/1P.Z9lb,z*$&3?'Y*Efq,;HeLA&'dA')?L%h\S2sYX9kr$BPwQW. U">LuanFfo&:IPX01mlO%sSK[H&*$^RIB6b0bUoH9ngg-R0)?K?)GF1'F-5%]mT-#bD^umUX?Osb^?ZU;AHItT U"1Wue5'F=N4jqD1Ud2,?Hhga4d]\xT&VT?\uxS+EfI9x44XWDa]AKctC]FgAK7)[ U"aCkr*MLDuc0j$jG<-vL*_tK3Qst%XEVB79Tq8m:)fj*J,M8EJLuV+Y%^V7eTYOH U"PEiY[/9L$G7-nDM%RN8S0JuI;G/cIHSs_\=ZoqiPWb1e&N*M\]4%V2IFUhP_NP. U">S7xh;6uje5%U'Snf,tm\TT?4*Iy+h<-9)GZD=qeir#%yQ U"c?Ll2XaU,hkwB$rZzf&cf&X6WR8mDF]8Wi5R/8e1DD(W-_ U",?Y(Q7#(Tvgh&SP;MTqQASKH3s)6W7LXkBt&J*.wypr/yPW$fHzCfM*q;0kHL>c U"bi?amV'<'u6\R2ZpW*9NJ>=65-0vd_j1S,6l864.juH)lienn4rV-XM-/0q(rmM U"Xe*>HEFu^Hp6ft%5W#\ U"w*zT(&)yt7\e\+c/Ta8uIYUeLxUJ&:(3aTnc&wk_f):3=hb&JN7(nV U"*kzy#L#['UT/E729xxJ$_utX3GQ+SK;6+c3/p'[S]wRTdI::;q$T]jZsH##Z_v: U"$g[VRW0o0S(#Q(Zcqu6M855u5l(7P^r-Ji+Re2=;>&hOtFm0_%i](;1bP'=n70t U"i&wdNK-haNN))+.hDYP6cN^uhRU$QBm.At)wbLZ-bL-uc'Hy;(3iowDzFQ,(IGI U"8'%BadUjY8L<'cp90c/A^l,Oo;kd0N93-640$+;V(M5sht1g$W$K3f. U"p2\nSn(Fp[x-;LkM(qFb%>]?pUief5cx$L?(0F\idF\ U"ZG:Hh75:pdPS4Q52&mcDUxmPq6&mlM1D%B'Vp,J+nq&mREXlQ6yI%Nf&=M9d7N;d$&_zgxsR U"IF'QTsXl'55hgX:X;.$MI+r8i#z4Af&(%mMRA0aM*m'mfhTG1pdXA4^C.7[Lo\[ U"Fbp#hi0q/mpsU-H\Q6YaJ=QRN[&2pF.r,ivX3B9a-r^ZOW#f3Y]r+=[2# U"ioj,zrU,<39HN8=$lpY^[6Qst;2hCkV_GX=\;[E+y:p/_gkau/RJHp,>tf,ZOE_ U",VLCVqjW(*b)+HcgN.$N,^CQkbwSQnTnr;fKR+z1>g>vE^k]D*F\T]M,kNN$Pg9 U"W9/ybP,Ur[5ENE52o+hfh:WF[#Pl.Hc&J2oant+[2[e.fz;B$T+^'#k8;>End7M U"e%p%85xP31$5u0G5zvDASb U"uO1.j&m(FOGpFJv/S$kUB54&K>>Z7$01:_8Ipc*<\-jRwC)d^A$YXFD2s+v26Jd U"1.:#6U0WhJ]wS1um*d$?\\<3vq>LH\sLUJIZG$(LC*5 U"add*aD?;82cv0%c_,IL-R,3Ibj*I=Ci_3blWs;klMXtaf;U>D?=2Yl(u'\nV1gD U"KErKO1x(RHwd7dtm#x55VT*4'Ueu7*WOD\Pp6J0p#hVD U"nlQJ?HKokk\YTqMgxBATYB8FdtD:MEd26PBVMSq U"u^>ou$v;*PU,u88?xE49P_64wv\0MLyR#(Q3Z6%mgTawQMmI5jhEdECACCz'MV8 U"s9-SGQAHaN)a4RI63MG?Gm9Gt&jQPRBK19Iz3sq1=R4e;3YsdoS(5eMQRJsVZ2/ U"aR8k^V\7u[-=W)T,Iw2APE.%Y3l#P;M;Z0cdR U"Pz7$i3;0pN$aHxYfdW8+)&igsE<78:.>fX2U-13n1)]ngH)-M\&\Ip[);#[CaM:I'ZGYN5p&s/68+5pp>UBAR\Qfsx[YG U"oI-U2Y$/L7>.m:jkisj$Yxsl*#^2$VT2^umf;774Aw,;_MN^un0;wVkA U"qr5,EodQMPNn&9Hwq4F/vQ<;_m%/U?)WqtuIJka;Rs'jB%9*l(Iz+5T15Tg]7+L U"^Q(E2Zo'5Xt<_T%;0orkh:'87KJ?uik>-U6T_#&0H-rk:q'=7JO__j>*.e2Pki& U"2AVY5d'<,qR_(Kl[8*f)^ABl(TzQRPDR6j==xmL6,6IMYUFU.'uhaBop,XzLegT U"vMO[KJbkl9oU3jPEV(0:K>.DfuMFY52i%c2ifkv,jN3H2%1/gG)DHL*H3>ArKRQ U"\]DZp_]Vhzt.F.iC7.aP*J?3/sEBO;g]+J6tCSU=>eqCzk\qZR_P6\MY<>x4m U"ErAmhZHa7<\7\/ U"6ndxcH#yT8DUl17aJc-XXsS2jUxMSE9jP/:0H'^'EQnuH>$O?^8E\<3U3&\Ja8FOVl^HP6r^\#JjaY#i\hmFum5B,E*m\HQ-XBUJdTg?O_ U"JHIOw2.TGR6q4Cbxbq(RbjeVK4\6HICNE^imEYid80xVa%B:\Z_Jt#cF$s:ML_r U"6pGg-Gkhp/f&);[]Uq))8RO5p1-(n68Nw9k:X#Xt'MiRZGcQAA&?xL?5fX=1p&8GA-^?>LiW0gB)\C(/j+ U"v-aiAuW?\gVO2pk#[?SfH7;fIMVbWAb-P4N_QS<'pSyLi0y=_mc^^n(Wbd<+pqV U"c#Nrj]5NBx6624(w*eteBYyO.rY+l5Q9]XRmM,:t-O-+ls-2W*G>%wMGZCp_B,& U"$/T(sm$xl;EUBfwtetJfF^9)2-NYn2SDT*_+Zzi(cB'CO=NZMTJ?heAZKo([kyN U"2-WbON=ORa'q:X6I_\^\R:pI' U"zZ$\v5I6RXnb+oT8$DQ/b6RZ3n7Y+$;Y0kY&OhN86kUs=vX-N3F[1HPsJzlNV_q U"qitM6'2pF_3FSPRCY:li[+OV6>RjrEW,[>+4r^.U0JLnu U".66U+1'5g,bg5/=mY]9EiBymZ$PYckL;z=I;[4-b'H;?Q00(Z5A-);7/OUo;a:T U"1#n'LcOy1bXR<2\XNcGJZl(=2Cp,4r9,eOOst:T$iM_KuVUt[jdg8d0_XE=4uT1 U"Wa5eE%a^[.T:JLVSmeEHT>FOLe:.LNJddKezmRjb6_6;LP6j:kHjJ2kd'K_EXFQ:&U1'rEjQh+B/)7&1)>Q&t)/T\6NOd(q0yQPj^&Wj5*[*5?jI$i U"FwKWK)s=:Nn[pl#07?EGqclv,m*Ua$t%pb%bqn=d7D2o44^2qU]r.c1maA;B6W7 U"a*6Y^$+=rt[4kb-Q]0,ok(#H\LE$xmpa/SS8AL$([2h?Z_s*J1/l0k$=?L-P/r%(Gu7pXgw[2G9dLmd=T5c7W]PQ? U"E9N*^^uDE)AS8+7?n8tn\]Ghir$X510c[x;XB)YhYj1zQ1[IZVjcH1:+&&/J<+# U"vjdqfN89jdVf^eTKqeV(q_fmrPN2BS=&x$;]ar4Fe%#0;eq)a#QVc+0d0[6Zit. U"1oP6i:J)DYZ,Od#)9'UP]FIwPb'p)^fmX5R8;& U"jG_$ErWJ?<>*h(Ls5:\QROnEJ=4/E\Ox/f?\%kq8 U"*cO7csK#U^JR/u2oj+Xi=ULUagfPB+ICHZqK'tL##kzPLGan'1ing5l]%XELh1]dE,ppXJ0Pr0-jaCV\liS(6b8y7hDT5M U"qR8UO9.StYxYBtjcFP[pn0g=dsLz4i8:lUU31iSlFFuhJ8Mfs:V-5.\2_-;1l7L U"]XD/IY%a_'hL8Z.;XtCg[/ZjGaHm?'v%NLN<=;V$'/P^_0C):q*IR=[sEbnaC>QsTlF8*HfZ3<#V)=g)sdM7_k\UaC#L8DO2Hj8T[.NX U"Y2(.%up()%9%'%I-%zU#1FPa*'qO(%%%U3%%%5%%%%rf&)jxT%ijrt&.XSrIru< U"&:n]]U+14\u_NwLE/QC/C/ocA3=aavtZb+&T&A25y.ws1p[Ij^HOd8n^t^$H8ut U"p#suvnrsuvpn.X+O^BA\ccK^DKB$NCK\mW,lDBqrVp\u'pUk97c4L8',p#d;8)w U"5ztLTZO^tGfE/^pD-fPY%-A6lF+_]29=nH6a\OpaLE#5YF*);V4An)aY2t5QC_v U"Zj2S66fr4BEblGKQ%81+Oz11B.WkrV0\Viz2tu569p3GI5+edHHXK1ieZstMb%-Nb[h,h U"F79FBx#9'y[_HU\)Y6Jx7IBKSCduyx0_S;u_(GU+Q/04+?-W:(g-VBRaAn\fMuX U"\M(0a^rV^6Ja.9iO+'u;'K]2t4m*5s>Yx##yD8qYgB=;27eh.Mq?hN0aPW84(MQ U"*)6?LS4(0M+T24$T=z'):R_pGS[0W(2ppPJhKCL+4:?\H#?t81l=\obg9oT$4e, U"DXao52P?L#KDUqaYOKFG?sSp2dr/Gbrt.MI741P&>t.QmHgC:Le).xxu:K]qpTU U"ClNw*G/I*j[9F+jWT<#b>X6>rmM3%wJa.&W.6 U"[^=0[XbqEW3u4BW>c[B6^)xsn\:2kwo4zS-?kB\O%129jjU+Kn3NoGQ/3+A<<0C U"8:w1Dt,0,EJukVYYl-Ko=%LU[UM\+qwfv+v3DyrUT[SD#o26PC*$O/pra*hK%ED U"IL><_NbrD\&MU[SIHTeroHrN&q^9w[:(xmWC4%NfEizR?YWbW8tdFq.+:)v'pKb U"qQ_wqY^51[_[rd)%k#%P_rJwkc--khyNar(\KFStVY1+K;$D:-#mbs/b4e_;lO9 U"$M)-pL-+JsE%%%%M%%%%/%%%%%%%%%&%E# U"%%%=%%%%v%rruw%tShk%lup&%'9%9%%'%-.%yY1CFq3N%Z.7%1%j3%%%/%%%%%% U"%%%&%E[%%%(%%%%v%rruw%tSgf%xup&%'9%9%%'%-.%L41mFVao)k5&%+%3*%%% U"7%%%%%%%%%&%E[%%%Y%7%%r(f)jx%Tijr#trf)%jSrr%uup&%'9%9%%'%-1%aS1 U"IFsxl)79&%+%3*%%%7%%%%%%%%%&%E#%%%E%9%%r(f)jx%TijrCt.y&%tSrr%uu U"p&%'9%9%%'%-1%zU1dFPa'&qO(%%%U3%%%5%%%%%%%%%&%E%%%%5%;%%r(f)jx% U"Tijr(t.XS%rruu%p*+%%%%%,#%,%j#&%%7%>%%%%% END SUB CLOSE:IF S=37AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB