'パスワード生成
dllname "qrand.dll"
cdeclare int dice(int)
proc mkpass()
	const MAX_LEN = 10
	dim length
	dim code(MAX_LEN)
	dim count
	dim pass$
	
	length = dice(MAX_LEN)
	do while length < 4
		length = dice(MAX_LEN)
	loop
	
	for count = 1 to length
		code(count) = dice(62)
		code(count) = code(count) + 47
		if code(count) > 57 ' '0'
			code(count) = code(count) + 7
			if code(count) > 90 ' 'Z'
				code(count) = code(count) + 6
			end if
		end if
		pass$ = pass$ + chr$(code(count))
	next
	
	@Insert pass$
	'ewKh7G

end proc