1 CLS
5 INPUT "Text File Name?  ", t.dat$
REM 7 INPUT "Data File Name?", d.dat$
10 INPUT "How  Many Minutes to Sample?  ", rec%
15 INPUT "How Many Samples per minute?  ", rate%
20      FOR i% = 1 TO rec% * rate%
30      OPEN "com1:  4800,n,8,1,rs,cs,ds" FOR INPUT AS #1
40      LINE INPUT #1, a$
50      alen% = LEN(a$)
60      IF alen% = 20 THEN
70              PRINT a$
80      ELSE
85              CLOSE
90              GOTO 30
100     END IF
110     CLOSE
130     OPEN "com2: 4800,n,8,1,rs,cs,ds" FOR INPUT AS #2
140     LINE INPUT #2, b$
150             blen% = LEN(b$)
160             IF blen% = 27 THEN
170                     PRINT b$
180     ELSE
185     CLOSE
190     GOTO 130
200      END IF
210     CLOSE
230     PRINT "Time:"; TIME$
240     PRINT : PRINT
250     OPEN t.dat$ FOR APPEND AS #3
260     a1$ = MID$(a$, 8, 4)
270     b1$ = MID$(b$, 8, 7)
271             b1.5$ = MID$(b$, 13, 2)
272             latss = VAL(b1.5$)
280     b2$ = MID$(b$, 18, 8)
281             b2.5$ = MID$(b$, 24, 2)
282             lonss = VAL(b2.5$)
290     PRINT #3, DATE$, TIME$, a1$, b1$, b2$
300     CLOSE t.dat
REM 301     OPEN d.dat$ FOR APPEND AS #4
303     latdd$ = MID$(b$, 8, 2)
304     latmm$ = MID$(b$, 10, 2)
305     latss$ = MID$(b$, 13, 2)
306     latss = VAL(latss$)
307     londd$ = MID$(b$, 18, 3)
308     lonmm$ = MID$(b$, 21, 2)
309     lonss$ = MID$(b$, 24, 2)
310     lonss = VAL(lonss$)
311     tmp$ = "\     \,\   \,\   \,##,\     \,\  \,##"
REM 312     PRINT #4, USING tmp$; a1$; latdd$; latmm$; latss * .6; londd$; lonmm$; lonss * .6
REM 313     CLOSE d.dat
314     FOR a = 1 TO (75000 / rate%): NEXT a
330     NEXT i%








