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

2023/03/14 22:05:17

MixJuice GET URL : kidspod.club/mj/2191

カエル

カエルたちが飛び跳ねるだけのプログラムです。

動きが速いと思ったらWAITを追加してみてください。

WEB以外での動作をおすすめします。

  • 1
  • 1

SOURCE CODE

1 VIDEO3:CLS:POKE#700,102,68,221,255,255,126,255,231:POKE#708,102,221,221,255,126,126,102,102
5 ?"カエル"
10 A=RND(8):IF[A]=0LET[A+8],-3:LET[A],-RND(3)
30 FORB=0TO7:LCB*2,10:?CHR$(0):LCB*2,[B]+10:?CHR$(0):LET[B],[B]+[B+8]:IF[B]>0LET[B],0:LET[B+8],0ELSELET[B+8],[B+8]+1
40 LCB*2,[B]+10:IF[B]=0?CHR$(224)ELSE?CHR$(225)
50 NEXT:GOTO10

COMMENT