5 (null):(null) 15:POKE650,128
6 PRINT"[147]GLIDE DEMO"
7 PRINT"USEFUL TECHNIQUE FOR SFX"
8 PRINT"USE + AND - KEYS TO ALTER FREQUENCY"
9 PRINT"PRESS SPACE TO RE-RUN"
10 INPUT"STARTING FREQUENCY";FQ
12 INPUT"INCREMENT";IC
13 IFIC>5000THEN12
15 IFFQ<200THEN10
20 (null) 1,9*16+8,240
30 (null) 1,FQ:(null) 1,33
40 GETA$:IFA$=""THEN40
50 IFA$="+"ANDFQ+IC<65535THENFQ=FQ+IC
60 IFA$="-"ANDFQ-IC>200THENFQ=FQ-IC
65 IFA$=CHR$(32)THENRUN
70 GOTO30