SCREEN 1: G = 1
PALETTE 2, 4: PALETTE 1, 1
FOR W = -20 TO 340
G = 3 - G
LINE (W + 20, 0)-(W, 200), G
NEXT W
DRAW "BM20,41 C3 D39 R12 U22 F20 D2 R12 U39 L12 D20 H20 L12" 'N
DRAW "BM70,41 C3 D10 R2 D19 L2 D10 R45 U10 L30 U5 R22 U9 L22 U5 R30 U10 L44" 'E
DRAW "BM130,41 C3 G9 D21 F9 R26 E9 U21 H9 L26" 'O
DRAW "BM138,52 C3 G4 D10 F4 R10 E4 U10 H4 L10" 'O
CIRCLE (192, 61), 10, 3 'DOT
DRAW "BM23,85 C3 G3 D18 F3 R25 F1 D3 G1 L28 D10 R41 E3 U18 H3 L28 H1 U3 E1 R31 U10 L40" 'S
DRAW "BM80,85 C3 G9 D21 F9 R26 E9 U21 H9 L26" 'O
DRAW "BM88,96 C3 G4 D10 F4 R10 E4 U10 H4 L10" 'O
DRAW "BM121,85 C3 D39 R12 U22 F20 D2 R12 U39 L12 D20 H20 L12" 'N
DRAW " BM175,85 C3 D10 R10 D19 L10 D10 R35 U10 L10 U19 R10 U10 L35"
DRAW "BM229,85 C3 G9 D21 F9 R26 E9 U7 L13 D3 G3 L12 H3 U13 E3 R12 F3 D3 R13 U7 H9 L25"
PAINT (150, 60), 0, 3
PAINT (100, 100), 0, 3
PAINT (50, 79), 0, 3
A$ = INPUT$(1)
COLOR 7, 1: COLOR 9, 1: SOUND 600, .5: SOUND 1000, .5
CLS : COLOR 0, 1
PLAYE = 0:  AAC = 1: Enemy = 1: U = 20: O = 20: MAJ = 1: EX = 400
LS = 3
GOTO SEECTEND
SEECT:
LOCATE 12, 16: PRINT "1 Player"
LOCATE 14, 16: PRINT "2 Players"
LOCATE 16, 16: PRINT "Password "
LOCATE 18, 16: PRINT "  Exit   "
CIRCLE (79, 52), 55, 2, 4.71, 2.55, .3
LINE (64, 92)-(69, 37), 2
CIRCLE (75, 78), 47, 2, 4.12, 1.37, .2
LINE (143, 68)-(141, 90), 2
LINE (145, 61)-(141, 62), 2
LINE (166, 37)-(162, 91), 2
LINE (178, 37)-(175, 91), 2
CIRCLE (209, 80), 17, 2, 2.75, 0, .5
CIRCLE (167, 80), 58, 2, 4.71, 6.08, .4
LINE (249, 37)-(242, 80), 2
LINE (242, 37)-(242, 80), 2
CIRCLE (246, 37), 4, 2, 0, 3.14
PAINT (246, 37), 2, 2
CIRCLE (241, 86), 4, 2
PAINT (241, 86), 2, 2
SEECT4:
COLOR 0, 1
LOCATE 12 + PLAYE, 15: PRINT CHR$(16)
DEF SEG = 0
POKE (1047), PEEK(1047) AND 223
A$ = INKEY$: IF A$ = CHR$(27) THEN RUN
IF A$ = CHR$(13) THEN COLOR 7, 1: COLOR 9, 0: SOUND 600, .5: SOUND 1000, .5
IF PLAYE = 2 THEN MAX1 = 600
IF PLAYE = 0 THEN MAX1 = 300
LOCATE 21, 24: PRINT "12 th June, 1992"
LOCATE 23, 13: PRINT "** NEOùSONIC **"
IF A$ = CHR$(0) + "H" THEN LOCATE 12 + PLAYE, 15: PRINT " ": PLAYE = PLAYE - 2
IF A$ = CHR$(0) + "P" THEN LOCATE 12 + PLAYE, 15: PRINT " ": PLAYE = PLAYE + 2
IF PLAYE > 6 THEN PLAYE = 0
IF PLAYE < 0 THEN PLAYE = 6
IF A$ = " " OR A$ = CHR$(13) AND PLAYE < 4 THEN MA = 1: PLAYE = 2 - PLAYE: GOTO SFPF
IF A$ <> "" THEN SOUND 4000, .5: SOUND 3000, .5
IF A$ = " " OR A$ = CHR$(13) THEN IF PLAYE = 4 THEN GOTO IPPSW
IF A$ = " " OR A$ = CHR$(13) THEN IF PLAYE = 6 THEN END
PALETTE 2, 10
GOTO SEECT4
SFPF:
 IF LV <= 2 THEN LEV = -1
 IF LV = 2 THEN LEV = 1
 IF LV = 3 THEN LEV = 3
 GOTO SPF
SEECTEND:
RANDOMIZE TIMER
ZA = 145: XA = 175: CHO2 = 0: POWER1 = 600: POWER2 = 600: PO = 1
ENE1 = 150: ENE2 = 150
DIM P1(200), PP1(200), P2(200), PP2(200), FALL1(250), FALL2(250), SING(200)
DIM A1(15), A2(15), OPE(4000), REA(4000), FIF(500), DOLL1(70)
DIM DOLL2(70), MIR(40), PW$(20), STE(100), BALL(300), FJU(200)
START:
 PLAY "MB"
 LK = 6: LV = 3
 LOCATE 3, 6: PRINT "Geting picture,please wait"
 GOSUB DOS
 GOSUB Player1
 GOSUB Fallp2
 GOSUB FIRE
 GOSUB Fallp1
 CLS
 ZA = 60: XA = 260
 GOSUB SEECT
 GOTO ROAD
 GOTO STARTGAME
DOS:
 CIRCLE (148, 75), 11, 1, -.59, -2.16, .45
 PAINT (148, 71), 1, 1
 CIRCLE (147, 72), 7, 1, 3.34, 5.89, 1.66
 PAINT (147, 77), 3, 1
 CIRCLE (147, 76), 7, 1, 3.53, 5.89, 1.4
 CIRCLE (147, 81), 2, 1, 3.53, 5.89, 1.4
 LINE (141, 81)-(142, 79), 2, BF
 LINE (153, 81)-(152, 79), 2, BF
 LINE (142, 81)-(141, 82), 3, BF
 LINE (152, 80)-(153, 81), 3, BF
 LINE (146, 86)-(144, 83), 1, BF
 LINE (150, 83)-(148, 85), 1, BF
 LINE (150, 85)-(148, 85), 2, BF
 LINE (146, 86)-(143, 86), 2
 LINE (150, 85)-(148, 85), 2
 CIRCLE (147, 74), 6, 1, 4.14, 5.3, .85
 PAINT (147, 80), 2, 1
 GET (159, 88)-(135, 68), DOLL1
 FOR MIR2 = 1 TO 25
 GET (134 + MIR2, 68)-(134 + MIR2, 88), MIR
 PUT (230 - MIR2, 68), MIR
 NEXT MIR2
 GET (204, 68)-(229, 88), DOLL2
 CLS
 RETURN
Player1:
 ZB = 96
 'Player1's head
 CIRCLE (ZA - 7, ZB - 11), 7, 1, 0, 1.96
 CIRCLE (ZA + 23, ZB - 12), 20, 1, 2.75, 3.53
 CIRCLE (ZA, ZB - 12), 11, 1, 3.53, 5.1
 LINE (ZA - 13, ZB - 18)-(ZA - 11, ZB - 5), 1
 LINE (ZA - 11, ZB - 4)-(ZA - 18, ZB - 23), 1
 CIRCLE (ZA - 8, ZB - 11), 11, 1, .39, 1.96
 CIRCLE (ZA + 14, ZB - 18), 9, 1, 1.96, 3.14
 LINE (ZA + 13, ZB - 26)-(ZA - 18, ZB - 24), 1
 LINE (ZA + 1, ZB - 8)-(ZA - 2, ZB - 6), 1
 'Player1's body
 CIRCLE (ZA - 9, ZB + 2), 6, 1, 1.57, 4.71
 LINE (ZA - 11, ZB + 7)-(ZA + 8, ZB + 7), 1
 CIRCLE (ZA + 6, ZB + 3), 5, 1
 LINE (ZA - 4, ZB - 1)-(ZA + 8, ZB - 1), 1
 CIRCLE (ZA + 10, ZB - 1), 4, 1, 5.1, 2.57
 LINE (ZA + 5, ZB - 4)-(ZA + 7, ZB - 2), 1
 CIRCLE (ZA - 2, ZB + 1), 13, 1, 3.92, 5.5
 LINE (ZA - 10, ZB + 11)-(ZA + 6, ZB + 17), 1, BF
 LINE (ZA - 10, ZB + 18)-(ZA + 8, ZB + 19), 2, BF
 CIRCLE (ZA + 14, ZB + 15), 13, 1, 2.75, 3.57
 PAINT (ZA - 7, ZB - 11), 3, 1
 PAINT (ZA - 7, ZB - 21), 1, 1
 PAINT (ZA - 7, ZB), 2, 1
 PAINT (ZA - 7, ZB + 9), 2, 1
 PAINT (ZA + 6, ZB + 3), 3, 1
 PAINT (ZA + 10, ZB - 1), 3, 1
 LINE (144, 85)-(141, 82), 1, BF
 LINE (141, 85)-(140, 85), 1
 PSET (145, 85), 3
 GET (ZA + 21, 67)-(ZA - 21, 120), P1
 LINE (135, 115)-(154, 107), 0, BF
 LINE (136, 107)-(132, 113), 1
 LINE (151, 107)-(155, 113), 1
 CIRCLE (144, 108), 7, 1, -4.71, -5.1
 LINE (132, 113)-(146, 115), 2, BF
 LINE (148, 113)-(157, 115), 2, BF
 LINE (132, 113)-(157, 113), 1
 LINE (137, 106)-(151, 106), 1
 PAINT (150, 110), 1, 1
 GET (ZA + 21, 67)-(ZA - 21, 120), PP1
 LINE (160, 106)-(126, 92), 0, BF
 CIRCLE (146, 84), 15, 1, 4.71, .59, .9
 LINE (142, 91)-(153, 78), 1
 LINE (151, 96)-(148, 86), 0
 LINE (138, 92)-(142, 92), 1
 LINE (132, 95)-(135, 106), 1
 CIRCLE (135, 96), 6, 1, 1.57, 4.32, .9
 LINE (154, 97)-(151, 106), 1
 CIRCLE (155, 74), 5, 1, 3.73, .98, .9
 PAINT (154, 80), 2, 1
 PAINT (155, 76), 3, 1
 GET (ZA + 21, 67)-(ZA - 21, 120), SING
 LINE (ZA + 21, 67)-(ZA - 21, 120), 0, BF
 LINE (145, 76)-(175, 106), 1, B
 LINE (174, 89)-(146, 94), 2, BF
 LINE (174, 90)-(146, 93), 3, BF
 CIRCLE (146, 87), 22, 1, 4.71, .59
 CIRCLE (146, 88), 14, 1, 4.71, .39
 CIRCLE (162, 96), 19, 1, 1.37, 2.75, 2.7
 CIRCLE (174, 87), 21, 1, 4.12, 4.71
 CIRCLE (174, 87), 16, 1, 4.12, 4.71
 PAINT (161, 97), 3, 1
 PAINT (161, 87), 3, 1
 PAINT (169, 101), 3, 1
 GET (146, 77)-(174, 105), BALL
 CLS
 LINE (34, 108)-(43, 113), 3
 LINE (53, 113)-(43, 113), 3
 LINE (53, 113)-(61, 105), 3
 LINE (51, 107)-(61, 105), 3
 LINE (51, 107)-(46, 102), 3
 LINE (45, 108)-(46, 102), 3
 LINE (45, 108)-(38, 105), 3
 LINE (40, 110)-(38, 105), 3
 LINE (40, 110)-(35, 108), 3
 PAINT (44, 110), 3, 3
 LINE (36, 98)-(36, 85), 1
 LINE (38, 91)-(38, 72), 2
 LINE (43, 97)-(43, 81), 3
 LINE (46, 84)-(46, 66), 3
 LINE (49, 101)-(49, 77), 1
 LINE (56, 99)-(56, 78), 2
 GET (26, 63)-(68, 116), FJU
 RETURN
FIRE:
 CLS
 CIRCLE (85, 107), 32, 2, 2.35, .79, 1.65
 CIRCLE (100, 56), 27, 2, 3.53, 4.51, 1.65
 CIRCLE (70, 56), 27, 2, 4.91, 5.89, 1.65
 PAINT (85, 109), 3, 2
 GET (64, 65)-(106, 139), FIF
 CLS
 RETURN
AA1:
 SINGS = SINGS + INT(EX / 2000) + .3: IF SINGS > 4.5 AND AA <> 10 THEN IF ATT1 > 0 AND DFD1 > 0 THEN  ELSE SINF = 1: SINGS = 0
 IF AA = 10 THEN GOSUB JUJ2
 JU = 0
 IF AA = 10 THEN ZA = ZA - 45
 FOR SB = 1 TO 8
 IF A2(SB) = 6 AND AA <> 10 THEN A2(SB) = 0: GOSUB JUJ1
 IF A2(SB) = 5 AND AA <> 10 AND SINF = 0 THEN A2(SB) = 0: SB = 9: GOSUB JUMP1
 IF A2(SB) = 5 AND AA = 10 AND ATT1 < 1 AND SINF = 0 THEN A2(SB) = 0: SB = 9: GOSUB JUMP1
 IF A2(SB) = 5 AND AA = 10 AND ATT1 > 0 AND DFD2 > 0 AND SINF = 0 THEN A2(SB) = 0: SB = 9: GOSUB JUMP1
 NEXT SB
 IF SINF = 1 THEN LINE (ZA - 21, ZB - 29)-(ZA + 21, ZB + 24), 0, BF: PUT (ZA - 21, ZB - 29), SING: GOTO SINEN
 CIRCLE (ZA + 10, ZB - 1), 4, 0, 5.1, 2.57
 LINE (ZA + 4, ZB - 4)-(ZA + 18, ZB - 4), 1
 LINE (ZA + 8, ZB + 1)-(ZA + 19, ZB + 1), 1
 CIRCLE (ZA + 21, ZB - 1), 4, 1
 PAINT (ZA + 21, ZB - 1), 3, 1
 PAINT (ZA + 11, ZB - 1), 2, 1
SINEN:
 FOR AAA = 40 TO 90
 SOUND AAA, .05
 NEXT AAA
 IF AA = 10 THEN GOTO AA3
 IF ATT1 > 0 AND DFD1 > 0 THEN GOSUB AA4
 LINE (ZA - 21, ZB - 29)-(ZA + 30, ZB + 24), 0, BF
 PUT (ZA - 21, ZB - 29), PP1
 IF JU > 30 AND JU < 45 THEN GOSUB DOWN1
 IF JU = 100 THEN GOSUB JU1
 LEF2 = 0
 IF ATT1 > 0 AND DFD1 > 0 THEN LEF2 = 45
 IF JU = 0 AND LEF2 = 0 THEN LEF2 = 15: GOSUB WOUND2
 IF JU = 0 AND LEF2 > 0 THEN GOSUB WOUND2
 SINF = 0
 JU = 0
 RETURN
