'WARNING FROM THE CORPORATE PROPERTY CULTURE: ' ' Educational purposes only ' ' Rotary SF Generator ' a.k.a Cap'n Crunch Whistle, remember? ' Uses PC speaker to generate pulsed 2600 Hz ' to dial over trunks involving SxS and crossbars ' This is written in Turbo BASIC; it may nee modifications ' for use with Quick BASIC or other structured BASICs. ' ' Written by KeyPulse & STart ' ' code starts here: cls 'clear screen do 'main loop line input "Phone Number:";ph$ 'input phone number l=len(ph$) 'length of phone number if ph$ = "" then goto xit; 'if empty line then goto sound 2600,15 'sieze R1 trunk with 2600 hz delay 2 'delay 2 seconds for t = 1 to l 'read string loop b$ = mid$(ph$, t, 1) 'get char in string digit = val(b$) 'convert to numeric select case $b 'check b$ for exceptions case "0" 'if '0' then digit=10 'set to pulse ten (10) times case " " 'if a space char, then goto skip 'skip over to next digit (ignore) case else 'elastic case do nothing end select 'end select for checking exceptions ?b$; 'print digit for x = 1 to digit 'pulsing loop (pulse DIGIT time(s)) call dialpulser ' dial pulser routine next ' do again until x=digit delay .5 '500 ms delay between pulsing skip 'skip point next 'get next digit ? loop 'loop back xit: 'jump point for end 'program termination