こどもパソコン IchigoJam でBASIC --- 004:「起動音」

待ち時間なく瞬時に起動するIchigoJamですが、起動音を鳴らすと楽しいかもしれません。

■あそびかた
1. 実機(※)で「SAVE 0」に保存しOFF。
2. 基板上のボタンを押しながら電源再投入。
3. 自動実行されます。

※ IchigoJam webで[AUDIO ON]にして実行する場合、実機に比べて実行速度が遅いためプログラムの変更が必要です。

■おまけ
起動後、[SPACE][←][↑][↓][→]を押すといろいろな音が鳴ります。停止は[ESC]

プログラム名：「起動音」

10 'BEEP MENU BSUDLR
20 GOTO 110
30 J=J+1
40 IF BTN()=1 GOTO 110
50 IF BTN(LEFT)=1 GOTO 170
60 IF BTN(UP)=1 GOTO130
70 IF BTN(DOWN)=1 GOTO 150
80 IF BTN(SPACE)=1 GOTO 220
90 IF BTN(RIGHT)=1 GOTO 280
100 GOTO 30
110 BEEP 9,10:WAIT 30:BEEP 9,10:WAIT 20:BEEP 8,40
120 GOTO 30
130 BEEP 9,8:WAIT 10:BEEP 9,8:WAIT 10:BEEP 9,30
140 GOTO 30
150 BEEP 30,8:WAIT 10:BEEP 30,8:WAIT 10:BEEP 30,30
160 GOTO 30
170 FOR I=1 TO 3
180  BEEP 9,8:WAIT 8:BEEP 30,8:WAIT 8
190 NEXT
200 BEEP 9,8:WAIT 8:BEEP 30,20
210 GOTO 30
220 FOR J=1 TO 4
230  FOR I=1 TO 125
240   BEEP I
250  NEXT
260 NEXT
270 GOTO 30
280 BEEP 30,8:WAIT 20:BEEP 9,8:WAIT 10:BEEP 9,8
290 GOTO 30