JUMP1:
 IF DFD2 > 0 AND AA = 10 OR DFD2 > 0 AND ATT1 > 0 AND DFD1 > 0 THEN GOTO UJ1
 FOR JU = 1 TO 40 STEP 8: LINE (XA - 21, XB - JU - 29)-(XA + 21, XB - JU + 34), 0, BF: PUT (XA - 21, XB - JU - 29), P2: NEXT JU
 RETURN
JUMP2:
 IF DFD1 > 0 AND XX = 10 OR DFD1 > 0 AND ATT2 > 0 AND DFD2 > 0 THEN GOTO UJ2
 FOR JU = 1 TO 40 STEP 8: LINE (ZA - 21, ZB - JU - 29)-(ZA + 21, ZB - JU + 34), 0, BF: PUT (ZA - 21, ZB - JU - 29), P1: NEXT JU
 RETURN
JUMPP1:
 FOR JU = 1 TO 20 STEP 4: LINE (XA - 21, XB - JU - 29)-(XA + 21, XB - JU + 34), 0, BF: PUT (XA - 21, XB - JU - 29), PP2: NEXT JU
 RETURN
JUMPP2:
 FOR JU = 1 TO 20 STEP 4: LINE (ZA - 21, ZB - JU - 29)-(ZA + 21, ZB - JU + 34), 0, BF: PUT (ZA - 21, ZB - JU - 29), P1: NEXT JU
 RETURN
JUJ1:
 IF ATT1 > 0 AND DFD1 > 0 AND XX <> 10 THEN A2(SB) = 6: RETURN
 LINE (XA - 21, XB - 45)-(XA + 21, XB + 24), 0, BF
 FOR JU = 1 TO 50 STEP 5: LINE (XA + JU - 26, XB - 29)-(XA + JU + 21, XB + 24), 0, BF: PUT (XA + JU - 21, XB - 29), P2: NEXT JU: JU = 100
 SB = 9
 RETURN
UJ1:
 JU = 40
 LINE (XA - 21, XB - 29)-(XA + 21, XB + 24), 0, BF
 PUT (XA - 21, XB - 29), FJU
 SOUND 40, .3: SOUND 40, .1: SOUND 50, .3
 PUT (XA - 21, XB - 29), FJU
 PUT (XA - 21, XB - 29), FJU
 SOUND 40, .3: SOUND 40, .1: SOUND 50, .3
 PUT (XA - 21, XB - 29), FJU
 RETURN
UJ2:
 JU = 40
 LINE (ZA - 25, ZB - 29)-(ZA + 21, ZB + 24), 0, BF
 PUT (ZA - 21, ZB - 29), FJU
 SOUND 40, .3: SOUND 40, .1: SOUND 50, .3
 PUT (ZA - 21, ZB - 29), FJU
 PUT (ZA - 21, ZB - 29), FJU
 SOUND 40, .3: SOUND 40, .1: SOUND 50, .3
 PUT (ZA - 21, ZB - 29), FJU
 RETURN
JUJ2:
 IF ATT2 > 0 AND DFD2 > 0 AND AA <> 10 THEN A1(SB) = 6: RETURN
 LINE (ZA - 21, ZB - 45)-(ZA + 21, ZB + 24), 0, BF
 FOR JU = 1 TO 50 STEP 5: LINE (ZA - JU - 21, ZB - 29)-(ZA - JU + 26, ZB + 24), 0, BF: PUT (ZA - JU - 21, ZB - 29), P1: NEXT JU: JU = 100
 SB = 9
 RETURN
JU1:
 FOR JU = 1 TO 50 STEP 5: LINE (XA + (50 - JU) - 26, XB - 29)-(XA + (50 - JU) + 36, XB + 24), 0, BF: PUT (XA + (50 - JU) - 21, XB - 29), PP2: NEXT JU
 RETURN
JU2:
 FOR JU = 1 TO 50 STEP 5: LINE (ZA - (50 - JU) - 36, ZB - 29)-(ZA - (50 - JU) + 21, ZB + 24), 0, BF: PUT (ZA - (50 - JU) - 21, ZB - 29), PP1: NEXT JU
 RETURN
DOWN1:
 FOR JU = XB - 40 TO XB STEP 8: LINE (XA - 21, JU - 39)-(XA + 21, XB + 24), 0, BF: PUT (XA - 21, JU - 29), P2: NEXT JU
 RETURN
DOWN2:
 FOR JU = ZB - 40 TO ZB STEP 8: LINE (ZA - 21, JU - 35)-(ZA + 21, ZB + 24), 0, BF: PUT (ZA - 21, JU - 29), P1: NEXT JU
 RETURN
DOWNP1:
 FOR WW = 0 TO 9: IF A2(WW) = 2 THEN A2(WW) = 0: WW = 9: JU = 0: XB = 79: GOSUB XX2
 NEXT WW
 XB = 96: WW = 0
 FOR JU = XB - 20 TO XB STEP 4: LINE (XA - 21, JU - 35)-(XA + 21, XB + 24), 0, BF: PUT (XA - 21, JU - 29), P2: NEXT JU
 RETURN
DOWNP2:
 FOR WW = 0 TO 9: IF A1(WW) = 2 THEN A1(WW) = 0: WW = 9: JU = 0: ZB = 79: GOSUB AA2
 NEXT WW
 ZB = 96: WW = 0
 FOR JU = ZB - 20 TO ZB STEP 4: LINE (ZA - 21, JU - 35)-(ZA + 21, ZB + 24), 0, BF: PUT (ZA - 21, JU - 29), P1: NEXT JU
 RETURN
WOUND2:
 IF SINF = 1 THEN SINF = 0: LEF2 = 60
 POW2 = (INT(10 * RND) + LEF2)
 IF DFD2 > 0 THEN POW2 = POW2 - INT(POW2 / 3)
 IF ATT1 > 0 THEN POW2 = POW2 + INT(POW2 / 2): IF POW2 > 40 THEN POW2 = POW2 + 37: IF DFD2 > 0 THEN POW2 = POW2 - 30
 IF POW2 > 32 THEN POW2 = POW2 + 15
 IF ATT1 > 0 AND DFD1 > 0 THEN POW2 = POW2 + 25
 IF ATT2 > 0 AND DFD2 > 0 THEN POW2 = POW2 - 2
 POW2 = INT(POW2 * (EX + 100) / STT)
 LOCATE 18, 21: PRINT "-"; POW2
 POWER2 = POWER2 - POW2: ENE2 = ENE2 - INT(POW2 / 4)
 IF LK > 5 AND BOL3 = 1 THEN STT = STT + POW2: IF STT < 850 AND BOL4 = 0 AND EX + 100 > STT THEN BOL4 = 1: IF STT > EX THEN SAY = 3
 IF STT > EX AND STT > 1300 AND BOL4 < 2 THEN BOL4 = 2: SAY = 4
 BOL3 = 0: LEF2 = 0
 LINE (XA - 21, XB - 29)-(XA + 21, XB + 24), 0, BF: PUT (XA - 11, XB - 35), FALL2: IF DIE > 100 THEN RETURN ELSE : SOUND 40, .9: SOUND 100, .1: SOUND 40, .9
 IF POW2 > 40 THEN GOSUB HURT2
 LINE (XA - 11, XB - 35)-(320, XB + 35), 0, BF: PUT (XA - 21, XB - 29), P2
 RETURN
PDIED2:
 IF PLAYE = 0 THEN LV = 5: LK = 170
 IF LK = 6 THEN IF LEV < 5 THEN LEV = LEV + 2: POWER2 = POWER2 + INT(RND * 50) + 351: ENE2 = 350: SAY = 1: RETURN
 IF LK = 5 THEN IF LEV < 5 THEN LEV = LEV + 2: POWER2 = POWER2 + INT(RND * 50) + 351: ENE2 = 350: SAY = 1: RETURN
 XA = XA + 4: XB = XB + 4
 LINE (160, 30)-(320, 192), 0, BF
 PUT (XA - 11, XB - 36), FALL2
 IF XA > 245 AND PLAYE = 0 OR XA > 245 AND PLAYE = 2 AND LV < 3 THEN LOCATE 6, 1: PRINT "Billy win!!!": SOUND 73, 5: PLAY "MBO1 C9C9C9D9D9D9E": CLS : GOSUB FINDLS: GOTO ROAD
 IF XA > 245 AND PLAYE = 2 AND LK > 5 THEN LINE (160, 30)-(320, 192), 0, BF: LOCATE 6, 1: PRINT "Billy win!!!": SOUND 73, 5: PLAY "MBO1 C9C9C9D9D9D9MBE": GOTO WINEND
 SOUND 320 - XA, 1
 GOTO PDIED2
PDIED1:
 IF EX > 500 AND LEV > 2 AND PLI1 < 3 AND PLAYE = 2 THEN PLI1 = PLI1 + 1: SAY = 2: POWER1 = INT(RND * 30) + 30: RETURN
 ZA = ZA - 4: ZB = ZB + 4
 LINE (160, 30)-(0, 192), 0, BF
 PUT (ZA - 50, ZB - 35), FALL1
 IF ZA < 75 THEN LOCATE 6, 1: PRINT "John win!!!": SOUND 73, 5: IF PLAYE = 0 THEN PLAY "MBO1 C7E7B7A2 ": CLS  ELSE IF PLAYE = 2 THEN PLAY "MBO1 D3G1": CLS
 IF ZA < 75 THEN GOTO ENEMY2
 SOUND ZA, 1
 GOTO PDIED1
WOUND1:
 SONGS = SONGS + 1
 POW1 = (INT(10 * RND) + LEF1)
 IF DFD1 > 0 THEN POW1 = POW1 - INT(POW1 / 3)
 IF ATT2 > 0 THEN POW1 = POW1 + INT(POW1 / 2): IF POW1 > 40 THEN POW1 = POW1 + 37: IF DFD1 > 0 THEN POW1 = POW1 - 30
 IF POW1 > 32 THEN POW1 = POW1 + 15
 IF ATT2 > 0 AND DFD2 > 0 THEN POW1 = POW1 + 25
 IF ATT1 > 0 AND DFD1 > 0 THEN POW1 = POW1 - 2
 POW1 = INT(POW1 * STT / (EX + 100))
 LOCATE 18, 16: PRINT "-"; POW1
 POWER1 = POWER1 - POW1: ENE1 = ENE1 - INT(POW1 / 4)
 LEF1 = 0
 LINE (ZA - 21, ZB - 29)-(ZA + 21, ZB + 24), 0, BF: PUT (ZA - 53, ZB - 35), FALL1: SOUND 40, .9: SOUND 100, .1: SOUND 40, .9
 IF POW1 > 40 THEN GOSUB HURT1
 LINE (0, ZB - 32)-(ZA + 21, ZB + 24), 0, BF
 LINE (ZA + 11, ZB - 35)-(ZA - 50, ZB + 35), 0, BF: PUT (ZA - 21, ZB - 29), P1
 RETURN
XX1:
 IF XX = 10 THEN GOSUB JUJ1
 JU = 0
 IF XX = 10 THEN XA = XA + 45
 FOR SB = 1 TO 8
 IF A1(SB) = 6 AND XX <> 10 THEN A1(SB) = 0: GOSUB JUJ2
 IF A1(SB) = 5 AND XX <> 10 THEN A1(SB) = 0: SB = 9: GOSUB JUMP2
 IF A1(SB) = 5 AND XX = 10 AND ATT2 < 1 THEN A1(SB) = 0: SB = 9: GOSUB JUMP2
 IF A1(SB) = 5 AND XX = 10 AND ATT2 > 0 AND DFD1 > 0 THEN A1(SB) = 0: SB = 9: GOSUB JUMP2
 NEXT SB
 IF LK < 0 THEN LINE (XA - 9, XB - 1)-(XA - 11, XB - 42), 0, BF
 IF LK = 2 AND ATT2 < 1 AND XX = 10 THEN GOTO GUN2
 IF LK = 3 AND XX = 0 THEN IF ATT2 > 0 AND DFD2 > 0 THEN  ELSE FG = INT(RND * 10) + 40: LINE (XA - 20, XB)-(XA - 25 - FG, XB - 3), 0, BF
 IF LK < 0 THEN LINE (XA - 25, XB - 1)-(XA - 60, XB - 2), 0, BF
 CIRCLE (XA - 10, XB - 1), 4, 0, .49, 4.32
 LINE (XA - 6, XB - 4)-(XA - 20 - FG, XB - 4), 2
 LINE (XA - 11, XB + 1)-(XA - 20 - FG, XB + 1), 2
 CIRCLE (XA - (24 + FG), XB - 1), 4, 2
 PAINT (XA - 24 - FG, XB - 1), 3, 2
 PAINT (XA - 14, XB - 1), 1, 2
 IF LK < 0 THEN LINE (XA - 25, XB - 1)-(XA - 60, XB - 2), 3, BF: SOUND 50, 1
 FOR XXX = 40 TO 90
 SOUND XXX, .05
 NEXT XXX
GUN2:
 IF ATT2 > 0 AND DFD2 > 0 THEN GOSUB XX4
 IF XX = 10 THEN GOTO XX3
 IF LK < 0 THEN LINE (XA - 25, XB - 1)-(XA - 60 - FG, XB - 2), 0, BF
 IF FG > 0 THEN LINE (XA - 20, XB + 2)-(0, XB - 5), 0, BF: FG = 0
 LINE (XA - 60, XB - 29)-(XA + 21, XB + 24), 0, BF: PUT (XA - 21, XB - 29), PP2
 IF JU > 35 AND JU < 45 THEN GOSUB DOWN2
 IF JU = 100 THEN GOSUB JU2
 LEF1 = 0
 IF LK = 3 THEN LEF1 = 50
 IF LK < 0 THEN LEF1 = 30
 IF ATT2 > 0 AND DFD2 > 0 THEN LEF1 = 45: IF LK = 6 THEN LEF1 = 400
 IF JU = 0 AND LEF1 = 0 THEN LEF1 = 15: GOSUB WOUND1
 IF JU = 0 AND LEF1 > 0 THEN GOSUB WOUND1
 RETURN
AA2:
 SINGS = SINGS + .5
 FOR SB = 0 TO 8
 IF A2(SB) = 7 AND WW <> 9 THEN A2(SB) = 0: SB = 9: GOSUB JUMPP1
 IF A2(SB) = 6 THEN A2(SB) = 0: SB = 9: GOSUB JUJ1
 IF A2(SB) = 5 THEN A2(SB) = 0: SB = 9: GOSUB JUMP1
 NEXT SB
 LINE (ZA, ZB + 17)-(ZA + 13, ZB + 11), 0, BF
 LINE (ZA + 3, ZB + 19)-(ZA + 13, ZB + 18), 0, BF
 LINE (ZA + 20, ZB + 11)-(ZA, ZB + 15), 1, BF
 LINE (ZA + 21, ZB + 8)-(ZA + 23, ZB + 15), 2, BF
 FOR AAA = 90 TO 140
 SOUND AAA, .05
 NEXT AAA
 LINE (ZA - 21, ZB - 29)-(ZA + 23, ZB + 29), 0, BF: PUT (ZA - 21, ZB - 29), PP1
 IF JU > 30 AND JU < 45 THEN GOSUB DOWN1
 IF JU = 100 THEN GOSUB JU1
 IF JU > 10 AND JU < 30 THEN GOSUB DOWNP1
 LEF2 = 0: IF WW = 9 THEN LEF2 = 30
 IF JU = 0 THEN LEF2 = LEF2 + 5: GOSUB WOUND2
 RETURN
