5numtone%=15 10US%=TRUE 20DIM ARY%(numtone%,4) 30DIM Q% 40 40FOR C=0TO3 STEP3 50P%=Q% 60[OPT C 70.SND SEI 80 PHA:LDA#&97:LDX#&43:LDY#&FF:JSR &FFF4 90 LDX#&41:PLA:TAY:LDA#&97:JSR &FFF4 100 LDX#&40:LDY#&0:JSR &FFF4:LDY#&08:JSR &FFF4:CLI:RTS 110]:NEXT 120CLS 130REPEAT 140 IF US% PRINT"†CCITT Signalling System 5" 150RESTORE400 160PROCloaddata 170GO%=FALSE:REPEAT INPUT"„Blue Box‡:"D$:FORR%=1 TO LEND$:C$=MID$(D$,R%,1):B%=255:Q%=0:IF C$>"0" AND C$<="9" THEN B%=EVAL(C$) 180IFC$="K"ORC$="k" THEN B%=12:Q%=10 185IFC$="J"ORC$="j" THEN B%=15:Q%=10 190IFC$="?" THEN PROChelp:GOTO270 200IFC$="S"ORC$="s" THEN B%=11 210IFC$="0" THEN B%=10 220IFC$="@" THEN B%=13:Q%=10 230IFC$="_" THEN B%=14:Q%=1 240IFC$=" " THEN Q%=10 250IF B%<=numtone% AND B%>-1THEN PROCbeep(B%) 260TIME=0:REPEAT UNTILTIME>Q% 270NEXT:UNTIL GO% 280UNTIL FALSE 290END 300DEFPROCbeep(B%) 310FORL%=1 TO 4:A%=ARY%(B%,L%):CALL SND:CALL SND:NEXT 320IF B%=11 THEN T%=10 ELSE IF B%=13 THEN T%=11 ELSE IF B%=14 THEN T%=14 ELSE T%=6 330A%=208:CALL SND:IFB%<>13 A%=176:CALL SND: 340TIME=0:REPEAT UNTIL TIME>T%:A%=223:CALL SND:A%=191:CALL SND 350ENDPROC 360END 370REPEAT:INPUT"Freq:"freq%:A%=INT(4000000/(32*freq%)):PRINT;&C0+(A% AND &F);":";&A0+(A% AND &F);",";(A% AND &FF0)/16 380UNTIL FALSE 385REPEAT:INPUT"Freq:"freq%:S%=INT(4000000/(32*freq%)):A%=&C0+(S% AND &F):CALL SND:A%=(S% AND &FF0)/16:CALL SND:A%=208:CALL SND:G=GET:A%=223:CALL SND 386UNTIL FALSE 390DEFPROChelp:PRINT'"…Press 0-9"'"…K - Key Pulse (2)"'"…S - Start"'"…@ - Single Frequency (2400)"'"…_ - Clear Forward (2400/2600)":ENDPROC 395DEFPROCloaddata:FORL%=1TOnumtone%:READ ARY%(L%,1):READ ARY%(L%,2):READ ARY%(L%,3):READ ARY%(L%,4):NEXT:ENDPROC 400DATA 195,11,171,8,195,11,162,7,203,8,162,7,195,11,160,6,203,8,160,6,194,7,160,6,195,11,163,5 410DATA 203,8,163,5,194,7,163,5,192,6,163,5,194,7,170,4,192,6,170,4,196,3,164,3,196,3,160,3 420REM UK 430DATA 195,11,171,8,195,11,162,7,203,8,162,7,195,11,160,6,203,8,160,6,194,7,160,6,195,11,163,5 440DATA 203,8,163,5,194,7,163,5,192,6,163,5,194,7,170,4,195,5,170,4,196,3,164,3 450DATA193,7,169,4