10進Basicを使う

　10進Basicでプログラムを組む。文字列abcに命令312を与えるとcabにしてくれるプログラム。

　こいつで置換群を攻略する予定。自宅でパソコンを動かしていると「制限」が加えられ、あまりパソコンには向かえない。夢中でやっていると、いつまでもパソコンから私が離れないからだ。2人きりで暮らしているお家の事情もある。

　インターネットを切られたと言って、家人が殺害された事件があった。インターネットに夢中になるのは「害悪」のように思えるらしい。私はあまり夢中になってはいないのだが・・・。ただ、パソコンを思考の道具に使っているのだが、結果を出すにはどうしても時間がかかる。誤解だあーー。

　ならば、10進BasicをUSBで持ち運ぶのはどうかと試してみた。ネットカフェで実験したところ成功。パソコンでいろいろ研究するならネットカフェがよさそう。

さて、目的のプログラムは完成した。リストは次の通り。簡単なプログラムである。これを10進Basicのエディターにコピペして走らせれば良い。良かったらどうぞ。

----------------------------------------------------------------------

!文字列置換
!
! file name --- chikan.bas
!
!動作 入力文字列を置換文字列の順に並び替える
!
!入力　文字列（３文字 全角も可）　 例 abc
!入力　置換文字列（123の順列３文字） 例 132
!出力　置換結果文字列　　　　 acb
!
!
!
DIM a$(3)
DIM s$(3)
DIM p$(3)
INPUT PROMPT "文字列":a1$
INPUT PROMPT "置換":s1$
FOR i=1 TO 3
LET a$(i)=mid$(a1$,i,1)
NEXT i

FOR j=1 TO 3
LET s$(j)=mid$(s1$,j,1)
NEXT j

FOR i=1 TO 3
LET p$(i)=a$(VAL(s$(i)))
NEXT i

LET p1$=""
FOR i=1 TO 3
LET p1$=p1$&p$(i)
NEXT i

PRINT p1$


END
-----------------------------------------------------------------------