XX2:
 FOR SB = 0 TO 8
 IF A1(SB) = 7 AND WW <> 9 THEN A1(SB) = 0: SB = 9: GOSUB JUMPP2
 IF A1(SB) = 6 THEN A1(SB) = 0: SB = 9: GOSUB JUJ2
 IF A1(SB) = 5 THEN A1(SB) = 0: SB = 9: GOSUB JUMP2
 NEXT SB
 IF LK = 3 THEN FG = INT(RND * 10) + 40
 LINE (XA, XB + 17)-(XA - 13, XB + 11), 0, BF
 LINE (XA - 3, XB + 19)-(XA - 13, XB + 18), 0, BF
 LINE (XA - 20 - FG, XB + 11)-(XA, XB + 15), 2, BF
 LINE (XA - 21 - FG, XB + 8)-(XA - 23 - FG, XB + 15), 1, BF
 FOR XXX = 90 TO 140
 SOUND XXX, .05
 NEXT XXX
 LINE (XA - 21, XB + 8)-(XA - 23 - FG, XB + 15), 0, BF
 LINE (XA - 21, XB - 29)-(XA + 21, XB + 24), 0, BF
 FG = 0
 PUT (XA - 21, XB - 29), PP2
 IF JU > 35 AND JU < 45 AND XX <> 1 THEN GOSUB DOWN2
 IF JU = 100 AND XX <> 1 THEN GOSUB JU2
 IF JU > 10 AND JU < 30 AND XX <> 1 THEN GOSUB DOWNP2
 LEF1 = 0: IF WW = 9 THEN LEF1 = 30
 IF LK = 3 THEN LEF1 = 30
 IF JU = 0 THEN LEF1 = LEF1 + 5: GOSUB WOUND1
 RETURN
AA3:
 BOL3 = 1: LEF2 = 0: ECR = 0
 IF EX > 2900 THEN ECR = 5
 IF ATT1 > 0 THEN LINE (ZA + 36 + ECR, ZB - 7 - ECR)-(320, ZB + 5 + ECR), 1, BF
 LINE (ZA + 20, ZB - 4)-(320, ZB + 2), 1, BF: LINE (ZA + 20, ZB - 3)-(320, ZB + 1), 3, BF
 IF ATT1 > 0 THEN CIRCLE (ZA + 35 + ECR, ZB - 1), 7 + ECR, 1, 1.57, 4.71
 IF ATT1 > 0 THEN PAINT (ZA + 34, ZB - 5), 1, 1
 IF ATT1 > 0 THEN PAINT (ZA + 34, ZB + 3), 1, 1
 IF EX > 2900 AND ATT1 > 0 THEN GOSUB BIG
 FOR AA = 50 TO 500
 SOUND AA, .03
 IF ATT1 > 0 THEN SOUND AA + 100, .05
 NEXT AA
 IF ATT1 > 0 THEN SOUND 40, 5
 LINE (ZA + 28, ZB - 9 - ECR)-(320, ZB + 7 + ECR), 0, BF
 IF ECR > 0 AND ATT1 > 0 THEN COLOR 7, 0: COLOR 0, 1: PALETTE 2, 4: PALETTE 1, 9
 LINE (ZA - 21, ZB - 29)-(ZA + 29, ZB + 24), 0, BF
 PUT (ZA - 21, ZB - 29), P1
 IF JU > 35 AND JU < 45 THEN GOSUB DOWN1
 IF EX > 2900 AND ATT1 > 0 THEN LEF2 = LEF2 + 200
 IF JU = 0 THEN LEF2 = LEF2 + 45: GOSUB WOUND2
 ZA = ZA + 45: GOSUB JU2
 AA = 0
 RETURN
AA4:
 BOL3 = 1
 FI = 1: GOSUB FIRE1
 LINE (ZA + 26, ZB - 2)-(320, ZB), 1, BF: LINE (ZA + 26, ZB - 1)-(320, ZB - 1), 3, BF
 PUT (ZA - 21, ZB - 46), FIF
 FOR AA = 50 TO 800 STEP 2
 SOUND AA, .05
 SOUND AA + 70, .05
 SOUND AA + 100, .05
 NEXT AA
 PUT (ZA - 21, ZB - 46), FIF
 LINE (ZA + 26, ZB - 2)-(320, ZB), 0, BF
 RETURN
XX4:
 FI = 2: GOSUB FIRE1
 LINE (XA - 26, XB - 2)-(0, XB), 2, BF: LINE (XA - 26, XB - 1)-(0, XB - 1), 3, BF
 IF LK = 6 THEN LINE (XA - 26, XB - 2)-(0, XB - 8), 2: LINE (XA - 26, XB - 1)-(0, XB - 7), 3: LINE (XA - 26, XB)-(0, XB - 6), 2
 IF LK = 6 THEN LINE (XA - 26, XB - 2)-(0, XB + 4), 2: LINE (XA - 26, XB - 1)-(0, XB + 5), 3: LINE (XA - 26, XB)-(0, XB + 6), 2
 PUT (XA - 21, XB - 46), FIF
 FOR AA = 50 TO 800 STEP 2
 SOUND AA, .05
 SOUND AA + 70, .05
 SOUND AA + 100, .05
 NEXT AA
 PUT (XA - 21, XB - 46), FIF
 LINE (XA - 28, XB - 10)-(0, XB + 10), 0, BF
 RETURN
FIRE1:
 FOR TY = 1 TO 12
 FOR YT = 1 TO 2
 IF FI = 1 THEN PUT (ZA - 21, ZB - 46), FIF
 IF FI = 2 THEN PUT (XA - 21, XB - 46), FIF
 SOUND 30000, .5
 NEXT YT
 NEXT TY
 FI = 0
 RETURN
XX3:
 IF LK = 4 THEN GOSUB MOUTH
 IF ATT2 > 0 AND LK <> 4 THEN LINE (XA - 36, XB - 7)-(0, XB + 5), 2, BF
 IF LK = 2 AND ATT2 < 1 THEN GOTO GUN
 IF LK <> 4 THEN LINE (XA - 26, XB - 4)-(0, XB + 2), 2, BF: LINE (XA - 26, XB - 3)-(0, XB + 1), 3, BF
 IF ATT2 > 0 AND LK <> 4 THEN CIRCLE (XA - 35, XB - 1), 7, 2, 4.71, 1.57: PAINT (XA - 34, XB - 5), 2, 2: PAINT (XA - 34, XB + 3), 2, 2
 IF LK = 5 AND ATT2 > 0 THEN LINE (XA - 30, XB - 7)-(0, XB + 5), 0, BF: GOSUB HUNG
 FOR XX = 50 TO 500
 SOUND XX, .03
 IF ATT2 > 0 THEN SOUND XX + 50, .03
 NEXT XX
 IF ATT2 > 0 AND LK = 5 THEN GOSUB MSS
 IF ATT2 > 0 THEN SOUND 40, 5
 IF LK = 5 AND ATT2 > 0 THEN GOSUB HUNG
 LINE (XA - 28, XB - 9)-(0, XB + 7), 0, BF
 IF LK = 4 THEN LINE (XA - 28, XB - 15)-(0, XB - 9), 0, BF
GUN3:
 LINE (XA - 29, XB - 30)-(XA + 21, XB + 24), 0, BF
 PUT (XA - 21, XB - 29), P2
 IF JU > 35 AND JU < 45 THEN GOSUB DOWN2
 IF JU = 0 THEN IF LK <> 2 AND LK <> 5 THEN LEF1 = 45 ELSE IF LK <> 5 THEN LEF1 = 70 ELSE LEF1 = 230
 IF JU = 0 AND LK = 4 THEN LEF1 = 110
 IF JU = 0 THEN GOSUB WOUND1
 XA = XA - 45: GOSUB JU1
 XX = 0
 RETURN
Player2:
 XB = 96
 'Player2's head
 CIRCLE (XA - 5, XB - 20), 8, 2, 1.57, 5.89
 CIRCLE (XA + 8, XB - 37), 17, 2, 3.92, 5.1
 CIRCLE (XA + 8, XB - 17), 5, 2, 3.14, 0
 LINE (XA + 15, XB - 26)-(XA + 14, XB - 18), 2
 CIRCLE (XA, XB - 8), 6, 2, 1.18, 2.55
 CIRCLE (XA - 1, XB - 10), 8, 2, 4.32, 0
 LINE (XA + 8, XB - 4)-(XA + 8, XB - 12), 2
 CIRCLE (XA - 3, XB - 5), 2, 2, .39, 2.75
 LINE (XA - 6, XB - 5)-(XA - 8, XB - 13), 2
 'Player2's body
 CIRCLE (XA + 9, XB + 2), 6, 2, 4.71, 1.57
 LINE (XA + 11, XB + 7)-(XA - 8, XB + 7), 2
 CIRCLE (XA - 6, XB + 3), 5, 2
 LINE (XA + 4, XB - 1)-(XA - 8, XB - 1), 2
 CIRCLE (XA - 10, XB - 1), 4, 2, .45, 4.32
 LINE (XA - 5, XB - 4)-(XA - 7, XB - 2), 2
 CIRCLE (XA + 2, XB + 1), 13, 2, 3.92, 5.5
 LINE (XA + 10, XB + 11)-(XA - 6, XB + 17), 2, BF
 LINE (XA + 10, XB + 18)-(XA - 8, XB + 19), 1, BF
 CIRCLE (XA - 14, XB + 15), 13, 2, 5.89, .39
 PAINT (XA + 8, XB - 21), 2, 2
 PAINT (XA + 5, XB - 10), 3, 2
 PAINT (XA + 1, XB + 3), 1, 2
 PAINT (XA + 11, XB), 2, 1
 PAINT (XA - 2, XB + 9), 1, 2
 PAINT (XA - 6, XB + 3), 3, 2
 PAINT (XA - 11, XB - 2), 3, 2
 IF LK = 6 THEN LINE (175, 86)-(170, 86), 3
 IF LK = 6 THEN LINE (174, 84)-(172, 86), 2, BF
 IF LK = 6 THEN LINE (169, 85)-(169, 86), 2
 GET (154, 67)-(196, 120), P2
 GOSUB CHANGHEAD1
 LINE (185, 115)-(167, 107), 0, BF
 LINE (188, 113)-(184, 107), 2
 LINE (170, 107)-(165, 112), 2
 CIRCLE (177, 108), 7, 2, -4.32, -4.71
 LINE (189, 114)-(175, 115), 1, BF
 LINE (173, 114)-(163, 115), 1, BF
 LINE (183, 106)-(170, 106), 2
 LINE (164, 113)-(188, 113), 2
 PAINT (171, 112), 2, 2
 GET (154, 67)-(196, 120), PP2
 LINE (XA - 21, 67)-(XA + 21, 120), 0, BF
 RETURN
Fallp2:
 CIRCLE (234, 86), 7, 2
 CIRCLE (240, 88), 4, 2, 4.71, 1.18
 CIRCLE (236, 87), 1, 2
 CIRCLE (232, 90), 9, 2, 2.75, 5.89
 LINE (225, 87)-(226, 87), 2
 LINE (216, 74)-(224, 87), 2
 CIRCLE (236, 39), 47, 2, 4.32, 4.9
 LINE (241, 93)-(256, 93), 2
 LINE (222, 91)-(216, 82), 2
 LINE (209, 83)-(217, 102), 2
 LINE (256, 99)-(239, 106), 2
 CIRCLE (211, 80), 4, 2
 CIRCLE (260, 96), 4, 2
 CIRCLE (229, 99), 12, 2, 3.53, 5.5
 LINE (210, 100)-(239, 116), 2
 LINE (239, 123)-(209, 107), 2
 LINE (209, 97)-(205, 107), 1, BF: LINE (209, 97)-(209, 107), 2
 LINE (235, 123)-(241, 112), 1, BF: LINE (235, 123)-(235, 112), 2
 CIRCLE (244, 81), 5, 2, 4.71, 1.18
 PAINT (241, 80), 2, 2
 PAINT (237, 83), 3, 2
 PAINT (242, 88), 3, 2
 PAINT (228, 95), 3, 2
 PAINT (228, 101), 1, 2
 PAINT (260, 96), 3, 2
 PAINT (211, 80), 3, 2
 PAINT (218, 110), 2, 2
 GET (203, 70)-(267, 127), FALL2
 LINE (203, 70)-(267, 127), 0, BF
 RETURN
Fallp1:
 CIRCLE (86, 86), 7, 1
 CIRCLE (80, 88), 4, 1, 1.96, 4.71
 CIRCLE (84, 87), 1, 1
 CIRCLE (88, 90), 9, 1, 3.53, .39
 LINE (76, 85)-(66, 76), 1
 LINE (98, 77)-(66, 75), 1
 LINE (98, 88)-(99, 78), 1
 LINE (95, 87)-(94, 87), 1
 LINE (79, 93)-(64, 93), 1
 LINE (64, 99)-(81, 106), 1
 LINE (98, 91)-(104, 82), 1
 LINE (111, 83)-(103, 102), 1
 CIRCLE (109, 80), 4, 1
 CIRCLE (60, 96), 4, 1
 CIRCLE (91, 99), 12, 1, 3.92, 5.89
 LINE (110, 100)-(81, 116), 1
 LINE (81, 123)-(111, 107), 1
 LINE (111, 97)-(115, 107), 2, BF: LINE (111, 97)-(111, 107), 1
 LINE (85, 123)-(79, 112), 2, BF: LINE (85, 123)-(85, 112), 1
 PAINT (109, 80), 3, 1
 PAINT (60, 96), 3, 1
 PAINT (96, 83), 1, 1
 PAINT (90, 85), 3, 1
 PAINT (88, 94), 3, 1
 PAINT (78, 89), 3, 1
 PAINT (88, 106), 2, 1
 PAINT (93, 113), 1, 1
 GET (117, 70)-(53, 127), FALL1
 LINE (117, 70)-(53, 127), 0, BF
 RETURN
