テキスト出力画面化2

テキスト出力画面化2

かなり前にOAPの無印で実装したものです。Print以外の変数は使ってないから変数名が衝突しにくいと思います。
Print(String)でStringを出力
PrintR()で改行
PrintCls?()で画面消去です。

func Print(PrintS){if(PrintX>width-stwide(PrintS)){PrintY=PrintY+sthight,PrintX=0}text(PrintS,PrintX,PrintY,0)PrintX=PrintX+stwide(PrintS)if(PrintX>width){PrintY=PrintY+sthight,PrintX=0}}
func PrintR(){PrintY=PrintY+13;PrintX=0;}
func PrintCls(){clear(0,0,width,height);PrintX=0;PrintY=0;}