• PanCake

10 ?”PC CLEAR 00”
20 X=RND(80):Y=RND(40):V=1:W=1
30 A=RND(40)+40:B=RND(20)+22:C=-1:D=-1
40 z=0
50 ?”PC LINE “;HEX$(X,2);” “;HEX$(Y,2);” “;HEX$(A,2);” “;HEX$(B,2);” “;HEX$(RND(15)+1,2)
60 Z=Z+1
100 ?”PC LINE “;HEX$(X,2);” “;HEX$(Y,2);” “;HEX$(A,2);” “;HEX$(B,2);” “;HEX$(RND(15)+1,2)
110 Z=Z+1
120 IF Z>400Z=0:RUN
130 X=X+V:Y=Y+W:A=A+C:B=B+D
140 IF X<10 OR X>78 V=-V
150 IF Y<10 OR Y>44 W=-W
160 IF A<10 OR A>78 C=-C
170 IF B<10 OR B>44 D=-D
180 GOTO 100

Kidspod運営チーム2020/04/02 17:30:12

思ったよりも、ずっと滑らかに線が引かれていてびっくりしました。プログラムのコード内でRUNコマンドを使う工夫が面白いです！

Pagetop