rendered paste body' {$STAMP BS2}
' {$PBASIC 2.5}
'Chapter 3 Activity #3 - START/RESET INDICATOR CIRCUIT AND PROGRAM
'Josh Katz and Wenkut Kodoodoo
'We're gonna use the piezospeaker and stuff
Q VAR Word
Q = 60*25
DEBUG DEC q
i VAR Word
FOR i = 1 TO q
PAUSE 1000
NEXT
DO
FREQOUT 4, 500, 5000
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 4000
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 5000
PAUSE 20
FREQOUT 4, 500, 5000
PAUSE 20
FREQOUT 4, 500, 5000
PAUSE 200
FREQOUT 4, 500, 4500
PAUSE 20
FREQOUT 4, 500, 4500
PAUSE 20
FREQOUT 4, 500, 4500
PAUSE 200
FREQOUT 4, 500, 5000
FREQOUT 4, 500, 6000
PAUSE 20
FREQOUT 4, 500, 6000
PAUSE 200
FREQOUT 4, 500, 5000
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 4000
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 5000
PAUSE 20
FREQOUT 4, 500, 5000
PAUSE 20
FREQOUT 4, 500, 5000
PAUSE 20
FREQOUT 4, 500, 5000
FREQOUT 4, 500, 4500
PAUSE 20
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 5000
FREQOUT 4, 500, 4500
FREQOUT 4, 500, 4000
LOOP