Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.2 9/17/84; site aluxp.UUCP Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!aluxp!szmanda From: szmanda@aluxp.UUCP (szmanda) Newsgroups: net.sources.mac Subject: Wave Maker, a program for building harmonics and making wierd noises. Message-ID: <226@aluxp.UUCP> Date: Sat, 6-Apr-85 15:03:44 EST Article-I.D.: aluxp.226 Posted: Sat Apr 6 15:03:44 1985 Date-Received: Sun, 7-Apr-85 05:30:08 EST Organization: AT&T Bell Laboratories, Allentown, PA Lines: 341 Ths program, written by Gary Galbreath, was downloaded from CompuServe. It's a nice way for kids (and parents) to experiment with harmonics. Beware of dog's reaction to the sounds. Our pooch started chewing on my shoes - while they were still on my feet. Chuck Szmanda aluxp!szmanda (This file must be converted with BinHex.Hex) #APPLHARS$2000 ***COMPRESSED ***RESOURCE FORK ( 0 "@" G @ 0X ( ( ( ( ( ( ( ( !\ 0 ! . !P 54 50 8PI7879E($UA (&ME<@ =!4%!, " =615(@,2XP '$A! (%)3 4E#3B, (!&4D5& " ! & ( D 0@ ($ "! .! ( #@0" X( 0 ." $ ( X0 ( .$ " #A @ X0 ( .$ " /Z( 0!\G $ ?#X (( Y/@" $7\ 0 (< $ "' ! AP 0 (< $ "' @!!P (" $' 0"!P $ @ @0 ($ !" ) !@ ' ( V 8P ,& !\#!@ ?!@, 'P8# !\, 8 ?# & ( !\8 , ?& # 'Q@ P!\8 ,!_V@# ?_< 8#^_@& _G\ (,!_?P# ._^ 0!;_@& &/@!@!CX 8 8^ & &/@ P##X (# ,/@ 8&#X &!@^ PP ,, !F / !@ ( " _____X &JJ@ !JJI$1:JJ &JJ@ !JJKN[ZJJ (.JKJJKN[ZJJ &JJO__JJJ, 8 D@&__I(!@ "A ;_^ (,$!@ " @;_^@$& (!!O_Z (X @!6__H 5@ " "?__ (/__ ( !7@ % ( L & $&"!M697)S:6]N(#$N (#(@(" P-"!!<')I;" Q.3@U +0 - %T ]PA- (%1H:7,@<')O9W)A;2!B=6EL9',@82!W879E9F]R;2 @ (&9R;VT@=&AE('9A;'5E2!' (&%RI>ZA02&W[1DZZ'8183T7M\;I#[?$$)-DDV4AM (/'"/SP !#\\ !@V+?' 64,_ S8M\;Y90S\#J*="IS\\ ( $ 2&WR"B\\_____ZF](!\K0/*F.WP */'*.WP "O', (#M\ 4_QSCM\ ?GQT$*G2&WR"DAM\U]3KH<\%A/ ("\ /SP! $)G+SS_____0F="IZD3(!\K0/*F+RWRIJAS ($7M\HJ4)N (/_X#&X __X;@ 0#8N__A(P^>#1>WQZB0*UH(O S8N (/_XQOP 0M9\ / _ S\\ "TV+O_XQOP 0M9\ 2(_ S\\ ( !?J*=2;O_X8+A(;?':0F="9S\\ 04_/ $%J*=(;?'B (#\\ / _/ !D/SP!ZC\\ 2*HIT)N__@,;@ #__AN !0 (#8N__A(P^6#1>W[4B\#+PI"ITAM\=JH\R ?)%\F'R6 (#@ 2&WQVDAM\7"HI3\\ (_/ #J)M(;?':J*$_/ ! (#\\ &HFZCT4F[_^&"H3KH3W QM 0#[4&< 7ZIM#M\ (/__^[I"9S\\__](;?*NJ7 P'QU __\P+?*N8 !3D)G ("\M\KA(;?*JJ2PP'SU __PP+O_\8 !!$*G+RWRN*D] (" ?+P!.N@$^6$]@ $ 2&WRKB\M\JJILV /(O+?*J ("\M\KA(;?'"J25@ #@0J>I)" ?)BWRJK: 9P #"\M (/*JJ1]@ "D+RWRIJAS.VWRNO,,.VWRN/,*2&WS"JAQ ($)G+RWS"B\M\J9(;?+RJ6PP'SU __I*K?+R9P ;D*G ("\M\O*I6B ?*T#[3 RM "OM,; ##\N__I.N@&N (%1/#*T *^TQF ,/R[_^DZZ!2!43PRM "_M, (&T !@,K0 [[3&X P_+O_Z3KH#'E1/#*T 4 (/M,;0 !DZZ"D1@ @ +^[O\$_R3_$O\DL'P !F0 ( ,XT P.P#H3OL & "8O+?*FJ',O+?*FJ2).NA2D ("\M\J:I(V Q30&< _K!;0&?<8 #^?$ZZ#"!,WP ($Y>3G5.5O_42.< $7N_]0M2O_6)BX "'00Y*L]0__@ (#UN K_WC N_^!@ #(#&X ?_>9@ ,$*G/SP 8T*G ("\\_____ZE\(!\M0/_:0JFIBT)G/SP @4*GJ84P'[!\ )F , ($)G2&[_XJFV,!]@ ,0F=(;O_BJ;8P'V "9.NAH& (#\M^T9.NAFP5$\[? $ ^U!@ .4T!G /\VD'P _V?< ($)GJ3A,WP 3EY.=4Y6__Q(YP ,"X "& 7 O+?+R (#\N BI74)GJ7,P'TI 9P 5D)G+RWR\JE@,!\]0/_^ (#8N__Y3;O_^MGP &\ #8O+?+R/R[__JEC-BW[2,;\ ( .)"W[3$C"XX+6@D7M^PYT"I1N__XU@C@ /RW[2$ZZ ( W<5$]@H"\M\O)"9ZE=8 !'"\M\O(_+@ (J5U"9ZES (# ?2D!G !60FW[#G0*E&[__C6". _+?M(3KH-9E1/8* O+?+R ($)GJ5U@ "F0FW[#G0*E'(X #8N__ZV0F< "PV+?M( (,;\ XD+?M,2,+C@M:"1>W[#G0*E&[__C6". _+?M( ($ZZ#-I43V "20? 49P#^C%- 9P#^_%- 9P#^@%- (&< _O"0? !J9P#_7DS? !.7DYU3E;__$CG P+@ ( (& :HO+?+R/RX "*E=0F>IIIII76 '!"9R\M (/+R+RWS"B\\_____ZEH,!\]0/_\2F[__&< "Q"9R\M (/+RJ6 P'SU __XV+O_^MFWP+&< !(_+O_^3KH4^E1/ (#MN__[P+& "*0? 49P#^]%- 9P#_2E- 9P#^Z%- (&< _SZ0? !J9Y),WP 3EY.=4Y6 !(YP .WS__/N" ($7M^^PF"BM#^XHK? /[CD*M^W8[?/__^[I"K?N\ ($*M^\!"K?O$0JW[R$*M^\Q"K?O00JW[U$*M^]A%[?OR ("8**T/[W$7M_/(F"BM#^^!%[?WR)@HK0_OD1>W^\B8* ("M#^^@[? !^^Q%[?NZ)@HK0_ON3-\ $Y>3G5.5@ ($CG !"9TAM^VH_/ $ 3KH3RC ?3-\ $Y>3G5.5@ ($CG V+@ (2,/E@T7M^U(O,C@ -BX "$C#YX-%[?'J ("0*UH(O ZCV-BX "$C#YX-%[?'J) K6@B\#J*0_/ $ ($AM\>(V+@ (2,/G@T7M\>HD"M:"+P-.N@%6WOP "C8N ( (2,/E@T7M^U(O,C@ 2&WQXJCV3-\ $Y>3G5.5O_^ ($CG V+@ (2,/E@T7M^U(O,C@ J/4V+@ (2,/E@T7M (/M2+P,O"D*G2&WQVJCS(!\D7R8?)8 X $AM\=I(;?%P (*BE/SP C\\ .HFTAM\=JHH3\\ $_/ !J)L_/ " (#8N A(PW0)Y:-%[?,.-#P! 91R. _ JB30F[__@QN ( #___YN T-B[__E)#/P,V+@ (2,-T">6C-"[__DC" (.."UH)%[?,.-#P! 91R. _ JB14F[__F#$J/1,WP ($Y>3G5.5O_T2.< # N A(P"(M^V).N@\T+4#__# N ( *2, B+?MB3KH/(BU __A"IR\M^V8O+O_XJ&@@'R\ ($*G)BW[8I:M^V8O R\N__RH:" ?)A_6@"U#__1"9R\N (/_TJ&PP'TS? !.7DYU3E;_V$CG !(;?%@J)T_/ . (*B<2FX $&< #A(;O_X+RX "$ZZ 5103T*G/SP !C\\ ( %J&D@'RU _]A"IS\\ AT_/"<0J&D@'RM ^V9@ H ($AN__@O+@ ,3KH!'E!/0J<_/ %/SP !JAI(!\M0/_8 ("MM^V+[9DAN__!(;O_X3KH ^%!/2&[_Z$AN__A.N@#J (%!/2&[_^*BA/7P ?_>#&X $/_>;@ MB1N P_*@ " ("1N @_*@ "3KK^VEA//4#_XB1N P_*@ &)&X "#\J ( &3KK^P%A//4#_YB1N P_$B1N @_$DZZ_JI83SU (/_@)&X ##\J 0D;@ (/RH !$ZZ_I!83SU _^1(;O_@ (*BA2&[_^*BA2&[_^$AN__!.N@!64$](;O_P2&[_Z$ZZ ( !(4$](;O_H2&[_X$ZZ #I03T*G+RW[9B\N_]BH:" ? ("M ^V92;O_>8 #_1$AN__BHH4AN__"HH4AN_^BHH:B> ($S? !.7DYU3E8 $CG D;@ ,(FX "#5I ( B1N ( ,(FX "#21)&X #")N @U:0 & 8D;@ ,(FX "#5I ( $ 1,WP 3EY.=4Y6__Y(YP )BW[3):\ %#0M (/M(2,*V@F< 2@V+?M(2,/E@T7M\OHO,C@ 0F>I8SMM (/M(^THF+?M,EKP 4.T/[2#8M^TA(P^6#1>WR^B\R (#@ /SP :EC0F[__@QN ;__FX #@V+O_^2,/E@T7M (/+"+S(X #8M^TC&_ .-"[__DC"XX+6@D7M^PYT"I1R (#@ /P*I8U)N__Y@P$AM\>)(;?%PJ*4_/ "/SP ZB; ($AM\>*HH3\\ $_/ !J)M"9TAM\>(V+?M*2,/G@T7M (/'J) K6@B\#3KK]9-[\ HV+?M*2,/G@T7M\>HD"M:" ("\#J*0V+?M(2,/G@T7M\>HD"M:"+P.HI#\\ 0!(;?'B (#8M^TA(P^>#1>WQZB0*UH(O TZZ_1K>_ *-BW[2$C# (.6#1>W[4B\R. !(;?'BJ/9,WP 3EY.=4Y6__Y(YP ($)N__X,;@ #__YN X-B[__K9M^TAG F-B[__DC# (.6#1>W[4B\R. V+O_^2,/G@T7M\>HD"M:"+P.H]E)N (/_^8,!,WP 3EY.=4Y6 !(YP ,"X "& &)"IS\N ( */SP#Z*AI(!\K0/N\8 8D*G/RX "C\\ ^BH:2 ? ("M ^\1@ !,0J<_+@ */SP#Z*AI(!\K0/O,8 -D*G (#\N H_/ /HJ&D@'RM ^]1@ @_XS_HO^X_\Z0? + (+!\ 1D ,XT P.P#H3OL $S? !.7DYU3E;_[DCG ( 2&[_^#\\ /8_/ "2/SP ^S\\ )6HIT)N_^X,;@ 4 (/_N;@ ($AN__A(;?%HJ*5(;O_X/SS__S\\__^HJ5)N (/_N8-@_/ $ 2&[_^$AM\>).NON\WOP "DAM\>)(;?%P (*BE2&[_^$AM\6BHI4)N_^X,;@ 4_^YN @2&[_^$AM (/%HJ*5(;O_X/SS__S\\__^HJ5)N_^Y@V$)N_^X,;@ & (/_N;@ 9DAN__ V+O_NQOP 'EI#/P,_/ H-B[_[L;\ ( >UGP %3\#/SP EJBG2&[_\$AM\6BHI3\\ 0!(;O_X ($AN__!.NOLHWOP "DAN__A(;?%HJ*5(;O_X/SS__S\\ (/__J*E2;O_N8))";O_N#&X __N;@ :$AN__ _/ % (#8N_^[&_ 4UGP KS\#/SP R#8N_^[&_ 4UGP NS\# (*BG2&[_\$AM\6BHI3\\ 0!(;O_X2&[_\$ZZ^K3>_ * ($AN__A(;?%HJ*5(;O_X/SS__S\\__^HJ5)N_^Y@D$AN (/_P/SP !3\\ 0X_/ #(/SP!'ZBG2&[_\$AM\6BHI3\\ ( $ 2&[_^$AN__!.NOIBWOP "DAN__A(;?%HJ*5(;O_X (#\\__\_//__J*E";O_N#&X __N;@ :$AN__ V+O_N (,;\ $'6? #Z/P,_/ /-B[_[L;\ $'6? $B/P,_/ > (*BG2&[_\$AM\6BHI3\\ 0!(;O_X2&[_\$ZZ^?3>_ * ($AN__A(;?%HJ*5(;O_X/SS__S\\__^HJ5)N_^Y@D$)N (/_N#&X __N;@ :$AN__ V+O_NQOP 0M9\ / _ S\\ ( M-B[_[L;\ $+6? $B/P,_/ !?J*=(;O_P2&WQ:*BE (#\\ 0!(;O_X2&[_\$ZZ^8#>_ *2&[_^$AM\6BHI4AN (/_X/SS__S\\__^HJ5)N_^Y@D QN #_^FX P,;@ (/_X;P '$AN__A(;?%HJ*5(;O_X/SS__S\\__^HJ6#2 ($S? !.7DYU3E;__$CG ]? !__P]? !__XV+O_^ (+9N !!N J)&X "!822(,D;@ ,%!)(@K9"9P !D)N (/_\4JX "%*N Q2;O_^8,PP+O_\3-\ $Y>3G5.5O_X ($CG#Q!\ +Q\ /]N @-BX "$C#= GEHTC&) ;C@M:" ($7M\PY"W[#DIR. !G !^? "\? #_;@ =#8N ( (2,-T">6C2,8D!N."UH)%[?,.-"X ",3\ Y(Q"($ (..!U(%#[?L.2,4B!>.!0>WM[# Q* # \!@ -"X "$C" ('()XZ)(QB(&XX'4@4/M\P[0<2@ -8 X #8%UD0Z U)% (+I\ /]O &FGP _U)&8(921& _UI^ #9\"<1\ +Q\ ( #_;@ >C8N A(PW0)Y:-(QB0&XX+6@D7M\PXT,C@ (+1';P '#8N A(PW0)Y:-(QB0&XX+6@D7M\PX^,C@ (#8N A(PW0)Y:-(QB0&XX+6@D7M\PXT,C@ M$ML < (#8N A(PW0)Y:-(QB0&XX+6@D7M\PXV6C2,8D!N."UH)%[?,. (#0R. "42S\"/SP :AI(!\M0/_X0J.B2,8B!N.! (-2!0^WS#A6Q* $X %)&8,@_+@ (3KKU9E1//RX "$ZZ (/3<5$],WPCP3EY.=4Y6__Y(YP J3!"IS\\ %(;>_L ($ZZ"(I83R\ J3$@'RM \;(O+?&R2&WO[DZZ"')83R\ (*DS+RWQLB\\1%)64JE-0J<_/ $ 2&WP 4ZZ"%)83R\ (*DQ(!\K0/&V+RWQMDAM\ 9.N@@Z6$\O *DS0F[__@QN ( "__YL <-B[__DC#Y8-%[?&R+S(X $)GJ352;O_^ (&#6D,_ S\\ "@V+O_^QOP 'M9\ ( 5/P,_/ "6J*WR^B\#+PI"IR\M (/*F2&WQTC8N__Y(P^6#1>WP#"\R. _/ $ 0F="9S\\ ( !/SP C8N__[6? 42,,O ZE4(!\D7R8?)8 X %)N (/_^8 #_="\M\OH_/ !J6-(;?'2/SP !3\\ 0X_/ #( (#\\ 1^HIT*G+RWRIDAM\=)"IS\\ 0 _+?M&0F<_/ ' (#\\ ! O/ JI5" ?*T#RWD)N__X,;@ #__YN T ($)N__P,;@#___QN @-B[__DC#X8,T+O_\2,+6@D7M (/OR0C(X %)N__Q@V%)N__Y@Q$ZZ\5Y.NO'D3-\ $Y> ($YU3E8 $CG O+?*FJ6E.N@ 8/RW[2$ZZ\>)43TZZ (/:83-\ $Y>3G5.5O_^2.< $)N__X,;@ &__YN L (#8N__[&_ >5$,_ S\\ ".HDS8N__Y(P^6#1>WM%"\R (#@ J(12;O_^8,P_/ !&/SP J*B3+RWM-*B$/SP 4#\\ ( $)J),O+>TPJ(0_/ !&/SP #ZB3+RWM.*B$/SP SC\\ ( "YJ),_/ !!J(,_/ #./SP S:B3/SP 0JB#/SP SC\\ ( #AJ),_/ !#J(,_/ #./SP ]:B3/SP 1*B#3-\ $Y> ($YU0?H"FBM(__)#[? N*TG_]D*G0F=.NN;T7$]"9TZZ ( &P($^1_ ( "@+5E/J7583TY6_\H@/ !^EK"D'M (/ L0EA1R/_\64\D/$-/1$4O C\\ &IH"1?+!+,O #_ (/__6(9![O_*,7@) 80^[__#(\ 0!A9F<.(5$ )$7M (.T4(4H (* ",CP! 6%09R0D36$F)$9A(D?M 36^ DT (* "(A%K#J ")!'4BB:"4(M1R?_T3EY.^O]*H (F$6L$ ("@-80R@ B81:P0H!F$"3G6@ BH1V;)8 %'+__9.=21X ( I0)%+4Z@ 8,!)'Z@ "M)MG!DJ;4ZH>4*X"=99CZC8(=\)\D*X ( J$0K@*9$*X"FA.=4CG, T <3 )@%(0\; 2$-"0]2# ($A P,%(0$) T(),WP ,3G5.5@ 2.<( $JM\"AG!B1M (/ H3I)X +A\ IL##\$3KH &E1/4D1@[C\N A.N@*J (%1/3-\ $$Y>3G5.5O^P2.<.$#@N @F;?_VN'P &T& (+A\ EO$#M\__W_^G#_3-\(<$Y>3G5(Q"8$XX,Z,S@ ($I%9RZZ;?_\9RBZ?/_W;0:Z?/_Z;QQ(Q"8$XX,] ($YU+PLO+@ ,3KH!0E!/, 1@Z$Y6_W!(YPP0)FX "!8K ( !2(-*0V98%A-(@[9\ #%M3A832(.V? Y;D06$TB# ()9\ # ]0__&1>[_<"U*_\)"+O]P0F[_S$)G2&[_L$)G ($ZZ 2XP'SH 2D!G#CM%__IP $S?"#!.7DYU,"[_QF#R ('@!/43_S$7N_W M2O_"0B[_<$)G2&[_L$)G3KH ]# ? ($I 9B O"TAN_W!.N@%R6$\O &$:4$]*0&8&,"[_QF"R (%)$8+X[?/_=__IP &"D3E8 $CG"!@F;@ (*&X #!83 ($B#/P-.N@"05$\_ !842(,_ TZZ ()43S8?. .80$I$ (&<*, 1,WQ@03EY.=21+4HM*$F<()$Q2C$H29L)P &#D (")?,!\@7V8$H!1@ J04/H!.T2!O 0P+P ($AAG"K( (&;X( A3@$YU0H!.=2!O 0@"")O @0V6;\3G4P+P $ (,!\ /^P/ !@8PJP/ !Z8@20/ @3G4P+P $P'P _[ \ ( ! 8PJP/ !:8@30/ @3G4B7S ?(%]F!* '8 *D!SZ ($[1!7-H96QL,"W__F[_X#%\__P &#%\ $ &J(&0>WQ?$)H ( 0("WQKF<*($"@(T'M\:Y"D$Y>3G4 ,8___M//__ (.U!___M1O__[4O__^U0___M5?__[5K__^U?___M9___ (.UR S%S= #,FYD ,S2XN+B!I9B!Y;W4@=')Y('1O(&%D:G5S ('0@=&AE('-O=6YD('9O;'5M92P@=&AE('-Y *$ I "G *H K0"P +, M@"Y +L O@#! ( ## ,8 R0#+ ,X T #3 -4 UP#9 -P W@#@ .( Y #F ( #H .D ZP#M .X \ #Q /( ] #U /8 ]P#X /D ^@#[ ( #\ /P _0#] /X _@#^ /X _@#^ /X _@#^ /X _0#] ( #\ /P ^P#Z /H ^0#X /< ]@#T /, \@#P .\ [0#L ( #J .@ YP#E ., X0#? -T VP#8 -8 U #1 ,\ S #* ( #' ,4 P@"_ +T N@"W +0 L0"O *P J0"F *, H "= ( ": )8 DP"0 (T B@"' (0 @0!] 'H =P!T '$ ;@!K ( !H &0 80!> %L 6 !5 %( 3P!- $H 1P!$ $$ /P \ ( Y #< - R "\ +0 J "@ )@ C "$ 'P = !L &0 7 ( 6 !0 $@ 1 \ #@ , L "@ ( < !@ % 0 ! # ( " ( 0 ! 0 ! ( " ( P $ 4 !@ ' @ "0 * P #0 . ! $0 3 ( 5 !8 & : !P '@ @ "( )0 G "D *P N # ,P U ( X #L /0! $, 10!( $L 3@!1 %0 5P!: %T 8 !C ( !F &D ; !O '( =@!Y 'P ?Q0 06)O=70@5V%V94UA (&MEDA!4E, "& ($).1$P "20T]$10 # )Y)0TXC SDE#3TX #: ($%,4E0 #F (;__P0 U0 0]^ &/__P >( 0\N ( !E__\ .P !C__\ " __\ C ( /__ +@ !K?/__ .@ ! ?__ (" )K( 0#__R (Y8 '__S !.0 ( __\@ 3( " __\ !: "WA__\ %> $ @?__! #1 !#X( ***END OF DATA ***CRC:B521