1P側 F0h番地に書き込む値・・・ E4h 2P側 F0h番地に書き込む値・・・ 03h |
キー | 書き込まれる値 | |
1P側 | ||
[7][8][9] | 10h | |
[4][5][6] | 20h | |
[1][2][3][SP] | 40h | |
2P側 | ||
[◆] | 01h | |
[Q] | 02h | |
[S] | 04h | |
[A] | 08h | |
[Z] | 20h |
10 CLS :CLEAR :P=16:Q=1:WAIT 99:PRINT "READY "; 20 KEY 0,"POKE&FB,&E3"+CHR$ 13:POKE &FB,&A0:WAIT 0:PRINT "GO!" 30 POKE 240,228:K=PEEK 242:IF P=K THEN P=80-P:X=X+1 40 POKE 240,3:K=PEEK 242:IF Q=K THEN Q=9-Q:Y+Y+1 50 LOCATE X,1:PRINT " P":LOCATE Y,2:PRINT " P" 60 T=T+0.1:IF X<38AND Y<38THEN 30 70 BEEP 1:WAIT :PRINT "GOAL! TIME=";T:POKE &FB,&E3 80 PRINT MID$ ("1P WIN=DRAW=2P WIN",SGN (Y-X)*6+7,6):GOTO 10 |