STARTGAME:
 LINE (ZA - 21, ZB - 29)-(ZA + 21, ZB + 24), 0, BF
 PUT (ZA - 21, ZB - 29), P1
 LINE (XA - 21, XB - 29)-(XA + 21, XB + 24), 0, BF
 PUT (XA - 21, XB - 29), P2
 LOCATE 17, 3: PRINT "1)Punch  ...-4e."; TAB(22); "5)Jump(a) ...-5e."
 LOCATE 19, 3: PRINT "2)Kick   ...-3e."; TAB(22); "6)Back    ...-3e."
 LOCATE 21, 3: PRINT "3)Special..-14e."; TAB(22); "7)Jump(b) ...-1e."
 LOCATE 23, 3: PRINT "4)Attack ..-15e."; TAB(22); "8)Defend  ..-15e."
 LOCATE 18, 1: PRINT TAB(39);
 ROU = ROU + 1
 DFD2 = DFD2 - 1: ATT2 = ATT2 - 1
 IF DFD2 < 0 THEN DFD2 = 0
 IF ATT2 < 0 THEN ATT2 = 0
 DFD1 = DFD1 - 1: ATT1 = ATT1 - 1
 IF DFD1 < 0 THEN DFD1 = 0
 IF ATT1 < 0 THEN ATT1 = 0
 IF MAX1 > 2000 THEN MAX1 = 2000
 IF POWER1 > MAX1 THEN POWER1 = MAX1
 IF POWER2 > MAX2 THEN POWER2 = MAX2
 LINE (0, 8)-(320, 31), 0, BF
 LOCATE 1, 1: PRINT "Billy:"; POWER1; "/"; MAX1
 NAME$ = "Enemy:"
 IF LK = 1 THEN NAME$ = "Leon:"
 IF LK = 2 THEN NAME$ = "Louis:"
 IF LK = 3 THEN NAME$ = "Gong:"
 IF LK = 4 THEN NAME$ = "Cool:"
 IF LK = 5 THEN NAME$ = "Philip:"
 IF LK = 6 THEN NAME$ = "Hons:"
 LOCATE 3, 1: PRINT NAME$; POWER2; "/"; MAX2
 IF PLAYE = 2 THEN ENE2 = ENE2 - 2
 IF MAX1 > MAX2 THEN DW = MAX1 / 153.84615#
 IF MAX1 <= MAX2 THEN DW = MAX2 / 153.84615#
 LINE (0, 8)-(POWER1 / DW, 15), 1, BF: LINE (0, 24)-(POWER2 / DW, 31), 2, BF
 LINE (0, 8)-(MAX1 / DW, 15), 2, B: LINE (0, 24)-(MAX2 / DW, 31), 1, B
 SP1 = INT(4 * RND) + 17
 IF ATT1 > 0 THEN SP1 = SP1 - 5
 IF DFD1 > 0 THEN SP1 = SP1 - 5
 IF PLAYE = 2 THEN GOSUB SPLEV
 SP2 = INT(4 * RND) + 17
 IF ATT2 > 0 THEN SP2 = SP2 - 5
 IF DFD2 > 0 THEN SP2 = SP2 - 5
 IF PLAYE = 2 THEN GOSUB SPLEV2
 IF ASP = 1 THEN ASP = 0: SP1 = SP1 + 9
 CHO = INT(20 * RND) + 1
 IF CHO < 11 THEN CHO = 1: GOTO DC
 IF CHO > 10 THEN CHO = 2: GOTO DC
DC:
 IF ENE2 < 100 AND PLAYE = 2 THEN ENE2 = ENE2 + 6
 ENE1 = ENE1 + 6
 ENE2 = ENE2 + 6
 IF PLAYE = 2 THEN ENE2 = ENE2 + 3 * LEV + INT(RND * 2)
 IF ENE1 < 5 THEN ENE1 = 5
 IF ENE2 < 5 THEN ENE2 = 5
 'Drawing the choices
 'CIRCLE (63, 128), 7, 1
 'CIRCLE (67, 131), 5, 1, 4.32, .79
 'LINE (56, 126)-(34, 128), 1
 'LINE (34, 133)-(60, 134), 1
 'CIRCLE (35, 131), 4, 1, 1.96, 4.32
 'LINE (33, 149)-(78, 150), 1
 'CIRCLE (80, 139), 13, 1, -3.92, -4.71
 'LINE (73, 143)-(33, 141), 1
 'CIRCLE (36, 145), 6, 1, 2.36, 3.93
 'LINE (80, 166)-(33, 160), 2, BF
 'LINE (33, 162)-(80, 164), 3, BF
 'CIRCLE (78, 163), 5, 2, 4.32, 1.96
 'LINE (81, 165)-(83, 161), 2, BF
 'PAINT (47, 130), 2, 1
 'PAINT (62, 130), 3, 1
 'PAINT (69, 133), 3, 1
 'PAINT (69, 145), 1, 1
 'PAINT (75, 145), 2, 1
 'End of drawing the choice
 COMKK = 0
CHOICE:
 C5 = C5 + 1: IF C5 > 3 THEN C5 = 1
 IF CHO = 1 THEN C1 = 1: C2 = 0
 IF CHO = 2 THEN C1 = 0: C2 = 2
 IF CHO = 3 THEN C1 = 0: C2 = 0: GOTO FIGHT
 IF C1 = 1 THEN LINE (146, 72)-(124, 94), C5: LINE (146, 116)-(124, 94), C5: LINE (146, 116)-(146, 72), C5: PAINT (145, 83), C5, C5: LINE (145, 91)-(175, 98), C5, BF
 IF C2 = 2 THEN LINE (320 - 146, 72)-(320 - 124, 94), C5: LINE (320 - 146, 116)-(320 - 124, 94), C5: LINE (320 - 146, 116)-(320 - 146, 72), C5: PAINT (320 - 145, 83), C5, C5: LINE (320 - 145, 91)-(320 - 175, 98), C5, BF
 OUT 33, 130
 OUT 33, 128
 DEF SEG = 0
 POKE (1047), PEEK(1047) OR 32
 A$ = INKEY$: IF A$ = CHR$(27) THEN RUN
 TY$(1) = " - - - -": TY$(2) = "  Punch ": TY$(3) = "  Kick  "
 TY$(4) = " Special": TY$(6) = " Jump(a)": TY$(7) = "  Back"
 TY$(8) = " Jump(b)"
 PALETTE 1, 9
 PALETTE 2, 4
 IF A$ = CHR$(13) OR PLAYE = 2 AND C1 = 0 THEN LINE (124, 72)-(204, 116), 0, BF
 IF PLAYE = 0 THEN STT = 1500: EX = 1400
 IF POWER1 < 189 THEN LINE (61, 90)-(58, 90), 1: IF POWER1 < 132 THEN LINE (58, 90)-(58, 92), 2
 IF PLAYE = 2 AND ENE1 > INT(MAX1 / 2) THEN ENE1 = INT(MAX1 / 2)
 IF ENE2 > 350 THEN ENE2 = 350
 LOCATE 1, 21: PRINT "Energy:"; ENE1; : IF PLAYE = 0 THEN LOCATE 3, 21: PRINT "Energy:"; ENE2
 LOCATE 2, 21: PRINT "Speed :"; SP1; : IF PLAYE = 0 THEN LOCATE 4, 21: PRINT "Speed :"; SP2
 IF PLAYE = 2 THEN LOCATE 5, 1: PRINT "(Put space to use life seed)"
 IF PLAYE = 0 THEN LOCATE 6, 2: PRINT "Round"; ROU ELSE LOCATE 6, 2: PRINT "Life seed:"; LS
 LOCATE 8, 3: PRINT "Strength:"; EX + 100
 LOCATE 8, 24: PRINT "Strength:"; STT
 IF ATT1 > 0 THEN LOCATE 2, 33: PRINT "A."
 IF DFD1 > 0 THEN LOCATE 2, 37: PRINT "D."
 IF ATT2 > 0 AND PLAYE = 0 THEN LOCATE 4, 33: PRINT "A."
 IF DFD2 > 0 AND PLAYE = 0 THEN LOCATE 4, 37: PRINT "D."
 IF CHO = 2 AND PLAYE = 2 AND COMKK = 0 THEN CH2 = 2: GOTO COMPU
 IF VAL(A$) > 0 AND VAL(A$) < 9 AND CHO = 1 THEN GOTO PCH1
 IF VAL(A$) > 0 AND VAL(A$) < 9 AND CHO = 2 THEN GOTO PCH2
 IF A$ = CHR$(13) THEN IF CHO = 1 AND CH1 > 0 OR CHO = 2 AND CH2 > 0 THEN GOTO MOV
 'IF A$ = CHR$(13) THEN IF CHO = 1 AND CH1 = 0 OR CHO = 2 AND CH2 = 0 THEN GOSUB TABLE
 IF A$ = "+" THEN GOSUB TABLE
 IF VAL(A$) > 7 THEN SOUND 100, 3
 IF INT(RND * 250) = 6 THEN SE = 1: GOSUB SEE
 IF A$ = " " AND LS > 0 AND CH1 = 0 AND CHO = 1 AND PLAYE = 2 THEN CH1 = 1: SP1 = 0: A1(1) = 9: GOTO MOV
 IF A$ = "0" AND CHO = 1 THEN CH1 = 8: SOUND 1000, .5: SOUND 2000, .5
 IF A$ = "0" AND CHO = 2 THEN CH2 = 8: SOUND 1000, .5: SOUND 2000, .5
 GOTO CHOICE
PCH1:
 CH1 = CH1 + 1
 IF CH1 > 8 THEN CH1 = 8: SOUND 100, 3: GOTO CHOICE
 IF A1(CH1) <> 0 THEN GOTO PCH1
 IF VAL(A$) = 4 AND ATT1 > 0 THEN ATT1 = 0: CH1 = CH1 - 1: SP1 = SP1 + 5: LOCATE 2, 33: PRINT "  ": GOTO PC1
 IF VAL(A$) = 8 AND DFD1 > 0 THEN DFD1 = 0: CH1 = CH1 - 1: SP1 = SP1 + 5: LOCATE 2, 37: PRINT "  ": GOTO PC1
 IF VAL(A$) = 1 AND SP1 > 3 AND ENE1 > 3 THEN SP1 = SP1 - 4: ENE1 = ENE1 - 4: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 2 AND SP1 > 2 AND ENE1 > 2 THEN SP1 = SP1 - 3: ENE1 = ENE1 - 3: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 3 AND SP1 > 13 AND ENE1 > 13 THEN SP1 = SP1 - 14: ENE1 = ENE1 - 14: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 5 AND SP1 > 4 AND ENE1 > 4 THEN SP1 = SP1 - 5: ENE1 = ENE1 - 5: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 4 AND SP1 > 14 AND ENE1 > 14 THEN SP1 = SP1 - 15: ENE1 = ENE1 - 15: ATT1 = ATT1 + INT(3 * RND) + 4: GOTO PC1
 IF VAL(A$) = 6 AND SP1 > 2 AND ENE1 > 2 THEN SP1 = SP1 - 3: ENE1 = ENE1 - 3: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 7 AND SP1 > 0 AND ENE1 > 0 THEN SP1 = SP1 - 1: ENE1 = ENE1 - 1: A1(CH1) = VAL(A$): GOTO PC1
 IF VAL(A$) = 8 AND SP1 > 14 AND ENE1 > 14 THEN SP1 = SP1 - 15: ENE1 = ENE1 - 15: DFD1 = DFD1 + INT(3 * RND) + 4: GOTO PC1
 CH1 = CH1 - 1: SOUND 100, 3: GOTO CHOICE
PC1:
 SOUND 1000, .5: SOUND 2000, .5
 GOTO CHOICE
PCH2:
 CH2 = CH2 + 1
 IF CH2 > 8 THEN CH2 = 8: SOUND 100, 3: GOTO CHOICE
 IF A2(CH2) <> 0 THEN GOTO PCH2
 IF VAL(A$) = 4 AND ATT2 > 0 THEN ATT2 = 0: CH2 = CH2 - 1: SP2 = SP2 + 5: LOCATE 4, 33: PRINT "  ": GOTO PC2
 IF VAL(A$) = 8 AND DFD2 > 0 THEN DFD2 = 0: CH2 = CH2 - 1: SP2 = SP2 + 5: LOCATE 4, 37: PRINT "  ": GOTO PC2
 IF VAL(A$) = 1 AND SP2 > 3 AND ENE2 > 3 THEN SP2 = SP2 - 4: ENE2 = ENE2 - 4: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 2 AND SP2 > 2 AND ENE2 > 2 THEN SP2 = SP2 - 3: ENE2 = ENE2 - 3: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 3 AND SP2 > 13 AND ENE2 > 13 THEN SP2 = SP2 - 14: ENE2 = ENE2 - 14: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 4 AND SP2 > 14 AND ENE2 > 14 THEN SP2 = SP2 - 15: ENE2 = ENE2 - 15: ATT2 = ATT2 + INT(3 * RND) + 4: GOTO PC2
 IF VAL(A$) = 5 AND SP2 > 4 AND ENE2 > 4 THEN SP2 = SP2 - 5: ENE2 = ENE2 - 5: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 6 AND SP2 > 2 AND ENE2 > 2 THEN SP2 = SP2 - 3: ENE2 = ENE2 - 3: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 7 AND SP2 > 0 AND ENE2 > 0 THEN SP2 = SP2 - 1: ENE2 = ENE2 - 1: A2(CH2) = VAL(A$): GOTO PC2
 IF VAL(A$) = 8 AND SP2 > 14 AND ENE2 > 14 THEN SP2 = SP2 - 15: ENE2 = ENE2 - 15: DFD2 = DFD2 + INT(3 * RND) + 4: GOTO PC2
 CH2 = CH2 - 1: SOUND 100, 3: GOTO CHOICE
PC2:
 SOUND 1000, .5: SOUND 2000, .5
 GOTO CHOICE
MOV:
 IF CH1 = 0 AND CHO = 2 THEN CHO = 1: SOUND 4000, .5: SOUND 5000, .5: GOTO CHOICE
 IF CH2 = 0 AND CHO = 1 THEN CHO = 2: SOUND 4000, .5: SOUND 5000, .5: GOTO CHOICE
 IF CH1 > 0 AND CH2 > 0 THEN CHO = 3: SOUND 600, .5: SOUND 300, .5: GOTO CHOICE
FIGHT:
 LINE (0, 32)-(320, 64), 0, BF
 LINE (0, 120)-(320, 196), 0, BF
 IF SP1 > SP2 THEN FR = 1: GOTO WALKP1
 IF SP2 > SP1 THEN FR = 2: GOTO WALKP1
 FIGHTRIGHT = INT(50 * RND) + 1
 IF FIGHTRIGHT > 25 THEN FR = 2
 IF FIGHTRIGHT < 26 THEN FR = 1
 GOTO WALKP1
WALKP1:
 PLAY "MF"
 WA = 1
 FOR ZA = 60 TO 140 STEP 5
 LINE (ZA - 31, ZB - 29)-(ZA + 21, ZB + 24), 0, BF
 IF WA = 0 THEN PUT (ZA - 21, ZB - 29), P1: WA = 3
 IF WA = 1 THEN PUT (ZA - 21, ZB - 29), PP1: WA = 2
 IF WA = 3 THEN WA = 1
 IF WA = 2 THEN WA = 0
 NEXT ZA
 ZA = ZA - 5
 GOTO WW
ENDFIGHT2:
 WB = 1
 FOR XA = 180 TO 260 STEP 5
 LINE (XA - 31, XB - 29)-(XA + 21, XB + 24), 0, BF
 IF WB = 0 THEN PUT (XA - 21, XB - 29), P2: WB = 3
 IF WB = 1 THEN PUT (XA - 21, XB - 29), PP2: WB = 2
 IF WB = 3 THEN WB = 1
 IF WB = 2 THEN WB = 0
 NEXT XA
 XA = XA - 5
 IF SAY > 0 THEN GOSUB SAYING
 CHO = 0: CH1 = 0: CH2 = 0
 GOTO STARTGAME
