GOODNUM$ = "2223334444" 'GOOD NUMBER HERE - AREA CODE AND NUMBER NO SPACES
SETPIN 3, DOUT
PIN(3) = 0

OPEN "COM1:9600" AS #1

FLUSHBUF

PRINT "INITIALIZING SYSTEM.... PLEASE WAIT."
PRINT
PRINT #1,"AT"
PAUSE 200
PRINT #1,"AT"
PAUSE 200
PRINT #1,"ATE0" 'TURN ECHO OFF
PAUSE 200
FLUSHBUF

PRINT #1,"AT" 'DO QUICK MODEM RESPONSE CHECK
PAUSE 200
GETSTRING
CHECKOK

PRINT #1,"AT+CMGF=1" 'TURN ON TEXT MODE
PAUSE 200
GETSTRING
CHECKOK

PRINT #1,"AT+CLIP=1" 'TURN ON CALLER ID
PAUSE 200
GETSTRING
CHECKOK

PRINT #1,"AT+CNMI=2,2,0,0,0" 'SEND SMS DIRECT TO SERIAL PORT
PAUSE 200
GETSTRING
CHECKOK

'PRINT #1,"AT+CMGD=1,4" 'CLEAR SMS
'PAUSE 200
'GETSTRING
'CHECKOK

'********************** MAIN *************************
DO
FLUSHBUF
PRINT
PRINT "WAITING FOR SMS TO COME..."
DO WHILE LOC(#1)=0:LOOP
GETSTRING
CHECKNUM
PRINT "SMS COMING IN FROM ";CHECKNUM$
IF GOODNUM = 0 THEN
PRINT "NOT A GOOD NUMBER...":PRINT
REPLY$ = "YOUR NUMBER IS NO GOOD HERE BUSTER!" 'SENT BACK TO BAD NUMBER
REPLYSMS REPLY$
ENDIF
CHECKCMD
ERASESMS
LOOP


'*********************************************
SUB ERASESMS
print #1, "AT+CMGDA = " + CHR$(34) + "DEL ALL" + CHR$(34)
PAUSE 200
GETSTRING
END SUB

'**********************************************
sub FLUSHBUF
PAUSE 100
DO:A$=INPUT$(1,#1):LOOP WHILE LOC(#1) <> 0
END SUB

'**********************************************
SUB GETSTRING
SMS$=""
PAUSE 200
DO
S$=INPUT$(1,#1)
SMS$=SMS$ + S$
LOOP WHILE LOC(#1) > 0
PRINT "GETSTRING = ";SMS$
END SUB

'***********************************************
SUB CHECKOK
IF INSTR(SMS$,"OK")<>0 THEN EXIT SUB
ERROR "MODEM NOT RESPONDING.... ENDING PROGRAM"
END SUB

'***********************************************
SUB CHECKNUM
GOODNUM = 0
B = INSTR(SMS$,"+1")+2
CHECKNUM$ = MID$(SMS$,B,10)
IF CHECKNUM$ = GOODNUM$ THEN GOODNUM = 1
END SUB

'************************************************
SUB CHECKCMD
IF INSTR(SMS$,"aon")<> 0 THEN
PIN(3)=1
PRINT "A IS NOW ON"
PRINT
REPLY$ = "HELLO MASTER... A IS NOW ON"
REPLYSMS REPLY$
EXIT SUB
ENDIF
IF INSTR(SMS$,"aoff")<> 0 then
PIN(3)=0
PRINT "A IS NOW OFF"
PRINT
REPLY$ = "HELLO MASTER... A IS NOW OFF"
REPLYSMS REPLY$
EXIT SUB
ENDIF
PRINT "COMMAND NOT RECOGNIZED"
PRINT
REPLY$ = "SORRY MASTER... COMMAND NOT RECOGNIZED"
REPLYSMS REPLY$
END SUB

'************************************************
SUB REPLYSMS REPLY$
print #1, "AT+CMGS=" + chr$(34) + CHECKNUM$ + chr$(34)
pause 200
GETSTRING
DO
IF INSTR(SMS$,CHR$(62))<>0 THEN EXIT DO 'RECEIVED ">"
LOOP
print #1, REPLY$
pause 200
GETSTRING
DO
IF INSTR(SMS$,CHR$(62))<>0 THEN EXIT DO 'RECEIVED ">"
LOOP
print #1, chr$(26) 'SEND CNTL Z TO SEND TEXT SMS
pause 5000 'WAIT FOR MODEM RESPONSE 5 SECONDS!!! WORKING ON THIS...
GETSTRING
DO
IF INSTR(SMS$,"+CMGS")<>0 THEN EXIT DO 'FINISHED SEND
LOOP
end SUB