[comp.sources.atari.st] v03i060: belltest -- Test out NewBell bell sounds

koreth@panarthea.ebay.sun.com (Steven Grimm) (06/02/90)

Submitted-by: cs325ec@ux1.cso.uiuc.edu (Gregory Lemperle-Kerr)
Posting-number: Volume 3, Issue 60
Archive-name: belltest

[Binaries will be posted to the binaries group. -sg]

BELLTEST 2.0

        by Gregory Mathias Lemperle-Kerr
        
        (for use with NewBell V1.0 by Dan Wilga)
        
        BellTest pops up a dialog box with the options:
        
                1.) FIND .SND - choose the .SND we are working with
                                it's speed will be shown in the
                                dialog box... see below.  If it is not
                                within 1-5 it defaults to 3.  If none
                                of the speeds light up... it's a bug...
                                but a documented one,... so it's a feature.
                                Select one before playing or else!
                
                2.) 1-5         Select the speed to play at... after I wrote
                                it, it turns out 5 is the same as 3... Dan?
                
                3.) Speaker     Play the sound, saving it's speed for
                                future NewBell use.
                  
                4.) QUIT        Quit the Tao Master's program.


        NOTES: NEWBELL.PRG is searched for in current directory, then
                in C:\AUTO, then in A:\AUTO.  If it can't find it, it
                will let you know.  (It won't work without it).
                
        Have fun...
                        -- Greg
      
        P.S. an effort is made to save the screen if memory is available.
                if not, deal with a messy screen.  (Since I don't know
                how to redirect output yet.  If you know, e-mail to
                cs325ec@ux1.cso.uiuc.edu)
                
VERSION 2.0 UPDATE:

                1.) FIND .SND became LOAD .SND.
                
                2.) Slider bar under speeds now adjusts speed in a wide
                        variety of increments.  Center of slider is
                        normal speed (at load).  As the slider moves to
                        the right, the SND is sped up in proportion to
                        x^2.  As it moves to the left, it is slown
                        down in the same way.  Slider adjustments also
                        affect the digitized snd file size.  To the right,
                        the file is shrunk, to the left it is expanded.
                        
                        This could be a great help, disk space and memory
                        space wise.  The .SND files sound as good at most
                        of the speeds I've tried.  So if a sound loads at
                        2 or 3, put it at one and speed it up with the slider.
                        If the slider goes all the way to the right and
                        it is still not fast enough, save it, load it and
                        the slider will reposition at center.
                        
                3.) SAVE .SND: although the 1,2,3,4 & 5 sounds are saved
                        when you play them (if the slider is at center),
                        they are not saved when the slider is moved.  To
                        make your changes permanent click here.  BE CAREFUL.
                        ****************************************************
                        Slider adjustments do change the file structure!
                        ****************************************************


Still PD... I think it's cool though.

