'(z XBLREPEAFTSFTSDELATIMLL?RFX @@@@ @ @ @ @ @@@**SOUND PROGRAM BY JERRY WHITE 8/18/80= +%;@,;@ ,=6. R(,(!PITCH=ANY NOMBER FROM 0 THRU 255.R(!WE WILL MOVE THE PITCH IN LOOP 2.d("(L1=0UTER LOOP 1 VOLUME.d(=TYPE ANY NUMBER FROM 0 THRU 15 AT PROMPT FOR M, TO, AND STEP.e(!(L2=INNER LOOP 2 PITCH.C(TYPE ANY NUMBER FROM 0 TO 255e(AT PROMPT FROM, TO, AND STEP.#((HIT TO BEGIN# ! +(!( Ġ 8AR@,6-H:,$@86-?0@@+0@@?0@@@-@@(( TYPE DIST 2 @46@ B SS")"@)"@)"@)"@)"@)"@@6"#-@@(# @0$A-@@)(TYPE PITCH 3 @@7A B& AU@B(#-@@(# @6*A-@@)(TYPE L1 FROM 3 @F7A B, @3@H.#-@@(# @60A-@@ )(TYPE L1 TO 3 @R7A A@2 @3@T4#-@@ (# @H6@-@@(( TYPE L1 STEP 2 @X6@ B8 @3@`:#-@@(# @T<?-@@'( TYPEL2 FROM 1 @d5? B> AV@p@#-@@(# @`FA-@@)(TYPE L2 TO 3 @t7A BH AV@J#-@@(# @pP@-@@(( TYPE L2 STEP 2 @6@ BR AVAT#-@@(# @d#! AP# Ax< AP/2<(>:A%,$($( ҠĠź ,(,( 100 FOR L1= TO  STEP ))( 110 FOR L2= TO  STEP %%( 120 SOUND 0,-L2,,L12( 130 NEXT L2#( 140 NEXT L12( 150 RETURN-@A ,`-@@)-@@ D( HIT START TO RESTART`( HIT OPTION TO REPEAT @-@@ TL-@@ 0( HIT TO RESTARTL( HIT TO REPEAT h-@@ | %%2 F:B2y,"@@ F:B2y,"@A A6-%@ A - -P) A`2&) B  $pM(+( ĠĬ٠ή M2-@AP  @ D5:P118P1.BAS