; CIRCUIT CELLAR ONLINE
; SEIKO S-7600A/PIC16F877 INTERNET ENGINE UPLOAD MACRO
; 01/01/2001
; WRITTEN BY: FRED EADY
; DEFINITIONS
boxtitle = 'Circuit Cellar Online'
uploadprompt = 'Do you wish to upload new PIC16F877 code?'
uploadfile = 'seiko.hex'
uploadgood = 'Upload Complete..'
uploadbad = 'Upload Error..'
linkdown = 'Link is not established..'
linkup = 'Link established with remote host..'
hostdown = 'Unable to communicate with remote host..'
; MAIN MACRO CODE
:begin
connect '/C=2'
if result = 0 goto nolink
if result = 1 goto nohost
if result = 2 goto goodlink
:nolink
messagebox linkdown boxtitle
disconnect
end
:nohost
messagebox hostdown boxtitle
disconnect
end
:goodlink
yesnobox uploadprompt boxtitle
if result goto loadcode
goto noload
:loadcode
send 'u'
sendfile uploadfile 0
wait 'g' 'E'
if result = 1 goto donegood
if result = 2 goto uploaderror
:donegood 
messagebox uploadgood boxtitle
end
:noload
end
:uploaderror
messagebox uploadbad boxtitle
end

		Click here to get your listing up.