config/SendFile.ttl

   1 ;connect  param3
   2 testlink
   3 if result=0 connect  param3
   4
   5 inputbox 'Send this file to the MSP430FR target:' ' ' param2
   6
   7 strcompare param4 'NOECHO'
   8 if result = 0 then
   9     sendln 'NOECHO PWR_STATE [DEFINED] STOP [IF] STOP [THEN]' ; set no echo from FastForth
  10     setecho 0       ; suppr. echo from Teraterm
  11     showtt 0
  12 ;    clearscreen 1
  13     sendfile inputstr 0
  14     showtt 1
  15     goto end
  16 endif
  17
  18 strcompare param4 'HALF'
  19 if result = 0 then
  20     sendln 'NOECHO PWR_STATE [DEFINED] STOP [IF] STOP [THEN]' ; set no echo from FastForth
  21     showtt 0
  22 ;    clearscreen 1
  23     sendfile inputstr 0
  24     setecho 1
  25     showtt 1
  26     goto end
  27 endif
  28
  29 ; default mode = ECHO
  30     sendln 'ECHO PWR_STATE [DEFINED] STOP [IF] STOP [THEN]'
  31     setecho 0       ; no echo from Teraterm
  32     showtt 0
  33 ;    clearscreen 1
  34     sendfile inputstr 0
  35     showtt 1
  36
  37 :end
  38 end
  39
  40
  41 ; param1 = this macro
  42 ; param2 = file to send
  43 ; param3 = "/C"
  44 ; param4 = "ECHO" or "NOECHO" or "HALF" or nothing