−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
dllname USER
cdeclare long SendMessage(HWND, long, int, long);
dllname "shell32.dll"
cdeclare long ShellExecute(HWND,LPSTR,LPSTR,LPSTR,LPSTR,int);

dim 数,行$,語$,ファイル$,番,番$[1000]

'--------------------------------------------------------------------
const 白紙 = &h0184 '内容をリセットする
sub 常駐リスト白紙
    SendMessage(@@hwndToolListL, 白紙, 0, 0)
end sub
'--------------------------------------------------------------------
const 文字列送信 = &h0180'文字列追加
sub 文字列送信(text$)
    SendMessage(@@HwndToolListL,文字列送信 ,0,varptr(text$))
end sub
'一覧に項目を１つ追加（index=-1 のときは最後に追加）
'--------------------------------------------------------------------
const 文字列獲得=&h0189
function 文字列獲得$(index)
    dim x$ as string[1000]
    SendMessage(@@HwndToolListL, 文字列獲得, index, varptr(x$))
    文字列獲得$ = x$
end function
'--------------------------------------------------------------------
proc main
	@@redraw=0
	@line=1
	常駐リスト白紙
	行$=@TextCr$(@line) 
	数=1
	do while 1
		行$=@TextCr$(@line)
		文字列送信(行$)
		@MoveNextLineCr :数++
		if @line=@lastline then exit do
	loop
	語$="を<全文>読込みました"
	ファイル$=@filename$+語$
	@@ToolListUserDef ファイル$,macrofilename$ + ",右", \
		macrofilename$ + ",ダブル",macrofilename$ + ",シングル"
	@@ToolListType = 6	 'ユーザー定義一覧
	@@PrintToolList = 1	 'チェックしてゐる 
	@@ToolListPos = 3	 '常駐リストの位置
	@@redraw=1
	
end proc

proc 右
　 print "青人草"
end proc

proc ダブル
　print "いろは"
end proc

proc シングル
 print "あめつち"  
end proc

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−