-- Greg

        P.S. If you slow down a speed with the slider, memory on small
                machines (1K or less) may become tight.  I don't know,
                I have 2.5 meg, but a friend with a 1040 has had no
                problems as of yet.  You'll be warned if there is a
                problem.  I had an idiot friend of mine try it out,
                so it should be idiot proof now.  He caused version
                1.0 to crash by attempting to play without loading
                prior. :-)  That's fixed now.  As well as saving.

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 belltst2.lzh
M( PM;&@Q+7L)  !Q'   B[N%%"  "F)E;&QT97-T+F.:"=?]?U[_P _#XZSDz
M>V^_^Z^G*S.6DPC= %_B?N;">#5]TP%+.RKQU_K&'\ZTC_R"TJ7RF%)KHX4Sy
M;G"H;J%*ZG+G3()\V3<20M@B:H!;;6H%&<J7M5$XYM'SB[K'>VC[5PYRH/* x
M-H#H-OY^!O/3QV8.>!&K9OZ3UL9. XW(<WO-';\>X>XC!AE(BT/Y2JRV56^[w
M]Z-L-^$SRD@FCVP<0:7,_76=<1H"';5T3%;#,8[TXI "6]*'N%.KVO 0ZC2Cv
M]#ME,U60[=W$[@ 'G0W^Q_#38O?5447_#A*<8%_/D4*-\"MST./*VG0+=.@@u
ML*2_8FLJI<>O\F$^#J6/'FGH3\03LZ2.1UY(YP" *B"A?X=>03Y'2_R!G7KOt
M& $>"N"M(P=_MX:+1#\\(V& 0%[1*RO6?7!!<M" 5;WK6[0GTY",K+>G=W\[s
M\:M!2#>03L;.!M>7C4\4P/E"[YWTF< 5^KBR54G3&>6*]@&^35HM)F5],_72r
MY56SWSSG3;Y8O?-YVR5DBBNPW50KG[^5P^YHEICQ,7@=CXQ+#9(]$]U+ 8".q
MR'T22)Z$UGQ2&7NLG=ZF;60R([FX3!+>5)7AHJ/% :W8J46IO<<$]6'*I;&Kp
MV9=0!L68W!\QF,TG:G\SQ3UM](\:3ZP01)]3@C?:UX9/<AWB7G4%.=NI?0QWo
M['04\_^&]E*LEV&=MI2*QQ0_I*^[_27KGK41G#ZW+/I!ETNZD]<:X[O!7!<$n
MW9YF0NWB:BV\!A, 1 Z-0JT+"YY4B40Z9*E$ZHB=5\(L*'*A+0-8O8=FN"V2m
MW9L1N-Z<<QO21036W=8:F:?"%8;7%_-<W"9?^H@M$DZ &*.4)!J+<<M2A2LTl
M")L6I<A<I6.>3/4JA'&DW^[CPIN27G[%GYWQ\PX&PHT8N^33NYV!JS>W+,,Wk
M/H@.?R9_/GKQVH]2V8JCQ_*RB"@8**D-I0,&!H X1::Y?(HD_R8HI'X@HMP&j
MUOHY6TE#;WW292<0Y>418;(9W .,%*G I9204NP*F'5:F<I3C("EGCI4V)["i
M=PG,^2:,7:J##U7HR(6HU6*;\@;K3P+"W@/H>'ZW_KLY6S)R4J.?=3B-U/7'h
MV''A7V8(W%>4 -\ELT9>?5E>_E)NF7#E#^3(K>4LHT=WJ*4F<ZYRLU+*D!X.g
M.?Y<14=4]GF.83/_;D@65Y1RZC?-"M!TLKY@2 )+$">Y(QO,J9*^"Q'4>B6#f
MS^K3UPNU8$@#![5RP!Z=U$O&VD4S2)9>*^1$L]TR(61C. #PT'_PO%%J=@6Pe
M?MH[^;WYI?'_L-M_2_(,8KQXV8\K#0%.$2AS#GZH+B70RD+K8[2;QJ'>VO2@d
M_'E98$#<-/**M ]95QAM TXUY2PJYK1[*_'13NLV4F>>LOC<R3=QGEVGA;*Uc
M6R*1H^D1]QO6^4Z7[^-PY0GL2RD"M;;1LR((&"_\#(Y4^!OWG5W=<)'<M'L_b
MN0Q:>=["CPZ!0M\_#;(Q^N+%I,SY:<X\&H6Q!]LXVQN;#%L/_3J*FPA"M+U%a
M=7GBO[?3//R<FC.($QV=$>!5P+[;[M/T**C[>-L,CZ] ^0--GS3T-XQX>8__z
MYXI4M79FNMZ2*=);01F7UE),L._9RZ?J@<QY0JYGA6'7AEZ1SX%;H&4#HF/&y
M" ;%RTN5M\+-4X$G,X'-0&S-"B?Z+G#"PWQ)%IO6/J@ %/[Y1KC^<9KHGX0Rx
M[=\I[1'3Y?SZ"VR<>,]YEMN.5J^:M^*Z=#I^K^Y@PB.=?E'<_<*D/TG$EWP_w
M3$1F[9<4QB."+N5.&2-VZYW2SF^OM>W1G"U>,L5D@KMLGFUCST&>-U7(,GE=v
M]D>0T2S1]ZC^H:Q_"0%V/2-P<.<17/U\B_S)"+"G>8I?J0-E(-3TGHZBO<GUu
MRVD(=33UXC>82XPWMS"N=&CPTFA5+A4M+W0.M V=&(&ORU)Q9'8)P[3AUI+At
M]+[EN;B"L!.:X6A;)MK&B+GFHV9BG<UZT,LVQ*PHVQ-W^O_]K;A!Z1*(;#^>s
M9:,!YO,'H)/AY9H5QG25R]V:#"Q5&TA.@::0#/A!H5FI;.]]'I6V);--W:U9r
M*%\+'K2,(*I+J!=94PQ5S,ZXJC;JQ\?0!ESF+*7^N)/+78/MT+PR5Y5[,2SEq
M;H*5'2&UFLR'-,4S_1.JB=>P7&+@DF7<@6Q,[NOIDN\<BBEJN65NJY^B*8ESp
MC+$1K)$P23T0>,WPI\4[N;UDZR[T7OE=P1*5:RE_#$PA6JK!)2H,WPU0&-Z%o
M$,U"!G<'(WS=LWZE!77LV'*&^2\/+BL4CWHNLG(\DLIS"?!7!\6N) J&U+&-n
M/8)(_]X>K)>9J N@EU>CJZMM'U1?OM#HXB_UY8;:U8W*\SH0T!%QQQ"0FR&Sm
M<=V?Y2H!;.V5;*]=#=L$:U+U]>3J5M[S3&>^,5>S$HO]C8DNV_JL1$/K9OAKl
MT" ?Y^VR8FSV&X?@FI;F<V??LZ)$#W[_?=Q04+FT7X>+^&> Z @T9*N2>;'Vk
M:Q?,<R(&;XCY"#H%8@O[6:^1*,#L 4DW^XSK;J/ GG61;1>L1[- &!&&.X#8j
MRN\!J;KVB44+GSW4A@6%+ GM43Y%/TR16W$1D?5NPI;M6?'%[&LAQ8R\I(N*i
MNDM^;<3T2#4PG?8Y(&:D:J(OUF;1&'\8M0S+;-4C\58[26I; PL^FFH)AE!\h
M!^='->-H-@FGAW$>+^GVG7?E\B,>3!4];I S]L@6EQ$;$?S$A=J/[$N)!(0Ig
M0%C9:8)\V9 C=HQ8<)(G'?RGE:F!S+K2GGZ3=$Z";]Q22L?A_3Z+8C!#;& 7f
M_Y"0[M&G' ")#2\177D";)!]LA$R$_) U A_(-^1%E%1G#4Y#B0(ISMF$% =e
M034]!4"/*XW>38[PF?@OZ'!Y_AY)7S6=XD/3)RF!S\5GBP8("PPW3/U/J\&1d
M!CZIUQ>%'O% [9HZ\8[1@P_>F>LA(0,>O[(X:0?(*D'G&X/.?[E!B P(EI5<c
MGXHAA\_^Q1#'KW(IU>R7O$PU ^*LSO/02F=$Y,>^D?1VH&CHS;VR_U")[>Q#b
M>CT@AZD$H=SH@9W@M@B#G68($NY&WN'C9>#CQ@',P=B8@?)Z\,CA7YC7,(/@a
MLKSLBOGP%KF>I$[6O_'WWCGSR:+5H!\^*8UT=9&='TSL/ %:SCK4JVDEK6F)z
MK5 2. '<KEM9*6.Z.[M;;#T+NU 6GHTCT*V:_\*0.W)6W9_NT_VFD_W0@>HOy
MOJ!_VO.V6Z-GI21_OQ8Y_&?\@)_O! G8@G<18-T-@"(&+6QH,2TC!@  P@\ x
M  2XA10   Q"14Q,5$535"Y46%1U2N=T>QA^#$[^%K-]NMYF<M>6LB%_<"X'w
M3_WQ^?[MKBMV?: ?3ZU__LU;7\_R92_%/<]>.E%9Q3#@G:?*QC@ :F2 #K*Zv
MMD[4L?BRT3B;Q;V^O;&1W0A_IGC>R+2+M?T.XT5/DOGBZ-BC@+G':T6_"&HBu
M^9.N3 2VD@_5G<B844Q$E<:$+ZZ,:.70KNEU9*,!E@V("4(>]LU\PFHB'UL"t
M*H7UE1IR!5\YQIXHG9M2$F"ITC]F9] P1F]2,/"*B#_1]>KD_TNR\F5X0 Q#s
M>WPKW1S@D%\_[F^!BG22='CH?H24 R.:BC"S^?XT]1KZ9[%O;\7R& @F[.1?r
MX0TA,X1'S6?_(CR ^W#EMHO7Z;6I*<00D.&@-Z47RY-OS*ZL&<XQ?MHI[0OIq
MAO2*O 15&^77FJ_U(S2Q5C5[I(+E3O+S<AZLPZ*62]O9S=QM:II!Q[@/WXX"p
MU3ZX)4CI?<JS0EXQZW3#._UJN+N<=='WJN:X_3EE\$1JWBDD]DPB:_^2<VQ)o
MO:WHPBA*UC<JU^=G^O"WV]9V4,&&U02L:;&LC9_*"5)@E$]!/^1?_B67[?=>n
M9BO+<S"9F5!"_NTSR1DSP:0=_E]V)7.&*69D[>;2S05P:JS,E>V5ZT^ZA)^5m
M1I3_.E)7F;$C>A"E935<=TX*:+<]O?@G#XA)<A?MO-U1R(D5BS4PZE8%4*S*l
M85YO&?QRN*CX:[$- A<"H0FY-GJ9[R4],,ZK3V,/"&US7R6*?=!\WNL27/E%k
M6+0!0=4H&)E4HTJ9CZ U39*0?@71U5;5O:2,V_^G9T7JB'J>?B2J/M =1DBTj
MS/B/*X6IB%&R.:H S@UHE Q(O1J6^*)#CIY8DNHG*4!10M&ONU ZY(]DKF'(i
MA>]A(GJ5(Y 3OM%^,NE_E 1"':LKQCA]'8I^*XCJ/0>/UI44JZ0EY1-<SGIOh
MBD)V$AHN7^!KBU"V# R*,8DA+3_&AT5^!9:57PKJW0H/KW#N)E/(!8BYFO4Ug
MF\Q']#LL>5 OP 0GS+,/0=!EUW-/(]2V*#C@).J^'1(4]J&T(]H0$KKOT8]\f
M7ZX;0YEGVOC*N6ANMK[W:^"6NEZ=L ^Z%BC%=L;#2$X1_KMF9TZ1*PH9(8*Xe
MV0O$T4F'$%K5L]]>[L9$>IY_]=^=*,'E3?ETYW7/>4;);\FK\8^_,FXF0_CHd
M:(6+W)[T9:J3\7=YK5Y 2V8LJ!-31XY"^1&RPT]5?CP-1?MBZ%%6_IH9=(G3c
MN,JNQ'V6[#WC[+M39/&5UIBFL!V$JVN-ZY.X04_.-@/YP*S:2RDU.C/9E[XKb
M$5QS!.ZQ2=H[ILS"!*19J<&A>OJ LQX^I\U(R9GHMOC#:Y,%A0>\ZR0=N I3a
M>;=>!+D]60)MJ_ P(CA@I(1H'%DQ4G1BFN>+__8TQ;#@\6(;F;)V,^!(B_GFz
M(T1%4XY?WG_\5"?6Z<719HB0^/)H>CR5NEQAWJ61=2CN(QWH<CE.ND?4CSL9y
M+^)FLNK6K?A4@K^]\76$>)[%![-\+,=R;)US=>D7>5J8]U6(H@ETKP8^Y$@/x
MG]=)M[3!+9VVJ<[;G9Q\SCX54HOQQ?#'TRYCU)'%@2\E0<(+]'NN>CU__KM?w
M .&.*0^01\8NNKWU6V.+GX 99948+IQV4J4D4_7]^B"%:;%KH3@?(J*?(==)v
M#357?U<P:??]9YV=/:3_A)CG;&>$2S5BZ^0?]_<>-/+5S6K;):!+-LG:;+B u
M+1\UWIW8=2.>30N/CNAJ-EM_XN)0:^>QMCO!N2'XX)E/7OIEK9[S'6MB.,0Jt
MYVC2>C9,:,*N7V+><[7_FVQ>0YC2W3J6C+X8*_"U8PV$\).^7YEL=[4>1U1-s
M*BJ\M!7QE8:;KN)PCSM;L-%CR\5=NS.PC-T4<UG\Z>7P#6-+AH1SZA<RGT[9r
M(3&0#/7DFX,Q<0EK3VJ/"ZC+3#OIJ_^V/PY^KK2&^$YCN?*=0HF+/L"$Y/*2q
MH6UW(_2:"-3,68OHDQ5?"VE$UK4*'$\J9]SNUX&Q K)LA[QPN!]EQH74,_-#p
M;8RH2Y&JAAGQ7>W@:O/Y[#75?E^T^7<KQNN<9:MO7=,Z0W1H=67'%Q:O[C3Io
M2=&96OB,5:&7U=S$K 7@J1VX(&HM;&@Q+8T%  "5$P   ZZ%%"  "F)E;&QTn
M<W1R+F/_8?^ >W$^OOUF#],/_8'\]=W]WGZ ?QY][Z:_)LZZIX^9RU;6>#H]m
M#J]KI=N6^Q9]WX_#"N/E<VMS#H/,CRRST?:>.,_?S0K>!&HHK[8%Z[@T.UE;l
MBO$3B@3/B^Y%?P82! F\P@$X"?Q+3%@]6^N .7A+F+6Z/81_*]1&V:W/7;38k
M "6>)M\2WN!4=-HWS/D8$=E*L=D*XG_)OB@!Y3I;L95?4<^CI^<YLQE5X,==j
M%82S7["KW\GN1*065:/0(XT[W@@[9$(.%&R(#64=]Z (3[ 8$"]4H-@PVR4 i
M;OR@W]S!O\.S0B8#&ZJ-P-Q*?/PM^'X&AIQW]V0:]:P;[=K2*#L;QFA9YX&"h
M/H&_R;%ZB0;H-/2W[COL#^TF_LS.9;Y3S -,&'F8T3&J7]8-]QW= ^(JK&1Ug
MC\<QYDX!_X#XA\J*+;NX-^*K<&W^ W0$#=F4=][_2-V@") -"6S6#;ELZ W4f
MI?4=HP1#0;\L?E!ND=_J=YBV<@T,'><5,C/,3)?HJ+BJJ_*MG#I>JC.#>BWMe
M03[9KPB?4P? &QMS;%)R1I@Q"=;JI3K!R=;!'?4.QH!LE1<=@;RC-[E>_$:=d
MMV9^#3!D#0 R>:',K& U[O9W.V^ TZ;I18QC3N%N_(31K?X&DI#1M-OM=S$=c
M[*&<,M^3+:=G TQ9!O>E#I4N;BZ!K7<7.R[RIR1/8W4!=2 Y5=>MHFV+%8/,b
MMW^T&GW9 TZ0**$;Z*RTC:HMY%3*Q2R83>?-9?P-*7B))Z-4D5BK!$RW7EZMa
MK,^YHG TD5+63(WUUGTJFQE4E)$S;KJKRU:A^[9RF1^XTGR@JEC2;<I;D@JFz
ML4S\$]WA//JIO<S*S6;LXL)4(_$DVW<XXHQZ8%%4=NNM)B;:[U\5F)>N1XCLy
M>-#ZJ0MT.T(7U2:,E]EFC>DM\<G8$GK< ;Z';!HQ4F^GF9+'$4Q54U#$Q68&x
MY8T03!UR;B^E))^2N:TKDH],U!R=_TAVK'+<VOQ;TZP_ZNF])S*QCMZ/,O>)w
M;B]2E0G7?FAD)9J!YN02\$<XUE>'?RS: :^\-F-AR+55E@7Q;1Q-PDP":<6Mv
MCIZ">0FZ@P<45BQ]FHX\._J8\",X_QJ2O+;V3CYZXT^>W;,$[73R^^NT 4GTu
M0'+EV'Z[8FM[0GY2DM-4$?!?B9Z17=^[D!AN4Q!I%==TO!0GP9$V@ @ILA@Qt
M1U8-6>XRGOI6Q6?M#/<;]L+04,*_V=@7@H9QQ\D$=ZLD&=W$LD+UO>H]7A%Gs
M))%L\GG,BW*^:P2+P;C48N1(<D,%5G!V5,##5V"N 6_RD[6!\AYMM(H^K@;8r
M9<CD3;EK5"?Z'Y+[ZL&F6*HZS=<H/JX4ZRD!0;L[IT(JD_+: U(/]$5Y@,F:q
MN09;_VK=BTX6B7=(*3?G/CWUG B"4U<B$%V'T85*Q$1=555-'\+E+JE8"(TZp
M[?(A/1HD:1#9(C>CUR$1_:-&\: (B*N.5G_.*WF)Z>KX<5,.>H%Y1$S+M?A!o
MG1Q;2*59(I'B4ZGR10P@'_!'W5<3S;-O-6$_035)6;CF'WKZ1S#]2;>7IOK]n
MJK%3:.,>PHHDVJ(/GDVTVZL$)7*VDW%>NV^$J3=!?_5&Q^R3!WN3 E;$4ZG'm
M3$<_LDRGXSYWELY[3O$27QS$V#FW+H._VU!9 =M.9$CF\L[)ZC+T\]-.AK&;l
M8";X%Z%:"1I9;!_I./R.^]U8S/^EGRXTZ)ZFV5'L Q?''^"#5#^X+W(?'*"=k
MXQ\]FOF9U^?-]FJ/SW>VR:X_=I>A?P(YT!TF<<^$9>][D_Q'><VC]DNPGZ%Pj
MQRP.?D_2TIJ2L!8&'+47RZUV^^$-YFY@Z M>.MX86#'<'Z']A-$+<E#I[_36i
BX-T 5"N4# I';989O!QTU\R.@[DC/2H@I@T!.GKYZN_N *']h
 g
end