'===========================================================================
' Subject: SOUND BLASTER OSCILOSCOPE          Date: 06-26-00 (17:33)       
'  Author: Rudy Elyn                          Code: RAPIDQ                 
'  Origin: Rudy@vt4.net                     Packet: RAPIDQ.ABC
'===========================================================================
' Sound Blaster Osciloscope
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SBBAS.ZIP",4^6:Z&=3330:?STRING$(50,177);
U"%up()%9%%%#-%(UoSMCo?tY1+.%%67%%%.%%%%xg%gfxS[gfx&h&:BS9A7vs4:x
U"ph,<O5Po%)jgD%ym,7CGaS7E,B3-RST(+?<Ig$\ak*Ml.NJA)7mOtb6.dJy)x.W
U"LLsCpX+5sqVNnSo>Pi0UGPt'V=1/R:,e9h:Qc[6<%m93JnG'sB:8=FmW+.^6)a.
U"$Sr4)e$4J6k/ggca(c=j=:/[mNM<27]&U&,a3ZBiMjm]]<>,Er(8Z^il-/44^&T
U"mIa9B9OQnQe;<SeNY.8Hq;,.;NG5\90g.H:2H0hi?/Ja8A$kP&3Y'&uoiaI&68j
U".]$KHE7Aol_t9P\AZIp2+BleM7uw/NhQBpF2GqGe'O*IWGQV8CIr85bJ>yFyRUV
U"Cv<TPR/(;;l6h'cH?%anhjG'+:u^)>qmpswQ]VfS(plr_^BN0%M=P%H)u\0%$oF
U"*Jw?0#7L-s'3W+/7Hq2=jOn=KsNqy]ADpBG/^a'-*n<eraCDwYBd88EH<Di.(C=
U"wN*:$HddiwDTnjaV_XQLLdM=SRH:3qu9=O=Xe(A3N(Wo-F(g[-H41Q0.Dp3&d:C
U"vJcdnO8DLYqa)ZnX*<=%<,X,s7W6IWB,5LcPKW)CoiM>cV^Q:HOwVZ#d.$(XR&p
U"6q.[:fmb?_Z7vW-==)YQI]6M[CVXH8g;2(*',j9ygJm1pj::W&2>(G786G^kp0v
U"guo6&vn7;FxH3]8K50Wo(:#Ba6p+o31#B=dz3Q7qKc*S[bs,H-^nYtc$U#fzU$o
U"uP$^R/U.'*kAE(.AiQdPm=mYqW^KV$g8v*3WZv:*j\]*\KEylb&LY&)e%2clr/=
U"$4tGK]o6>RI5')J6VK7\J\rQC7Wv:j0t/tv8<5PH8/TDFW6W.&Qn8%9>k?Kn860
U":n]LC[kTsbmV>&vD)-W>yiNm[e6/eSCgi+[$k48:rMeUc)f^RGuTI8\=K(.0rW)
U"abae6_%5eB&6Mh>5r^P0+bqUEt8Lc-6c.k2(Jf.<Gj&gnAQ:bG-V6Wfl$_[:Fn5
U":5b<HFxbzP%5PXt#5)J-DP59adr/j%Yz5oP'Id:)+j3.-]TS-Y-jRbDZVjbn;vi
U"/nsWb0KSZi$<.$0+DwHK^uJeP'Krf#*l]ae*>%-iL+ZxB79o>+BDUAu)1L7)eXu
U"g%k?vwq#t&Jg5i%PL%zZG50COMj%:PF91>9R_^(9ibG?[akUCpUf&I1Re8$YhmA
U"G/ggNpepEEy';tD(7$/:zK$XLFrmq>v[Tl&s-v_95Zb(g]0GB;yh*K$oya_:LEP
U"rlmOlkmXFeYK$A%i.cr6h^QXd8]lP06pvqdYjnH'b7P&XqW7C8oj-lQlL<9XqYS
U"7EJIU50';v^mhda$N9/Hvb19k7_<H93Jt\81JumP4C?dH'PX0&uUj[34FSuX8=X
U";,K9K:P9<d0SZ7;q0*ho+JW<?p0-A[XNc6NM^7w:2-aI;kh6ekd#Epr29]Kh7^+
U"tWOmtmhME>u'<I?d&>$KnZn?hP^cfW=2K^aa6F*d2k57Am/gfB.C+TWe\f;=qE2
U">W(a$lFNJpdDi/d-26SU07%#=j$j#_m<[GK4>t<fg>?o$:8df^5+_5cM)%d$5yL
U",%uvhQ_rZnYis=%\uQUCZjV<f/>Y)4BrFpGPfh#14Rrr]&:jc(8H\%qGz4j,kr0
U"BnQ^NDm'(Sp'Vnu'Jd2\BX,hgt^(p*dsZH,/qgMbEUMvtl^b**]UWtWh7t=wNJH
U"Ah+J?kw8)3N&OQUkZa(_15f%LqlF<;Nm7\,gtSv;bw.zM+B'Z9dvh5-%-buu4P9
U"dA[9zZlKP^rrhEbu=;D5ojBEIQT8pgH7mrMP?bHc+#_hmbp-h*uI^o9%AnNZ.G8
U"-UC;be$[j*oKr9qWhc.R&C#]D=xLkZFFjH8Dbo6$0$3Zw$X,ghG'*,WivThU6eJ
U"6\DkUYgB4L$xXSolKj0et9A_oKKdhcbxqAVoCUVj$\jkLr3QP$''JRUNYH4ZMgH
U"CYo#8:b0tqnWQOp&n%dO\zard\LEa'Br?Z^8N4b7=\+1LEP93E/sbk'1d6pX\+2
U"8N;piZ6;l6<)l\hu0h8[>22;TXWggdkHRh-=u-''F0s]dA(L1.Y?V#H[r%1Xhl)
U"nHnkRr\-PKNM\Up'bNJ\M0K:q=iPRE81JZPbJw3Vdnu*Nsj,5mR3<?e]OuKf8GD
U"1ddU1]'E8V#\>=#3H7i/=CFRiiXTRJk^yA0M8m*$-Er(O>PDJ5W/0-6odu%p()9
U"%%%%-g%3%S^MfOj&v6'%%%<-%%%/%%%%xgk%twrS[gfx&YdX(imU9#X5feNE?5i
U"+Qpucb<LCOZjL>-APZVrC^,=0.wpx9[wNt(ZAo-z5BRUVn?;wnh^9XC;YZklA'a
U"u/Vu3EG(I?bc\,i\?T>8e8S?\.2XbsOKI'hq*;C/j&4Zn5>xT0YhQLbR8mFBX3d
U",\JO(XsVrl?m46]RsW+%]J]>8F$V6wJbM8504A,MRq$1Kj5OglHt%5Ek:E(D)/#
U"j<va[1ce0.Mi3d4\1uY*u\35W]CPVoU9X(8pThZiEcGuv,JljxHA:/dz[[%ruUn
U"2eT87N#Pn]mH]Wee0-Ot%o_wCKd1s]*:p6]+Y,:aU#_%WTa8A(1:J$X.z:GE7pP
U"Y,e8jr3'k:Xs;yqJpc)'Z1%_2;9HZ2EGgw0RQ\T1pNP0bS'8)JOBONO\ER)$G8^
U"P\7uZEl]HAw/].S(z-uTSGPJu9=L2Pus7E'PJ70h\0t15q%M1le8a2Sr*\Cft5f
U"pk-'zRQ[#(C-X&vri1;?m6-EpBNj-;;2iy>zfPGF'.VIit_C]iIGvSfG*D^';P,
U":9'A0rL/=Mm%[XMY2w03FOe4uDH(LXsjaMm6NgW%Q]16qp;x>tVG13Im^ZM7<-c
U"MXGBXJ+zMYtpTv3q-A5bP3ub0_M2=0\16Y43LZ?i:&I('2<#>M^ey'-fO/?O['#
U"B8-V.+B?'>$D%up()%9%%%R-%FCTSMbc>8i_&%%%8*%%%.%%%%xg%qngS#gfxtL
U"w,>jde5K0-]xUTO2?#*,2NvzWRd)L#3mS].%LLJ*_1uV=<:2D6x7Jl5?9A8mz^b
U"Y8C$,Xp$/mXH-3Br(4V<Aa6fwe[^C3r)%uGT'Z?d^SEg[pU5JQ(DU(yu_*;jEcZ
U"lM_9>,VE#q]i$cgKaC.5B3G(/sJV-qhMLL9=H$^iKl)).xqENboX^bTQ:J%CkE3
U"2HKnjetICE+JP;1U*I\KlVGA\fFhFf0:RR>9e%'<W+:_Rqe#x$5kF=,F0p#Qh(4
U"T#72?NM(+MH/AXNSaEJ7m&a2a9hXR32B]U:hhhWl7i$$p.T2*oFgUUXJ=B+MDL2
U"-Ax/-gky%Yp<5u>$\jwBBMpF<E*Ipdtb<iB4BOoCsT5\VW9JE4q(s9ES0$nfnK;
U"t02?wi_e:Dl0iBhFit:'<XF792ZX<lcRFy'y'r9/^WPV$3VD8kd?)/v9#OfKy2>
U"d5jPD6j-Yz,<-sST3%6Na#.qz$^+nuNJc%#AHxFSRO/9F#nLQ-L=S06oBs0tlHP
U"-+l&c)%uc25?Z[=C:)94=ceN(:a0#K=c;3Wt.Jnr:[$xNZuErfc+s-Oiq[E)8hF
U"YwSDvumMm0OykrraiLn0+bQa%joOtL%QpIq-w%'up(%)9%%#%-%yazSMo$O5.<[
U"%%%w%'%%.%%%%x%nszx%Snht<>$*3';E9j>n=&(=sG]r7K1v*jd&nMZ)W:Mq]2<
U"S+&X(n$*uV32GP-3Af%*q8R9$sGs3#qH,qji_bEJF&^^#1Wf7Ad2Upg;9bqLIB'
U"HN&1oxg;7BwWOi+25<$R;oUW+$qTit>H'#l+E.)*BTAkirOl^2F5<oCWP*.4P6h
U"b,8hR5Rea(5(chT_p0Ds.*JwA%6?kDCbs8m-$#RWskV1kCQJ&2TvPB(uqptRc6(
U"Gtt8wo66WWBH-s,Cu%p&'9%%9%%%%-%(bUSMCuotY1#+%%6%7%%.%%%%%%%%%&%
U"%E%%%%%%%%%xgg%fxSg%fxup%&'9%%9%%%I-%3%0SMfO*jv6'%%%<-%%%/%%%%%
U"%%%%&%%E%%%'X+%%%xgkt%wrSg%fxup%&'9%%9%%%R-%FCTSMbc>8i_&%%%8*%%
U"%.%%%%%%%%%&%%E%%%%=.%%%xgqn%gSgf%xup&%'9%9%%%%-^%yzSXMoO5+.<%%
U"+%w'%%%.%%%%%%%%%%%E%%%%J%0%%x%nszx%Snht%up*+%%%%%%)%)%'V%%%%41
U"%%%%%
END SUB
CLOSE:IF S=42AND 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
