'=========================================================================== ' Subject: GRAVITY 1.0 Date: 05-05-95 (23:34) ' Author: Luke Molnar Code: QB, QBasic, PDS ' Origin: blood225@aol.com Packet: DEMOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MKDEMO.ZIP",4^6:Z&=5311:?STRING$(50,177); U"%up()%9%%%#-%2-\uE$x,wNl9.%%Jp%%%0%%%%lw(f%ny&(SgfFx>a,SF?2arhk U"dU]?pKgiZf(Ub2#p%$;G;E%mXq_EZ]URe#prZT&s[_7eZ8Rv:ip8N<; U"yswuJNek^,hY^8B3yzy^OdoNMaYRNuth(p\&SBuU0[HTjlghQr;L,Ws%1V;g:F+ U"[?:hiSE)Wh=C.[b=g,e/UonFlr;f3pduxtnwsI4hYqzL7LleGh$\Z?5Q,?H+cSV U"2j+0_So(Q$UR*Tc0iwmD];(8P<1e)h'w4f_C.:WH>YwAM17^kSe/f7vF/UpLaG[ U")zDEIDAT-?gMQ]GOseVbDb9B/:MOr69wR*f%QbCQ5ek.?Rn,YA\>jAR48jh*WUT U"N%:X80JD^hi,+6_o[6uOpPfiN,rFE19+9j6mfZ=CseB#B,dllPcSaMwo)($O/J>PjygZ'?F\]QN*)N_-isAq)idM6a^Sject6R'w U"lJlRG;m2ai99[[&j]aS6?f95uN9*VBH4N_MNrGE.XSV8NnTt;gn:s+(Z4mY.tNI4eI U"s+?MXXcFUTPH1o\qtB+JL3d9jflS10oM'bnPoiUq7nW5SP.6oOSnWo:uh*:Hn,- U"22VZxEtmQJWGB1t>WOy\A58o0aJOVJoWG;4u9^7u_K_cCv7UAF+LyL,$,11e;T=H+Ff5M+_Cn_H:sR^d8?Ko.)4H*9u#KUQ+ U"+F#NuS\5QNgXt&qHZ^ZkYYs%Wi9N.?t+hrxLqb:2Y6mG4QWacOXY4%wY&iTfiti U"9+7p3NFgX?cQ^w5WV9ea/v[Fn'^vi1o^7*D8yM6=]9QW5LTl1ZsC9M/4?2II+ls U".SwJ1&I^oWb4[&(JHJ*-xT#adHZ^eewtx5vYY(x(gX2(I[<^aGNdycPcc?l:TVIfLA58Sj1%+H]j-9>Zs<%pD)7H3tLLz,Pm U"DSK3&GgBqGCEgPjIS^.FR<7M$pg+uBq8aLn)SZP]PUA6L#KG%XS: U"1Fabw%fj?-?E_DvZr*Pyfhmg%MxLeZ?rG%_>Ld5KC_(VWK6LQWSS,F3sMI< U"Q6Qhu'HDd4 U"*qLCaVyeccMK#pzZitwL:^Jo\R-AF_m?;?dKx4u:*B&R>?J&HU=l$dlfQfUrG18 U"R5#elD-*5<^=jC$E-CmJw:Yb%fa16rpC8T$3USSf3kn<=Num?P;7#n4#6zYNYD# U"n*a3nt[dgHkfXq*A1Hku^*OOXFS^BpWt]7D9%4^*aXyDM/D8952-wq?A#_Tg;p: U"w3W#ct$Tt8O5HR;$63Fw&JwCb]&=aYqzoRU>E=#KHbl8auPNMfKV>[y-ux#kx$Q U"3/*vL5vSy6_w0Eu&m0I/'uW23]#qwF3?+t_9B][cd&kVb-1T#aAzAZy^-l13JL] U"6]noC?sAg3r[q2X)bt)yq/3g[jnwt$exCQBS/_4 U"mX1-,U:7wI::$#mJ=+m'T9(LC[tfP6g);O00cGv._n%o[-5>=xmDv+wp5%6pi-j U"om>EWgK0ow<7#QMtx/sItB-Sz9vD+FmU,Q>M+B&Zc>1tdX$1gN7]T+[Z;*uC#Do U"l[Hd&Zvfee]LYPTuJ0,TY=RKpMC^Nq1yyJH#m\_^uka[H73dh#D#MD4_MsZ^rJ= U"CE:/8%pQfOfzDan;L;BQcR'R]]>,/\I=F-7W-&5Jp+6n3Ezl U"ft7h_.R0Z_D\cf]S3F:f/YnG,iRr2lK)?S U"AU#Axqu?Hs&DV]W2_xG?1V(WGu\_>Be#4BO.1Un;g;w$\U:5L8qo$)?k2t'2P-u U"hAl.8\6o+__]a_s[oKSH&5jOg#BF]8t6'qZXhrOj)BjNVvog6vn>qLwmfXptIBc U"IeJV#CBR4&VoBqP4FzOXTo$M*>r:l5W?vO.UzVQYXq#^'.ns+ML5fB[d*RmadqC U"cb\,BUr/TU/>TU/>D=n=A)#()mP495oJ^tPb\;e,u4]QjNKpTkx#9GaF6'-ykc\ U"Q.uXP_cs4F;7[:qcMuNFmv+UFYW,UpwGNW3(gmue;H,iHiIW^*FApdZ7X U"cLNnquE?E%nmt5&VEYiZ?5Cc.oqInWZChkXvPA]e5i^[iR#Z1ZT;Ys+iKY+VNkD U"\b$RrQ3M(UYziL.WpzD7.ytMI7$s]I?0F=SbxqA[Na]I?#lbm\e&KR52?0WkG2L U"X='_qg[x%bE+flniJPyH=P0OdP=;etcG-/P60kus*t7XEC=$4CX2gEcH U")e%li3Tl7?M2ssr2kO.4WT U";cn.>3u$pR9S37GR4HgX]^D$/b^S>w?M*Vd'1c4ubz(V3u4uglslplo\WzWu&xP U"w+Sys3rV,wqCC_B1LX-FqSL_B?L4=XynH^BC*)2%9^GPWh\];kRj6+c0JViG.3M U"cy9FNf\0cO][sQk^]kqk:SFFN*WvEh9e:[9IRKSEK[i>0vfqDog;viqrq8Q1RIK U">LQA$7jdlBg7OqNMf[PnwI7vT^LdxJf5,5d>E[T^9*mW8R?sWQt'Rox[rLc^K\v U"4gl_'\gs9FvxBj%5tTR?1:tcpM(D1F;Tj#9pGC$fSO:>_xK,8Z._SD9?#/lfxMzYZ\Q#i,+N+2q-sSn4,dSad%:BVPy5T:U__esfU\wS,D\%yjGNLW/6D8] U"r&K5C=d*H0#8'iezOMGPzYq-c9UedB=^A&.-+&*OjE%K]_$a&t&SY<%]o*'c;[W U"E#9rr=#/Y4,O,25w8].Gw>yZ9'.jw3Vxa+Y,mkB1qo:D:u4%6fr^/OWVjgCrQzP U"d&xu;8fEu7r.D&V.oZu)R\Ksb5H$%O'o1OQ*n8q)[?c;'?:Gu?K_cMJn_%uwfIa U"K?8#BKydoau)1mPagqptmM,Dng%l*;r,cFQrkdE;SiY(&E%BSGP4]7.-UvOQ(PJ U"#k\/:D]Tn'VwRoR(Z(m>63lg%rDY/ZuaRU>I'7MV.[z=lIi2ea08V?FhN^Y9_B0 U"N>Vz2rXA*hMLA/Fj1FJXG:[?;(Vid9q)1EtU:ptY64jZ%sE8kzS&PcU&b=>MSDM*e)$+.&L/'R*V9$9&>%K.dewl'T/toI7Dt#S2?1 U"JLfo):&*=7b5)-/Wl+f12tr%CyV>&2bV''# U"'nmt\=35JJP\'[Db[hzeD1dg;YIEG5?f1NA*z^9Xy-ln_yYLJ/0zV/t91>RIhBn U"%,#i\ah?;?q=bN,JpFo10Q)NT;0aC'50a,Z*9In9*#e^'B$raoSpQ;9#dq'X2c\]TyS]3g%GQ*qoU/:D#B_I5OS<5wu6r/awEr#p;82sHy;g/ U"w/[[)h+'8K#%sOd3EWP%%TO8N#CEa$tM^75e2Mm.VIf6ss9%,_- U"QUA1\f.(tEk&Tmiw#PL*VTFNqQ_J*bXLyHvYqgN#>/zz\.,C5wX[sO]O[ZKBm.d U"YRK?>.D5QB<7W16ZIC6pc'cAY;;#d*Mu[0B]S8J-PZReU[0aYX=76+c.FeM1BY= U"bsip^]w=VI\5_,932P#7NTlS/36uIf1qy-UqcqJcd[xe;g:khda(EB[gPufUu3< U">;\VR:COaf9GGtXY:2'MRFFsc=V;h*w%XB^C'(tb)Wgz'RNCI7?4mo7&fF3#v1. U"P.)I2%YAPf)u#f?LE6x73#^e[w%H/I/3:kO('0.ehw+4bqE>kx0y=-cNf(jT^;rY1kZ^vj.XTEZMluv*o,5des(Gf U":B\Oo.07UxQ7DthEb1$.uv\S[635>T02c>3kB(freLcn9<'/oLj2QKiF7#^;51OqL.67&%:> U";CStgFGQ<%>wX0x>f?'HV?,C^d3Njg.RC.4SrEW>Zg?7h:QJX?3T_fId)Bn;>.s U"6hV42F;tBgQ-6KIX3BNWcyuFdr)r'>tuD\Wk1*3)Ud[pKgugJ,cUN,jyPctb+FZ U"m,BUD\CWPUJ-jB+jI$c8o;>I=7?Ml<\t>1VwpB[5ne$:]Og,rxV_9s#*,mK]HCaxkj4KqfWoR6eqgASf;qaA3AsiJ>:)G>]H4kK U"m^)L8ZWQfvcQslb?q.UJ=3AFo7c0f3cmt&lCOHgH&eY9:hI0B]^;t_%S_.JZBx# U"nzUUu04isb'29WQV;z*uZN'_&8z^stzNWPfUa5i0Z0fW(grTlaWjd75Z0tjsn,S>na]?Fo0 U"Y/mrG6V>%%b#d%P_'2ec5W4tl,0?O0Ake3*e\Q%X,1nQ-8kV,PZ%L?<1DpNgqiv U"F#98\'eLW^O3b#Yl/g*7[oL4LRoYOUmB6v$mir.1QV2^Iy#=iz0HLL0gIevZ7l6uMd2d]Y<#8qn[)dny9]iC U"C\'i3%VN-]Ks_3I8;4_v2,$iLiAqLQ#AnzKa-:p5a0(KVF=.8x,%up&'%9%9%%% U"%-%12-uEj$xwN%l9%%&Jp%%%0%%%%%%%%%&%E%%%%%%%%%lw(f%ny&(Sgf%xup* U"%+%%%%%&%&%%^%%(%?9%%%%% END SUB CLOSE:IF S=239AND 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