OSDN Git Service

added the line number when an error occurs
[fast-forth/master.git] / config / msp430 / SendFile.ttl
1 connect  param3
2 sendln '     $0A BASE ! ECHO STOP' ; blanks are to pass LPMx wake up time...
3
4 inputbox 'Send a File' 'Select File : ' param2
5
6 strcompare param4 'NOECHO'
7 if result = 0 then
8     sendln 'NOECHO'
9     setecho 0
10     showtt 0
11     clearscreen 1
12     sendfile inputstr 0
13     showtt 1
14     goto end
15 endif
16
17 strcompare param4 'ECHO'
18 if result = 0 then
19     sendln 'ECHO'
20     setecho 0
21     showtt 0
22     clearscreen 1
23     sendfile inputstr 0
24     showtt 1
25     goto end
26 endif
27
28 strcompare param4 'HALF'
29 if result = 0 then
30     sendln 'NOECHO'
31     setecho 1
32     showtt 0
33     clearscreen 1
34     sendfile inputstr 0
35     setecho 1
36     showtt 1
37 endif
38
39 :end
40 end
41
42
43 ; param1 = this macro
44 ; param2 = file to send
45 ; param3 = "/C"
46 ; param4 = "ECHO" or "NOECHO" or "HALF" or nothing