' 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 need 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

sub dialpulser                      'this is the heart of it all
  sound 2600, 1.2                   'sound 2600 for 40 ms
  delay .18                         'delay for 60 ms
end sub

'my advice:
'have fun - don't get caught!
'remember: the President, the currency, and the phone system