' Trip Hecht presents:        ________________

'                           / _              _ \

'                         /  \  \          /  /  \

'                        |     \__\      /__/    |

'                        |                        |

'                        |           /\           |

'                        |         /_/\_\         |

'                        |__|\                /|__|

'                             |              |

'                             |__ __ __ __ __|

'                             |__|__|__|__|__|

'                                * bLoOd *

'

'                               * FiGhTeR *

'

'

' BLOOD FIGHTER

' This is a crude fighting game where you control a blue sitck man

' and try to kill the red stick man. The dying stick man will be

' blown up. The computer is just as fast as you and has fairly good AI,

' so be careful! Each stick figure may be many times before they die.

' A neat li'l feature is the blood! When a person gets hit some

' blood splatters on the ground, and get this! It stays there! (Unlike

' the other fighting games)

'

' CONTROLS

' The controls are simple. Use left / right to move your stick man.

' Use up to punch (middle range, little damage), down to kick (short

' range, lotsa damage), and SPACEBAR (LONG RANGE, middle damage).

' Pressing SPACEBAR launches a fireball at your opponent. It does

' a fair amount of damage, has good range, but! it hurts you too,

' so be careful! Oh yeah, the fireball makes your target faster and

' reduces the damage intake of the next hits for the remainder of

' the battle so if you use it too much your target will eventually

' become invulnerable to your attacks. If your super power energy

' bar (bottom left of screen) is full and you launch a fireball a

' gigantic blue energy laser will erupt from you and deal MUCH

' damage to your opponent. One other thing. Fireballs use up super

' power energy and if you don't have enough then you can't use one.

'

' SECRETS?

' There are many secret codes in this game. DO NOT read the program

' to figure them out. That would make you a cheater and cheaters

' suck! So don't be one! Using the codes you can get a meat hook

' and use it in battle! You can make your enemies invisible! you

' can also make your enemies move extremely fast! There are many

' others like how to fight as Death. Find them out on yor own if

' you can resist being a stupid retard that sucks!

'

' PLEEEEEEEEEEEZ do NOT change this program or distribute it with

' your name on it. If you do you will force me to come to your house

' and slap you upside your head, so don't mess with this program!

' Oh, and don't copy this either.

'

' BLOOD FIGHTER (c) 1998                                By Trip Hecht

'

'     *************************************************************

'     *<<<<<<<< QUIT READING THE CODE AND PRESS <F5> NOW! >>>>>>>>*

'     *************************************************************

'

'

'

'

'

'

'

'

'

'

'

'

'

'

'

'

'

'

'

DECLARE SUB STATUSBAR ()

DECLARE SUB ENEMYSTATUS ()

DECLARE SUB ROUND ()

DIM SHARED HP, MH, LV, N$, EN$, PTS, X, Y, EH, CLR

' -=-=-=-=-= VARIABLES & TITLE =-=-=-=-=-

CLS : SCREEN 13

LV = 1: EN = 4: H = 1: EN$ = "Blade": SPD = 200: AR = 1: WP = 8: CLR = 1

PTS = 50: Z = 16: FOR X = 1 TO 16: COLOR Z: LOCATE 12, 14: PRINT "BLOOD FIGHTER"

Z = Z + 1: FOR Y = 1 TO 250: NEXT Y: NEXT X: FOR X = 1 TO 1000: NEXT

IF INKEY$ = "?" THEN SCREEN 1: CLS : LOCATE 12, 16: GOTO 8

Z = 31: FOR X = 1 TO 16: COLOR Z: LOCATE 12, 14: PRINT "BLOOD FIGHTER"

Z = Z - 1: FOR Y = 1 TO 250: NEXT Y: NEXT X: COLOR 15: LOCATE 1

COLOR 4: PRINT "        Every century fighters"

PRINT "test their skills against one"

PRINT "another. The winner of the"

PRINT "tournament fights Death itself."

PRINT "If you become victorious aginst"

PRINT "Death then your one true dream"

PRINT "will then happen... or so it is"

PRINT "said..."

T = 0

E:

Q$ = INKEY$: T = T + 1: IF T = 10000 THEN GOTO D

IF Q$ <> "" THEN GOTO A ELSE GOTO E

D:

PLAY "t230l7o3ap24ap24o4cp24o3ap24o4dp24o3ao4p24ep24dp24cp24cp24ep24cp24gp24cp24ep24cp24o3gp24gp24bp24gp24o4cp24o3gp24o4dp24cp24o3fp24fp24ap24fp24o4cp24o3fp24o4cp24o3bp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ap24ap24o4cp24o3ap24o4dp24o3ao4p24ep24dp24cp24cp24ep24cp24gp24cp24ep24cp24o3gp24gp24bp24gp24o4cp24o3gp24o4dp24cp24o3fp24fp24ap24fp24o4cp24o3fp24o4cp24o3bp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3agp24gap4"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o0cp5.cp5.cp5.cp8"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o3eeeep20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24l7aaaap8"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o3eeeep20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24l7aaaap8"



C:

PRINT : PRINT , , "Press ENTER"

B: Q$ = INKEY$

IF Q$ = CHR$(13) THEN GOTO A ELSE GOTO B

A:

CLS : COLOR 15: LOCATE 1, 1

PRINT "CHOOSE YOUR "; : COLOR 4: PRINT "'BLOOD FIGHTER!'": COLOR 1

LOCATE 5, 1: PRINT "1 - DREAD": COLOR 2: PRINT : PRINT "2 - CARKASS"