WW:
 XA = XA - 5
 LINE (XA - 21, XB - 29)-(XA + 31, XB + 24), 0, BF
 IF WB = 0 THEN PUT (XA - 21, XB - 29), P2: WB = 3
 IF WB = 1 THEN PUT (XA - 21, XB - 29), PP2: WB = 2
 IF WB = 3 THEN WB = 1
 IF WB = 2 THEN WB = 0
 IF XA = 180 AND FR = 1 THEN GOTO STARTFIGHT1
 IF XA = 180 AND FR = 2 THEN GOTO STARTFIGHT2
 GOTO WW
ENDFIGHT1:
WINEND2:
 ZA = ZA - 5
 LINE (ZA - 21, ZB - 29)-(ZA + 31, ZB + 24), 0, BF
 IF WA = 0 THEN PUT (ZA - 21, ZB - 29), P1: WA = 3
 IF WA = 1 THEN PUT (ZA - 21, ZB - 29), PP1: WA = 2
 IF WA = 3 THEN WA = 1
 IF WA = 2 THEN WA = 0
 IF ZA = 60 AND EEE = 1 THEN RETURN
 IF ZA = 60 AND EEE = 0 THEN GOTO ENDFIGHT2
 GOTO ENDFIGHT1
STARTFIGHT1:
 SB = 0: GOSUB PF1
 SB = 0: GOSUB PF2
 GOTO ENDFIGHT1
STARTFIGHT2:
 SB = 0: GOSUB PF2
 SB = 0: GOSUB PF1
 GOTO ENDFIGHT1
PF1:
 IF A1(1) = 9 THEN A1(1) = 9: GOTO LIFE1
 SB = SB + 1: IF SB > 8 THEN SB = 0: ADC = ADC + 1: IF ADC > 19 THEN ADC = 0: RETURN
 JU = 0
 IF A1(SB) = 1 THEN A1(SB) = 0: GOSUB AA1
 IF A1(SB) = 2 THEN A1(SB) = 0: GOSUB AA2
 IF A1(SB) = 3 THEN A1(SB) = 0: AA = 10: GOSUB AA1
 IF POWER2 < 1 THEN GOSUB PDIED2
 IF A1(SB) = 4 THEN A1(SB) = 0
 GOTO PF2
LIFE1:
 A1(1) = 0
 LS = LS - 1
 AAB = (INT(MAX1 / 3))
 GOSUB JUJ2
 LOCATE 17, 9: PRINT "Life +"; AAB
 GOSUB JU2
 POWER1 = POWER1 + AAB
 ENE1 = INT(MAX1 / 2)
 A1(1) = 0
 ASP = 1
 RETURN
LIFE2:
 ENE2 = ENE2 - 100: BBC = (INT(50 * RND) + 99)
 GOSUB JUJ1
 LOCATE 17, 20: PRINT "Life +"; BBC
 GOSUB JU1
 POWER2 = POWER2 + BBC
 A2(1) = 0
 RETURN
PF2:
 IF A2(1) = 9 THEN A2(1) = 9: GOTO LIFE2
PF3:
 SB = SB + 1: IF SB > 8 THEN SB = 0: ADC = ADC + 1: IF ADC > 19 THEN ADC = 0: RETURN
 JU = 0
 IF A2(SB) = 1 THEN A2(SB) = 0: GOSUB XX1
 IF A2(SB) = 2 THEN A2(SB) = 0: GOSUB XX2
 IF A2(SB) = 3 THEN A2(SB) = 0: XX = 10: GOSUB XX1
 IF POWER1 < 1 THEN GOSUB PDIED1
 IF A2(SB) = 4 THEN A2(SB) = 0
 GOTO PF1
COMPU:
 IF LK > -1 AND POWER2 < 200 AND ENE2 > 99 AND (5 * RND) + 1 > 3 THEN COMKK = 1: A2(1) = 9: SP2 = 0
 IF LEV > 1 AND POWER2 < 200 AND ENE2 > 159 AND (5 * RND) + 1 > 2 THEN COMKK = 1: A2(1) = 9: A2(2) = 3: SP2 = 0
 IF LK > -1 AND POWER2 < 80 AND ENE2 > 99 AND POWER1 > POWER2 + 40 THEN COMKK = 1: A2(1) = 9: SP2 = 0
 IF LEV > 2 THEN IF ATT2 > 0 AND DFD2 > 0 THEN  ELSE GOSUB STONG
 IF ATT2 > 0 AND DFD2 > 0 THEN SP2 = SP2 - 5 ELSE SP2 = SP2 + INT(STT / 100 * .2) - 4
 IF ATT2 = 0 AND SP2 > 15 AND INT(RND * (12)) < LK + 3 THEN ATT2 = 6
 IF DFD2 = 0 AND SP2 > 15 AND INT(RND * (20)) < LK + 3 THEN DFD2 = 4
 IF LEV = 1 AND INT(RND * 6) + 1 = 1 THEN A2(8) = 5
 IF LK < 0 AND DFD2 > 0 THEN ATT2 = 2: DFD2 = 0
 IF LK < 0 THEN A2(1) = 1
 IF LK = 2 AND ATT2 < 0 THEN A2(1) = 3
 IF LK = 4 THEN IF ATT2 > 0 AND DFD2 > 0 THEN  ELSE IF INT(RND * 5) > 3 THEN A2(1) = 1: A2(2) = 2: A2(3) = 3: A2(4) = 7: A2(5) = 6: A2(8) = 5
 IF A2(8) = 0 AND SP2 > 18 THEN IF INT(RND * (20 + ATT2)) < LK + 3 THEN A2(4) = 3: IF LK = 4 THEN ATT1 = ATT1 + 1
 IF A2(7) = 0 AND SP2 > 18 THEN IF INT(RND * (16 + ATT2)) < LK + 3 THEN A2(5) = 3: IF LK = 4 THEN ATT1 = ATT1 + 1
 FOR FGG = 1 TO 2
 IF A2(6) = 0 AND SP2 > 6 THEN IF INT(RND * (18)) < LK + 3 THEN A2(6) = INT(RND * 3) + 5
 IF A2(5) = 0 AND SP2 > 6 THEN IF INT(RND * (18)) < LK + 3 THEN A2(7) = INT(RND * 3) + 5
 IF A2(4) = 0 AND SP2 > 6 THEN IF INT(RND * (18)) < LK + 3 THEN A2(8) = INT(RND * 3) + 5
 IF A2(3) = 0 AND SP2 > 6 THEN IF INT(RND * (14)) < LK + 3 THEN A2(1) = INT(RND * 2) + 1
 IF A2(2) = 0 AND SP2 > 6 THEN IF INT(RND * (14)) < LK + 3 THEN A2(2) = INT(RND * 2) + 1
 IF A2(1) = 0 AND SP2 > 6 THEN IF INT(RND * (14)) < LK + 3 THEN A2(3) = INT(RND * 2) + 1
 NEXT FGG
 SOUND 1000, .5: SOUND 2000, .5: GOTO MOV
WINEND:
 EEE = 1: GOSUB WINEND2
 PLAY "MF": SOUND 40, 6
SEE:
 LINE (75, 92)-(38, 65), 0, BF
 LINE (66, 93)-(57, 93), 0
 LINE (45, 74)-(72, 72), 1
 LINE (72, 73)-(67, 81), 1
 LINE (48, 85)-(44, 75), 1
 CIRCLE (53, 88), 7, 1, .39, 2.36
 CIRCLE (66, 86), 6, 1, 1.57, 3.14
 CIRCLE (58, 87), 9, 1, 2.75, 4.32
 CIRCLE (53, 89), 5, 1, .79, 2.36
 CIRCLE (65, 86), 2, 1, 0, 2.75
 CIRCLE (60, 88), 3, 1, 3.53, 5.89
 LINE (67, 86)-(63, 94), 1
 LINE (67, 84)-(67, 82), 1
 PAINT (50, 77), 1, 1
 PAINT (60, 88), 3, 1
 IF SE = 1 THEN SE = 0: RETURN
 SOUND 150, 6
 LOCATE 8, 1: PRINT "      Thank you!!!"
 IF LEV > -1 THEN GOTO DEND
 RUN
DEND:
 SLEEP 2
 LINE (ZA - 21, ZB - 29)-(ZA + 21, ZB + 24), 0, BF
 FOR AA = ZA TO 260 STEP 5
 IF AA / 2 = INT(AA / 2) THEN PUT (AA, 67), P1:  ELSE PUT (AA, 67), PP1
 SOUND 40, .2
 SOUND 30000, 1.5
 IF AA / 2 = INT(AA / 2) THEN PUT (AA, 67), P1:  ELSE PUT (AA, 67), PP1
 NEXT AA
 CLS :
 PUT (239, 67), P2
 CIRCLE (257, 91), 2, 3, .29, 2.16
 CIRCLE (257, 88), 2, 2, 4.51, 5.89
 CIRCLE (261, 89), 7, 0, 1.18, 2.75
 CIRCLE (260, 86), 2, 2, .79, 2.36
 PAINT (260, 86), 3, 2
 PAINT (264, 83), 3, 2
 LINE (277, 84)-(269, 69), 0, BF
 CIRCLE (268, 78), 6, 2, 4.71, 1.57
 PAINT (271, 78), 2, 2
 LINE (273, 81)-(280, 85), 2
 LINE (273, 80)-(280, 84), 2
 LINE (252, 104)-(271, 113), 0, BF
 LINE (249, 113)-(253, 104), 2
 LINE (250, 113)-(273, 113), 2
 LINE (273, 112)-(271, 104), 2
 PAINT (260, 108), 1, 2
 LINE (260, 72)-(260, 0), 2
 GET (239, 67)-(281, 122), FALL1
 FOR DD = 3 TO 150 STEP 5
 IF DD / 2 = INT(DD / 2) THEN PUT (DD, 67), P1:  ELSE PUT (DD, 67), PP1
 SOUND 40, .2
 SOUND 30000, 1.5
 IF DD / 2 = INT(DD / 2) THEN PUT (DD, 67), P1:  ELSE PUT (DD, 67), PP1
 NEXT DD
 PUT (DD, 67), P1
 LINE (239, 67)-(281, 122), 0, BF
 FOR JU = 2 TO 67
 PUT (239, 67 - JU), FALL1
 SOUND 49, .03
 LINE (239, 66 - JU)-(281, 122), 0, BF
 NEXT JU
 LINE (0, 0)-(240, 200), 0, BF
 FOR DD = 150 TO 210 STEP 3
 IF DD / 2 = INT(DD / 2) THEN PUT (DD, 67), P1:  ELSE PUT (DD, 67), PP1
 SOUND 40, .2
 SOUND 30000, .5
 IF DD / 2 = INT(DD / 2) THEN PUT (DD, 67), P1:  ELSE PUT (DD, 67), PP1
 NEXT DD
 PUT (DD, 67), P1
 GOSUB SAYWITH
 XA = 1
 GOTO ENEMY2
GAMEENDINGa:
 IF PLAYE = 2 THEN GOTO RT
ENEMY2:
 LINE (60, 66)-(122, 56), F
 LINE (92, 62)-(97, 114), F
 LINE (121, 63)-(123, 112), F
 CIRCLE (133, 96), 11, F, 0, 2.75
 LINE (144, 97)-(145, 111), F
 CIRCLE (165, 99), 14, F, .39, 5.1
 LINE (177, 96)-(152, 99), F
 LINE (185, 63)-(185, 114), F
 LINE (186, 62)-(222, 66), F
 LINE (186, 89)-(202, 89), F
 LINE (185, 114)-(216, 115), F
 LINE (216, 111)-(217, 87), F
 CIRCLE (228, 98), 11, F, .39, 2.75
 LINE (239, 114)-(239, 96), F
 LINE (262, 114)-(269, 65), F
 CIRCLE (258, 103), 13, F, 1.18, 4.71
 SOUND 30000, 1
 IF SAS = 1 THEN GOTO ED
 SAS = 1
ED:
 A$ = INKEY$: IF A$ <> "" THEN RUN
 F = F + 1: IF F > 3 THEN F = 1
 GOTO ENEMY2
SPF:
 OUT 33, 130
 FOR SFP2 = 0 TO 8
 FOR SFP = SFP2 TO 196 STEP 8
 LINE (0, SFP)-(320, SFP), 0
 NEXT SFP
 NEXT SFP2
 OUT 33, 128
 RETURN
TABLE:
 GET (0, 0)-(319, 195), REA
TTABLE:
 RESTORE
 GOSUB SPF
 K = 0
 FOR KA = 8 TO 25 STEP 2
 K = K + 1
 READ A$
 LINE (100, 36)-(220, 180), 1, B
 LOCATE 2, 13: PRINT "Del command?(y/N)"
 LOCATE 4, 15: PRINT "Defend Table:"
 LOCATE 6, 16: PRINT "Player"; CHO; ":"
 IF A$ = "g" THEN B$ = INPUT$(1): IF B$ <> "Y" AND B$ <> "y" THEN  ELSE GOTO DDE
 IF A$ = "g" THEN GOSUB SPF
 IF A$ = "g" THEN PUT (0, 0), REA: A$ = "": RESTORE: RETURN
 IF CHO = 1 THEN K1 = (A1(K))
 IF CHO = 2 THEN K2 = (A2(K))
 IF CHO = 2 THEN LOCATE KA, 16: PRINT A$; ":"; TY$((K2 + 1))
 IF CHO = 1 THEN LOCATE KA, 16: PRINT A$; ":"; TY$((K1 + 1))
 NEXT KA
 DATA 1,2,3,4,5,6,7,8,g
SAYING:
 CIRCLE (160, 42), 154, 3, 0, 6.28, .1
 IF SAY = 1 THEN SAA = INT(RND * 6) + 1
 IF SAY = 2 THEN SAA1 = INT(RND * 5) + 1
 IF SAY = 3 THEN SAA = 10
 IF SAA1 = 1 THEN SAA = 7
 IF SAA1 = 2 THEN SAA = 8
 IF SAA1 = 3 THEN SAA = 5
 IF SAA1 = 4 THEN SAA = 6
 IF SAA1 = 5 THEN SAA = 9
 IF SAA = 1 OR SAA = 10 OR SAA = 3 OR SAA = 5 OR SAA = 7 OR SAA = 8 OR SAA = 9 THEN CIRCLE (59, 67), 16, 3, -.98, -1.37
 IF SAA = 10 THEN LOCATE 6, 6: PRINT "I am surely win!"
 IF SAA = 1 THEN LOCATE 6, 6: PRINT "Ha?.....Why?...."
 IF SAA = 3 THEN LOCATE 6, 6: PRINT "Oh!...!!..My..god!"
 IF SAA = 7 THEN LOCATE 6, 6: PRINT "I may not be killed this time!!"
 IF SAA = 8 THEN LOCATE 6, 6: PRINT "I may help Anny!!"
 IF SAA = 2 OR SAA = 4 OR SAA = 6 OR SAY = 4 THEN CIRCLE (259, 67), 16, 3, -1.77, -2.16
 IF SAY = 4 THEN LOCATE 6, 6: PRINT "    Very good!!..": A$ = INPUT$(1): SAA = 9: CIRCLE (59, 67), 16, 3, -.98, -1.37: CIRCLE (259, 67), 16, 0, -1.77, -2.16
 IF SAA = 2 THEN LOCATE 6, 6: PRINT "Are you want to kill me?"
 IF SAA = 4 THEN LOCATE 6, 6: PRINT "Hey!!..Good boy....come!"
 IF SAA = 6 THEN LOCATE 6, 6: PRINT "#*@&.....#$%..you.!!!"
 IF SAA = 2 OR SAA = 4 THEN A$ = INPUT$(1)
 IF SAA = 2 OR SAA = 4 THEN LOCATE 6, 6: PRINT "Ha!.. Ha!.. Ha!.......     "
 IF SAA = 5 THEN LOCATE 6, 6: PRINT ".........."
 IF SAA = 9 THEN LOCATE 6, 6: PRINT "Oh! This .s...too hard to win!!"
 A$ = INPUT$(1): LINE (0, 17)-(320, 68), 0, BF
 SAY = 0: SAA1 = 0
 RETURN
