
char VAR byte(20)

'****************[WRITE FILE]*********************
StoreGPSData:

GET 0,char(0),char(1),char(2),char(3),char(4),char(5),char(6),char(7),char(8),char(9),char(10),char(11),char(12),char(13), char(14),char(15),char(16),char(17),char(18),char(19)

SEROUT tx,baud,[wr,sp,DEC 20,ret,STR char,ret]
SERIN rx,baud,[WAIT (">")]

GET 20,char(0),char(1),char(2),char(3),char(4),char(5),char(6),char(7),char(8),char(9),char(10),char(11),char(12),char(13), char(14),char(15),char(16),char(17),char(18),char(19)

SEROUT tx,baud,[wr,sp,DEC 20,ret,STR char,ret]
SERIN rx,baud,[WAIT (">")]

GET 40,char(0),char(1),char(2),char(3),char(4),char(5),char(6),char(7),char(8),char(9),char(10),char(11),char(12),char(13), char(14),char(15),char(16),char(17),char(18),char(19)

FOR idx=16 to 19
IF char(idx)<32 OR char(idx)>126 THEN
char(idx)= 32
ENDIF

SEROUT tx,baud,[wr,sp,DEC 20,ret,STR char,ret]
SERIN rx,baud,[WAIT (">")]

RETURN
 