HSPでgetter・setterを使わないでモジュール変数にアクセスする

納得C言語 [第14回]構造体 - ほぷしぃの例題1を移植。
直接モジュール変数に触るにはgosubで飛ばさせてラベルをコールバックで読ませれば良い。
それでVBのWith的用法が可能となるはず。

#runtime "hsp3cl"

//構造体の型宣言
#module OLD no,name,s_year,s_class
	#modinit int _no,str _name,int _s_year,str _s_class
		no=_no            //番号
		name=_name        //名前
		s_year=_s_year    //年
		s_class=_s_class  //クラス
	return

	#modfunc withEnd var fn
		gosub fn
	return
#global

mes "学籍番号\t 名前\t学年\tクラス"

//構造体の初期化
dimtype _old,5,15
newmod _old,OLD, 1,"上杉謙信"    ,3,"A"
newmod _old,OLD, 2,"武田信玄"    ,3,"A"
newmod _old,OLD, 3,"豊臣秀吉"    ,3,"A"
newmod _old,OLD, 4,"明智光秀"    ,3,"A"
newmod _old,OLD, 5,"織田信長"    ,3,"A"
newmod _old,OLD, 6,"徳川家康"    ,3,"A"
newmod _old,OLD, 7,"聖徳太子"    ,3,"A"
newmod _old,OLD, 8,"マッカーサー",3,"A"
newmod _old,OLD, 9,"ザビエル"    ,3,"A"
newmod _old,OLD,10,"北条政子"    ,3,"A"
newmod _old,OLD,11,"沖田総司"    ,3,"A"
newmod _old,OLD,12,"永倉新八"    ,3,"A"
newmod _old,OLD,13,"斉藤一"      ,3,"A"
newmod _old,OLD,14,"松原忠治"    ,3,"A"
newmod _old,OLD,15,"武田観柳斎"  ,3,"A"

foreach _old
	if 0 {*_with
		//結果の出力
		mes strf("%7d%15s%5d%10s", no@OLD, name@OLD, s_year@OLD, s_class@OLD)
	return}
	with=*_with
	withEnd _old(cnt),with
loop