1 REM JAN DEROGEE  (2013)
2 REM KILL FC-III BEFORE USE
3 REM OUTPUT TO PWM OF CASSIOPEI'S EXPANSION CONNECTOR
10 RESTORE
20 READ A
30 IF A=255 THEN 100
40 !DTMF,A
50 FOR L = 0 TO 250 : NEXT L
60 GOTO 20
100 END
200 DATA 0,6,1,2,3,4,5,6,7,8
299 DATA 255