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

2019/04/18 22:24:15

MixJuice GET URL : kidspod.club/mj/795

IchigoJam 4 周年（IchigoCake BASIC）

IchigoJam officially logo - CC BY IchigoJam http://ichigojam.net/ Licensed by jig.jp

IchigoCake BASIC 用です。IchigoJam は ID=604 です。

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

SOURCE CODE

  1. CLS:'
  2.  
  3. NEW
  4.  
  5. 100 '4th Anniversary
  6. 110 VIDEO 5:CLS:CLV
  7. 120 POKE 1800,1,1,1,1,1,0,1,0,4
  8. 130 POKE 1809,4,119,69,117,0
  9. 140 POKE 1814,255,0,64,0,93,85
  10. 150 POKE 1820,93,4,221,0,4,4
  11. 160 POKE 1826,197,69,221,0,255
  12. 170 POKE 1831,0,0,0,223,74,234
  13. 180 POKE 1837,0,255,0,0,0,128
  14. 190 POKE 1843,128,128,0,128,0
  15. 200 FOR I=1 TO 6
  16. 210 POKE 2304+I,224+I:NEXT
  17. 220 FOR Y=0 TO 6 STEP 2
  18. 230 FOR X=3 TO 0 STEP -1
  19. 240 A=PEEK(416+Y)
  20. 250 B=PEEK(417+Y)
  21. 260 C=128+(A>>(X*2+1)&1)
  22. 270 C=C+2*(A>>(X*2)&1)
  23. 280 C=C+4*(B>>(X*2+1)&1)
  24. 290 C=C+8*(B>>(X*2)&1)
  25. 300 POKE 2312+(Y/2)*8+(3-X)+2,C
  26. 310 NEXT:NEXT
  27. 320 FOR I=1 TO 2
  28. 330 POKE 2346+I,PEEK(3588+I)
  29. 340 NEXT
  30. 350 IF !INKEY() CONT
  31. 360 VIDEO 1
  32.  
  33. 'OK

COMMENT

S