ともNET

プログラミングや電子工作

ヒヨコナラ

はじめまして。

初めてアドベントカレンダーに参加します。

 

・プログラムの内容

1、左からヒヨコが出てきます。

2、しばらく歩いてから、オナラをします。

3、その後、恥ずかしくなって、にげていきます。

 

 

・プログラム

 1 'ヒヨコナラ
5 CLS
10 X=0
20 IF X=25 THEN GOTO 60
30 LC X,12:?CHR$(#ED)
35 WAIT 30
40 X=X+1
45 CLS
50 GOTO 20
60 LC X-2,11:?"プ":LC X,12:?CHR$(#ED)
70 WAIT 60
80 IF X=32 THEN GOTO 120
90 LC X,12:?CHR$(#ED)
95 WAIT 10
100 X=X+1
105 CLS
110 GOTO 80
120 WAIT 120
130 ?"THE END"
140 END