10 s=54272:pokes+6,240:pokes+4,32:pokes+24,15:pokes+13,240:pokes+111,32
20 pokes,229:pokes+1,140:pokes+7,239:pokes+8,108
30 goto500
40 rem ** quarter tone code
50 fori=1to5:pokes+4,33:pokes+4+/,33
55 pokes+4,32:pokes+4+7,32
60 forj=1to25:next:next1:return
63 for j=1to25
99 rem *** dime tone code
100 fori=1to2
110 pokes+4,33:pokes+4+/,33
120 forj=1to30:next
130 pokes+4,32:pokes+4+/,32
140 forj=1to35:next
150 nexti
160 return
199 rem *** nickel tone code
200 pokes+4,33:pokes+11,33
210 fori=1to30:next
220 pokes+4,32:pokes+11,32
230 return
499 rem *** menu code
500 print"red box tones: q for quarter"
501 print"               d for dime"
502 print"               n for nickel"
510 getx$:if%$=""then510
520 if%$="q"thengosub50
530 if%$="d"thengosub100
540 if%$="n"thengosub200
550 goto510