COLOR 3: PRINT : PRINT "3 - DISEMBOWLER": COLOR 4: PRINT

PRINT "4 - KARNAGE": SND = 1

1 Q$ = INPUT$(1)

IF Q$ = "~" THEN CLS : COLOR 32: GOTO 451

IF Q$ = "1" THEN H = 8: N$ = "Dread": W = 4: A = 2: GOTO 8

IF Q$ = "2" THEN H = 4: N$ = "Carkass": W = 1: A = 3: GOTO 8

IF Q$ = "3" THEN H = 39: N$ = "Disembowler": W = 8: A = 1: GOTO 8

IF Q$ = "4" THEN H = 41: N$ = "Karnage": W = 12: A = -10: GOTO 8

IF Q$ = CHR$(27) THEN H = 32: N$ = "Edge": W = 12: A = 2: GOTO 4

IF Q$ = "" THEN H = 17: N$ = "Death": W = 27: A = 3: GOTO 3

IF Q$ = "?" THEN H = 0: N$ = "Shadow": W = 6: A = 4 ELSE 1

2 CLS : LOCATE 12, 11: COLOR 15

PRINT "You have become a mere": LOCATE 13, 12

PRINT "shadow of yourself!"

Q$ = INPUT$(1): CLS : GOTO 8

3 COLOR 17: CLS : LOCATE 12, 15: PRINT "You have died!": Q$ = INPUT$(1)

CLS : GOTO 8

4 COLOR 32: CLS : LOCATE 12, 5: PRINT "You are the assassin named, Edge!"

8 ' -=-=-=-=-= LEVEL CHANGE =-=-=-=-=-

CLS : LINE (0, 136)-(400, 136), 6: PAINT (0, 140), 6

CIRCLE (300, 20), 15, 14: PAINT (300, 20), 14

FOR Z = 1 TO 50



RANDOMIZE TIMER

X = INT(RND * 300 + 1): Y = INT(RND * 130 + 1)

LINE (X, Y)-(X, Y), 7

NEXT

9 MH = 100: HP = 100: L = 10: E = 290: IF EN$ = "Death" THEN MH = 200

IF DOOM = 1 THEN HP = 1

IF CLOS = 1 THEN E = 20

IF DIE = 1 THEN MH = 1

10 Z = 16: FOR X = 1 TO 16: COLOR Z: LOCATE 12, 17: PRINT "READY!"

11 Z = Z + 1: FOR Y = 1 TO 250: NEXT Y: NEXT X: FOR X = 1 TO 1000: NEXT

12 Z = 31: FOR X = 1 TO 16: COLOR Z: LOCATE 12, 17: PRINT "READY!"

13 Z = Z - 1: FOR Y = 1 TO 250: NEXT Y: NEXT X: FOR X = 1 TO 1000: NEXT

14 COLOR 15: GOTO 16

15 ' -=-=-=-=-= DRAW HERO =-=-=-=-=-

16 CIRCLE (10 + L, 100), 5, H

17 LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

18 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

19 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

21 ' -=-=-=-=-= DRAW ENEMY =-=-=-=-=-

22 CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

23 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

24 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

25 LINE (10 + E, 105)-(20 + E, 120), EN

26 ' -=-=-=-=-= DRAW STATUS BARS =-=-=-=-=-

STATUSBAR

ENEMYSTATUS

ROUND

27 ' -=-=-=-=-= DRAW FIREBALL MOVEMENT =-=-=-=-=-

'CIRCLE (X, 80), 4, 3: LINE (X, 76)-(X - 7, 80), 3

'LINE (X, 84)-(X - 7, 80), 3: PSET (X - 8, 80), 3: PAINT (X, 80), 1, 3

'FOR Y = 1 TO 170: NEXT Y: PAINT (X, 80), 0: PSET (X - 7, 80), 0

'PSET (X - 8, 80), 0

IF F < 1 THEN 30

CIRCLE (F + 30, 110), 5, 14: LINE (F + 30, 106)-(F + 23, 110), 14

LINE (F + 30, 114)-(F + 23, 110), 14: PSET (F + 22, 110), 14

PAINT (F + 22, 110), 4, 14: FOR Y = 1 TO 270: NEXT Y: PAINT (F + 30, 110), 0

PSET (F + 33, 110), 0: PSET (F + 22, 110), 0

CIRCLE (F + 30, 110), 5, 0: LINE (F + 30, 106)-(F + 23, 110), 0

LINE (F + 30, 114)-(F + 23, 110), 0: PSET (F + 22, 110), 0

PAINT (F + 22, 110), 4, 0: PAINT (F + 30, 110), 0

PSET (F + 33, 110), 0: PSET (F + 22, 110), 0: F = F + 10

CIRCLE (F + 30, 110), 5, 14: LINE (F + 30, 106)-(F + 23, 110), 14

LINE (F + 30, 114)-(F + 23, 110), 14: PSET (F + 22, 110), 14

PAINT (F + 22, 110), 4, 14: FOR Y = 1 TO 270: NEXT Y: PAINT (F + 30, 110), 0

PSET (F + 33, 110), 0: PSET (F + 22, 110), 0



IF F + 30 > E - 25 THEN 28 ELSE 30



28 CIRCLE (F + 30, 110), 5, 0: LINE (F + 30, 106)-(F + 23, 110), 0

LINE (F + 30, 114)-(F + 23, 110), 0: PSET (F + 22, 110), 0

PAINT (F + 22, 110), 4, 0: PAINT (F + 30, 110), 0

PSET (F + 33, 110), 0: PSET (F + 22, 110), 0: F = F + 10

