'=========================================================================== ' 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,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;yFyRUV U"CvqmpswQ]VfS(plr_^BN0%M=P%H)u\0%$oF U"*Jw?0#7L-s'3W+/7Hq2=jOn=KsNqy]ADpBG/^a'-*ncV^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.%-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_u'$KnZn?hP^cfW=2K^aa6F*d2k57Am/gfB.C+TWe\f;=qE2 U">W(a$lFNJpdDi/d-26SU07%#=j$j#_m<[GK4>t?o$:8df^5+_5cM)%d$5yL U",%uvhQ_rZnYis=%\uQUCZjVY)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=#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-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"jzfPGF'.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,VE#q]i$cgKaC.5B3G(/sJV-qhMLL9=H$^iKl)).xqENboX^bTQ:J%CkE3 U"2HKnjetICE+JP;1U*I\KlVGA\fFhFf0:RR>9e%'$\jwBBMpF 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^2F58i_&%%%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