DECLARE SUB center (sentence$, y!)
CLEAR , , 9999
CLS
COLOR 4
CALL center("Plasma Scan Pro Ver.1.3", 4)
CALL center("Programmed by: Kraek Kompf", 5)
SLEEP 1
computers = 0
sound1 = 1
KEY(1) ON
ON KEY(1) GOSUB hangup

GOTO 4
hangup:
CALL center("Exiting program....", 23)
ON ERROR GOTO 6
PRINT #1, "ATH"
CLOSE #1
6 SYSTEM
4
COLOR 4
5
CALL center("Note: DO NOT USE A ( - ) DASH IN THE PHONE NUMBERS.", 8)
CALL center("Note: Your Number file will be saved as numbers.txt", 9)

300
sentence$ = "What com port is your modem connected to: "
sentence = INT(LEN(sentence$) / 2)
x = 40 - sentence
LOCATE 11, x
INPUT "What com Port is your modem connected to: ", comport$
IF comport$ = "" THEN GOTO 300
comport$ = "com" + comport$

sentence$ = "Modem Speakers on = 1 off = 2: "
sentence = INT(LEN(sentence$) / 2)
x = 40 - sentence
LOCATE 12, x
INPUT "Modem Speakers on = 1 off = 2: ", sound1

OPEN comport$ + ":2400,N,8,1,RB2048,TB2048" FOR RANDOM AS #1
IF sound1 = 2 THEN
PRINT #1, "ATM0"
PRINT #1, "ATX2"
ELSE
PRINT #1, "ATM1"
PRINT #1, "ATX2"
END IF
CLOSE #1

sentence$ = "Number to start with: "
sentence = INT(LEN(sentence$) / 2)
x = 40 - sentence
LOCATE 13, x
INPUT "Number to start with: ", num1


sentence$ = "Number to end with: "
sentence = INT(LEN(sentence$) / 2)
x = 40 - sentence
LOCATE 14, x

INPUT "Number to end with: ", num2
num2 = num2 + 1



'*****************
'Start connection
250
CALL center("To Exit this Program at any time hit F1.", 16)
CALL center("Now searching....", 18)
OPEN "numbers.txt" FOR OUTPUT AS #2
n1 = 1
n3 = num2 - num1

DO

LOCATE 1, 1
PRINT " Dialing"; n1; " of "; n3; " Found "; computers; " Compters..."
LOCATE 2, 1
PRINT " Number: "; num1
TIMER ON
ON TIMER(22) GOSUB timerstar


OPEN comport$ + ":2400,N,8,1,RB2048,TB2048" FOR RANDOM AS #1
8
PRINT #1, "ATDT"; num1
DO
IF LOC(1) <> 0 THEN
INPUT #1, a$
b$ = "connect"
IF UCASE$(b$) = UCASE$(MID$(a$, 1, 7)) THEN PRINT #2, num1, "Computer"
IF UCASE$(b$) = UCASE$(MID$(a$, 1, 7)) THEN computers = computers + 1
IF UCASE$(b$) = UCASE$(MID$(a$, 1, 7)) THEN BEEP
IF UCASE$(b$) = UCASE$(MID$(a$, 1, 7)) THEN GOTO 44

IF UCASE$("busy") = UCASE$(a$) THEN PRINT #2, num1, "Busy"
IF UCASE$("busy") = UCASE$(a$) THEN GOTO 44

IF UCASE$("no") = UCASE$(MID$(a$, 1, 2)) THEN GOTO 44

IF UCASE$("ok") = UCASE$(MID$(a$, 1, 2)) THEN PRINT #2, num1, "Computer"
IF UCASE$("ok") = UCASE$(MID$(a$, 1, 2)) THEN computers = computers + 1
IF UCASE$("ok") = UCASE$(MID$(a$, 1, 2)) THEN GOTO 44

ELSE
a$ = ""
END IF
LOOP


44
timerstar:
ON ERROR GOTO 45

PRINT #1, "ATH"
CLOSE #1

45
SLEEP 1
num1 = num1 + 1
n1 = n1 + 1
LOOP UNTIL num1 = num2

CLOSE #2
CALL center("List compiled...", 20)
CALL center("Please read numbers.txt to see", 21)
CALL center("the numbers that this program has compiled", 22)
SYSTEM

SUB center (sentence$, y)
sentence = INT(LEN(sentence$) / 2)
x = 40 - sentence
LOCATE y, x
PRINT sentence$
END SUB