Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/26 11:39:51

MixJuice GET URL : kidspod.club/mj/610

dj

dj

だるまさんがころんだ

文字列を使ってみたかった

SOURCE CODE

10 CLT:X=31:Y=11
20 M="タ゛ルマサンカ゛コロンタ゛!"
30 CLS:S=0:C=0:T=1+RND(5)
40 LC X,Y:?" "
50 K=INKEY()
60 X=X-(K=28)+(K=29)
80 LC X,Y:?"(#EC)"
90 IF S=1 AND K<>0 LC 0,12:?"ウコ゛イタ!":END
100 IF X=1 LC 0,12:?"タッチ!":?TICK():END
110 IF S=1 AND RND(30)=0 GOTO30
120 LC 0,11
130 IF S=0 ?"(#FD)" ELSE ?"(#FB)"
140 IF RND(T)=0 AND C<LEN(M) LC 1+C,10:?CHR$(ASC(M+C)):C=C+1 
150 IF C=LEN(M) S=1
160 GOTO40

COMMENT