Program post site for everyone
矢印↑↓→←で上のプレイヤー、１、２キーで下のプレイヤーを左右に動かしてボールを右のゴールに運んで得点を狙ってください。
パスミスするとゲームオーバーです。エンターを押して終了してください。
ゲームオーバーの後はエンターを押すとＰａｎｃａｋｅ画面からIchigojam画面に切り替えます。
上のプレイヤーで左右に移動しながら蹴るとボールが変化します。
10 'FOOTBALL 20 X=0:Y=1:A=0:B=2:C=2:D=2:E=0:M=0:N=7:W=6:V=4:S=0:O=128:Z=10 30 UART1:VIDEO0:?CHR$(O,3,13,O,4,5,1,O,4,6,1,O,6,8,4,0,0,O,6,8,5,7,0) 35 FORI=0TO1:?CHR$(O,6,8,6+I,75,22+I*8,O,5,7,6+I,#4A):NEXT 40 @IN:K=INKEY():IFW<1W=4 50 IFV<1V=3 80 X=X+(X<14)*(K=29)-(X>0)*(K=28):Y=Y+(Y<4)*(K=31)-(Y>1)*(K=30) 90 M=M+(M<14)*(K=50)-(M>0)*(K=49) 100 IFD>0IFA/5+C/5=MANDB/4+D/4+1=N D=-D:?CHR$(O,11,9,3,5,4,3,2,255,3,255) 110 IFD<0IFA/5+C/5=XANDB/4+D/4=Y D=-D:W=W+((K=28)-(K=29)):V=V+((K=30)-(K=31)):?CHR$(O,11,9,5,9,5,2,255,3,255) 120 IFE%W=0A=A+C 130 IFE%V=0B=B+D 135 IFE%Z=0:?CHR$(O,11,9,0,255,1,255,2,255,3,255) 140 IFA>75A=0:GSB@SC:B=RND(3)*4+12 150 IFB>28ORB<0:?CHR$(O,11,9,5,0,5,3,2,255,3,255):INPUTK:?"PC VIDEO 0":VIDEO1:?CHR$(O,11,9,0,255,1,255,2,255,3,255):END 160 @PR:?CHR$(O,6,8,1,X*5,Y*4+10,O,5,7,1,11) 170 ?CHR$(O,6,8,2,M*5,N*4+10,O,5,7,2,5) 180 ?CHR$(O,6,8,3,A,B+10,O,5,7,3,89) 190 E=E+1:GOTO@IN 200 @SC:IFB>8ANDB<24:S=S+1:?CHR$(O,5,7,4,#A6+S/10,O,5,7,5,#A6+S%10):?CHR$(O,11,9,5,0,4,7,2,#FF,3,#FF) 210 RTN
