Here is the code at Present:
main:
serout2 tx,baud,["AT^SMGR=1",13]
Serin2 rx,baud,5000,main,[WAIT("REC UNREAD")]
portc=255
End
start:
gosub one
serout2 tx,baud,["AT+CMGD=1",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=2",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=3",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=4",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=5",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=6",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=7",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=8",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGD=9",13]
serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
gosub one
serout2 tx,baud,["AT+CMGF=1",13]
Serin2 rx,baud,5000,start,[WAIT("OK")]
pause 1000
goto one
goto main
Bookmarks