'=========================================================================== ' Subject: ICON DRAWING PROGRAM Date: 07-24-97 (13:28) ' Author: Ben Paine Code: QB, QBasic, PDS ' Origin: lozt@hotmail.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DRAW.ZIP",4^6:Z&=3262:?STRING$(50,177); U"%up()%9%%%[-%k%9qGM$8Zbl).%%?4%%%-%%%%iw(f&SgRfx6&3XBr[L5M6Urx0 U"D^1F=?/]=s8KjpH#i]>xDqq16Smf_C3E[^qU1t/#_w-s'I)-kHpCG)H)SQoLv>M U"&zdAld-J&&J,_4q=JQnh+WR^76APy,4D7J&3AsL,7v;k-:JSm1k-QDFe;]jNhh/ U"kqa4/#R[HJ1?/#oA$]ht[4(%bYgABBT-tm.$g,FW2#*doDWA%qfPzCoLBh]SgS6 U"[fVEp/[StUW5[R*rzOxF7?vaEE;z0TVg,yQm5E:NaOxR U"_H=hTWdHp;l_wLP:BQOsAqI**W4QK7m.HC5['2e,_p/^Tl1=Kke7hz3B6S5U+0u1e&K<$+5(kU4)?Q9I*,?-&)Jv\? U"OC.48ZJHTZXmT2]),?rQ8J6\j;>I#6RpX?D&Kem?3R^sMOg_\H/^75RxjT4766J4L_GC1dfQ U";Nd3P<5ntv>_:uN.r;bLnK,YLFAHsFmr^QBafdq?8VSKY,W$5soBIQB?ITBe)Z( U"+);58i7:KZe%YP4T\.ME8+)hn+fiE1_FIn_vk,#)ae$pHLV1dZ?s#b/Xc&cqwW; U"tRpS\Fzc;MgebV;E:YA:BFVdJkl)E94BY+rfz?L_gfYsda&B&>9BaT>*as&*mT+ U"Rpyg&Y#?qc_0NpKyB<[ptBQ&:\XzKu%Tg_:B0k+mkE:bpAt7N?#P*]kfLYakQK$ U"RAo;W48jt&1SdYu-P83B/V5Dze(6O-5m3I^*#rTE^YkNdD%3/bz5x^L[')3^,8E U"5ZTNe_jE*eq?5-%^jXZ2fQVV=_(-C^7Y>4BMiUdm6Wxvln+d/m^y9c8:s\,/u$8 U"<\4T'uO-Q-zJ6U0V=Nfro<9p+^Zm&Bq,SJ$5R#0h,z32,;$7n/LIm2uU0()kN.F U"H1.1*abU3]Y]W7$H:e_uaPpr2Vv3s1&vMW]No+h^nVvGlCUa]>ve06Rhv\kk^&- U"p/>,=CV=N[DA2bcAFqRvUtM,QgV-%pD2PCRJ2C8p8NJ[R4lqS?kpztPF[b7NRnU U"k=j]Cy\^C_4ZjPaF9m9Dk\es>V7K_ILAAl,)R70kA<2NYl(+3UsJ.1#o)*pMK*JyOK#vS:buAPZ[[Za U"z&MX%cr0?*cwjhg.9:a;pa]*1$\$A&vW=CxFREsO)#=_FazlG-?NM6MDSCZxF)] U"QQW,(6bJwYkV=?R=0_49&sTL4Q^j=)cU3\Sl/.POM(5l#OnPwJ8-;rQ9GK]e4Oh U"^IAdwmO>6YihT9K)R4Fo;]tSoVd^5]f-x=-02[y[klu6$b-Wf$lZ.VNtW#hDg2_dR+SPe,Fk]Fm9N4$KGJ9Zlo;tz+cf<46N?s$i0n,;M6X U"^-T.2Fl:$h81UODgOF8N06^,Wc%&AMA0i:Q>Rt*LOZ]NI/$]>%up()%9%%%I-%a U"00pGU*'Wm\&.%%R,%%%*%%%%uS#nrlTDyK(_7OAqJv_8YQA/B5p#c U"I[M<'&iMmja_+%hpxVK1-T+od1j8qE(:8U\,Eau_EW:$7)OqYvD_YYsaduo$iTI U"*$5B%z[SL##;mFPRA;]]0QjTT1d'hSD,bAgG-Op+a\?ea$<+,4McUEgEA$;V/k U"Hyi].Mxu7(ltcl$\7\ybzxP.>HyV U">XD?,BPIwKXUcPDxOQtD6:Z]*o]KMD>n5TC5T5TC5T5TC5T5TC5T6Tg6,41E2:7 U"xn>=C9dyeeK-,.?lAJl8cCg/AUwI/% U"W\7h75QkS?IgYS7F-J5q#FihW&U52F#?kY[oaO8g/AwkI/%\P7h7Q*kS_g;CSa-0J6qHIi U"lW]%5BF_gkC[aXO4ZnG< U"l'rc,V4rCF.htyXN82zO&(0(/-B95o1R^A:]on?Q[QQ=*Y2F<#W]hCVqW7_mZ?,'2Y.#;]&\BP$_EEQfcQSNSssjo4>]KXb5]m>1)V U"0_PrDz)6FN#EqbhL#H(/^BCRpa/Gu%jQ\Q*A2b_vwa>-^h_obNp]KB8VAUcb%Q( U"6;ouA2RW5s/>a:b$oIQouQe*SY20#AP^fmqop988odMvVo\mx?e?=u,c+5/T)jA U"1Gni^6ju%sQnl*e2TQ#3^L%D0d[;MYkxYkx'r3mF^HTv#<0tgGCkgO;>CgVW7_u U"m?,w>2x#,a%7%i1.O>%8K)YP)OA+uWgO4]HKXb]Em>1V\0_PD>z)6NK#Eqh9L#H U"La&7.i:vO('nK;Y4[%D+q1Wok+tcTY'PrmF^aHv#KCVW7H_m?mW( U"Sida577;8&gqo^-..Z.PFKJFi27q/+.FB5t8JA-bX=3N% U"*%%q%tfiS%gfxu%p&'9%%9%%#%-%aG0pGU+*Wm\#&%%R%,%%*%%%%%%%%%&%%E% U"%(%C+%%%uSn%rlup%&'9%%9%%%R-%9-BpG.p87NX(.%%n<%%%-%%%%%%%%%&%%E U"%%%'G,%%%kfij%Snrl%up*+%%%%%%)%)%'N%%%'L0%%%%% END SUB CLOSE:IF S=143AND 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