SOD:
 FOR QWQ = 400 TO 475
 SOUND QWQ, .05
 SOUND QWQ + 70, .05
 SOUND QWQ + 140, .05
 NEXT QWQ
 RETURN
CHANGHEAD1:
 CLS
 PUT (238, 67), P2
 IF LK = -2 THEN GOSUB CHEW1
 IF LK = -1 THEN GOSUB CHEW2
 IF LK = 0 THEN GOSUB HEAD1
 IF LK = 1 THEN GOSUB HEAD2
 IF LK = 2 THEN GOSUB HEAD3
 IF LK = 3 THEN GOSUB HEAD4
 IF LK = 4 THEN GOSUB HEAD5
 IF LK = 5 THEN GOSUB HEAD6
 CLS
 PUT (154, 67), P2
 RETURN
HEAD1:
 LINE (276, 80)-(241, 67), 0, BF
 CIRCLE (262, 75), 12, 2, 0, 6.28, .3
 PAINT (262, 75), 1, 2
 LINE (273, 80)-(243, 78), 1, BF
 LINE (273, 80)-(243, 78), 2, B
 CIRCLE (256, 75), 1, 2
 CIRCLE (259, 88), 6, 3, 1.2, 2.55
 LINE (263, 86)-(252, 86), 2
 LINE (249, 86)-(252, 84), 2
 LINE (248, 84)-(251, 83), 2
 LINE (268, 84)-(271, 87), 2
 GET (238, 67)-(282, 117), P2
 RETURN
HEAD2:
 LINE (279, 81)-(243, 68), 0, BF
 CIRCLE (254, 77), 6, 2, 2.18, 4.12, 1.15
 CIRCLE (285, 76), 33, 2, 2.18, 2.94, .25
 LINE (253, 74)-(252, 71), 2
 CIRCLE (267, 76), 8, 2, 5.1, .2, 1.2
 LINE (267, 69)-(265, 72), 2
 LINE (277, 71)-(266, 72), 2
 LINE (277, 71)-(274, 76), 2
 LINE (265, 81)-(255, 81), 2
 PAINT (265, 75), 2, 2
 CIRCLE (268, 85), 2, 3
 PAINT (268, 85), 3, 3
 CIRCLE (281, 85), 11, 2, 3.34, 3.93, 1.2
 CIRCLE (280, 85), 11, 2, 3.34, 3.93, 1.2
 CIRCLE (279, 85), 11, 2, 3.34, 3.93, 1.2
 CIRCLE (259, 88), 6, 3, 1.2, 2.55
 CIRCLE (262, 86), 6, 2, 1.18, 2.55, .45
 LINE (254, 85)-(252, 84), 2
 LINE (263, 86)-(258, 86), 2
 GET (238, 67)-(282, 117), P2
 RETURN
HEAD3:
 LINE (279, 80)-(240, 66), 0, BF
 LINE (240, 93)-(256, 94), 2, BF
 LINE (249, 80)-(247, 72), 2
 LINE (253, 75)-(247, 72), 2
 LINE (253, 75)-(261, 70), 2
 LINE (264, 74)-(261, 70), 2
 LINE (264, 74)-(272, 72), 2
 LINE (274, 79)-(273, 72), 2
 LINE (276, 78)-(273, 81), 2
 LINE (246, 78)-(248, 81), 2
 LINE (269, 81)-(252, 81), 2
 PAINT (263, 78), 2, 2
 LINE (265, 87)-(251, 84), 0, BF
 LINE (266, 88)-(250, 83), 1, B
 LINE (264, 87)-(264, 84), 3
 LINE (257, 87)-(255, 87), 1
 LINE (267, 92)-(267, 89), 0
 LINE (272, 86)-(266, 89), 2
 LINE (272, 86)-(267, 92), 2
 LINE (268, 106)-(270, 104), 0
 LINE (275, 107)-(270, 104), 2
 LINE (275, 107)-(270, 107), 2
 PAINT (269, 106), 1, 2
 LINE (259, 106)-(255, 104), 2, BF
 PAINT (268, 89), 1, 2
 GET (238, 67)-(282, 117), P2
 RETURN
HEAD4:
 LINE (275, 83)-(240, 67), 0, BF
 CIRCLE (260, 79), 10, 2, 5.69, 3.14, .75
 LINE (251, 84)-(250, 80), 2
 LINE (262, 86)-(254, 86), 2
 PAINT (262, 80), 3, 2
 CIRCLE (266, 105), 17, 2, 5.69, 1.37, 1.45
 LINE (275, 114)-(270, 112), 2
 PAINT (273, 110), 1, 2
 CIRCLE (268, 93), 4, 3
 PAINT (268, 93), 3, 3
 CIRCLE (249, 81), 4, 1, 0, 2.94
 CIRCLE (247, 80), 5, 1, 0, 2.94
 GET (238, 67)-(282, 117), P2
 RETURN
HEAD5:
 LINE (288, 64)-(244, 88), 0, BF
 LINE (253, 82)-(253, 88), 2
 CIRCLE (262, 81), 9, 2, 5.1, 3.34, 1
 PAINT (265, 81), 3, 2
 CIRCLE (262, 85), 15, 1, -.2, -2.16, 1
 PAINT (264, 80), 2, 1
 LINE (273, 84)-(267, 88), 1
 LINE (267, 84)-(266, 88), 1
 PAINT (269, 85), 2, 1
 LINE (251, 82)-(253, 83), 1
 LINE (254, 73)-(250, 81), 1
 LINE (263, 84)-(257, 85), 2
 LINE (261, 86)-(258, 85), 2, BF
 CIRCLE (258, 79), 6, 2, 1.96, 3.73, 1.05
 CIRCLE (261, 87), 15, 1, 2.35, 2.75, 1.65
 CIRCLE (257, 79), 6, 1, 1.96, 3.73, 1.05
 PAINT (252, 79), 2, 1
 GET (238, 67)-(282, 117), P2
 RETURN
HEAD6:
 LINE (274, 68)-(245, 87), 0, BF
 LINE (251, 80)-(252, 87), 2
 CIRCLE (253, 79), 3, 2, 5.89, 3.34, 1.85
 CIRCLE (262, 79), 7, 2, 6.08, 3.34, .6
 CIRCLE (261, 78), 11, 2, 6.08, 3.34, .65
 LINE (276, 80)-(267, 87), 2
 LINE (276, 80)-(269, 81), 2
 LINE (274, 88)-(268, 87), 2
 LINE (273, 87)-(270, 84), 2
 PAINT (265, 84), 3, 2
 PAINT (265, 73), 2, 2
 PAINT (270, 86), 2, 2
 CIRCLE (263, 86), 6, 2, 1.37, 2.94, .65
 LINE (259, 86)-(258, 84), 2, BF
 LINE (253, 86)-(252, 83), 2
 PSET (254, 87), 2
 GET (238, 67)-(282, 117), P2
 RETURN
CHEW1:
 LINE (275, 68)-(238, 85), 0, BF
 LINE (249, 93)-(248, 49), 3, BF
 CIRCLE (260, 85), 14, 2, -6.28, -3.14, 1.25
 PAINT (260, 80), INT(MA), 2
 LINE (247, 85)-(271, 85), 1
 CIRCLE (273, 75), 11, 3, -3.53, -4.12, 1.2
 PAINT (270, 79), 3, 3
 GET (238, 67)-(282, 117), P2
 RETURN
CHEW2:
 LINE (275, 85)-(238, 68), 0, BF
 LINE (249, 93)-(248, 49), 3, BF
 CIRCLE (261, 80), 11, 2, -5.51, -3.53, .85
 LINE (252, 83)-(252, 86), 2
 LINE (262, 86)-(252, 86), 2
 PAINT (262, 76), 4 - INT(MA), 2
 PAINT (262, 84), 3, 2
 GET (238, 67)-(282, 117), P2
 RETURN
RT:
ROAD:
 COLOR 0, 1
 FOR ASP = 1 TO 8
 A1(ASP) = 0
 NEXT ASP
 IF PLAYE = 0 AND GH = 1 THEN GOTO ENEMY2 ELSE GH = 1
 IF PLAYE = 0 THEN GOSUB CHOOSE
 IF PLAYE = 2 THEN CLS : STEP1 = 1: A$ = "Y": GOSUB MAP: GOSUB BUILDING
 OUT 33, 130
 OUT 33, 128
 GET (1, 1)-(319, 196), OPE
 GOSUB SPF
 OUT 33, 130
 IF LK <= 2 THEN LEV = -1: LV = 1
 IF LK = 2 THEN LEV = 1: LV = 2
 IF LK = 3 THEN LEV = 1: LV = 2: LK3 = 0
 IF LK = 6 THEN LEV = 3: LV = 3
 XA = 175
 GOSUB Player2
 ROU = 0: ZA = 60: XA = 260
 IF LK > 5 THEN MAX2 = 2000: ENE2 = 350: STT = 6000
 IF LK = 5 THEN MAX2 = 1600: ENE2 = 350: STT = 4500
 IF LK = 4 THEN MAX2 = 1200: ENE2 = 350: STT = 2500
 IF LK = 3 THEN MAX2 = 750: ENE2 = 350: STT = 1800
 IF LK = 2 THEN MAX2 = 550: ENE2 = 350: STT = 1600
 IF LK = 1 THEN MAX2 = 420: ENE2 = 250: STT = 1100
 IF LK = 0 THEN MAX2 = 360: ENE2 = 150: STT = 820
 IF LK = -1 THEN MAX2 = 260 + INT(RND * 40) + 1: ENE2 = 50: STT = 300 + INT(RND * 10)
 IF LK = -2 THEN MAX2 = 260 + INT(RND * 40) + 1: ENE2 = 50: STT = 350 + INT(RND * 10)
 IF LK < 4 THEN STT = INT(STT * INT(MA + 5) / 8)
 IF LK < 4 THEN MAX2 = INT(MAX2 * INT(MA + 2) / 5)
 IF PLAYE = 0 THEN MAX2 = 550 + LK * 25: ENE2 = 350: ENE1 = 350
 POWER2 = MAX2
 GOTO STARTGAME
BUILDING:
 CH1 = 0: CH2 = 0
 IF U < 16 THEN U = 16
 IF O < 16 THEN O = 16
 IF U > 300 THEN U = 300
 IF O > 180 THEN O = 180
 LINE (8, 8)-(308, 188), 1, B
 IF A$ <> "" AND STEP1 = 1 THEN PUT (U - 12, O - 10), DOLL1
 IF A$ <> "" AND STEP1 = 2 THEN PUT (U - 12, O - 10), DOLL2
 IF BOST = 2 THEN BOST = 1: HAM = HAM - 1: IF HAM = 0 THEN LOCATE 1, 3: PRINT "Your hammer has broken!": B$ = INPUT$(1): LOCATE 1, 1: PRINT TAB(39);
 IF A$ <> "" THEN STEP1 = STEP1 + 1: IF STEP1 > 2 THEN STEP1 = 1
 CRO = 2: GOSUB CROSS
 OUT 33, 130
 OUT 33, 128
 DEF SEG = 0
 POKE (1047), PEEK(1047) AND 223
 IF KKE = 0 THEN A$ = INKEY$: IF A$ = CHR$(27) THEN RUN
 KKE = KKE - 1: IF KKE = 0 THEN A$ = "" ELSE IF KKE < 0 THEN KKE = 0 ELSE IF KEE > 0 THEN SOUND 30000, 1
 IF A$ <> "" AND KKE = 0 THEN KKE = 3
 PALETTE 1, 9
 PALETTE 2, 4
 ASP = 1: SAY = 0
 IF EX > 9899 THEN EX = 9899
 IF A$ = CHR$(13) THEN GOSUB TABLE2
 IF STEP1 = 2 AND A$ <> "" THEN PUT (U - 12, O - 10), DOLL1
 IF STEP1 = 1 AND A$ <> "" THEN PUT (U - 12, O - 10), DOLL2
 IF A$ = CHR$(0) + "P" THEN IF POINT(U - 3, O + 10) = 0 AND POINT(U + 3, O + 10) = 0 THEN IF BOST = 0 THEN O = O + 4
 IF A$ = CHR$(0) + "P" AND BOST = 1 THEN BOST = 0: IF POINT(U, O + 9) = 2 THEN LINE (U - 8, O + 7)-(U + 8, O + 18), 0, BF: S = 1: BOST = 2
 IF A$ = CHR$(0) + "K" THEN IF POINT(U - 10, O - 3) = 0 AND POINT(U - 10, O + 3) = 0 THEN IF BOST = 0 THEN U = U - 4
 IF A$ = CHR$(0) + "K" AND BOST = 1 THEN BOST = 0: IF POINT(U - 11, O) = 2 THEN LINE (U - 3, O + 8)-(U - 20, O - 8), 0, BF: S = 1: BOST = 2
 IF A$ = CHR$(0) + "M" THEN IF POINT(U + 10, O - 3) = 0 AND POINT(U + 10, O + 3) = 0 THEN IF BOST = 0 THEN U = U + 4
 IF A$ = CHR$(0) + "M" AND BOST = 1 THEN BOST = 0: IF POINT(U + 11, O) = 2 THEN LINE (U + 3, O + 8)-(U + 20, O - 8), 0, BF: S = 1: BOST = 2
 IF A$ = CHR$(0) + "H" THEN IF POINT(U - 3, O - 10) = 0 AND POINT(U + 3, O - 10) = 0 THEN IF BOST = 0 THEN O = O - 4
 IF A$ = CHR$(0) + "H" AND BOST = 1 THEN BOST = 0: IF POINT(U, O - 12) = 2 THEN LINE (U - 8, O - 7)-(U + 8, O - 20), 0, BF: S = 1: BOST = 2
 IF S = 1 THEN S = 0: GOSUB BOMSOUND
 IF MA = 1.5 AND U = 40 AND O >= 72 AND O <= 76 THEN GOSUB SPF: MA = 2: GOSUB MAP: O = 20: U = 20: FER = 0
 IF MA = 2.5 AND U = 40 AND O >= 52 AND O <= 64 THEN GOSUB SPF: MA = 3: GOSUB MAP: O = 20: U = 20: FER = 0
 IF A$ <> "" THEN POWER1 = POWER1 + 2: ENE1 = ENE1 + 2
 IF A$ <> "" AND BK = 2 AND MA = 1.5 THEN BK = 1: IF U = 92 AND O >= 72 AND O <= 76 THEN LINE (85, 84)-(72, 66), 0, BF: SOUND 100, .5: SOUND 200, .5
 IF A$ <> "" AND BK = 2 AND MA = 2.5 THEN BK = 1: IF U = 152 AND O >= 128 AND O <= 132 THEN LINE (143, 125)-(130, 140), 0, BF: SOUND 100, .5: SOUND 200, .5
 IF A$ <> "" AND SK = 2 THEN SK = 1: IF U = 180 AND O >= 80 AND O <= 84 THEN LINE (190, 76)-(200, 89), 0, BF: SOUND 100, .5: SOUND 200, .5
 IF A$ <> "" AND GK = 2 THEN GK = 1: IF U = 152 AND O >= 164 AND O <= 168 THEN LINE (160, 161)-(170, 174), 0, BF: SOUND 100, .5: SOUND 200, .5
 ATT1 = 0: DFD1 = 0: ATT2 = 0: DFD2 = 0
 GOSUB FIGHTER
 CRO = 0: GOSUB CROSS
 IF LK > -1 THEN RETURN
 IF EX = 9899 THEN GOTO BUILDING
 IF A$ <> "" AND INT(RND * 150) <= 5 THEN LK = INT(RND * (1 + (INT(MA)))) - 2: RETURN
 GOTO BUILDING
 RETURN
