'=========================================================================== ' Subject: PROGRESSBAR SUBROUTINE Date: 06-03-99 (02:37) ' Author: Thomas Daugaard Code: QB, QBasic, PDS ' Origin: thomas@tdaugaard.dk Packet: MISC.ABC '=========================================================================== ' ProgressBar demonstration DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PROGRESS.ZIP",4^6:Z&=1388:?STRING$(50,177); U"%up()%9%'%#-%?$K;KL36bnZ'%%%R+%%%1%%%%uw%tlwj%xxSy8'y.y7vtTep1M U"(MQxYf9nofQ?]=+7K>7#/m_[d+oig-kmQMD,DSFFFn+llJN&sjha8;vN[o/dtl] U"$$t&'BR^\dk0h*&?XkL->JrNN>AK$r=bZY$inc<-:fg_0Y4QP[uNM6syKPYOMuKe2.c:aycA+bD=._,axnj&O_26pu U"poY^r*E]dPB#ge;]/(e<01J(W0\L3MS+(Ks_# U"%3%CE0OgdNmZ*ssLKF2_4?st3(?91*9bfBJ]xgOL=5?a[rVCod-teWn^GmlLIsx U"DY[1LtOnDz^E7yHab<$?D)G;DSdV=t)=O].IEDwXv4&pl$M3J'.)/MXe=5;ew4Q U"EQi*1xA&GU](U,7B_u=H>k^MuGOPZC\er]al[1S-Z6^m^Q:,w2\ysvD.zn8^R84 U"pc:Ljvl=n%Y+^)j;G4*:Ddj_.qA,*z2MLpL4o=Wj.lc+FmdH(h)b\\tT)5w7Np/#BAwo0#&;%KMQq[ U"7I.YN4NWgHDX(6jpM*(atlFOVMcRxoWJ'uT?=0_=uJ4.)2;uc.8%PUze.zejMnD U"2,F**4MU=kpMy*Y1U=V+-Aa7lC;S&Cr\L?hJZXEaL1ea[L^:T-GqA;m1Uh,0mv= U"?cE]9^;v]DXVJ#lC95DT0'?%j)p:XfQJY_tCs<.8:ZdN9rOx'10%?y7hq98c$%s U"%O'GB9f(np_GNA2(,k+#'=:Jq'B,:PzBMsNb5.Bklr0V_KbTo3ZFK[&H?XgupG& U")Z3csND.M'LIq8]vR]cg:7ysg&=]YVg&(&q6H%%9%'% U"#-%?$K;KL36bnZ'%%%R+%%%1%%%%%%%%%&%%E%%%%%%%%%uwtl%wjxx.Sy'y%up U"&'%>%9%%'%-%;\p;K1R:.1%('%%&Y*%%%1%%%%%%%%%&%E%7%%.'%%%uw%tlwj% U"xxSg%fxup%*+%%%%%'%.'%C%7%%[)%%%%% END SUB CLOSE:IF S=8AND 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