IF SND = 0 THEN 29

FOR X = 850 TO 810 STEP -1

SOUND (RND * 100 + X / 10 + 30), .1

NEXT: SPD = SPD - 50: AR = AR + 1

29 F = 0

RANDOMIZE TIMER

X = INT(RND * 20 + 1) + 20: IF X < 0 THEN X = 0

MH = MH - X: IF MH < 1 THEN MH = 0: GOTO 193



30 ' -=-=-=-=-= DRAW LEVEL =-=-=-=-=-

33 CIRCLE (300, 20), 15, 14: PAINT (300, 20), 14

34 PAINT (0, 140), 6: IF HP < 1 THEN HP = 0: GOTO 168

35 IF MH < 1 THEN MH = 0: GOTO 193

39 ' -=-=-=-=-= GAME =-=-=-=-=-

41 Q$ = INKEY$: T = T + 1: IF T >= SPD THEN 131        '<--- ENEMY ROUTINE

IF G = 1 AND STLTH = 0 THEN 131

42 IF Q$ = CHR$(0) + CHR$(77) THEN G = 1: GOTO 47    '<--- MOVE RIGHT

43 IF Q$ = CHR$(0) + CHR$(75) THEN G = 1: GOTO 53    '<--- MOVE LEFT

44 IF Q$ = CHR$(0) + CHR$(80) THEN G = 1: GOTO 95    '<--- KICK

45 IF Q$ = CHR$(0) + CHR$(72) THEN G = 1: GOTO 59    '<--- PUNCH

IF Q$ = CHR$(32) AND PTS >= 100 THEN 236             '<--- LASER BEAM

IF Q$ = CHR$(32) THEN G = 1: GOTO 125                '<--- FIREBALL

IF Q$ = CHR$(13) AND HOOK = 1 THEN G = 1: GOTO 470   '<--- MEAT HOOK

IF Q$ = "+" THEN G = 1: LV = LV + 1: GOTO 16

IF Q$ = CHR$(27) THEN 169

46 GOTO 41

47 IF 10 + L > E - 20 THEN 41

48 CIRCLE (10 + L, 100), 5, 0

49 LINE (10 + L, 105)-(10 + L, 121), 0: LINE (L, 135)-(10 + L, 122), 0

50 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

51 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

52 L = L + 10: GOTO 16

53 IF 10 + L < 20 THEN 41

54 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

55 LINE (L, 135)-(10 + L, 122), 0

56 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

57 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

58 L = L - 10: GOTO 16

59 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

60 LINE (L, 135)-(10 + L, 122), 0

61 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

62 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

63 CIRCLE (10 + L, 100), 5, H: LINE (10 + L, 105)-(10 + L, 121), H

64 LINE (L, 135)-(10 + L, 122), H

65 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

66 LINE (10 + L, 105)-(45 + L, 100), H

67 FOR X = 1 TO 2000: NEXT

68 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

69 LINE (L, 135)-(10 + L, 122), 0

70 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

71 LINE (10 + L, 105)-(45 + L, 100), 0

72 CIRCLE (10 + L, 100), 5, H

73 LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

74 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

75 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

X = 5 - AR + W: IF X < 0 THEN X = 0

76 IF 10 + L > E - 40 THEN MH = MH - X: PTS = PTS + 12: IF SND = 1 THEN FOR X = 850 TO 810 STEP -1: SOUND (RND * 100 + X / 10 + 30), .1: NEXT: IF MH < 1 THEN MH = 0

77 IF PTS >= 200 THEN PTS = 200

FOR X = 1 TO 10

IF 10 + L <= E - 40 THEN 16

CIRCLE (E + 10, 100), X, 4: FOR Y = 1 TO 50: NEXT Y: NEXT

FOR X = 1 TO 10: CIRCLE (E + 10, 100), X, 0: FOR Y = 1 TO 50: NEXT Y: NEXT

RANDOMIZE TIMER

X = RND * 5 + 5

RANDOMIZE TIMER

Y = RND * 10 + 15

RANDOMIZE TIMER

Z = RND * 20 + 25

LINE (E - X, 136)-(E + X, 136), 4: LINE (E - Y, 137)-(E + Y, 137), 4

LINE (E - Z, 138)-(E + Z, 138), 4: LINE (E - Y, 139)-(E + Y, 139), 4

LINE (E - X, 140)-(E + X, 140), 4

CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

78 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

79 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

80 LINE (10 + E, 105)-(20 + E, 120), 0