FINDLS:
 IF PLAYE = 0 THEN RETURN
 EX = EX + INT(STT / 13): MAX1 = 300 + INT((EX - 400) / 3)
 IF MAX > 2000 THEN MAX = 2000
 IF EX > 9899 THEN EX = 9899
 IF EX < 9899 THEN LOCATE 11, 3: PRINT "Your strength has increased to"; EX + 100; "!": A$ = INPUT$(1)
 IF INT((10 * RND) + 1) = 1 AND LS < 9 THEN LOCATE 12, 3: PRINT "You have found the life seed!!": LS = LS + 1: A$ = INPUT$(1)
 IF FER = 3 AND LK = 1 AND MA = 1.5 THEN HAM = 1: LOCATE 13, 3: PRINT "You have found a hammer!!!": A$ = INPUT$(1)
 IF FER = 5 AND LK = 2 AND MA = 1.5 THEN BK = 1: LOCATE 13, 3: PRINT "You have found the bronze key!!!": A$ = INPUT$(1)
 IF FER = 3 AND LK = 3 AND MA = 2.5 THEN HAM = 3: LOCATE 13, 3: PRINT "You have found a hammer!!!": A$ = INPUT$(1)
 IF FER = 2 AND LK = 1 AND MA = 3.5 THEN HAM = 25: LOCATE 13, 3: PRINT "You have found a hammer!!!": A$ = INPUT$(1)
 IF FER = 4 AND LK = 3 AND MA = 3.5 THEN SK = 1: LOCATE 13, 3: PRINT "You have found the silver key!!!": A$ = INPUT$(1)
 IF FER = 6 AND LK = 5 AND MA = 3.5 THEN GK = 1: LOCATE 13, 3: PRINT "You have found the golden key!!!": A$ = INPUT$(1)
 RETURN
SPLEV:
 IF ATT1 > 0 AND DFD1 > 0 THEN RETURN
 SP1 = SP1 + INT(EX / 100 * .3) - 4
 RETURN
SPLEV2:
 IF LK > 0 AND ENE2 < 14 THEN ENE2 = 14
 IF LK < 0 THEN SP2 = SP2 - 2
 IF LK = 2 AND ATT2 > 0 AND DFD2 > 0 THEN DFD2 = 0: ATT2 = 6: SP2 = 14
 IF LK > 2 THEN SP2 = SP2 + 2: IF LK > 5 THEN SP2 = SP2 + 1
 IF LK = 2 AND INT(RND * 5) = 1 THEN ATT2 = ATT2 + 2
 IF LK = 3 AND INT(RND * 3) = 1 THEN ATT2 = ATT2 + 2
 RETURN
TABLE2:
 GET (0, 0)-(319, 195), REA
 GOSUB SPF
TABLE3:
 IF MAX1 > 2000 THEN MAX1 = 2000
 IF POWER1 > MAX1 THEN POWER1 = MAX1
 IF ENE1 > INT(MAX1 / 2) THEN ENE1 = INT(MAX1 / 2)
 LINE (90, 65)-(230, 20), 0, BF
 LOCATE 4, 15: PRINT "Strength:"; EX + 100
 LOCATE 6, 13: PRINT "Power:" + STR$(POWER1) + "/" + STR$(MAX1)
 LOCATE 8, 16: PRINT "Energy:"; ENE1
 LINE (90, 65)-(230, 20), 1, B
 LINE (90, 68)-(230, 116), 0, BF
 LINE (90, 68)-(230, 116), 2, B
 LOCATE 10, 17: PRINT "  Exit "
 LOCATE 12, 17: PRINT "  Tools"
 LOCATE 14, 17: PRINT "Password"
TABLEPART1:
 DEF SEG = 0
 POKE (1047), PEEK(1047) AND 223
 A$ = INKEY$: IF A$ = CHR$(27) THEN RUN
 IF A$ = CHR$(0) + "P" THEN LOCATE 10 + ARR * 2, 15: PRINT " ": ARR = ARR + 1
 IF A$ = CHR$(0) + "H" THEN LOCATE 10 + ARR * 2, 15: PRINT " ": ARR = ARR - 1
 IF ARR > 2 THEN ARR = 0
 IF ARR < 0 THEN ARR = 2
 LOCATE 10 + ARR * 2, 15: PRINT CHR$(16)
 IF A$ = CHR$(13) AND ARR = 0 THEN GOSUB SPF: PUT (0, 0), REA: A$ = "": ARR = 0: RETURN
 IF A$ = CHR$(13) AND ARR = 1 THEN ARR = 0: GOTO TOOLS
 IF A$ = CHR$(13) AND ARR = 2 THEN ARR = 0: GOTO PSW1
 GOTO TABLEPART1
TOOLS:
 LINE (106, 84)-(246, 178), 0, BF
 LINE (106, 84)-(246, 178), 1, B
 IF LS > 0 THEN LOCATE 12, 17: PRINT "Life seed:"; LS
 IF HAM > 0 THEN LOCATE 14, 20: PRINT "Hammer"
 IF BK > 0 THEN LOCATE 16, 18: PRINT "Bronze key"
 IF SK > 0 THEN LOCATE 18, 18: PRINT "Silver key"
 IF GK > 0 THEN LOCATE 20, 18: PRINT "Golden key"
 LOCATE 22, 21: PRINT "Exit"
TOOLS2:
 DEF SEG = 0
 POKE (1047), PEEK(1047) AND 223
 A$ = INKEY$: IF A$ = CHR$(27) THEN RUN
 AAB = 0
 IF A$ = CHR$(0) + "P" THEN LOCATE 12 + ARR * 2, 16: PRINT " ": ARR = ARR + 1
 IF A$ = CHR$(0) + "H" THEN LOCATE 12 + ARR * 2, 16: PRINT " ": ARR = ARR - 1
 IF ARR > 5 THEN ARR = 0
 IF ARR < 0 THEN ARR = 5
 LOCATE 12 + ARR * 2, 16: PRINT CHR$(16)
 IF A$ = CHR$(13) AND ARR = 0 AND LS > 0 THEN LS = LS - 1:  AAB = INT(MAX1 / 3)
 IF A$ = CHR$(13) AND ARR = 1 AND HAM > 0 THEN BOST = 1:  GOSUB SPF: PUT (0, 0), REA: A$ = "": ARR = 0: RETURN
 IF A$ = CHR$(13) AND ARR = 2 AND BK > 0 THEN BK = 2:  GOSUB SPF: PUT (0, 0), REA: A$ = "": ARR = 0: RETURN
 IF A$ = CHR$(13) AND ARR = 3 AND SK > 0 THEN SK = 2:  GOSUB SPF: PUT (0, 0), REA: A$ = "": ARR = 0: RETURN
 IF A$ = CHR$(13) AND ARR = 4 AND GK > 0 THEN GK = 2: GOSUB SPF: PUT (0, 0), REA: A$ = "": ARR = 0: RETURN
 IF A$ = CHR$(13) AND ARR = 5 THEN GOTO TABLE3
 IF MAX1 > 2000 THEN MAX1 = 2000
 IF AAB > 0 THEN POWER1 = POWER1 + AAB: ENE1 = INT(MAX1 / 2): IF POWER1 > MAX1 THEN POWER1 = MAX1
 IF ENE1 > INT(MAX1 / 2) THEN ENE1 = INT(MAX1 / 2)
 IF AAB > 0 THEN LINE (61, 106)-(276, 126), 0, BF: LINE (61, 106)-(276, 126), 2, B: LOCATE 15, 9: PRINT "Your power have increased!": B$ = INPUT$(1): GOTO TABLE3
 GOTO TOOLS2
MAP:
 IF MA <> INT(MA) THEN PUT (1, 1), OPE
 IF MA = 1 THEN GOTO MAP1
 IF MA = 2 THEN GOTO MAP2
 IF MA = 3 THEN GOTO MAP3
 RETURN
MAP1:
 MA = 1.5
 LINE (8, 8)-(308, 188), 1, B
 LINE (85, 188)-(8, 85), 1, BF
 LINE (129, 155)-(151, 52), 1, BF
 LINE (129, 155)-(308, 140), 1, BF
 LINE (308, 140)-(184, 23), 1, BF
 LINE (129, 156)-(139, 187), 2, BF
 LINE (85, 84)-(72, 66), 1, BF
 LINE (85, 84)-(72, 66), 3, BF
 PSET (84, 75), 1
 LINE (85, 53)-(9, 65), 1, BF
 LINE (27, 84)-(9, 71), 1
 LINE (38, 84)-(20, 71), 1
 LINE (19, 71)-(10, 71), 1
 PAINT (22, 76), 3, 1
 PAINT (16, 79), 3, 1
 GET (9, 70)-(37, 84), STE
 RETURN
MAP2:
 MA = 2.5
 LINE (160, 81)-(8, 70), 1, BF
 LINE (160, 48)-(8, 37), 1, BF
 LINE (160, 49)-(138, 69), 2, BF
 LINE (215, 38)-(238, 124), 1, BF
 LINE (307, 38)-(265, 124), 1, BF
 LINE (215, 108)-(9, 124), 1, BF
 LINE (308, 141)-(9, 152), 1, BF
 LINE (143, 125)-(130, 140), 3, BF
 PSET (142, 133), 1
 PUT (9, 55), STE
 RETURN
MAP3:
 MA = 3.5
 LINE (201, 54)-(222, 41), 1, BF
 LINE (160, 30)-(290, 40), 1, BF
 LINE (170, 8)-(160, 30), 1, BF
 LINE (180, 70)-(308, 75), 1, BF
 LINE (180, 90)-(308, 95), 1, BF
 LINE (190, 76)-(200, 89), 3, BF
 PSET (199, 82), 1
 LINE (8, 50)-(115, 60), 1, BF
 LINE (8, 60)-(180, 75), 2, BF
 LINE (115, 77)-(130, 100), 1, BF
 LINE (8, 100)-(130, 110), 1, BF
 LINE (40, 150)-(308, 160), 1, BF
 LINE (130, 160)-(149, 188), 2, BF
 LINE (160, 161)-(170, 174), 3, BF
 LINE (160, 175)-(180, 188), 1, BF
 LINE (8, 136)-(45, 153), 2, BF
 LINE (8, 132)-(288, 125), 1, BF
 PSET (169, 167), 1
 LINE (50, 84)-(28, 104), 1, BF
 LINE (93, 60)-(70, 85), 1, BF
 LINE (186, 110)-(202, 129), 1, BF
 LINE (261, 91)-(235, 112), 1, BF
 LINE (163, 117)-(150, 60), 1, BF
 RETURN
FIGHTER:
 LK = -1
 IF MA = 1.5 THEN GOTO FIGHTER1
 IF MA = 2.5 THEN GOTO FIGHTER2
 IF MA = 3.5 THEN GOTO FIGHTER3
FIGHTER1:
 IF FER = 0 AND U >= 156 AND U <= 180 AND O = 64 THEN LK = 0
 IF FER = 1 AND U >= 156 AND U <= 180 AND O = 84 THEN LK = 0
 IF FER = 2 AND U >= 156 AND U <= 180 AND O = 132 THEN LK = 1
 IF FER = 3 AND U = 168 AND O >= 160 AND O <= 180 THEN LK = 1
 IF FER = 4 AND U = 268 AND O >= 160 AND O <= 180 THEN LK = 2
 IF LK > -1 THEN FER = FER + 1
 RETURN
FIGHTER2:
 IF FER = 0 AND U >= 244 AND U <= 256 AND O = 92 THEN LK = 1
 IF FER = 1 AND U = 228 AND O >= 128 AND O <= 132 THEN LK = 2
 IF FER = 2 AND U = 48 AND O >= 128 AND O <= 132 THEN LK = 3
 IF FER = 3 AND U = 72 AND O >= 52 AND O <= 64 THEN LK = 4
 IF LK > -1 THEN FER = FER + 1
 RETURN
FIGHTER3:
 IF FER = 0 AND U >= 296 AND U <= 300 AND O = 32 THEN LK = 0
 IF FER = 1 AND U = 192 AND O >= 16 AND O <= 20 THEN LK = 1
 IF FER = 2 AND U = 108 AND O >= 64 AND O <= 72 THEN LK = 2
 IF FER = 3 AND U = 16 AND O = 92 THEN LK = 3
 IF FER = 4 AND U = 208 AND O >= 80 AND O <= 84 THEN LK = 4
 IF FER = 5 AND U = 300 AND O >= 80 AND O <= 84 THEN LK = 5
 IF FER = 6 AND U > 300 AND O >= 168 THEN LK = 2
 IF FER = 7 THEN LK = 3
 IF FER = 8 THEN LK = 4
 IF FER = 9 THEN LK = 5
 IF FER > 9 THEN LK = 6
 IF LK > -1 THEN FER = FER + 1
 RETURN
CROSS:
 IF MA = 1.5 THEN GOTO CROSS1
 IF MA = 2.5 THEN GOTO CROSS2
 IF MA = 3.5 THEN GOTO CROSS3
 RETURN
CROSS1:
 IF FER2 < 3 THEN LINE (163, 127)-(173, 137), CRO: LINE (173, 127)-(163, 137), CRO
 IF FER2 < 5 THEN LINE (263, 165)-(273, 175), CRO: LINE (273, 165)-(263, 175), CRO
 CRO = CRO * 2
 IF CRO = 0 THEN FER2 = FER
 RETURN
CROSS2:
 IF FER2 < 3 THEN LINE (43, 125)-(53, 135), CRO: LINE (53, 125)-(43, 135), CRO
 IF CRO = 0 THEN FER2 = FER
 RETURN
