'Single Frequency Blue Box program
'In Basic, for PCs
cls
do
 line input "Phone Number:";ph$
 l=len(ph$)
 if ph$="" then goto xit:
 sound 2600,15
 delay 2
 for t = 1 to l
  b$=mid$(ph$,t,1)
  digit=val(b$)
  select case b$
   case "0"
    digit=10
   case " "
    goto skip
   case else
  end select
  ?b$
  for x = 1 to digit
   call dialpulser
  next
  delay .5
 skip:
 next
 ?
loop xit:
end
sub dialpulser
 sound 2600,1.2
 delay .18
end sub
' Copied from Autumn 1996 2600 mag