msg = 'Enter month required'
inputbox msg 'Download'

monthtoget = inputstr

sendln monthtoget

; macro of Tera Term
; dwnmacro.ttl
; Download greenhouse files
; 17/5/19
connect"
;
send #3 ; Sends ^C
sendln
send'- Download program -'
pause 1
send #3
sendln
pause 1
msg = 'Enter month required'
inputbox msg 'Month'
month = inputstr
send 'For the month of 'month
send #3
;
msg = 'First day of month'
inputbox msg 'First day'
firstday = inputstr
send 'The first day is 'firstday
send #3
;
msg = 'Last day of month'
inputbox msg 'last day'
lastday = inputstr
send 'The last day is 'lastday
send #3
;
str2int n firstday
send n ; something wrong in the above line
sendln
end
;this is how it goes on but I am aware it needs some changes
;had it working without the use of the above input section
;n = n - 1
n = 0
do
n = n + 1
If n = 10 then ; 01 to 09 done
goto remainder
else
endif
int2str xday n ; Assigns 'n' to xday
send xday ;check if works to here
;end 'another test stop
thisfile = "GH19050"
strconcat thisfile xday ; Appends a copy of 'n'
strconcat thisfile ".txx" ; give <thisfile> an extension .txx
send thisfile
sendln "XMODEM SEND " #34 thisfile #34 ;Sends data to file
pause 2
recfile = "C:\Users\CK\Download Data\" ;File save directory
strconcat recfile thisfile
xmodemrecv recfile 1 1
pause 3 ; problem at pause = 1, CCM needs it greater
loop while result = 1
;
;This next part copies the files from the 10th day onwards
;
:remainder ;rem'd out
;m = 9
;
end