マリオブラザーズに出てくるピンク色のカニ

マリオブラザーズに出 ..

484:walk
02/10/22 09:53 rJaVz39W
おはようございます　おみやげです
やられたあぁー
1000 a=254
1010 for i=1 to 6
1020 poke &h4015,15
1030 poke &h4000,132,138,a,8
1040 a=a-a/4
1050 pause 2
1060 next
1070 poke &h4000,144
1080 pause 60
1090 a=58
1100 for j=0 to 16
1110 poke &h4017,64
1120 read b
1130 poke &h4000,b+144,139,(a-a/64*64)*4,a/64
1140 pause 2
1150 poke &h4001,138
1160 pause 2
1170 a=a+a/16
1180 next
1190 data 12,12,12,12,12,12,12,12,10,8,6,5,4,3,2,1,0

POKE文で PSGを直接さわって　あそんでください
&h4015はmixer-contoroll &h4000はenv,vol,color
&h4002,4003は周波数set, &h4001はsound-contoroll
などなどです

次ページ