'=========================================================================== ' Subject: GRAPHICS PUT USING ASSEMBLY Date: 05-03-97 (00:12) ' Author: Benjamin L. McGee Code: QB, PDS, VBDOS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GRAP.ZIP",4^6:Z&=5084:?STRING$(50,177); U"%up()%9%%%#-%S;T&GSea56Hj%Dk U"YvamdGT2swfAj;h1(P9OeF.Pi>S&D%Zod5=trHpVTN8_g\bZ&WEJmX$loF+;1tn U"rN[I3hX4ot/sq5KsR-FAT)eml>o&2.&>vq2__3;V]YfIUxm[Sb0I?v#CKf[mW'u U"tO9K2x+j6V1D##Mb2VV:,lql#8pOG*'Th+Pxjo0=]q%dep4W=?W&vd--d_\LA^_ U"C3,&KzM'.<>4FnK)xDLiUac7U=Eu#ek=X4&Ea1Mucp;DxadG%WJI'%a,AHJp*H_ U"j6Bb6DiB(2$XTdY-4'n-+7?*Q.M;$\37UJBl(YWI[U7+(U>y#N\.J(s[cW(7d,4 U"o'rrq*fX8ekLu7W$4WFpXzU-Ema(Vx.#nRn?HHP+]gr;y&#jGX.BJ+Xkz2pk\(0 U"'?x>r3YRPY&4J>0kK=R-K%o.IR<0$*a/]U=,m(9#&ivF,8]V]s%6RMpt.PzP U"WFVE=eY*74<.j^Xn#EEekGgEKs>]?V\So_%Gu*&P(fx)mxn,Df#na;(GqV&QC7$tNs?RPNvl#q,fkSIU9L^kcx?#A)f\UX7aI-< U"s_=K&'0n?SJhe\&PF6:exg)OJNdN_p5%3[OLdmJY]h##7#KrW2*4K.n43t5-Q9c U"POx1Fpi\tK*d&d#[Gmdu'T^*=WB;XTE>(76Vb\/'h/,.j+bj>=UVVK*0:T^UYde U"AekG8/9IAQtgUMLk7/QE,D)MmS#W1e9g+<;-YI+=a4:ODa*eH U";6Ms^1u)*T*b1Ud$.&JRVKwg3b?dTVzJV\h8w:(bmdBQO%nbJs:D/im]T_dk1wg U"g:qr[A[kS=jS-IaM%3S%\R8weL+T(XWC=h&XbNCkGpha7'm9Ik<+Zx.b8r U"OH47k.aJ/C2qMU*bg)=amqBHl]$9.'md1G<2\8u%p()9%%%%-g%Q9&UG02p&)Z% U"%%%%&%%%-%%%%kfh%jSif(y2E)D'O%Xu>;;Ed16O)AOI0kI4vOqCC5/UPpaEoj0 U"Y/+[E#*_boiFCI=u7w-rA;E'1%up%()9%%%%-%:>:&Gr0LS;'&%%%'5%%%%1%%% U"%uzyg%qpVX%StgoM:/5/5C-mKu<99[ueh[CI3GQ,3V(+A7hARf()_HUDRlfRMPP U"dTmvDAkLm5/5>1U)EMlPXP=F-tr9l#'diV#;V3el=d63Vh_iVMD#ijOGX-3\]e? U"m8g]RS5vvQTh&opA*0XY^g3>[$=;maBaStZPfov-h?wMPGm\,sc+JfJj(26HR8l U"fW4n?mE[/unsEA99'=:5?u[]\hie<7Eu99IV=*-4)%%up(%)9%%%%-%Qb:&G(\a U"8F\#1%%J%9%%/%%%%u%zygq%pSvqOgffNVCcNhN#nhHN$lgS%ejHwSkM^s6M-/X U"AYo[+0k#17/a13g(m6_I#87Wh;36W>Pyf9/KSoK8E)/6vBgC)#.bM,FW-\:D'k( U"*n2>&ojOhay7ffIRaIg#dbYbRhJu$.omnkbtpbm,Xht67HvQnUJntJXt7XxRI:\ U"'ib-8a7q1VhW3%NEql3%JG(RSuFL,9Yc)7T%'No^CK<-8QSibTI2/Rl#:-)#4a4 U"-='Upa8x:u7L1Oo(tuxxu?Xw%xCTVTvCszs(Q.mcMDue> U"Jjo(zGACRZt#_xYlLvlxi^szzPY:%+)rnhsimydfd%ByhXk9bChoT,nH\tNpO6s U"&tx#P2bpnhp$MUdM$Cd/vls^,DyFQC,-pEYc_5/JhDnPJp'J0#46^sl]WZ/;Z2F U",(M8^XhwU>Vtax*tHk(AQxnlAhZ_qWB>t$q[N9dZ_Wuwu#zlYlQ[v]74+>^__qBMw/qHIH3>nBi;>qqc U"dlYb[.6lCC3>n?io$x5P^6,ejNf]wdc[TAJrT8[t..lCF.rM_jaYJ&B_uX;A21i U"?figsXsi=#qB)F#GA_fCrJ:Z,P^63Wcy+iK[=(Pn^N]D+Hn\'x1HSs?3&A3=M'b U"msf)$mD^<>_Iop/hvDmL,[Um+qBu#ZtJEPeChR.ipQ9FnoQ%iqrrhH*PyRzb.DN U"v1QvC/L<%&Ll0/5[VUhhk^[9bB_w$['HAZl[#]sserCt/7Bmim];K[,LA7V&LGjPpMKn^Rg77^S>VRU+nS^l+ZcE>f235VQzH(0\s/qn_N0lNRyD6QFe)Or(*+pjfwks8$mB[WHv.1ba U"T_nLNNB^fk2WJYGJ3.7.(#)Seol U"D/:RX8P-#-=38NV5zhZ0\#9Pte-HF&R7WQBefx-tS0$PU3.j'L$yC0uTDyt>Ih, U"[2M[nkCGxil$keEjm=o&qQ1R&p3jG>W^3jP.&__s:bh(uCfF+U?I8U;:X$>Zt)$ U"AvS7t8X59cy6;9J]H^i;h13E7YR+tenKD2FJmcEtyBC-NQxH_-7rJAZ#*ouo6L? U"mBsp)v+]2o)#l%b\-J6Q0EG;+Z8HaXG>(kAc#Nl=sC0=&WQH-f)z,jL;T&[m8NN U"/?:cA'E1%XM:t8\t7PwG$)^]bXq]Gm7qcNTQR\2wp^\M+ U")-HA6:zf6jC*)l.33L5Cf^22pd3OZMXx#XrtpGP_22^:n<*SSq.lGVUu U"wJxb-5h\yTi$wuYc,DkPL=(1FN10KC$AT-:./]kg//[;T+jCb_(Flejn\mBivqb U"]AE4dkXo:t?2gxDN61b%*=R*n]c8\zcK+k)t&K*0cRpR?R^JrS/MakP4lZPt&^X U"\99fVBctg8Xv[A.xTS1l5n>LdQc:)X,dK,?QS0W13fGQkVl9R;G3_AE8k62kRj]4j,eJ]*?lR6kVZ#RvkZ&]%O9 U",gGom]P^%G[,zkZ&_%kB,,]zl[%i,4?G9^i,B%#VhR,IlGOBOc9R+Gp[AO=/(X6 U"CEG)]:l^%\,WFk.Bu_^E#e(<6xiAhn,C%6/6FfGgk>i;sZXJnNTcnNJn:jTnj4Jnz03d&f9W&x% U"+7xJLolTX>kYj>pNotqG:\5[+6F0b=lZ#:XR6PaVR^bqQrk:9z(C8d1CoPe86ijHKNKBDdVdYWm-mD>$?TIqG0?0G#S1HDsoX.n+Ev(N5N8eDhew*Lr#sl$6.knnMrg U"T$dG7mI9I(Ka)juToKbG\fqGROwgzXSX^\S?bc5MRct\dfX\$wjvDgCss](nIm- U"3mTg+r_RgOxFY79p:,v>s&_kYpR_Cnppnmiv5vIXGllsin.0GtlJs0,jjT9$S/3 U"f?N?ZV7D7n_BFT/L$IkOmOl_Epa$FISQxUkjYpNX>f7j[la*=pDUd5Gr_]a;N6gag8Kx U"gu7]UjM_L(TUE-'Xs/(_JNQCltkm\KZv-B*tTsnu5V^.-9VS8Iajszat<3W'0dG,qvd4U^BPrBk))RWYO[o:h5bmN-MSCufSZrF U"nv9('MRtfcY%SD+n:pcPr;=bk&J'Cjq'YXVa*<V)S.1ouMm.-nHbsSor:-Pb<%:/R07;xOu656oY08);Cn)_hjbTaO U"NIuTcWN>kW/GVjqa%ALqsJO05+Pu38;TF-eCJN.42ZA*=$)KFc*cS0SNxLfW\8j U"='KXhyr-u1=A-wKcna$01M/SiM*$1 U"/;:+Q;zgN>TqmG7&l*%-zz;XyY_r&aT1a94&'7Qe6Qqs,A77*+?r*:&Gr0LS;'&%%%'5%%%%1%%%%%%%%%&%E%7% U"%G)%%%uz%ygqp%VXSt%goup%&'9%%9%%%#-%Q:T&G(a78F\1.%%J9%%%/%%%%%% U"%%%%%%E%%%&t*%%%uzyg%qpSv%qgup%*+%%%%%*%%*%;&7%%)7%%%%% END SUB CLOSE:IF S=134AND 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