1: DECLARE SUB SLEEP2 (t!) 2: COM(1) ON 3: ON COM(1) GOSUB 120 4: DIM nms(1 TO 200) AS STRING * 20 5: q = 1 6: CLS 7: PRINT "DEMON DIALER V1.0" 8: INPUT "What is the first three digits of your phone number"; ph$ 9: INPUT "Special dialing prefix "; dp$ 10: IF ph$ = "" THEN END 11: IF LEN(ph$) = 3 THEN ELSE END 12: IF LTRIM$(dp$) = "" OR dp$ = "1" THEN ELSE dp$ = dp$ + "," 13: 10 RANDOMIZE TIMER 14: OPEN "COM1:2400" FOR RANDOM AS #1 15: Phn$ = dp$ + ph$ + "-" + STRING$(7 - LEN(LTRIM$(RTRIM$(STR$(Number)))), "0") + LTRIM$(RTRIM$(STR$(Number))) 16: IF Phn$ = "*67,601-372-4778" OR Phn$ = "*67,601-373-XXXX" THEN CLOSE 1: GOTO 10 17: x% = CSRLIN + 1: y% = POS(0) 18: LOCATE 4, 1: PRINT "Dialing "; Phn$ 19: LOCATE x%, LEN(c$) + 1 20: PRINT #1, "ATS11=50DT" + Phn$ 21: SLEEP2 15 22: LOCATE x% - 1, y% 23: CLOSE 1 24: IF INKEY$ = CHR$(27) THEN FOR m = 1 TO q: PRINT nms(m): NEXT m: END 25: Number = Number + 1 26: GOTO 10 27: END 28: 29: 120 COM(1) OFF 30: 'b$ = "" 31: IF LOF(1) <> 0 THEN b$ = INPUT$(1, 1) 32: 'PRINT b$ 33: 'IF RIGHT$(b$, 1) = CHR$(7) THEN b$ = "" 34: 'IF UCASE$(b$) = UCASE$("connect 2400") THEN nms(q) = Phn$: q = q + 1: FOR v = 1 TO 25: PRINT #1, "+++ATH+++": NEXT v: c$ = "": PRINT Phn$; " has been added to the list": b$ = "": CLOSE 1: GOTO 123 35: 'IF UCASE$(b$) = UCASE$("no carrier") THEN FOR v = 1 TO 25: PRINT #1, "+++ATH+++": NEXT v: c$ = "" 36: 'IF UCASE$(b$) = UCASE$("no dialtone") THEN PRINT "Requires Dialtone": FOR m = 1 TO q: PRINT nms(m): NEXT m: END 37: 'IF UCASE$(b$) = UCASE$("error") THEN PRINT "An error Has Occured" 38: 'IF UCASE$(b$) = UCASE$("busy") THEN PRINT Phn$; " is busy" 39: 123 COM(1) ON 40: 'd$ = "" 41: 'b$ = "" 42: RETURN 43: 44: SUB SLEEP2 (t) 45: a = TIMER + t 46: DO UNTIL TIMER >= a: LOOP 47: PRINT "Time Elapsed" 48: END SUB 49: |