1 ' This generates interesting sounds from the speaker.
2 ' The speed of the sequence is based on the value read from the 
3 ' DIP switches.

10  INTEGER X,Y
20  FOR X=1 TO 500
40  PITCH (X)
42  FOR Y=1 TO  QDIP 
43  NEXT Y
45  PITCH (500 - X)
50  NEXT X
60  PITCH (0)
70  PRINT " THE PRIMER"