CROSS3:
 IF FER2 < 2 THEN LINE (187, 13)-(197, 23), CRO: LINE (197, 13)-(187, 23), CRO
 IF FER2 < 4 THEN LINE (11, 87)-(21, 97), CRO: LINE (21, 87)-(11, 97), CRO
 IF FER2 < 6 THEN LINE (295, 77)-(305, 87), CRO: LINE (305, 77)-(295, 87), CRO
 CRO = CRO * 2
 LINE (295, 163)-(305, 173), CRO: LINE (305, 163)-(295, 173), CRO
 IF CRO = 0 THEN FER2 = FER
 RETURN
BOMSOUND:
 FOR S2 = 40 TO 50
 SOUND 40, .3: SOUND 90 - S2, .3
 NEXT S2
 RETURN
PSW1:
 IF MAX1 > 2000 THEN MAX1 = 2000
 IF POWER1 > MAX1 THEN POWER1 = MAX1
 LINE (74, 56)-(246, 76), 0, BF: LINE (74, 56)-(246, 76), 2, B
 LOCATE 9, 13: PRINT 3 - INT(MA)
 IF INT(ENE1 / 2) < 100 AND INT(ENE1 / 2) > 9 THEN LOCATE 9, 15: PRINT USING "0##"; INT(ENE1 / 2)
 IF INT(ENE1 / 2) < 10 THEN LOCATE 9, 15: PRINT USING "00#"; INT(ENE1 / 2)
 IF INT(ENE1 / 2) > 99 THEN LOCATE 9, 15: PRINT USING "###"; INT(ENE1 / 2)
 IF INT(POWER1 / 3) < 100 AND INT(POWER1 / 3) > 9 THEN LOCATE 9, 18: PRINT USING "0##"; INT(POWER1 / 3)
 IF INT(POWER1 / 3) < 10 THEN LOCATE 9, 18: PRINT USING "00#"; INT(POWER1 / 3)
 IF INT(POWER1 / 3) > 99 THEN LOCATE 9, 18: PRINT USING "###"; INT(POWER1 / 3)
 LOCATE 9, 21: PRINT USING "#"; 9 - FER
 LOCATE 9, 22: PRINT USING "#"; FER
 IF INT(EX + 21) > 99 AND INT(EX + 21) < 1000 THEN LOCATE 9, 23: PRINT USING "0###"; INT(EX + 21)
 IF INT(EX + 21) > 999 THEN LOCATE 9, 23: PRINT USING "####"; INT(EX + 21)
 LOCATE 9, 27: PRINT USING "#"; 9 - LS
 B$ = INPUT$(1): GOTO TABLE3
IPPSW:
 CLS
 COLOR 8, 1
 LINE (74, 56)-(246, 76), 0, BF: LINE (74, 56)-(246, 76), 1, B
 FOR IPS = 1 TO 14
IPPSW2:
 PALETTE 3, 7
 PALETTE 1, 7
 PALETTE 3, 1
 PALETTE 1, 4
 LOCATE 6, 16: PRINT "Password:"
 LOCATE 9, 13 + IPS: PRINT "_"
IPPSW3:
 PW$(IPS) = INKEY$
 IF PW$(IPS) = "" THEN GOTO IPPSW3
 IF PW$(IPS) = CHR$(8) AND IPS > 1 THEN LOCATE 9, 12 + IPS: PRINT "  ": IPS = IPS - 2
 IF PW$(IPS) = CHR$(27) THEN RUN
 IF VAL(PW$(IPS)) = 0 AND PW$(IPS) <> "0" THEN GOTO IPPSW2
 LOCATE 9, 13 + IPS: PRINT PW$(IPS)
 NEXT IPS
 GOSUB PS2
 PLAYE = 2: GOTO SFPF
PS2:
 MA = 3 - VAL(PW$(1))
 ENE1 = VAL(PW$(2)) * 100
 ENE1 = ENE1 + VAL(PW$(3)) * 10
 ENE1 = ENE1 + VAL(PW$(4))
 POWER1 = VAL(PW$(5)) * 100
 POWER1 = POWER1 + VAL(PW$(6)) * 10
 POWER1 = POWER1 + VAL(PW$(7))
 K1 = VAL(PW$(8))
 FER = VAL(PW$(9))
 EX = VAL(PW$(10)) * 1000
 EX = EX + VAL(PW$(11)) * 100
 EX = EX + VAL(PW$(12)) * 10
 EX = EX + VAL(PW$(13))
 EX = EX - 21
 LS = 9 - VAL(PW$(14))
 ENE1 = ENE1 * 2
 POWER1 = POWER1 * 3
 IF FER + K1 <> 9 THEN GOTO WRONG
 MAX1 = 300 + INT((EX - 400) / 3)
 IF MAX1 > 2000 THEN MAX1 = 2000
 IF POWER1 > MAX1 THEN GOTO WRONG
 IF ENE1 > INT(MAX1 / 2) THEN GOTO WRONG
 IF MA = 1 THEN GOSUB TOMA1
 IF MA = 2 THEN GOSUB TOMA2
 IF MA = 3 THEN GOSUB TOMA3
 RETURN
TOMA1:
 IF FER >= 3 THEN HAM = 1
 IF FER >= 5 THEN BK = 1
 RETURN
TOMA2:
 BK = 1
 IF FER >= 3 THEN HAM = 3
 GOSUB GSTE
 RETURN
TOMA3:
 BK = 1
 IF FER >= 2 THEN HAM = 25
 IF FER >= 4 THEN SK = 1
 IF FER >= 6 THEN GK = 1
 RETURN
WRONG:
 LOCATE 15, 16: PRINT "Wrong!!!"
 SOUND 100, 1
 A$ = INPUT$(1)
 GOTO IPPSW
GSTE:
 CLS
 LINE (9, 71)-(9, 84), 1
 LINE (9, 84)-(38, 84), 1
 LINE (27, 84)-(9, 71), 1
 LINE (38, 84)-(20, 71), 1
 LINE (19, 71)-(10, 71), 1
 PAINT (22, 76), 3, 1
 PAINT (16, 79), 3, 1
 GET (9, 70)-(37, 84), STE
 CLS
 RETURN
STONG:
 IF INT(RND * 4) + 1 > 1 THEN A2(1) = 1
 IF ATT2 > 0 AND DFD2 > 0 THEN RETURN
 IF LK < 4 THEN RETURN
 IF INT(RND * 4) + 1 > 1 THEN A2(2) = 1
 IF INT(RND * 4) + 1 > 1 THEN A2(3) = 2
 IF INT(RND * 4) + 1 > 1 THEN A2(4) = 1
 IF INT(RND * 2) + 1 = 1 THEN A2(5) = 5
 IF INT(RND * 4) + 1 = 1 THEN A2(6) = 5
 IF INT(RND * 2) + 1 = 1 THEN A2(7) = 6
 IF INT(RND * 2) + 1 = 1 THEN A2(8) = 7
 RETURN
SAYWITH:
 LINE (60, 173)-(5, 118), 2, B
 CIRCLE (38, 144), 25, 1, 2.94, 4.91, .85
 LINE (48, 142)-(44, 163), 1
 CIRCLE (27, 144), 13, 1, 6.28, 2.75, .55
 CIRCLE (54, 144), 13, 1, 1.57, 2.94, .3
 LINE (55, 140)-(59, 139), 1
 LINE (17, 127)-(59, 130), 1
 CIRCLE (16, 139), 11, 1, 1.57, 2.75, 1.2
 LINE (13, 150)-(8, 136), 1
 PAINT (21, 142), 3, 1
 LINE (59, 131)-(59, 138), 1
 PSET (9, 136), 1
 PAINT (13, 136), 1, 1
 LINE (22, 143)-(34, 146), 1
 LINE (22, 143)-(15, 144), 1
 CIRCLE (22, 146), 6, 1, 2.94, 4.51, .95
 LINE (32, 152)-(21, 152), 1
 CIRCLE (21, 150), 4, 1, 5.1, 2.94
 PAINT (21, 150), 1, 1
 LINE (37, 158)-(41, 157), 1
 LINE (41, 152)-(42, 153), 1
 LINE (46, 146)-(44, 148), 1
 LINE (46, 151)-(45, 150), 1, BF
 LINE (31, 145)-(22, 140), 1
 CIRCLE (160, 42), 154, 3, 0, 6.28, .1
 CIRCLE (59, 67), 16, 3, -.98, -1.37
 LOCATE 6, 6: PRINT "           Anny!!!!  ": A$ = INPUT$(1)
 FOR XA = 245 TO 270
 IF XA / 2 = INT(XA / 2) THEN PUT (520 - XA, 67), P2:  ELSE PUT (520 - XA, 67), PP2
 SOUND 40, .2
 IF XA / 2 = INT(XA / 2) THEN PUT (520 - XA, 67), P2:  ELSE PUT (520 - XA, 67), PP2
 NEXT XA
 PUT (520 - XA, 67), PP2
 LOCATE 6, 6: PRINT "Why?...You haven`t died!?..": A$ = INPUT$(1)
 LOCATE 6, 6: PRINT "Anny had been caught by someone..": A$ = INPUT$(1)
 LOCATE 6, 6: PRINT "       Please save her !!!       ": A$ = INPUT$(1)
 CIRCLE (59, 67), 16, 0, -.98, -1.37
 CIRCLE (160, 42), 154, 3, 0, 6.28, .1
 CIRCLE (259, 67), 16, 3, -1.77, -2.16
 LINE (260, 173)-(315, 118), 2, B
 LINE (301, 151)-(287, 160), 1
 LINE (301, 151)-(304, 136), 1
 CIRCLE (283, 141), 19, 1, 2.94, 4.91, 1.35
 CIRCLE (292, 138), 12, 1, .39, 2.75, .6
 LINE (280, 136)-(266, 132), 1
 LINE (269, 136)-(268, 134), 1
 CIRCLE (276, 129), 14, 1, .79, 4.12, .7
 CIRCLE (300, 118), 18, 1, 3.92, 5.5, .35
 LINE (303, 145)-(314, 138), 1
 LINE (314, 121)-(314, 138), 1
 PAINT (309, 126), 2, 1
 LINE (282, 143)-(298, 134), 1
 LINE (282, 146)-(294, 145), 1
 CIRCLE (291, 143), 3, 1
 PAINT (291, 143), 1, 1
 LINE (270, 137)-(275, 145), 1
 LINE (271, 142)-(275, 144), 1
 LINE (283, 150)-(277, 151), 1
 PSET (277, 147), 1
 PAINT (287, 151), 3, 1
 LINE (283, 151)-(286, 160), 2
 LINE (286, 148)-(293, 151), 2
 LINE (288, 150)-(290, 154), 2
 LOCATE 6, 6: PRINT " I want to save her with you !!  ": A$ = INPUT$(1)
 CIRCLE (259, 67), 16, 0, -1.77, -2.16
 CIRCLE (59, 67), 16, 3, -.98, -1.37
 CIRCLE (160, 42), 154, 3, 0, 6.28, .1
 LOCATE 6, 6: PRINT "          Let`s go !!           ": A$ = INPUT$(1)
 LINE (0, 0)-(320, 116), 0, BF
 RETURN
GUN:
 LINE (XA - 20, 93)-(XA - 200, 93), 3
 GOSUB BOMSOUND
 LINE (XA - 20, 93)-(XA - 200, 93), 0
 GOTO GUN3
CHOOSE:
 DEF SEG = 0
 POKE (1047), PEEK(1047) OR 32
 LOCATE 10, 10: PRINT " Choose Player2 (1-7)   "
 LOCATE 13, 10: PRINT "1. Enemy(a)  2. Enemy(b)"
 LOCATE 15, 10: PRINT "3. Leon      4. Louis   "
 LOCATE 17, 10: PRINT "5. Gong      6. Cool    "
 LOCATE 19, 10: PRINT "7. Philip    8. Hons    "
 A$ = INPUT$(1)
 IF VAL(A$) > 8 OR VAL(A$) < 1 THEN SOUND 100, 3: GOTO CHOOSE
 LK = VAL(A$) - 2
 RETURN
HUNG:
 FOR RE = 28 TO 200 STEP 29
 PUT (XA - 30 - RE, 80), BALL
 NEXT RE
 RETURN
MSS:
 FOR XX2 = 8 TO 30
 FOR XX = 50 TO 500 STEP XX2
 SOUND XX, .03
 SOUND XX + 50, .03
 SOUND XX + 70, .03
 NEXT XX
 NEXT XX2
 RETURN
BIG:
 CIRCLE (133, 95), 8, 3, 1.37, 4.91
 LINE (320, 102)-(136, 102), 3
 LINE (320, 88)-(136, 88), 3
 PAINT (184, 91), 3, 3
 PAINT (184, 100), 3, 3
 RETURN
HURT2:
 IF POW2 > 250 THEN POW2 = 250
 CDD = INT(POW2 / 5)
 FOR CDE = 1 TO CDD STEP 8
 LINE (XA - 25 + CDE, XB - 35)-(XA + 50 + CDE, XB + 24), 0, BF: PUT (XA - 11 + CDE, XB - 35), FALL2: SOUND 30000, .2
 NEXT CDE
 IF POW2 > 135 THEN GOSUB SOD
 SOUND 30000, 2: SOUND 30000, 1: SOUND 30000, 1
 FOR CDE = 1 TO CDD STEP 8
 LINE (XA - 21 + CDD - CDE, XB - 29)-(320, XB + 24), 0, BF: PUT (XA - 11 + CDD - CDE, XB - 35), FALL2: SOUND 30000, .2
 NEXT CDE
 RETURN
HURT1:
 IF POW1 > 250 THEN POW1 = 250
 CDD = INT(POW1 / 5)
 FOR CDE = 1 TO CDD STEP 15
 LINE (ZA + 25 - CDE, ZB - 29)-(ZA - 50 - CDE, ZB + 24), 0, BF: PUT (ZA - 53 - CDE, ZB - 35), FALL1: SOUND 30000, .2
 NEXT CDE
 IF POW1 > 135 THEN GOSUB SOD
 SOUND 30000, 2: SOUND 30000, 1: SOUND 30000, 1
 FOR CDE = 1 TO CDD STEP 15
 LINE (ZA + 21 - CDD + CDE, ZB - 31)-(0, ZB + 24), 0, BF: PUT (ZA - 53 - CDD + CDE, ZB - 35), FALL1: SOUND 30000, .2
 NEXT CDE
 RETURN
DDE:        
 LOCATE 2, 12: PRINT "Which command?(1-8)"
 C$ = INPUT$(1)
 ABC = VAL(C$)
 IF ABC < 1 OR ABC > 8 THEN GOTO TTABLE
 IF CHO = 1 THEN A1(ABC) = 0
 IF CHO = 2 THEN A2(ABC) = 0
 GOTO TTABLE
MOUTH:
 IF ATT2 = 0 THEN ATT2 = 1
 LINE (214, 98)-(192, 91), 0, BF
 CIRCLE (211, 93), 4, 2
 PAINT (211, 93), 3, 2
 LINE (224, 90)-(220, 88), 0, BF
 LINE (225, 88)-(224, 90), 2
 LINE (224, 88)-(0, 82), 2
 LINE (223, 90)-(0, 102), 2
 PAINT (215, 89), 3, 2
 RETURN