CLS
NEW
' ------- 14 Taisen Kakutou
10 CLS:CLV:CLP:R=1
20 LET[0],10,10
30 LOCATE 14,12:PRINT CHR$(131,131,131,131);
40 LOCATE 12,2:PRINT "ROUND ";R;
100 LOCATE 0,0:PRINT "1UP ";[0];CHR$(9,9,9);"2UP ";[1];" ";
110 A=(A+1)%60:B=A%30<15
120 K=INKEY():CLK
130 IF K=49 THEN [1]=[1]-1:LOCATE 15,11:PRINT CHR$(251,244);:WAIT 15:ELSE LOCATE 15,11:PRINT CHR$(249+B);
140 IF K=48 THEN [0]=[0]-1:LOCATE 15,11:PRINT CHR$(244,253);:WAIT 15:ELSE LOCATE 16,11:PRINT CHR$(249+B);
150 IF [0]>=0 AND [1]>=0 THEN GOTO 100
160 LOCATE 9,7
170 IF [0]<0 AND [1]<0 THEN PRINT "DRAW":GOTO 200
180 IF [0]<0 THEN PRINT "Player 1 Lose";
190 IF [1]<0 THEN PRINT "Player 2 Lose";
200 WAIT 180
210 R=R+1:A=0
220 CLS:GOTO 20