テキスト出力画面化

テキスト出力画面化

print(値か文字列,改行,画面消去)
値や文字列などを画面に出力します。
2番目の引数が0以外だと、改行しないで上書きします。
3番目の引数が0以外だと、文字を全部を消去してから出力します。

binput()
数値入力

数字キー・入力
←キー・１文字消す
入力された値を返します。

func print(T[15],next,cls){
lock()
if(cls){@(T,"","","","","","","","","","","","","","","")}
clear(0,0,240,268)
setfont("M")
if(!next){@(T,T[1],T[2],T[3],T[4],T[5],T[6],T[7],T[8],T[9],T[10],T[11],T[12],T[13],T[14])}
for(T[14]=T[15],n=0;n<=14;n++){text(T[n],5,n*17,0)}
unlock(0)}

func binput(){
prom=p=""
prom[1]=1
print("")
while(prom[1]){
print(">".(prom=prom.p)."_",1)

switch(input()){
case 1:p=0 break;
case 2:p=1 break;
case 4:p=2 break;
case 8:p=3 break;
case 16:p=4 break;
case 32:p=5 break;
case 64:p=6 break;
case 128:p=7 break;
case 256:p=8 break;
case 512:p=9 break;
case 8192:p="" if(strlen(prom)){prom=substr(prom,0,strlen(prom)-1)}break;
case 65536:prom[1]=0 break;
default:p="" break;}
}
if(prom==""){prom=0}
print("? ".prom,1)
return prom}