Red Box Tones for a Commodore 64 -------------------------------- Written in BASIC by Tommy 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