81 CIRCLE (13 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

82 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

83 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

84 LINE (10 + E, 105)-(20 + E, 120), EN

85 FOR X = 1 TO 2000: NEXT

86 CIRCLE (13 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

87 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

88 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

89 LINE (10 + E, 105)-(20 + E, 120), 0: E = E + 20

90 CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

91 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

92 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

93 LINE (10 + E, 105)-(20 + E, 120), EN

94 GOTO 16

95 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

96 LINE (L, 135)-(10 + L, 122), 0

97 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

98 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

99 CIRCLE (10 + L, 100), 5, H: LINE (10 + L, 105)-(10 + L, 121), H

100 LINE (L, 135)-(10 + L, 122), H

101 LINE (10 + L, 121)-(35 + L, 121), H: LINE (10 + L, 105)-(L, 120), H

102 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

103 FOR X = 1 TO 2000: NEXT

104 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

105 LINE (L, 135)-(10 + L, 122), 0

106 LINE (10 + L, 121)-(35 + L, 121), 0: LINE (10 + L, 105)-(L, 120), 0

107 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

108 CIRCLE (10 + L, 100), 5, H

109 LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

110 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

111 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

X = 35 - AR + W: IF X < 0 THEN X = 0

112 IF 10 + L > E - 20 THEN MH = MH - X: IF SND = 1 THEN PLAY "L16<<<C>>>"

IF 10 + L <= E - 20 THEN 16 ELSE PTS = PTS + 35

113 CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

114 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

115 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

116 LINE (10 + E, 105)-(20 + E, 120), 0

117 CIRCLE (8 + E, 100), 5, EN: LINE (8 + E, 105)-(10 + E, 121), EN

118 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

119 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

120 LINE (10 + E, 105)-(20 + E, 120), EN

121 FOR X = 1 TO 2000: NEXT

122 CIRCLE (8 + E, 100), 5, 0: LINE (8 + E, 105)-(10 + E, 121), 0

123 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

124 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

LINE (10 + E, 105)-(20 + E, 120), 0

CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

LINE (10 + E, 105)-(20 + E, 120), EN

GOTO 16

' -=-=-=-=-= FIREBALL =-=-=-=-=-

125 IF PTS < 50 THEN PLAY "L64<<<<ABCDEFG>>>>": GOTO 132

126 PTS = PTS - 50: F = L + 10: IF SND = 1 THEN PLAY "L32<<C>C>C"

128 HP = HP - 5: IF PTS < 1 THEN PTS = 0

129 IF HP < 1 THEN 169

131 ' -=-=-=-=-= ENEMY TURN ROUTINE =-=-=-=-=-

132 G = 0: PTS = PTS - 2: IF PTS < 1 THEN PTS = 0

IF E - 40 > L - 10 THEN 135         '<--- MOVE

133 IF E - 40 < L + 10 THEN 149                 '<--- PUNCH

134 IF E - 20 < L - 10 THEN 0                   '<--- KICK

135 RANDOMIZE TIMER

136 X = INT(RND * 100 + 1): IF X > 60 THEN 143

137 IF E - 10 < L + 20 THEN T = 0: GOTO 41

138 CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

139 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

140 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

141 LINE (10 + E, 105)-(20 + E, 120), 0

142 G = 0: T = 0: E = E - 10: GOTO 16

143 IF E + 10 > 300 THEN T = 0: GOTO 41

144 CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

145 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

146 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

147 LINE (10 + E, 105)-(20 + E, 120), 0

148 G = 0: T = 0: E = E + 10: GOTO 16

149 CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

150 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

151 LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

152 LINE (10 + E, 105)-(20 + E, 120), 0

153 CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

154 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

155 LINE (E - 15, 100)-(E + 8, 105), EN

157 LINE (10 + E, 105)-(20 + E, 120), EN

158 FOR X = 1 TO 2000: NEXT

159 CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

160 LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

161 LINE (E - 15, 100)-(E + 8, 105), 0

162 LINE (10 + E, 105)-(20 + E, 120), 0

163 CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

164 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

165 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

166 LINE (10 + E, 105)-(20 + E, 120), EN: IF SND = 1 THEN FOR X = 850 TO 810 STEP -1: SOUND (RND * 100 + X / 10 + 30), .1: NEXT

FOR X = 1 TO 10: CIRCLE (L + 10, 100), X, 4: FOR Y = 1 TO 50: NEXT Y: NEXT

FOR X = 1 TO 10: CIRCLE (L + 10, 100), X, 0: FOR Y = 1 TO 50: NEXT Y: NEXT

CIRCLE (10 + L, 100), 5, 0

LINE (10 + L, 105)-(10 + L, 121), 0: LINE (L, 135)-(10 + L, 122), 0

LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

CIRCLE (7 + L, 100), 5, H

LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

FOR X = 1 TO 2000: NEXT

CIRCLE (7 + L, 100), 5, 0

LINE (10 + L, 105)-(10 + L, 121), 0: LINE (L, 135)-(10 + L, 122), 0

LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0



FOR X = 1 TO 10: CIRCLE (L + 10, 100), X, 0: FOR Y = 1 TO 50: NEXT Y: NEXT

RANDOMIZE TIMER

X = RND * 5 + 10

RANDOMIZE TIMER

Y = RND * 10 + 15

RANDOMIZE TIMER

Z = RND * 20 + 25

LINE (L - X, 136)-(L + X, 136), 4: LINE (L - Y, 137)-(L + Y, 137), 4

LINE (L - Z, 138)-(L + Z, 138), 4: LINE (L - Y, 139)-(L + Y, 139), 4

LINE (L - X, 140)-(L + X, 140), 4

L = L - 20: X = 5 - A + WP: IF X < 0 THEN X = 0

167 G = 0: T = 0: HP = HP - X: PTS = PTS - 1: IF HP < 1 AND SND = 1 THEN PLAY "ML<<<<CC>>>>": HP = 0

GOTO 16

168 ' -=-=-=-=-= HERO DEATH ROUTINE =-=-=-=-=-

169 Q$ = INPUT$(1)



XX = 0: DO

RANDOMIZE TIMER

X = INT(RND * 20) - 10

Y = INT(RND * 20) - 10

FOR Z = 1 TO 15

CIRCLE (L + X, 100 + Y), 1 + Z, 4: FOR YY = 1 TO 100: NEXT YY

NEXT: XX = XX + 1

IF SND <> 1 THEN 0

FOR S = 850 TO 810 STEP -1

SOUND (RND * 100 + S / 10 + 30), .1

NEXT S

170 FOR Z = 1 TO 15

CIRCLE (L + X, 100 + Y), 1 + Z, 0: FOR YY = 1 TO 100: NEXT YY

NEXT

LOOP UNTIL XX > 4



FOR X = 1 TO 50

CIRCLE (L + 10, 100), 1 + X, 4: FOR Y = 1 TO 100: NEXT Y

NEXT

FOR X = 1 TO 50

CIRCLE (L + 10, 100), 1 + X, 0: FOR Y = 1 TO 100: NEXT Y

NEXT: Q$ = INPUT$(1): GOTO 231

192 ' -=-=-=-=-= WIN =-=-=-=-=-

193 Q$ = INPUT$(1)

200 FOR X = 1 TO 50

201 CIRCLE (E + 10, 100), 1 + X, 4: FOR Y = 1 TO 100: NEXT Y

202 NEXT

203 FOR X = 1 TO 50

204 CIRCLE (E + 10, 100), 1 + X, 0: FOR Y = 1 TO 100: NEXT Y

205 NEXT: Q$ = INPUT$(1)

211 LOCATE 12, 16: PRINT "You win!": Q$ = INPUT$(1)

212 LV = LV + 1: PTS = PTS + 50: IF PTS > 200 THEN PTS = 200

213 IF LV = 2 THEN EN$ = "Scythe": EN = 2: AR = 1: WP = 12: SPD = 185

214 IF LV = 3 THEN EN$ = "Blaze": EN = 40: AR = 2: WP = 18: SPD = 150

215 IF LV = 4 THEN EN$ = "Xombi": EN = 6: AR = 2: WP = 23: SPD = 125

216 IF LV = 5 THEN EN$ = "Cloned": EN = H: AR = A: WP = W: SPD = 90

217 IF LV = 6 THEN EN$ = "Death": EN = 17: AR = 3: WP = 27: SPD = 50

218 IF LV = 7 THEN 335 ELSE

219 IF INV = 1 THEN EN = 0

220 IF SLOW = 1 THEN SPD = 1000

221 IF FAST = 1 THEN SPD = 10

222 IF SUPA = 1 THEN PTS = 200

GOTO 8

230 ' -=-=-=-=-= REPLAY? =-=-=-=-=-

231 CLS : LOCATE 12, 15: PRINT "PLAY AGAIN?"

232 Q$ = INPUT$(1): Q$ = UCASE$(Q$)

233 IF Q$ = "Y" THEN CLEAR 100: RUN

234 IF Q$ = "N" THEN CLS : END ELSE 232

235 ' -=-=-=-=-= PSIONIC BLAST =-=-=-=-=-

236 Y = 0: DO

237 FOR X = 1 TO 25

238 CIRCLE (L + 50 + Y, 110), X + 1, 1

239 NEXT X: Y = Y + 5

240 LOOP UNTIL L + 50 + Y + X + 1 > E + 5

IF SND <> 1 THEN 241

FOR S = 850 TO 810 STEP -1

SOUND (RND * 100 + S / 10 + 30), .1

NEXT S

241 Y = 0: DO

242 FOR X = 1 TO 25

243 CIRCLE (L + 50 + Y, 110), X + 1, 0

244 NEXT X: Y = Y + 5

245 LOOP UNTIL L + 50 + Y + X + 1 > E + 5

246 CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

247 LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

248 LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

249 LINE (10 + E, 105)-(20 + E, 120), EN

250 CIRCLE (10 + L, 100), 5, H

251 LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

252 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

253 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

254 PTS = PTS - 100: MH = MH - 75: IF MH < 1 THEN MH = 0

255 GOTO 16

335 ' -=-=-=-=-= ENDINGS =-=-=-=-=-

336 CLS : COLOR 4

337 IF N$ = "Dread" THEN 389

338 IF N$ = "Carkass" THEN 379

339 IF N$ = "Disembowler" THEN 0

340 IF N$ = "Karnage" THEN 400

341 IF N$ = "Edge" THEN 365

342 IF N$ = "Shadow" THEN 356

343 ' -=-=-=-=-= DEATH'S ENDING =-=-=-=-=-

344 LOCATE 2, 1: PRINT , "DEATH:": PRINT : PRINT

345 PRINT "     You are the entity known as death."

346 PRINT "You wander about the planet, Earth,"

347 PRINT "killing living things and eating their"

348 PRINT "souls, making you gain power and control"

349 PRINT "them for an eternity.": PRINT : PRINT

350 PRINT "     After winning the tournament you"

351 PRINT "gain control of Earth. You feed upon"

352 PRINT "the humans' souls in an eternal feast"

353 PRINT "of blood!": Q$ = INPUT$(1): CLS

354 GOSUB 450: LOCATE 12, 15: PRINT "GAME OVER!": Q$ = INPUT$(1): GOTO 231

355 ' -=-=-=-=-= SHADOW'S ENDING =-=-=-=-=-

356 LOCATE 2, 1: PRINT , "SHADOW:": PRINT : PRINT

357 PRINT "     You are a lost shadow. You came"

358 PRINT "to fight in this tournament in hope"

359 PRINT "of finding your owner.": PRINT : PRINT

360 PRINT "     You won the tournament. You"

361 PRINT "want your owner eh? Well you just"

362 PRINT "killed him. Death was your owner and"

363 PRINT "now it is your only salvation."

364 Q$ = INPUT$(1): CLS : GOTO 354

365 ' -=-=-=-=-= EDGE'S ENDING =-=-=-=-=-

366 LOCATE 2, 1: PRINT , "EDGE:": PRINT : PRINT

367 PRINT "     You are the assassin named,"

368 PRINT "Edge. You have come to fight in this"

369 PRINT "tournament to test your skills and"

370 PRINT "prove that you are the greatest"

371 PRINT "assassin the world has ever known.": PRINT : PRINT

372 PRINT "     The deathblow knocks Death on"

373 PRINT "the ground. You plant your foot on"

374 PRINT "his neck and grab his head. With a"

375 PRINT "loud grunt you tear Death's head off"

376 PRINT "and hold it up for the world to see."

378 Q$ = INPUT$(1): CLS : GOTO 354

379 ' -=-=-=-=-= CARKASS'S ENDING =-=-=-=-=-

380 LOCATE 2, 1: PRINT , "CARKASS:": PRINT : PRINT

381 PRINT "     You are Carkass, a medieval"

382 PRINT "knight that was risen from the dead"

383 PRINT "by Death to test it's fighting skills.": PRINT : PRINT

384 PRINT "     You destroyed Death and go back"

385 PRINT "to your grave. You climb into your"

386 PRINT "coffin and shut your eyes. You fall"

387 PRINT "asleep, never to wake up again."

388 Q$ = INPUT$(1): CLS : GOTO 354

389 ' -=-=-=-=-= DREAD'S ENDING =-=-=-=-=-

390 LOCATE 2, 1: PRINT , "DREAD:": PRINT : PRINT

391 PRINT "     You are Dread. You joined the"

392 PRINT "tournament to inflict fear and"

393 PRINT "eternal suffering into the world.": PRINT : PRINT

394 PRINT "     You win the tournament. The"

395 PRINT "world is thrown into misery and chaos."

396 PRINT "You are the world's hated emperor."

397 PRINT "A month after you become ruler of"

398 PRINT "the world, you are assassinated by"

399 PRINT "your people!": Q$ = INPUT$(1): CLS : GOTO 354

400 ' -=-=-=-=-= KARNAGE'S ENDING =-=-=-=-=-

401 LOCATE 2, 1: PRINT , "KARNAGE:": PRINT : PRINT

402 PRINT "     You are a sick, sadistic man"

403 PRINT "named Karnage. You entered the"

404 PRINT "tournament just to see your"

405 PRINT "opponents' blood splatter all"

406 PRINT "over the ground.": PRINT : PRINT

407 PRINT "     After killing Death you"

408 PRINT "take a stick and rip open his"

409 PRINT "stomach. You gleefully play"

410 PRINT "with his guts before leaving.": Q$ = INPUT$(1): CLS : GOTO 354

450 ' -=-=-=-=-= ENDING SONG =-=-=-=-=-

PLAY "t230l7o3ap24ap24o4cp24o3ap24o4dp24o3ao4p24ep24dp24cp24cp24ep24cp24gp24cp24ep24cp24o3gp24gp24bp24gp24o4cp24o3gp24o4dp24cp24o3fp24fp24ap24fp24o4cp24o3fp24o4cp24o3bp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ap24ap24o4cp24o3ap24o4dp24o3ao4p24ep24dp24cp24cp24ep24cp24gp24cp24ep24cp24o3gp24gp24bp24gp24o4cp24o3gp24o4dp24cp24o3fp24fp24ap24fp24o4cp24o3fp24o4cp24o3bp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3agp24gap4"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o3ao4ep24o3ao4cp24o3ab-p24ao4cp24o3b-o4co4o3gp24"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l7o0cp5.cp5.cp5.cp8"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o3eeeep20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24l7aaaap8"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o3eeeep20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24aaaaaaaap24ggggp24o4ccccp20"

IF INKEY$ <> "" THEN GOTO C

PLAY "t230l25o3aaaaaaaap24aaaaaaaap24aaaaaaaap24l7aaaap8"

RETURN

451 ' -=-=-=-=-= CODES =-=-=-=-=-

452 PRINT "~ SECRET SCREEN - PRESS 'ESC' TO EXIT": X = 0: BEEP: PRINT

PRINT "  MAY THE BLOOD RUN THICK FROM YOUR"

PRINT "  OPPONENT'S CRUSHED OPEN SKULL!": PRINT

PRINT "~ ENTER YOUR CODE, MORTAL!": BEEP: BEEP: BEEP

453 Q$ = INKEY$

IF Q$ = "S" THEN 467

IF Q$ = "F" THEN 601

IF Q$ = "?" THEN 611

IF Q$ = "P" THEN 620

454 IF Q$ = CHR$(0) + CHR$(72) AND X = 0 THEN X = X + 1: BEEP

455 IF Q$ = CHR$(0) + CHR$(72) AND X = 1 THEN X = X + 1: BEEP

456 IF Q$ = CHR$(0) + CHR$(80) AND X = 2 THEN X = X + 1: BEEP

457 IF Q$ = CHR$(0) + CHR$(80) AND X = 3 THEN X = X + 1: BEEP

458 IF Q$ = CHR$(0) + CHR$(75) AND X = 4 THEN X = X + 1: BEEP

459 IF Q$ = CHR$(0) + CHR$(77) AND X = 5 THEN X = X + 1: BEEP

460 IF Q$ = CHR$(0) + CHR$(75) AND X = 6 THEN X = X + 1: BEEP

461 IF Q$ = CHR$(0) + CHR$(77) AND X = 7 THEN X = X + 1: BEEP

462 IF Q$ = "A" AND X = 8 THEN X = X + 1: BEEP

463 IF Q$ = "B" AND X = 9 THEN X = X + 1: BEEP

IF Q$ = CHR$(32) AND X = 10 THEN X = X + 1: BEEP

IF Q$ = CHR$(13) AND X = 11 THEN X = X + 1: BEEP: GOTO 466

IF Q$ = CHR$(27) THEN GOTO A ELSE 453

466 IF X = 12 THEN BEEP: BEEP: BEEP: BEEP: BEEP: BEEP: HOOK = 1

PRINT : PRINT : PRINT "MEAT HOOK ENABLED": BEEP: BEEP: BEEP: GOTO A

467 X = 0: BEEP

468 Q$ = INKEY$

IF Q$ = CHR$(0) + CHR$(80) AND X = 0 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(80) AND X = 1 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(72) AND X = 2 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(72) AND X = 3 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(77) AND X = 4 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(75) AND X = 5 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(77) AND X = 6 THEN X = X + 1: BEEP

IF Q$ = CHR$(0) + CHR$(75) AND X = 7 THEN X = X + 1: BEEP

IF Q$ = "B" AND X = 8 THEN X = X + 1: BEEP

IF Q$ = "A" AND X = 9 THEN X = X + 1: BEEP

IF Q$ = CHR$(13) AND X = 10 THEN X = X + 1: BEEP

IF Q$ = CHR$(32) AND X = 11 THEN X = X + 1: BEEP: GOTO 465

IF Q$ = CHR$(27) THEN GOTO A ELSE 468

465 IF X = 12 THEN BEEP: BEEP: BEEP: BEEP: BEEP: BEEP: STLTH = 1: SLOW = 1

PRINT : PRINT : PRINT "SLOW COMPUTER ENABLED": BEEP: BEEP: BEEP: GOTO A

469 ' -=-=-=-=-= EDGE'S MEAT HOOK =-=-=-=-=-

470 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

480 LINE (L, 135)-(10 + L, 122), 0

491 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

492 LINE (10 + L, 105)-(15 + L, 113), 0: LINE (15 + L, 113)-(25 + L, 110), 0

493 CIRCLE (10 + L, 100), 5, H: LINE (10 + L, 105)-(10 + L, 121), H

494 LINE (L, 135)-(10 + L, 122), H

495 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

496 LINE (10 + L, 105)-(45 + L, 100), H: LINE (45 + L, 100)-(60 + L, 90), 6

498 LINE (60 + L, 90)-(65 + L, 89), 7: LINE (65 + L, 89)-(68 + L, 89), 7

499 LINE (68 + L, 89)-(72 + L, 92), 7: LINE (45 + L, 100)-(35 + L, 105), 6

500 LINE (72 + L, 92)-(74 + L, 96), 7

501 FOR X = 1 TO 2000: NEXT

502 CIRCLE (10 + L, 100), 5, 0: LINE (10 + L, 105)-(10 + L, 121), 0

503 LINE (L, 135)-(10 + L, 122), 0

504 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

505 LINE (10 + L, 105)-(45 + L, 100), 0: LINE (45 + L, 100)-(60 + L, 90), 0

506 LINE (60 + L, 90)-(65 + L, 89), 0: LINE (65 + L, 89)-(68 + L, 89), 0

LINE (68 + L, 89)-(72 + L, 92), 0: LINE (45 + L, 100)-(35 + L, 105), 0

508 LINE (72 + L, 92)-(74 + L, 96), 0

509 CIRCLE (10 + L, 100), 5, H: LINE (10 + L, 105)-(10 + L, 121), H

510 LINE (L, 135)-(10 + L, 122), H

511 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

512 LINE (10 + L, 105)-(45 + L, 115), H: LINE (45 + L, 115)-(60 + L, 105), 6

513 LINE (60 + L, 105)-(65 + L, 104), 7: LINE (65 + L, 104)-(68 + L, 104), 7

514 LINE (68 + L, 104)-(72 + L, 107), 7: LINE (45 + L, 115)-(35 + L, 120), 6

515 LINE (72 + L, 107)-(74 + L, 111), 7

516 FOR X = 1 TO 2000: NEXT

517 CIRCLE (10 + L, 100), 5, H: LINE (10 + L, 105)-(10 + L, 121), 0

518 LINE (L, 135)-(10 + L, 122), 0

519 LINE (10 + L, 121)-(20 + L, 135), 0: LINE (10 + L, 105)-(L, 120), 0

520 LINE (10 + L, 105)-(45 + L, 115), 0: LINE (45 + L, 115)-(60 + L, 105), 0

521 LINE (60 + L, 105)-(65 + L, 104), 0: LINE (65 + L, 104)-(68 + L, 104), 0

522 LINE (68 + L, 104)-(72 + L, 107), 0: LINE (45 + L, 115)-(35 + L, 120), 0

523 LINE (72 + L, 107)-(74 + L, 111), 0

524 CIRCLE (10 + L, 100), 5, H

525 LINE (10 + L, 105)-(10 + L, 121), H: LINE (L, 135)-(10 + L, 122), H

526 LINE (10 + L, 121)-(20 + L, 135), H: LINE (10 + L, 105)-(L, 120), H

527 LINE (10 + L, 105)-(15 + L, 113), H: LINE (15 + L, 113)-(25 + L, 110), H

528 IF 25 + L > E - 40 THEN MH = MH - W * 2: PTS = PTS + 20: IF SND = 1 THEN IF SND = 1 THEN FOR X = 850 TO 810 STEP -1: SOUND (RND * 100 + X / 10 + 30), .1: NEXT: IF MH < 1 THEN MH = 0

IF PTS >= 200 THEN PTS = 200

FOR X = 1 TO 10

IF 25 + L <= E - 40 THEN 16

CIRCLE (E + 10, 100), X, 4: FOR Y = 1 TO 50: NEXT Y: NEXT

FOR X = 1 TO 10: CIRCLE (E + 10, 100), X, 0: FOR Y = 1 TO 50: NEXT Y: NEXT

RANDOMIZE TIMER

X = RND * 5 + 10

RANDOMIZE TIMER

Y = RND * 10 + 15

RANDOMIZE TIMER

Z = RND * 20 + 25

LINE (E - X, 136)-(E + X, 136), 4: LINE (E - Y, 137)-(E + Y, 137), 4

LINE (E - Z, 138)-(E + Z, 138), 4: LINE (E - Y, 139)-(E + Y, 139), 4

LINE (E - X, 140)-(E - X, 140), 4

CIRCLE (10 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

LINE (10 + E, 105)-(20 + E, 120), 0

CIRCLE (13 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

LINE (10 + E, 105)-(20 + E, 120), EN

FOR X = 1 TO 2000: NEXT

CIRCLE (13 + E, 100), 5, 0: LINE (10 + E, 105)-(10 + E, 121), 0

LINE (E, 135)-(10 + E, 122), 0: LINE (10 + E, 121)-(20 + E, 135), 0

LINE (10 + E, 105)-(5 + E, 113), 0: LINE (E - 5, 110)-(5 + E, 113), 0

LINE (10 + E, 105)-(20 + E, 120), 0: E = E + 50

CIRCLE (10 + E, 100), 5, EN: LINE (10 + E, 105)-(10 + E, 121), EN

LINE (E, 135)-(10 + E, 122), EN: LINE (10 + E, 121)-(20 + E, 135), EN

LINE (10 + E, 105)-(5 + E, 113), EN: LINE (E - 5, 110)-(5 + E, 113), EN

LINE (10 + E, 105)-(20 + E, 120), EN: GOTO 16

600 ' -=-=-=-=-= CODES CONT. =-=-=-=-=-

601 X = 0

602 Q$ = INKEY$

603 IF Q$ = "S" AND X = 0 THEN X = X + 1: BEEP

604 IF Q$ = "P" AND X = 1 THEN X = X + 1: BEEP

605 IF Q$ = "E" AND X = 2 OR X = 3 THEN X = X + 1: BEEP

606 IF Q$ = "D" AND X = 4 THEN X = X + 1: BEEP

607 IF Q$ = "Y" AND X = 5 THEN X = X + 1: BEEP

608 IF X = 6 THEN 609 ELSE 602

609 BEEP: BEEP: BEEP: BEEP: BEEP: PRINT "FAST COMPUTER ENABLED"

610 BEEP: BEEP: BEEP: BEEP: FAST = 1: GOTO A

611 X = 0

612 Q$ = INKEY$

613 IF Q$ = "I" AND X = 0 OR X = 3 THEN X = X + 1: BEEP

614 IF Q$ = "N" AND X = 1 THEN X = X + 1: BEEP

615 IF Q$ = "V" AND X = 2 THEN X = X + 1: BEEP

616 IF Q$ = "S" AND X = 4 THEN X = X + 1: BEEP

617 IF X = 4 THEN 618 ELSE 612

618 FOR X = 1 TO 5: BEEP: NEXT: PRINT "SHADOW MODE ENABLED"

619 BEEP: BEEP: BEEP: BEEP: INV = 1: GOTO A

620 X = 0

621 Q$ = INKEY$

622 IF Q$ = "S" AND X = 0 THEN X = X + 1: BEEP

623 IF Q$ = "U" AND X = 1 THEN X = X + 1: BEEP

624 IF Q$ = "P" AND X = 2 THEN X = X + 1: BEEP

625 IF Q$ = "A" AND X = 3 THEN X = X + 1: BEEP

626 IF X = 4 THEN 627 ELSE 621

627 FOR X = 1 TO 5: BEEP: NEXT: PRINT "SUPER MODE ENABLED"

628 BEEP: BEEP: BEEP: BEEP: SUPA = 1: GOTO A

0



SUB ENEMYSTATUS

        X = 2: Y = 4: EH = MH

        IF MH > 100 THEN X = 14: Y = 2: EH = MH - 100

        IF MH < 1 THEN MH = 0

        LINE (175, 10)-(275, 20), Y, BF

        LINE (175, 10)-(175 + EH, 20), X, BF

        LINE (174, 9)-(276, 21), 7, B

        LINE (174, 21)-(276, 21), 8

        LINE (276, 21)-(276, 9), 8

LOCATE 4, 24: PRINT EN$

IF EN$ = "Cloned" THEN LOCATE 5, 24: PRINT N$

END SUB



SUB ROUND

LOCATE 22, 2: PRINT "ROUND:"; LV

        LINE (8, 150)-(208, 160), 4, BF

        LINE (8, 150)-(8 + PTS, 160), CLR, BF

        LINE (7, 149)-(209, 161), 7, B

        LINE (7, 161)-(209, 161), 8

       

END SUB



SUB STATUSBAR

        IF HP < 1 THEN HP = 0

        LINE (25, 10)-(125, 21), 4, BF

        LINE (25, 10)-(25 + HP, 21), 2, BF

        LINE (24, 9)-(126, 21), 7, B

        LINE (24, 21)-(126, 21), 8

        LINE (126, 21)-(126, 9), 8

        LOCATE 4, 5: PRINT N$

END SUB