'===========================================================================
' Subject: Sonic Scroll in QB                 Date: 03-16-20 (  :  )       
'  Author: Mike                               Code: QB,Qbasic,PDS          
'  Origin: info@pcf1ca.com                  Packet: DEMOS.ABC
'===========================================================================
'>>> Page 1 of SONIC.ZIP begins here. TYPE:BINAA TLEN:4863
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
deflng A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"SONIC.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%r[.K%#y2*+7'.%%[/%%%0%%%%uf%qjyy%jSqtmljOT-&<]1=)I
U"x*3/V*'p^KpXEQ=IZ'l8Bu+;<q7r<NkpKhdNUrX:dU=:iX/thK9+\>zJE.4rrJ(
U"DvH4B#hiNCii;MO/]Fw8IglL/deED3w)tA(k\=3oT&2ht9RZFquAQ\DLV[Vc;kU
U"TP,sjt,q^lt4ZLnWdop>F17H9Nc14/H6bu':kI$njR_jpx-e<wT]H$y9rcEhBf3
U"ZVAtb')+>d([mZ..=f^oQYKrBGXW1eIxIImHl[7h8Fw[Qf?b23_H^Q_I+Q=YKBE
U"-l)k2HnL%r8#xCo_Hyz(N_x4t^T&lsH+AK6n8gct3v:4TMZ;AeURs7+L,T4bB,Y
U"FdH=DZz>AR]Q\*mJjEwJCQphS_&+G#Etc/kz%\AzTR>;qKm^LRq+k-+=a)t$s+h
U"h3LBXgT)CFWAIZWefeg?^KBE8bQ+4UZ)E?q'Yesp6tVk%YtHP2,04TuR*o^(Q,m
U"J+fSp[$4J^D#6wn_3oaD#4a3_o8QYKT-#.LD%lmJfO?bV)3N4L]LO<HBMAFHYjz
U"'9N5zraBOBp4_mn;R]r53#6AffK(V3blaBF.QbXQ+BHgQ$f%bJ]WBLGjk4pmM\M
U"2Kr*nNcf;XrAb')r+d([aJdF7Iy7s$js?f%1gsfonQYKB,GBsMJeE\CjWAKB)e7
U"SfO?b3_;HWAkuAP0J/M=Frovc/9c^9qjjFX%DT6[tm>l,Wiq>gpia\7pFdRHpW$
U"hx/X:B/-gY&[4lXa]k)GD6I)+Kg*xkWU6:#_q$L+wJDkDN?j&Wo2T&tDhB#kXrn
U"x%&up(%)9%%%%-%-%eK%HoFxOd%-%%+&O%%-%%%%w%zswS[iqqfkj:$d016U#M6
U"m$PBDlkr'4>''Cudx?8d3A+(V;G/0:JF\*I;Y?tgR$kH:l;.lfSa7/nAWX^IMfU
U"YNx\.1%nNg0q#K?a4^X$#ancn1tb#.EOk]LR%8q>p0lL9inI0[*r+)CU9G.0j=x
U"/I&.ao3R=L)]c[nLLEds5I&u&rE'1J3Qg<MAS-:B&]2B[$CW$0mkA7cD^%Ht35s
U"vvRr6o_35]]xqVoo<k%%&ag^(G&c3W*CM78*c;6VnckI#BlwL-^P0\dGT++YBK*
U"sd=xu9.zR82*=+Gwas]G=AT5c^9dOFLaI86N)PUzw#Smkj/AiNY)l#uqLKLt[7i
U"eH&lMb$rQ1i^LdfowZsBAl_kCAOw,VXKc=K;fpsF#Yo$$((rI5tPb9x;]\p52A0
U",N$qhazGwIi,5^mF_Z3RBsq$'8H3]A/R2S5=mdj.1[o-k8/([Z#5-2_j\jiID_G
U"rw_DKBbZG+l[QjlX$>MSj^iaFbjcj)fC+N?5p'ZvC]o/w+Tb<;=7?jE8MX1j\^%
U"tJw=E[,jBGoe&_-XBf4Gfhu]-e*_;j?sY<>3O*hXh)R;0w0w,..446I[b7lk/FX
U"L^,;4k_Pp,rbOff?NHI_Do7,bO\ZC)C]-,fHes,P:TpE)[RbmvqO,buZdCIENSR
U"iHJ%5Y;b1-=K4#w#gO\(476]efr(SJ5rDp418g=f[Pb>W6oEj%LR=JB4Q]]4,fn
U"sm(2$bw$C-0ouJu(D_C)2IKQ2_wf6Q)OG2)7g(]r'5KYIJ-89dM.[kv6vt^lYm$
U"u($YHaV]2U0r4X;VC7.>G0+DCiW_6VtJI^u2Iq]Gqf4HPRk8UFUG*F1Jja/j#5J
U"AOx3aD<<L]>lG7:MdDQKn]XI5Y9d;)xb4de,J8a5gC4A%=CgA-&E+teYF2_<ACG
U"K7]>CN*fK^g/o9QNNB8wuK1Uek/i,Oclo'6?b$bTq%MJn-,$Q#.\Pg^DkhK,r_x
U"j(-/=3F\p,Zb_+EVA+,uVAk$s=3.hjRvd'_%lBT0l4H(b%UjLh.#g]E_k9S^gOR
U"_c0fAL$(7#KU<vEXN\P+='Vr_8:4;<0Us96?s>nEG4ef%p/sDaWb4XRue?dn_oI
U":jXbAc>rOR=tonE:([,>KPVM,(pkro5s>z7aPr5TYPeR'(J)0+4/S%tOR%_#7hG
U"1M&pRCixw%Kiw4ls]c,ZnERI?I$\[*8&PTSItci-P^q?l.lE:gxtI,qmFti>v5c
U"yXyd1>Itxbm.6rz4\Cyo*;j:Y-Xig%;(Mib6mi#h.$p14/+[IhTEuoz[=dYhUS+
U"+ud%vS_kJmmBG.wyF34;>ZXev=#fRwlG-C(j>f-%j..^>X=td&Ub[/nyBWPArKy
U"tH6Q>1q^4^T-N2[rZB67K*7Bk<kjgy=Z^akURJE73K<7y$N+T3cW6wG(GGEIj=2
U"]jTqWfTq\-:q%Ex*RLV,&Nof_20Aan*.-.$dc&r[=88-Uva)bBgf=hg>N;&/U++
U"8GanP,?kD+EH0nUn[cbg\DQ0m&wkU2gc5+C,O(.JgHfX%mMgs/t]$p%1Fti.gZ,
U"BXsmTn)h)/00Nr6gC:[:Ki>pfBAI8Ol7_kqzBcf(.7R-nb?AT*,*j:KVooEidOb
U"KRM&<bm>hJ_$'[,>dhpfE\n5IIy,Y(vFI$Is,voSLZn56Y4477bhf<I'mEr*%4n
U"Do(4Q)jH4wFboEopCsWn7E%0^45KReY,l3kgnrEW1SGyyY>Ol=ODwc&2lY9B6pf
U":4bQGhhS*4+j):o::3.sdnm4'$P+??C)mHlHYQ?r*.,El\EHlr#/UZN<ArwU^up
U"2dBuF2;]NqZhFX=Guur/1[N(UVj8P-jl\M-vu2+L$NF1Yk8N[6l0,#;Q=w+>ZGX
U"U+El\]53wEgN_>>3WwE[mi8l_rfT.h8S0i_>t63rTU>l8\=Yl0vk=w%LTj(P*uw
U"XRpa,vcp=,Z/]l[nIIb&p,Zs;P>X5ZjH$'4dM)Wr-eIXHwwo+p7<0eP89dmt-vp
U"n1&b]P2q-;g1kd%fdfwV1gZ(49c'n&*sMbmtL6qUU8m'O\(d)[Z4r9m.'z/EDq]
U"zzchWRCaTu>Bs<McX1DT]'<s152NIyK$PvGBz6=F<e=8qECBUUIQ;7jI$JpijW_
U"/4i]O(,KA,NJD8&XGN;t7'of7tn?Y/dw#D?Gb4sfvp%l;$xv?:;*SlJB9DD9Gm>
U"?<w]^m4N#x-aF>AF^L57fhR:Kp[Gcu)H*#at%gloy5]*Xu>1G^H1Op$AQH<py=H
U"jMPPU9+DVhnXU'oE/LNsG>cjpMJF%3>CN'W\$vW+L_lELEz$I5LnO6ODVdk9V?l
U"=hRp,9vcp,-:5,ZH2ef;&fb-?&ZC)\',C)BebCsKEnoV/8I5UbJ7]?5^bw0Ms,a
U"tn+Enh4]K:Ud/VeK\](bmWm1iM*,9nEmp4)r4:,Ps\OMKR[90&gfukMrO,R9+Y^
U"vJu8<:_iDb[.,.GvY-Q)d,t%Gto)_hmoqog)/2#B=b&_]4LyJ/I'Wo;7'Vb;Pdm
U")UVSeQ\J'Pf:.q1LX%KpSYygZhAmE/gB7Lyt>>/d.=U+P*:[jx:ltwo8cQvf7p,
U"X7'6(wJV]3;tgnb;Dq*x-qZ&pb-6YvSoo4aa#b<AIudo4C]-S*4+-='wwElJ+VH
U"tfWAhnKE8M9e6j6UVm.I+c3jR/J2SwFoEryI[\O068[QK3SISY>5Wl*OFKt_$u=
U"babVVD-NR;M2HovfN6*tR;odf)cjfIgp4EJZC8s#tC=)C5,12I+4]+C%eVI_L=4
U"bAI.6qtRi9DCYp5>]Fcq_.c_CfKi[t6&7o=E.eZ1uJ_o<OYbf;-Rhfb/)bal4no
U"FY5,R;U[jF56,R;[kjF5,ER;[jrF5,Re;[jFY5,R;U[jF56,R;[kjF5,ER;[jrF
U"5l4'kDup%()9%%%%-%%pOL%m.4lg&E+%%%h3%%%0%%%%xhwt%qqWS[gfx&h&<BS
U"mk5wG41x0h'f&7ga%8IoN=h1_\2KWkF-U[l/M^s([9p_^ss+D86h,kUL]EaEJu?
U"^Lt>tU7ja4J'G^ap0PACfy/'QBw&B1HhZBCAG[sG2BR9_L$bXKj5e9vcLZ6K0ut
U",&MH.0;cY.8F4gB$)fmcH\M1,d3rH(ot1NM&s4'L)AFf^&q^&#yfp##LN/t^Usw
U"UKIGhWCMuMlVz.,/'W2i$7un.wK&1lPHTpBiEUkxs_Zc?bAM8mJu<H\w$N7u&g1
U"+vh[xb60JazfsB[5[uQ0%le5X3Rk,B&7oFUJPiXlS]<Ue^'78A.iFo^nOTe>ACi
U":Z*d>JulEuq5.)NkJ4mUSZMHr4i7O/AFgl1[;p/^.aorapwx:k*d6cQfTPim#?c
U"KpE.'v0H%('dB&Mvu8[+E-3-c8N'mhNc4BDH3LhR+sAZG;i+hl9/_5'E%&em.8S
U"0Kbo#,pn8/)kZJkVju5%GoW*%MKj=ehQUE^itv9;pKii(.h.M[k2Z4eZy0[1:QS
U"x+TrHH/T3eYJ&?IM7RGF6MX187W6.&G-PG=-NrA^-[vR8*WEBR]*Nqk<Smt$r>#
U"Xxqov.vKLbt?n?GAnS=?V_Ng2+>[*%fl<l5lm31Bi-'ZgLADGn#atD:NYmjwfI4
U"UmxCpA/&xp\4M7*2_0j+4G^\e2tHc;K+2(6Oau%0oiw0<s]wX-0V%=zrnZM$5dx
U"wLs,Y$Xghw;7ey]%p^mNo=5Yrp7&S?FPQ,p-sU^(*\FD.YUP9IK?HbhZIAVr[QY
U"H,,Ge3<h2[pU:M&3O>W[>okf.#Q6W<YbY/<L>>iRHVHt]/wI+^1kWfP\U2#g;p*
U"2?;gI$YTp6:'3>tlUS\?nkkHJmTw(N9st5l(\LZ>q:31Obbosg*Pm6r2'qcki1;
U")3pSgz&;j8][S/lHy#M8z6)IIXx$;o4GidN>XAMTUZa\Bf8$gH3Md]t=YO5HT8[
U"fb$.v^TAJc%Nh(Q\]w.tV2dC9u^Unsi<6'NY1idxox)5wtUM?>TpO.tu8v,uVS&
U"(>;ueiyiX3G.$;*fG9u,BbO]bw)e#l2#>m#Z;>X6K+r8cSkd(H*:bAimaY?#Btd
U"'-IXDDuxVh>0jUkUQ:+.6kdk;gt3\Uy3e3F+L6iJmj0>utvjIo4?vbiICC^)c,)
U",(fMh?*py)J=R\KSN[5xL]<D4b:J&F;$R046uZnlDpRzTra*N^O*_:FYO,AoXa+
U"00FYhuaYZ*l#c24?h\Za</=L0erCtG'$,[4Do;^l^KWJGYo^*WZ<TA9y<0+-,8=
U"=ExGD;P=c3o$h.k*Jhw(Y)+KVPOhmk(aCbUY)_de&1$7?C%ra=RLJ=0EH1AC(tE
U"fo.1Rn[W-cBOY.(Ae[e1dIkP&Odf63Cfu4g3N2Bvv_alI+,A)V^F]/X#%sx[Uwr
U"+V2FccVi0jlIi%$AVXS;ur$hECe%yBlW:weiVTK8'+[9%R6F>I09vD/p:+s*OZX
U"=.g>&>(>Qfqo]khfK4;<.R3R3mo9dn%EqxL$AxVtpfW/SX_AC(VoR'h[6k:6aW5
U"PY*WTjs5pDGqRJu;n0QD:B:;=(SKG]d1u+YatAoq-*9r9ehGN3I.qu(eO.]Vle4
U"V223,nJt/27b7ba=j6wSNczvw7EqpNG90iD$UXx&5on$ZZ^8PGX]:4Pmaw%*-6Z
U"J?dZcwDnR;.48/K$S*tdDk)oX-'>t<.p'N84HL?*E)uOS/qd;Af9W2.Cc'TC%\-
U"mSY?ZoRhrlZmaW,D1=a+Y4NSMP;\Jkah+JWW3Snrkjqj_:H\%.mX_CDxU0rG+gy
U"ps;FoHn5V_4JZ]NeIjf-7Y(31BdoQ^8U5/PFpvf0Fm-DM;U6=xKT[s=TOY^2B+(
U"KRfSI,V-MXB?G6uGQ5C&UN;3t'jkE/G4,PFv;;8dE67Z]i1F_'QA6,LPNflWYF=
U"'HHhgAB#vk6U%coH\N3.Uoc\b2R2Z':\nm%o:-/&8ebTu7EwKW<P$-Bp\8h+u&E
U"Rg=V;MbtIq$ZAMDHC(?E40Y(PlmU1Adg/t%-2q69%ZMF?5[Z\r%hu>*JS$>hnA=
U"xFlp=AsZ,Lt>);dS8h_5U'=KUxoQMCNA'r/tS\)hzg8x%%up&%'9%9%%%%-.%r[
U"KC%#y*)+7'%(%[/%%%0%%%%%%%%%%%E%%%%%%%%%u%fqjy%yjSq%tlup%&'9%%9
U"%%%%-%-e[K%HF=xOd-#%%+O%%%-%%%%%%%%%%%%E%%%&$'%%%wzsw%Siqq%up&'
U"%9%9%%%%-%%pOL%m.4lg&E+%%%h3%%%0%%%%%%%%%%%E%.%%q0%%%xh%wtqq%WS
U"gf%xup*%+%%%%%(%((%w%%%%f7%%%%%
END SUB
CLOSE:IF S=194AND B&=4863THEN?" :) 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\4863,219);:END SUB
'>>> Page 1 of SONIC.ZIP ends here. Last page. TCHK:194
