| 1 |
root |
1 |
5 KEY OFF
|
|
|
2 |
10 CLOSE
|
|
|
3 |
20 ON ERROR GOTO 260
|
|
|
4 |
30 OPEN "COM1:1200,M,7,1,RS,CS,DS,CD" AS #2 LEN=128
|
|
|
5 |
40 EOL$=CHR$(13)+CHR$(10)
|
|
|
6 |
50 CLOSE #1
|
|
|
7 |
60 CLS:LOCATE 10,1:PRINT TAB(20);"TIMING SERIAL UPLOADER"
|
|
|
8 |
65 PRINT TAB(20) "======================":PRINT
|
|
|
9 |
70 PRINT TAB(16):INPUT "What LEG please .. (X to end) ";LEG$
|
|
|
10 |
75 IF LEG$ = "" THEN 60
|
|
|
11 |
80 IF LEG$ = "X" OR LEG$ = "x" THEN 280
|
|
|
12 |
82 OPEN "leg"+LEG$ FOR INPUT AS #1
|
|
|
13 |
83 PRINT:INPUT "File allready exists, OK to add data ";OK$
|
|
|
14 |
84 IF OK$ = "Y" OR OK$ = "y" THEN 88
|
|
|
15 |
86 GOTO 50
|
|
|
16 |
88 CLOSE #1
|
|
|
17 |
90 OPEN "leg"+LEG$ FOR APPEND AS #1
|
|
|
18 |
100 CLS:LOCATE 10,20:PRINT "WAITING FOR INPUT......"
|
|
|
19 |
110 PRINT #2,
|
|
|
20 |
120 A$=""
|
|
|
21 |
130 WHILE NOT EOF(2)
|
|
|
22 |
140 A$=A$+INPUT$(LOC(2),2)
|
|
|
23 |
150 IF INSTR(A$,EOL$)<>0 THEN GOTO 180
|
|
|
24 |
160 WEND
|
|
|
25 |
170 GOTO 130
|
|
|
26 |
180 IF INSTR(A$,"X")<>0 THEN GOTO 50
|
|
|
27 |
190 TEAM=VAL(MID$(A$,1,3))
|
|
|
28 |
200 HOURS=VAL(MID$(A$,5,2))
|
|
|
29 |
210 MINS=VAL(MID$(A$,8,2))
|
|
|
30 |
220 SECS=VAL(MID$(A$,11,2))
|
|
|
31 |
230 PRINT "TEAM #..";TEAM;:PRINT TAB(20);" ";HOURS;":";MINS;":";SECS
|
|
|
32 |
240 PRINT #1,A$;
|
|
|
33 |
250 GOTO 110
|
|
|
34 |
260 IF ERR = 53 THEN RESUME 88
|
|
|
35 |
265 PRINT "** ERROR NUMBER ";ERR
|
|
|
36 |
266 PRINT:INPUT "Return to continue";C$
|
|
|
37 |
270 RESUME 50
|
|
|
38 |
280 CLOSE
|
|
|
39 |
290 system
|
|
|
40 |
|