print(値か文字列,改行,画面消去)
値や文字列などを画面に出力します。
2番目の引数が0以外だと、改行しないで上書きします。
3番目の引数が0以外だと、文字を全部を消去してから出力します。
binput()
数値入力
数字キー・入力
←キー・1文字消す
入力された値を返します。
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}