5 CLS:GOSUB 320
10 CLS:CGSET 0,1:SPRITE ON:X=120:R=0
20 LOCATE RND(27),23:PRINT CHR$(207)
21 IF V=0 THEN GOTO 25
22 LOCATE RND(27),22:PRINT CHR$(207)
25 IF RND(30)=0 THEN LOCATE RND(27),RND(23):PRINT CHR$(199)
30 DEF SPRITE 0,(1,1,0,0,1)=CHR$(162)+CHR$(163)+CHR$(160)+CHR$(161)
40 SPRITE 0,X,48:R=R+2
50 S=STICK(0):PLAY"T1M0V5C"
60 IF S=0 THEN X=X
70 IF S=1 THEN X=X+8
80 IF S=2 THEN X=X-8
90 IF X>216 THEN X=16
100 IF X<16 THEN X=216
105 SPRITE 0,X,48
110 A$=SCR$(X/8-1,4)
111 B$=SCR$(X/8-2,4)
120 IF (A$=CHR$(207))+(B$=CHR$(207))THEN BEEP:GOTO 170
125 IF (A$=CHR$(199))+(B$=CHR$(199))THEN PLAY"M0V15CEG":R=R+20
127 IF R>570 THEN GOTO 160
130 IF R>500 THEN CGSET 1,1
140 IF R>550 THEN CGSET 0,1
160 GOTO 20
170 DEF SPRITE 0,(1,1,0,0,0)=CHR$(180)+CHR$(181)+CHR$(182)+CHR$(183)
180 SPRITE 0,X,48
190 PLAY"T1M0V10C0D0E0D0C0CC0C4"
200 LOCATE 9,13:PRINT "GAME OVER":PAUSE 100:GOSUB 270
210 LOCATE 9,13:PRINT "         "
220 LOCATE 10,12:PRINT "SCORE";R
230 LOCATE 10,14:PRINT A$:PAUSE 300
240 LOCATE 8,14:PRINT "HIT START KEY!"
250 IF STRIG(0)=1 THEN RUN
260 GOTO 250
270 IF R<100 THEN A$="  ヘタクソ":RETURN
280 IF R<300 THEN A$="  マァマァ":RETURN
290 IF R<600 THEN A$="  ナカナカ!":RETURN
300 IF R<1500 THEN A$="アンタハ プロ!!":RETURN
310 IF R>1500 THEN A$="ハハ マブレサ!":RETURN
320 PRINT" "
330 PRINT " {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} "
340 PRINT " {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} "
350 PRINT " {M5|M5} {M5|M5} {M5|M5|M5}   {M5|M5|M5|M5|M5} {M5|M5|M5}   "
360 PRINT " {M5|M5} {M5|M5}    {M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} "
370 PRINT " {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5}  {M5|M5|M5}  {M5|M5|M5}   "
380 PRINT " {M5|M5} {M5|M5} {M5|M5|M5|M5|M5}  {M5|M5|M5}  {M5|M5|M5|M5|M5} "
390 PRINT " "
400 PRINT "   {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5}  "
410 PRINT "   {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5}  "
420 PRINT "   {M5|M5} {M5|M5} {M5|M5} {M5|M5}  {M5|M5|M5}  {M5|M5|M5} {M5} "
430 PRINT "   {M5|M5} {M5|M5} {M5|M5} {M5|M5}  {M5|M5|M5}  {M5|M5|M5} {M5} "
440 PRINT "   {M5|M5|M5|M5}  {M5|M5} {M5|M5}  {M5|M5|M5}  {M5|M5|M5} {M5} "
450 PRINT "   {M5|M5} {M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5|M5} {M5|M5|M5|M5}  "
460  PRINT " "
470 PRINT "           GAME A"
480 PRINT " "
500 PRINT "           GAME B"
530 PRINT " "
540 PRINT "        HIT START KEY!"
550 LOCATE 9,15:PRINT "*":V=0
560 IF STRIG(0)=1 THEN RETURN
570 IF (STRIG(0)=2)*(V=0) THEN GOTO 600
580 IF (STRIG(0)=2)*(V=1) THEN GOTO 620
590 GOTO 560
600 LOCATE 9,15:PRINT " "
610 LOCATE 9,17:PRINT "*":V=1:PAUSE 30:GOTO 570
620 LOCATE 9,17:PRINT " "
630 LOCATE 9,15:PRINT "*":V=0:PAUSE 30:GOTO 570
