1     SCREEN 1
2     WIDTH 40
3     CLS
5     INPUT "please enter text file name: ", T.DAT$
7     INPUT "please enter data file name: ", D.DAT$
10    INPUT "enter the number of minutes to sample: ", rec%
15    INPUT "how many samples per minute (30/min max)? ", 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% = 32 THEN
70                PRINT a$
80        ELSE
85         CLOSE
90               GOTO 30
100       END IF
110       CLOSE
120
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
220
230        PRINT "TIME:", TIME$
240        PRINT : PRINT
250        OPEN T.DAT$ FOR APPEND AS #3
260        A1$ = MID$(a$, 17, 6)
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
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$ = "\    \,\  \,\  \, ## ,\   \,\  \, ##"
312        PRINT #4, USING TMP$; A1$; LATDD$; LATMM$; LATSS * .6; LONDD$; LONMM$; LONSS * .6
313        CLOSE D.DAT
314        FOR a = 1 TO (75000 / rate%): NEXT a
330        NEXT I%
       

REM        Written by Duncan Short and Marty Gingras, PSMFC
REM        technicians.
REM        on contract to DFG, 3/3/94.

