偶然見つけたHSPの怪しい動作。
#runtime "hsp3cl"
#module A fn
#modinit
fn=*pf
return
#modfunc pfn
gosub fn
return
*pf
mes "Aです。"
return
#global
#module B fn
#modinit
fn=*pf
return
*pf
mes "Bです。"
return
#global
newmod afn,A
newmod bfn,B
pfn afn
pfn bfn