\ SDA ST 2002-10-28

needs ids
needs resources
needs srm

(ID) sdap (ID) rsrc use-resources

2variable phid (ID) ircm phid 2!
2variable phbaud 115200. phbaud 2!
2variable phtimeout
  200. phtimeout 2!

variable phpid
variable pherr

create crlf 13 c, 10 c,

: phsend ( caddr len -- )
  2>r pherr >abs r> 0 r> >abs phpid @
    SrmSend 2drop ;

: phopen
  phpid >abs phbaud 2@ phid 2@
    SrmOpen throw ;

: phclose phpid @ SrmClose throw ;

: addn ( n caddr -- )
  >r 10 /mod 48 + r@ c! 48 + r> 1+ c! ;

: mkcmd ( n -- caddr len )
  s" AT+CMGD=XX" 2dup 2>r
  + 2 - addn 2r> ;

: sendcmd ( n -- )
  mkcmd phsend crlf 2 phsend ;

: smsalldel
  15 for i sendcmd ekey drop next ;

: go
  mainform
  phopen
  begin
    ['] smsalldel catch 0= while
    EvtResetAutoOffTimer drop
  repeat phclose ;