10 SCREEN 3,1:CONSOLE 0,24,0,1:CLEAR:DEFINT A-Z:COLOR 7,0,0,7 : CLS 3:WIDTH 80,25:DIM P(21,13),T(3)
20 RESTORE 680:FOR I=0 TO 13:FOR J=0 TO 21:READ P(J,I):NEXT:NEXT
30 GOSUB 580:IF E3=0 THEN E1=15:E2=15:S=20:L=3
40 T(0)=0:T(1)=7:M=1:GOSUB 490:GOSUB 370:M=0:GOSUB 370
50 '-----COUNT------
60 FOR I=3 TO 1 STEP -1:LOCATE 37,10:PRINT "=";STR$(I);" =" :FOR J=0 TO 10000:NEXT J,I
70 LOCATE 36,10 : PRINT "      "
80 '-----PLAYER1-----
90 IF E1<1 OR E2<1 THEN 450
100 IF S1>0 THEN S1=S1-1:T(0)=T(0)+((T(0)=1 OR T(0)=4)-2*(T(0)=2 OR T(0)=5)-6*(T(0)=6))*(S1=0):GOTO 150
110 IF T(0)=2 OR T(0)=S THEN 300
120 IF INP(&HE4)=127 THEN T(0)=0
130 IF INP(&HE5)=254 THEN T(0)=3
140 IF INP(&HE3)=191 THEN T(0)=T(0)+1:S1=S
150 IF T(0)<>T(2) THEN M=0:GOSUB 370
160 '-----PLAYER2---
170 IF S2>0 THEN S2=S2-1:T(1)=T(1)+((T(1)=8 OR T(1)=11)-2*(T(1)=9 OR T(1)=121-6*(T(1)=13))*(S2=0):GOTO 230
180 IF T(1)=9 OR T(1)=12 THEN 330
190 IF P=1 THEN GOSUB 250:GOTO 230
200 IF INP(&HE1)=254 THEN T(1)=7
210 IF INP(&HE0)=251 THEN T(1)=10
220 IF INP(&HE7)=127 THEN T(1)=T(1)+1:S2=S
230 IF T(1)<>T(3) THEN M=1:GOSUB 370
240 GOTO 80
250  '-----COMPUTER--------
260 I=INT(RND(1)*10):IF I>L THEN S2=S:GOTO 280
270 IF T(0)=1 OR T(0)=4 THEN T(1)=T(0)+6:S2=S ELSE T(1)=8-3*(I<(L+1)/2):S2=S
280 RETURN
290 '-----HIT 1-----
300 IF T(1)-T(0)=5 THEN S1=S*2:GOTO 160
310 IF (T(1)=8 OR T(1)=11) AND S2=1 THEN S2=S:S1=S:T(0)=6:T(1)=13:E1=E1-1:E2=E2-1:GOSUB 400:GOSUB 370:GOTO 240
320 T(1)=13:S2=S*2:S1=S:E2=E2-1:GOSUB 400:GOSUB 370:GOTO 160
330 '-----HIT 2-----
340 IF T(1)-T(0)=9 THEN S2=S*2:GOTO 240
350 T(0)=6:S1=S*2:S2=S:E1=E1-1:GOSUB 400:GOSUB 370:GOTO 240
360 '----GRP HYOJI-----
370 FOR K=(2*M) TO M STEP -2:J=0:FOR I=0 TO 1:J=3*I:CIRCLE(P(J,T(K)),P(J+1,T(K))),P(J+2,T(K)),7*-(K<2):NEXT
380 FOR I=0 TO 3:J=6+I*4:LINE(P(J,T(K)),P(J+1,T(K)))-(P(J+2,T(K)),P(J+3,T(K))),7*-(K<2):NEXT:NEXT:T(2+M)=T(M)
390 RETURN
400 '--ENERGY--
410 LOCATE 12,22:FOR I=1 TO E1:PRINT CHR$(233);:NEXT:PRINT " "
420 LOCATE 47,22:FOR I=1 TO E2:PRINT CHR$(233);:NEXT:PRINT " "
430 RETURN
440 '--SHOUHAI--
450 LOCATE 33,8:IF E1<1 AND E2<1 THEN PRINT "DRAW GAME":GOTO 470
460 IF E2<1 THEN PRINT "PLAYER1 WIN!!" ELSE PRINT "PLAYER2 WIN!!"
470 RESTORE 870:K=3:GOSUB 620
480 E1=E3-(E3-0)*15:E2=E1:ON I GOTO 40,30:END
490 '---- WAKU & BODY GRP------
500 LINE(10,50)-(620,300),7,B:LINE(10,302)-(620,399),7,B
510 LOCATE 5,20:PRINT "PLAYER1":LOCATE 40,20:PRINT "PLAYER2"
520 LOCATE 5,22:PRINT "ENERGY:":LOCATE 40,22:PRINT "ENERGY:":GOSUB 400
530 CIRCLE(215,197),50,7:LINE(140,250)-(260,300),7,B
540 CIRCLE(430,130),30:LINE(435,163)-(500,250),7,B
550 LINE(490,250)-(490,300),7 : LINE(445,250)-(430,300),7
560 RETURN
570 '------OPTION------
580 RESTORE 840:K=3:GOSUB 630
590 IF I<3 THE P=I:RETURN
600 K=5:GOSUB 630:L=(I-1)*2+I:K=7:GOSUB 630:E3=(I-1)*5-(I=1)+J*(I=7):E1=E3:E2=E3
610 K=5:GOSUB 630:S=(I-1)*10+J:GOTO 580
630 FOR I=0 TO K:READ A$:LOCATE 35+J*(LEN(A$)>10),8+I:PRINT A$:NEXT:I=1:J=1
640 LOCATE 35,8+J:PRINT " ":LOCATE 35,8+I:PRINT CHR$(233):J=I
650 I=I+(INP(&HE0)=251)*(I<K)-(INP(&HE1)=254)*(I>1)
660 FOR M=0 TO 600:NEXT
670 IF INP(&HE1)<>127 THEN 640 ELSE CLS 1:RETURN
680 '--GRP DATA--
690 DATA 250,200,20,220,200,30,252,242,250,260,280,290,299,290,320,220,299,290,320,230
700 DATA 100,200,40,310,240,30,140,270,40,250,80,240,40,290,260,280,280,299,299,299,310,270
710 DATA 350,160,20,310,240,30,330,170,262,210,260,280,280,299,299,299,199,310,270,299,293,310,270
720 DATA 290,250,31,290,240,30,260,250,280,270,260,260,299,299,320,299,335,280,320,299,338,280
730 DATA 290,240,30,385,250,35,260,290,280,270,260,250,280,299,350,299,370,280,350,299,370,280
740 DATA 290,240,30,405,215,20,260,290,280,270,400,235,380,270,350,270,260,280,380,270,280,280
750 DATA 90,128,35,320,120,35,80,155,60,220,60,220,140,280,240,155,360,220,360,220,260,280
760 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
770 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
780 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
790 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
800 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
810 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
820 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
830 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
840 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232
850 DATA 360,150,20,460,185,20,370,170,400,205,400,205,435,175,500,173,490,232