=====================================GPS2.BAS=============
'Read NEMA $GPRMC sentence protocol
CLS
OPEN "COM1:4800,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1
OPEN "gps2.txt" FOR OUTPUT AS #2
DO
 GPSinput$ = INPUT$(300, #1)' Read 300 bytes from com port 1
 GPSinput$ = MID$(GPSinput$, INSTR(GPSinput$, "$GPRMC,"), 68)
 PRINT GPSinput$
 PRINT #2, GPSinput$	
LOOP
=====================================GPS2.TXT=============
$GPRMC,065624,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*77
$GPRMC,065626,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*75
$GPRMC,065627,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*74
$GPRMC,065628,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*7B
$GPRMC,065630,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*72
$GPRMC,065631,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*73
$GPRMC,065633,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*71
$GPRMC,065634,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*76
$GPRMC,065636,V,3000.2984,N,09741.1729,W,0.000,0.0,290806,5.5,E*74