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 13:38:22

MixJuice GET URL : kidspod.club/mj/619

花火(PanCake+BASIC)

PanCake・BASIC 1 画面表示に対応しています。
PanCake プリント基板ではジャンパ J1
IchigoCake JavaScript ではジャンパ J2 を 2-3 のところへ接続して下さい。
実行中は BASIC 画面が非表示になります。キーを押して表示します。

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

NEW
VIDEO 1
?"PANCAKE VIDEO 00
?"PANCAKE RESET

10 'PanCake Fireworks
20 CLV:VIDEO 0
25 IF VER()>11000 UART 1
30 ? CHR$(128,4,5,1)
40 ? CHR$(128,4,0,0)
50 LET [0],6,1,4,4
60 LET [4],9,5,10,3
70 LET [8],10,1,7,7
80 LET T,20+RND(40)
90 FOR Y=35 TO 11 STEP -1
100 ? CHR$(128,8,1,T,Y,T,Y,1)
110 IF INKEY() GOTO 330
120 WAIT 11
130 ? CHR$(128,8,1,T,Y,T,Y,0)
140 NEXT
150 FOR I=0 TO 10
160 FOR J=0 TO 10 STEP 2
170 LET A,[J]*I/10
180 LET B,[J+1]*I/10
190 LET X,A:LET Y,B
200 LET C,1:GOSUB 350
210 LET X,[J+50]:LET Y,[J+51]
220 LET C,0:GOSUB 350
230 LET [J+50],A:LET [J+51],B
240 IF INKEY() GOTO 330 
250 NEXT:NEXT
260 FOR J=0 TO 10 STEP 2
270 LET X,[J+50]:LET Y,[J+51]
280 LET C,0:GOSUB 350
290 IF INKEY() GOTO 330
300 NEXT
310 WAIT RND(120)
320 GOTO 80
330 ? CHR$(128,4,5,0):VIDEO 1
340 END
350 LET D,X:LET E,Y:GOSUB 380
360 LET E,X:LET D,Y:GOSUB 380
370 RETURN
380 LET O,T+D:LET P,10+E
390 GOSUB 470
400 LET O,T+D:LET P,10-E
410 GOSUB 470
420 LET O,T-D:LET P,10+E
430 GOSUB 470
440 LET O,T-D:LET P,10-E
450 GOSUB 470
460 RETURN
470 ? CHR$(128,8,1,O,P,O,P,C)
480 RETURN

'OK

COMMENT