; [router.hsc/秀Term用テキストアップロードスクリプト]

inputfilename "アップロードするファイル", #FileName
openfile #FileName

beginloop
	readfile #FileName, #Buffer
	if( no )
		breakloop
	endif
	##BufferSize = length(#Buffer)
	##StartPoint = 0
	##EndPoint = ##BufferSize

	beginloop
		if(part(#Buffer, 0, 1) == "#")
			breakloop
		endif

		if((##BufferSize - ##StartPoint) > 80)
			#Tmp = part(#Buffer, ##StartPoint, 80)
			##StartPoint = ##StartPoint + 80
			send #Tmp
			millisleep 100
		else
			#Tmp = part(#Buffer, ##StartPoint, ##BufferSize)
			send #Tmp + "^m"
			millisleep 100
			breakloop
		endif
	endloop
endloop
closefile #FileName

;----
; Copyright (C)2005 MURA All rights reserved.