1: CLS 2: OPEN "COM1:2400" FOR RANDOM AS #1 3: ON COM(1) GOSUB Comprt 4: COM(1) ON 5: PRINT "I need to call another computer to solve this problem." 6: INPUT "Phone number ¯", Phn$ 7: Phn$ = LTRIM$(RTRIM$(UCASE$(Phn$))) 8: PRINT #1, "ATDT" + Phn$ 9: SLEEP 22 10: END 11: 12: Comprt: 13: IF LOF(1) = 0 THEN RETURN 14: INPUT #1, d$ 15: PRINT d$; 16: RETURN 17: |