Code:
OPEN "COM1:9600,8,N,1" FOR RANDOM AS #1 LEN=LEN(256)
PRINT #1, "ATDT"
PRINT #1, "555-1212" ' Not my number
PRINT "PRESS SPACE WHEN YOU HAVE PICKED UP THE RECIEVER."
DO WHILE INKEY$ <> " ": LOOP
PRINT #1, "ATH"
CLOSE #1
That should work, but I did not test it.