LEGGISMS:

MESS=0
HSEROUT ["AT+CMGL=",34,"ALL",34,13]
hserin 800,EXITLEGGISMS,[SKIP 10, wait(34,",",34),TMP]
MESS=1
NUMERO[0]=TMP
LUNGNUM=1
while TMP<>34 AND LUNGNUM<20
hserin 10000,EXITLEGGISMS,[TMP]
NUMERO[LUNGNUM]=TMP
LUNGNUM=LUNGNUM+1
wend

hserin 10000,EXITLEGGISMS2,[SKIP 5, WAIT(34),TMP,tmp]
LUNGSMS=0
while LUNGSMS<60
hserin 10000,EXITLEGGISMS2,[TMP]
D[LUNGSMS]=TMP
LUNGSMS=LUNGSMS+1
wend


EXITLEGGISMS2:
LUNGNUM=LUNGNUM-2

LUNGSMS=LUNGSMS-1

FOR TMP=0 TO 60
IF D[TMP]=";" THEN
TMP=TMP+1
FOR TMP1=0 TO 4
PWD[TMP1]=D[TMP+TMP1]
NEXT TMP1
TMP=61
ENDIF
NEXT TMP


FOR TMP=0 TO 10
toggle led
pause 200
NEXT TMP
low led


PAUSE 3000
HSEROUT ["AT+CMGD=0,4",13] 'CANCELLO TUTTI I MESSAGGI
HSERIN 10000,EXITLEGGISMS,[wait ("OK")]
PAUSE 1000
PAUSE 2000


EXITLEGGISMS:
RETURN