font情報を格納するmoduleを作ってみました
fontは文字列で区別しようと思いましたが
遅そうなのと、オブジェクト名でもあんま変わらなさそうなので
情報はモジュール変数に入れることにしました

FILE名:FILE_font_set_get.hsp
#module font_set_get font_kind,font_size
#modinit str p_kind,int p_size
font_kind=p_kind
font_size=p_size
return
#modfunc get_font_at_font_set_get var r_kind,var r_size
r_kind=font_kind
r_size=font_size
return
#modfunc font_at_font_set_get
font font_kind,font_size
return
#global

以下TESTコード
#include "FILE_font_set_get.hsp"

newmod small,font_set_get,"ＭＳ ゴシック",10
newmod middle,font_set_get,"ＭＳ ゴシック",16
newmod large,font_set_get,"ＭＳ ゴシック",50
newmod LL,font_set_get,"ＭＳ ゴシック",99

font_at_font_set_get small
mes "small"
font_at_font_set_get middle
mes "middle"
font_at_font_set_get large
mes "large"
font_at_font_set_get LL
mes "LL"

f=""
s=0
get_font_at_font_set_get small,f,s
font f,s
mes "small"
get_font_at_font_set_get middle,f,s
font f,s
mes "middle"
get_font_at_font_set_get large,f,s
font f,s
mes "large"
get_font_at_font_set_get LL,f,s
font f,s
mes "LL"
stop