'===========================================================================
' Subject: PICTUREMAP V1.1 Date: 10-16-99 (19:56)
' Author: Joe Block Code: LB
' Origin: Packet: LIBERTY.ABC
'===========================================================================
' PictureMAP v1.1
' To extract PMAP11.ZIP, run this under one of QBasic/QB/PDS/PB
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PMAP11.ZIP",4^6:Z&=4855:?STRING$(50,177);
U"%up()%9%%%I-%z$IaKmh)/5s0%%%*N%%%-%%%%ur%fuSg7fxN?q:BT1ujtFUGNQ
U"Um',9PcLp#A6647]8Q$NXbdqCf1Gm-($5_=i)R=%-sY:tXZ'>h)nWJ%Uj.c]Eqj
U"'t-e\1<-at6t&YIxfAG1rAI-0_NAwie]Xucw4?=Lnx5+C=gd#(/^XCJ.__F0mOd
U"ND6?ocqrAilk?m/H9FdZq2XC+OgSs2kDSW1m/fQp>-q$cWZ0Ukc#rFH;D)aNDUy
U"ovC4vBHNFNu%297%:p\dWO4tx5BKmPOY6jG^g=K,:dfaU^/M/[gium'8:le=G,H
U":QdiW
aN7Bv(^4y5J<]>hoVSAhu8lMX,u*O*.b$H0>&6No
U"i-.of#e:p8k^=tKB7.w+SR[FLql]n-ChLxi4I;yO+e*ER(EAQ7.K%')k47DfEXL
U"ryvN.XO4DE?H&8jC1_)L)1\r5w*zy.g$)'5r*ULM1X3v.yFmK\a-WP9(P2d#)MV
U"0UmQ:g^g+Of*eQmjO8&PuQ*]44f*/,tOgGGh1JWt:;ncS3V7*CZ5[;kUST0H(Uj
U"bpwhT5yYTgqDn'J&isOkvZPd(0';7arM1e5YlGmy9cT3=D)F:WBA6#qo;zncXR-
U"3rVdQ)-n&m5iJ'&4rnweAJbcJ_:+&6VCQ3JS3yAo%kVTY;f[#)02=^Vrdi70Em\
U"i%-QScj^k1rOKQay7N&;L121>]0kuY5:ns1_,CYmF8Qd640]ngP-8e?3;FF.i_)
U"?u2-HKqpx?aB'ZO&gOtZY
U"#kCs,:>::.hqJa]1D[[N[8$)JsrNE[e;I;.uKIpG+E_cN:*\X;/*w=)uqCpwR.n
U"Ep^c0K_olS0QC%WxKUT6WvUuK;$ebE\mYpNKASoNx4eV3f\2q=S
U"LYTE:VfClcCJK3E3jjdkRLiDU:Iq4M_+C#'CSE_\FOaI,jYRtri-bh]g^TgDhk9
U"VBCOfoy4q/jvIEg_tD(8XmLJ%sSCM1fbjY0]X]cBAmO6NK<^pw).=ULH;pGSr%/
U"4rvNkz:l0uZGP:VL9\MF%Kt?+Q:=
U"gi5ud5bLv?Zb4-TfJI99J^gE*H\q0$q3iSYei;oIklee]H6x'g9PS4DT9)XS6Y7
U"S7>:msG4sNf'^=S1F=O2.hyxC[i),KQ-S?FUr'M>BgT?WEnGh*9*1Fv*ULk,P7Z
U"n<+$Gq#Qqo=Rxj&N:sRyP<98%JgN:zz+)p(7G>UJ?0Q)#Brw,ajNi&>/QG)Lp?2
U"jE3V4N2MHj'?svR:GMQaY4=4oCQ#W?1I/uVJ3x%cki,S4GTX:\t\nu*thTcZiE/
U"CYn1WG1HORgJ-Z&.r?$Z+Ujv/RkDL[+N,nwk:QD+-oafL$oMBtJc;959)*gF_mJ%jVS6kG]m<4dYD,>?q3y_\laAg
U"&+[l>u:WklOWOuHjuLDSm48LO=n]3?57Dji]0nzH-%OB9oM*h.#n]BIKToXk^8z
U"jYEoZxhN8)Y--WdcQUVg9.T5(o=8rYu#lkd4Tt\'9y5Sq8n(lLKmeklS(D4
U"8gVGKm&MSmv(h5t]$]3S.8,.KZ.asDK+OtbT:M>*OI\=#A3EIk-./Jm%S;RKpyL
U"8j16rK71cS#,O?CceGYOJ
U"_<0b;2Yw$#&(Q[Xd4p\=Ee?'5i/LBq[NYxvS0n6I2BA
U"Y[E>S95fw*%)A?-p+31J0'-j;)B66F6lM$M(g_Nf?Ls.B1AFnOf/MadA%#ptFDL
U"c6,Bco9jIAs0e1f/AEF$G#PD'aib[R3aNk<6*FdG-aG+JxqLm/U<0YQ*''BWc\WS2^>7Oyqf$
U"8ixdaVP+B_RkUj6JvZxO/H\+k+4plXkF-%3#d=FOyLT']_5;L71uu/$/-j&58N/
U",Y^70I5Q?+I)'m*bcvsSG+\m$5'R#-I>(hY[k7H=RYu&j]Gr[:Bf&yjL;5ev;Wd
U"UN5qLH&Xn0;:^gh8?U/s$eaa'QF_2((uR9'o+PgU
U"F3^6K9%pkBSQnQdpiK$;M6^dwEFNJ2TQq6]F_dLqRTNpM^6edsjn,IY]R_Wx%v_
U"hQ^l'5[\\bzj;*8pJ/_OfVgisR]PAV+j)tYE>NK>25bLF/'+&<0QJsjQ/EwES]S
U"RWJ#$FsbKf'orQFd3a=M&LmKBL<,oHwYeui]ESLDx?S4:)MT[6Sar&7_l+;l.\,
U"ty\pFQ8lYgQdw9?&$kWSMlL6^nQZe>GF7Y=fUG)dXe\_h?RZPDpk5sG1e5BR-#-
U":+/G.a2]%Qp%Uv7*BhK_\:Zhp&v7oeJr?f\MQs(nS/>ki9HrGX3*V(4.U=)zi4x'Q>S
U"0xt:i'2yi)>S4G3$1mW6KnCpR_BfsCcvBo(tZ]Ev=8AaB[l&ZiLLfsDwje?^dLD
U"fXbLtZc]BIm;z[.anPKM*.oBn8ER%p95[7[F51BQ_VL0l$0#\wl=-g'.=Y#y:zN
U"f]byPbF?,RG7%V/Ib,ApdlqGFZdkM5cdoCRdKb\T*SqzMvL^57,T'92urh7Vtbi
U"0rmXsCnLfLv.SwlW9\wtqN:vILa&lObwNHQ',e?cf[$yc2CsDYkQj;
U"G$,:2Y?pXv0%up()%9%%%#-%^b.aKyG3:eD&.%%u(%%%-%%%%ij%rtSgIfxta<:
U"=[U:5Uhml5<.h#om:YX'-IQ>IagCQo)tw1'#7PJ37b'6dQ%AYckoDM1vq9Wap.q
U"TQXw5tMHQ)Lhy[Aq(ARf/C$dh.M?>XC2qXyXnXFPon508f_W%^k.?b-B92k0hWx
U"F'hH+sGQ$Q.zQ^kM]1DDYmuia8FQp4i#r#;g#uSpU#Ec.Dpiv+gK^qQQg&=<)$S
U"dHBx1sH3[EK;f\lDPkpo>/s1hR,-q?.G2Q^A8Z\)kezvAd.WJ8h6td$-$$*^\xT
U".tFwnZFXmusBE;FS'+bsEi135c.\dWL6%)v12QOkGSKFh$ba^1J07%dV#YZ*ZH*
U"DzUJut/QJ(=r6K+(k^_?=Q*F7KhKIf_w*jiu62tV:Xj^%P\4O>rK?1(hAOg#0?V+21KL7MHyL$3KkhXm,A*6#do
U"W>kMxh1=+K0+[kg>O4al&u%p()9%%%%-L%>f?dJB.l%I_'%(%es%%%-%%%%urf%
U"uSgr4ufk$,]TU52U6P%dO13'6)^mH)LA;zLvp1L/YbV$L:;+sWA#Qw$Z40Hkofh$,lxap0l]
U"dI63Cl3DjoBNm3I*I2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%+$k_5
U"tD5/)iEb5.X](g*A:Ym9fugtRW2;&xQl2f1JlT':*O
U"z^?l>n9B>)tqMl(%j$#6HH:hmT$l5fOAkMD*=JG%Tx*jO/lFW]lf'#9
U".;S?NYOg_]mA
U"A82FQ94D\kwlZ$4>Oue>'4ku2hcHjAH7Yy'DAMPkZ]bC1Wp-Z5+=qBU[7&CWffp
U"'2)AfDO7IM\mag\'#O%%O-Fu(u%p()9%%%%-4%RbaUKkYS*=C'%(%[*%%%-%%%%
U"urf#uSy'(ylyv&:#b5\KsExG0cg2DV/mpGT]RP3_p_[U4Ph(5eoKG[_nm3TQlbN
U"ixED73=#j;2I??cuhEGEugbam[qS%Xf7dK21gCsWFFnCt7J=c'/c\?Fdagds%w,
U"hL0#lvl+=(:Z%F6o?3%.r)HmEETYL*GeuZVBjHB*9mu[WcKsL347u#L>kC'z&.4
U"(Z5^+:U7^gYX7[...,U0/>/b7P>INBhNrOO.pnDk]xYa&rETT&p7$fq7oij$L6;
U"fqg9G0Drk<'8D6/x_:i==)t5q>l.$aQ^rULF'nO2g*4uG]#KVnYiWd1PRHVhFd5qIH$$
U"AhaAb'+Bu[n-U\FpD:9gTk05t/V(ypXB1GF#f+PbwL?_#JQ;usxoWk[_KJqxi8>
U":_,yLGb\NaHMH
U"%l;Ivrq5Sc9Hcn2/wHHa+RgVjot]AK>H=/'8M9cRQgT-klr'[^ak*c4oaSOi2Ft
U"MMfbf<>P$i#t[prT^*x%pk[x7T>>My8mUnp]bXJj/eH8^dT]iA^xLpV*?I8[:=F
U"8Sd?ZY.s.>e6;WjvplPVvl25wX?K4b;6]4Z\t%Dup&%'9%9%%%%-1%z$aLKmh/&
U"5s0%%%*N%%%-%%%%%%%%%&%E%%%%%%%%%u%rfuS%gfxu%p&'9%%9%%%%-%^AbaK
U"yOG:eD#&%%u%(%%-%%%%%%%%%&%%E%%(%C0%%%ijr%tSgf%xup&%'9%9%%%%-L%
U">f?dJB.l%I_'%(%es%%%-%%%%%%%%%%%E%%%%4%2%%u%rfuS%gruu%p&'9%%9%%
U"[%-%RAbaKkWYS=C#'%%[%*%%-%%%%%%%%%&%%E%%(%>4%%%urf#uSy'%yup*%+%
U"%%%%)%)+%Q%%%%.7%%%%%
END SUB
CLOSE:IF S=56AND 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