' WWJD WRESTLING 2
' E IS ENERGY FOR 1 PLR
' F IS ENERGY FOR 2 PLR
' P$ IS POSTION OF PLAYER (CHARACTER DRAWING)
' PL IS FOR WHICH PLR IS DOING A MOVE
' KK(PL) IS FOR K.O. IF IT'S < 1 THEN OPPENT IS K.O.ED
' KK(PL) IS A RANDOM VALUE
' N IS WALK 1PLR R IS WALK
' M 1PLR Q 2PLR IS Y AXIS OUTPUT LOCATE Y,X
' QT AND MT CONST FOR Q AND M
' Y AND X ARE DEFAULT LOCATE VALUES
' I IS LOOP VAL
' TL IS TITLE AND HOWMANY PLAYERS
' TW IS OPTION VARAIBLE
HH = 1
TW = 3: PL = 1
LP = 15000 ' CPU SPEED

ST:

KK(1) = INT(RND(1) * 70 + 1): KK(2) = KK(1)

CLS
PRINT "WWJD WRESTLING II"
PRINT "CHOOSE A NUMBER"
PRINT "------------------"
PRINT "1. TITLE FIGHT"
PRINT "2. EXHIBIT (2 PLR)"
PRINT "3. INSTRUCTIONS"
PRINT "4. VIEW CHAMPIONS"
PRINT "5. FORMAT FILE <- FOR FIRST TIME BEING PLAYED"
PRINT "6. OPTIONS"
PRINT "7. QUIT"
PRINT "------------------"

GETT:
 G$ = INKEY$
 IF G$ = "1" THEN TL = 1: GOTO 1
 IF G$ = "2" THEN TL = 2: GOTO 1
 IF G$ = "3" THEN GOTO INSTUR
 IF G$ = "4" THEN GOTO VIEWT
 IF G$ = "5" THEN GOSUB FOMAT
 IF G$ = "`" THEN GOSUB FIXMAT
 IF G$ = "6" THEN GOTO OPTIONS
 IF G$ = "7" THEN CLS : PRINT "DONE!": END
GOTO GETT

OPTIONS:

CLS : COLOR 2
PRINT "1. TITLE FIGHT JUST 1 PLR EXHIBIT"
PRINT "2. TITLE FIGHT IS FOR TITLE"
PRINT "3. 2 PLR IS TITLE FIGHT"
PRINT "4. 2 PLR IS EXHIBIT"
PRINT "5. BACK"

DO
G$ = INKEY$
LOOP UNTIL G$ <> ""
IF G$ = "1" THEN TW = 1
IF G$ = "2" THEN TW = 0
IF G$ = "3" THEN TW = 2
IF G$ = "4" THEN TW = 3
IF G$ = "!" AND FH > 3 THEN HH = 1: FH = 0
IF G$ = "!" THEN FH = FH + 1
IF G$ = "5" THEN GOTO ST
GOTO ST

FIXMAT:
 CLS : INPUT "ENTER CHAMPION"; TT$
 FOR A = 1 TO 5
 PRINT A: INPUT "ENTER HAS BEEN"; OTT$(A)
 NEXT A
GOTO VFMAT

FOMAT:
 TT$ = "NO ONE": FOR A = 1 TO 5
 OTT$(A) = "NO ONE": NEXT A
 OPEN "C:\FIRSTB\GAMESS\TBELT" FOR OUTPUT AS #1
 PRINT #1, TT$
 FOR A = 1 TO 5
 PRINT #1, OTT$(A)
 NEXT A
 CLOSE #1
RETURN

INSTUR:
 CLS
 COLOR 7: PRINT "1 PLR STAND"
 COLOR 14: PRINT "  "
 PRINT "  "; CHR$(26)
 COLOR 2: PRINT "(GRAPPLE)"
 PRINT "(WALK BACK)(WEAPON)"; CHR$(26); "(WALK FORWARD)"
 COLOR 7: PRINT : PRINT "1 PLR GRAPPLE"
 COLOR 2: PRINT ""; CHR$(26); "MOVE"
 PRINT " - SPECIAL WHEN 2 PLR ENERGY DOWN ABOUT 1/2 WAY"
 PRINT "S/ - DRAW WEAPON AND USE IT (4 BOTH PLRS STANDING)"
 COLOR 7: PRINT : PRINT "2 PLR STAND"
 COLOR 14: PRINT "  W"
 PRINT "A S D"
 COLOR 2: PRINT "W (UP) - GRAPPLE"
 PRINT "A (BACK) S (DOWN)-WEAPON D (RIGHT)"
 COLOR 7: PRINT : PRINT "2 PLR GRAPPLE"
 COLOR 2: PRINT "W A S D MOVE"
 PRINT "W (UP) - SPECIAL WHEN 1 PLR ENERGY LOW"
 COLOR 7: PRINT "PRESS ANYKEY WHEN READY"
 DO
 G$ = INKEY$
 LOOP UNTIL G$ <> ""
GOTO ST

1 REM
E = 40: F = 40
CLS
GOSUB RING
M = 10: N = 18
Q = 10: R = 20

5 REM --START
'PLR 1
Y = M: X = N
GOSUB STAND1

'PLR 2
Y = Q: X = R
GOSUB STAND2

'ENERGY M
IF E < 7 THEN E = 1
IF F < 7 THEN F = 1
FOR I = 40 TO E STEP -1: COLOR 10, 4, 1: LOCATE 15, I: PRINT " "; : NEXT I
FOR I = 40 TO F STEP -1: COLOR 10, 4, 1: LOCATE 16, I: PRINT " "; : NEXT I
IF E < 7 THEN
  LOCATE 1, 1: PRINT "2 PLR WINS!": WIN = 0: PLR = 2
  IF TL = 2 THEN WIN = 1
  GOTO TITLE
END IF
IF F < 7 THEN
  LOCATE 1, 1: PRINT "1 PLR WINS!": WIN = 1: PLR = 1
  GOTO TITLE
END IF

10 PL = 0: REM --MOVING--
 COLOR 1, 8, 1
 'SELECT CASE G$
 G$ = INKEY$
 IF G$ = "" AND TL = 1 THEN GOTO CPU
 IF G$ = "" AND TL = 2 THEN GOTO 10
 IF G$ = CHR$(0) + "P" AND W(1) = 0 THEN GOSUB WEAPON: GOTO 10
 IF G$ = CHR$(0) + "P" AND W(1) = 1 THEN GOTO USEW
 IF G$ = CHR$(0) + "H" AND R = N + 1 THEN GOTO GRAP1: 'UP
 IF G$ = "S" AND W(2) = 0 OR G$ = "s" AND W(2) = 0 THEN GOSUB WEAPON: GOTO 10
 IF G$ = "S" AND W(2) = 1 OR G$ = "s" AND W(2) = 1 THEN GOTO USEW
 IF G$ = "W" AND R = N + 1 OR G$ = "w" AND R = N + 1 THEN GOTO GRAP2
 ' 1 PLR'S
 IF G$ = CHR$(0) + "K" AND N > 9 THEN N = N - 1: GOTO WALK: 'LEFT
 IF G$ = CHR$(0) + "M" AND N < 37 THEN N = N + 1: GOTO WALK: 'RIGHT
 ' 2 PLR'S
 IF G$ = "A" AND R > 9 OR G$ = "a" AND R > 9 THEN R = R - 1: GOTO WALK: 'LEFT
 IF G$ = "D" AND R < 37 OR G$ = "d" AND R < 37 THEN R = R + 1: GOTO WALK: 'RIGHT
 'END SELECT
GOTO 10

WEAPON:
  IF G$ = CHR$(0) + "P" THEN
    W(1) = 1
    LOCATE Q, N + 1: PRINT "º"
    LOCATE Q + 1, N + 1: PRINT "º"
  END IF
  IF G$ = "S" OR G$ = "s" THEN
    W(2) = 1
    LOCATE M, R - 1: PRINT "º"
    LOCATE M + 1, R - 1: PRINT "º"
  END IF
RETURN

USEW:
  IF G$ = CHR$(0) + "P" AND R = N + 2 AND PLR <> 2 THEN
    LOCATE Q, N + 1: PRINT "º"
    LOCATE Q + 1, N + 1: PRINT "º"
    FOR I = 1 TO 10000: NEXT I
    LOCATE Q, N + 1: PRINT " /"
    LOCATE Q + 1, N + 1: PRINT "/"
    FOR I = 1 TO 10000: NEXT I: KK(1) = KK(1) - 8
    F = F - 5
    GOTO WALK
  END IF
  IF G$ = CHR$(0) + "P" AND R = N + 3 AND PLR <> 2 THEN
    GOSUB RING: PL = 1
    Y = Q: X = R: GOSUB STAND2
    Y = M: X = N: GOSUB STAND1
    COLOR 1
    LOCATE Q, N + 2: PRINT "º"
    LOCATE Q + 1, N + 2: PRINT "º"
    FOR I = 1 TO 10000: NEXT I
    Y = Q: X = R: GOSUB STAND2
    LOCATE Q + 1, N: PRINT " "
    LOCATE Q + 2, N: PRINT " "
    LOCATE Q + 3, N: PRINT " "
    Y = M - 3: X = N - 2: GOSUB LAY3
    FOR I = 1 TO 10000: NEXT I: COLOR 1
    LOCATE Q, N + 3: PRINT "º"
    LOCATE Q + 1, N + 3: PRINT "º"
    LOCATE Q, N - 2: PRINT " "
    LOCATE Q + 1, N + 2: PRINT " "
    Y = M - 3: X = N - 1: GOSUB LAY3
    FOR I = 1 TO 10000: NEXT I: F = F - 10: KK(1) = KK(1) - 10
    GOTO WALK
  END IF
  IF G$ = "S" AND R = N + 2 AND PLR <> 1 OR G$ = "s" AND R = N + 2 AND PLR <> 1 THEN
    LOCATE M, R - 1: PRINT "º"
    LOCATE M + 1, R - 1: PRINT "º"
    FOR I = 1 TO 10000: NEXT I
    LOCATE M, R - 2: PRINT "\ "
    LOCATE M + 1, R - 1: PRINT "\"
    FOR I = 1 TO 10000: NEXT I: KK(2) = KK(2) - 8
    E = E - 5
    GOTO WALK
  END IF
  IF G$ = "S" AND R = N + 3 AND PLR <> 1 OR G$ = "s" AND R = N + 3 AND PLR <> 1 THEN
    GOSUB RING: PL = 2
    Y = Q: X = R: GOSUB STAND2
    Y = M: X = N: GOSUB STAND1
    COLOR 1
    LOCATE M, R - 2: PRINT "º"
    LOCATE M + 1, R - 2: PRINT "º"
    FOR I = 1 TO 10000: NEXT I
    Y = M: X = N: GOSUB STAND1
    LOCATE M + 1, R: PRINT " "
    LOCATE M + 2, R: PRINT " "
    LOCATE M + 3, R: PRINT " "
    Y = M - 3: X = R - 1: GOSUB LAY4
    FOR I = 1 TO 10000: NEXT I: COLOR 1
    LOCATE M, R - 3: PRINT "º"
    LOCATE M + 1, R - 3: PRINT "º"
    LOCATE M, R + 2: PRINT " "
    LOCATE M + 1, R - 2: PRINT " "
    Y = M - 3: X = R - 2: GOSUB LAY4
    FOR I = 1 TO 10000: NEXT I: E = E - 10: KK(2) = KK(2) - 10
    GOTO WALK
  END IF
GOTO 10

CPU:
 IF FH = 1 AND PLR = 1 THEN GOTO 10
 FOR I = 1 TO LP: NEXT I
 RD = INT(RND(1) * 4 + 1)
 IF R = N + 1 THEN GOTO CPUG
 IF R < N THEN RD = 3
 IF R > N THEN RD = 2
 IF RD = 2 AND R > 9 THEN R = R - 1: GOTO WALK
 IF RD = 3 AND R < 37 THEN R = R + 1: GOTO WALK
 IF RD = 1 AND R = N + 1 THEN GOTO CPUG
GOTO 10

CPUG:
 IF FH = 1 THEN FH = 2
 QT = Q: MT = M
 E = E - 2
 PL = 2
 FOR I = 1 TO LP: NEXT I
 LOCATE Y + 1, X - 1: COLOR 3: PRINT "È"
 RD = INT(RND(1) * 4 + 1)
 IF FH = 2 AND R = 10 THEN
   Q = Q - 4: M = M - 4
   GOTO STUR2
 END IF
 IF E < 21 THEN GOTO SP2
 IF RD = 1 AND E < 21 THEN GOTO SP2
 IF RD = 1 AND R = 10 THEN
   Q = Q - 4: M = M - 4: R = R - 1
   GOTO SUPLEX2
 END IF
 IF RD = 1 THEN GOTO SUPLEX2
 IF RD = 2 AND R = 37 THEN
   Q = Q - 4: M = M - 4
   GOTO PWRBMB2
 END IF
 IF RD = 2 THEN GOTO PWRBMB2
 IF RD = 3 AND R = 10 THEN
   Q = Q - 4: M = M - 4: R = R - 1
   GOTO DDT2
 END IF
 IF RD = 3 THEN GOTO DDT2
 IF RD = 4 AND R = 37 THEN
   Q = Q - 4: M = M - 4
   GOTO BULDOG2
 END IF
 IF RD = 4 THEN GOTO BULDOG2

GRAP1:
 IF PLR = 2 THEN GOTO 10
 IF FH = 1 THEN FH = 2
 QT = Q: MT = M
 F = F - 2
 PL = 1
LOCATE Y + 1, X: COLOR 3: PRINT "¼"
20 G$ = INKEY$
 IF G$ = "0" AND FH = 2 AND N = 36 THEN
   Q = Q - 4: M = M - 4
   GOTO STUR1
 END IF
 IF G$ = "0" AND HH = 1 THEN GOTO STUR1
 IF G$ = CHR$(0) + "H" AND F < 21 THEN GOTO SP1
 IF G$ = CHR$(0) + "H" AND N = 36 THEN
   N = N + 1: Q = Q - 4: M = M - 4: PL = 0
   GOTO SUPLEX1
 END IF
 IF G$ = CHR$(0) + "H" THEN PL = 0: GOTO SUPLEX1: 'UP
 IF G$ = CHR$(0) + "P" AND N = 9 THEN
   N = N - 1: Q = Q - 4: M = M - 4
   GOTO PWRBMB1
 END IF
 IF G$ = CHR$(0) + "P" THEN GOTO PWRBMB1: 'DOWN
 IF G$ = CHR$(0) + "K" AND N = 36 THEN
   N = N + 1: Q = Q - 5: M = M - 4
   GOTO DDT1
 END IF
 IF G$ = CHR$(0) + "K" THEN GOTO DDT1: 'LEFT
 IF G$ = CHR$(0) + "M" AND N = 36 THEN
   N = N + 1: Q = Q - 4: M = M - 4
   GOTO BRAINBUSTER
 END IF
 IF G$ = CHR$(0) + "M" THEN GOTO BRAINBUSTER: 'RIGHT
GOTO 20

GRAP2:
 IF PLR = 1 THEN GOTO 10
 IF FH = 1 THEN FH = 2
 QT = Q: MT = M
 E = E - 2
 PL = 2
 LOCATE Y + 1, X - 1: COLOR 3: PRINT "È"
30 G$ = INKEY$: IF G$ = "" THEN GOTO 30
 IF G$ = "Q" AND R = 10 OR G$ = "q" AND R = 10 THEN
   Q = Q - 4: M = M - 4
   GOTO STUR2
 END IF
 IF G$ = "Q" AND HH = 1 OR G$ = "q" AND HH = 1 THEN GOTO STUR2
 IF G$ = "W" AND E < 21 OR G$ = "w" AND E < 21 THEN GOTO SP2
 IF G$ = "W" AND R = 10 OR G$ = "w" AND N = 9 THEN
   R = R - 1: Q = Q - 4: M = M - 4: PL = 0
   GOTO SUPLEX2
 END IF
 IF G$ = "W" OR G$ = "w" THEN PL = 0: GOTO SUPLEX2
 IF G$ = "S" AND R = 37 OR G$ = "s" AND R = 10 THEN
   Q = Q - 4: M = M - 4
   GOTO PWRBMB2
 END IF
 IF G$ = "S" OR G$ = "s" THEN GOTO PWRBMB2
 IF G$ = "D" AND R = 10 OR G$ = "d" AND R = 10 THEN
   R = R - 1: Q = Q - 4: M = M - 4
   GOTO DDT2
 END IF
 IF G$ = "D" OR G$ = "d" THEN GOTO DDT2
 IF G$ = "A" AND R = 37 OR G$ = "a" AND R = 37 THEN
   Q = Q - 4: M = M - 4
   GOTO BULDOG2
 END IF
 IF G$ = "A" OR G$ = "a" THEN GOTO BULDOG2
GOTO 30

WALK:
  IF PL > 0 THEN GOSUB KO
  IF G$ = "A" AND PLR = 1 OR G$ = "a" AND PLR = 1 THEN R = R + 1: GOTO 10
  IF G$ = "D" AND PLR = 1 OR G$ = "d" AND PLR = 1 THEN R = R - 1: GOTO 10
  IF G$ = "4" AND PLR = 2 THEN R = R + 1: GOTO 10
  IF G$ = "6" AND PLR = 2 THEN R = R - 1: GOTO 10
  GOSUB RING
GOTO 5

KO:
  KK(PL) = KK(PL) - 7
  IF KK(PL) < 1 THEN GOTO OUUT
  PL = 0
RETURN

OUUT:
 IF PL = 1 THEN
   FOR I = 1 TO 10000: NEXT I
   GOSUB RING
   Y = Q: X = N: GOSUB STAND1
   Y = M: X = R: GOSUB LAY2: FOR I = 1 TO 5000: NEXT I
   LOCATE Y + 2, X + 2: PRINT ""
   LOCATE Y + 3, X + 2: PRINT "¼ ": FOR I = 1 TO 5000: NEXT I
 END IF
 IF PL = 2 THEN
   FOR I = 1 TO 10000: NEXT I
   GOSUB RING
   Y = M: X = R: GOSUB STAND2
   Y = Q: X = N - 3: GOSUB LAY1: FOR I = 1 TO 5000: NEXT I
   LOCATE Y + 2, X + 1: PRINT ""
   LOCATE Y + 3, X: PRINT " È": FOR I = 1 TO 5000: NEXT I
 END IF
 I = INT(RND(1) * 8 + 1)
 IF I > 4 AND PL = 1 THEN F = 1: LOCATE 1, 1: PRINT "KO!": FOR I = 1 TO 10000: NEXT I
 IF I > 4 AND PL = 2 THEN E = 1: LOCATE 1, 1: PRINT "KO!": FOR I = 1 TO 10000: NEXT I
GOTO 5

STUR1:
 F = F - 10
 CLS : GOSUB RING
 Y = Q: X = N
 GOSUB STAND1
 Y = M: X = R + 1
 GOSUB STAND2
 FOR I = 1 TO 50000: NEXT I
 X = N
 LOCATE Y + 2, X + 1: PRINT "¼": FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = Q: X = N: GOSUB STAND2
 Y = M: X = R: GOSUB STUN1
 FOR I = 1 TO 15000: NEXT I
 CLS : GOSUB RING
 Y = M: X = R: GOSUB STUN1
 Y = Q: X = N: GOSUB STAND2: FOR I = 1 TO 15000: NEXT I
 Q = QT: M = MT: CLS : GOSUB RING
 Y = M: X = R: GOSUB STUN1
 Y = Q: X = N - 1: GOSUB SIT2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

SP1:
 KK(PL) = KK(PL) - 10
 F = F - 3
 CLS : GOSUB RING
 Y = Q - 2: X = N
 GOSUB SIT2
 Y = M: X = N
 GOSUB STAND1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = Q - 3: X = N
 GOSUB SIT2
 Y = M: X = N
 GOSUB STAND1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = M: X = N
 GOSUB STAND1
 Y = M: X = N + 3
 GOSUB LAY2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

SUPLEX1:
 CLS : GOSUB RING
 Y = Q - 3: X = N
 GOSUB UPSD1
 Y = M: X = N
 GOSUB STAND1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF N = 37 THEN Q = QT: M = MT: F = F - 1
 Y = M: X = N - 3
 GOSUB LAY1
 Y = M: X = N - 6
 GOSUB LAY2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

PWRBMB1:
 CLS : GOSUB RING
 Y = M - 3: X = N - 1
 GOSUB LAY2
 Y = M: X = N
 GOSUB STAND1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF N = 8 THEN N = 9: F = F - 2: Q = QT: M = MT
 Y = M: X = N
 GOSUB STAND1
 Y = M: X = N + 3
 GOSUB LAY2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

DDT1:
 CLS : GOSUB RING
 Y = M: X = N
 GOSUB STAND1
 Y = M - 2: X = N
 GOSUB LAY3
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF N = 37 THEN Q = QT: M = MT: F = F - 3
 Y = M: X = N - 3
 GOSUB LAY1
 Y = M: X = N - 2
 GOSUB UPSD1
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

BRAINBUSTER:
 CLS : GOSUB RING
 Y = Q - 3: X = N
 GOSUB UPSD1
 Y = M: X = N
 GOSUB STAND1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF N = 37 THEN Q = QT: M = MT: F = F - 3
 Y = M: X = N - 3
 GOSUB LAY1
 Y = M: X = N - 3
 GOSUB UPSD1
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = M: X = N - 3
 GOSUB LAY1
 Y = M: X = N - 6
 GOSUB LAY2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

STUR2:
 E = E - 10
 CLS : GOSUB RING
 Y = Q: X = N - 1
 GOSUB STAND1
 Y = M: X = R
 GOSUB STAND2
 FOR I = 1 TO 50000: NEXT I
 X = R
 LOCATE Y + 2, X - 1: PRINT "È": FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = M: X = R: GOSUB STAND1
 Y = Q: X = N: GOSUB STUN2
 FOR I = 1 TO 40000: NEXT I
 CLS : GOSUB RING
 Y = Q: X = N: GOSUB STUN2
 Y = M: X = R: GOSUB STAND1: FOR I = 1 TO 50000: NEXT I
 Q = QT: M = MT: CLS : GOSUB RING
 Y = Q: X = N: GOSUB STUN2
 Y = M: X = R: GOSUB SIT1
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

SP2:
 KK(PL) = KK(PL) - 10
 E = E - 3
 CLS : GOSUB RING
 Y = Q - 3: X = R - 2
 GOSUB LAY1
 Y = Q: X = R
 GOSUB STAND2
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = Q: X = R: GOSUB STAND2
 Y = Q: X = R - 1: GOSUB FRANK2
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 Y = Q: X = R - 1: GOSUB SIT5
 Y = Q: X = R - 1: GOSUB FRANK3
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

BULDOG2:
 CLS : GOSUB RING
 Y = Q: X = R: GOSUB STAND2
 Y = Q - 2: X = R: GOSUB LAY3
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF R = 37 THEN Q = QT: M = MT: E = E - 3
 Y = Q: X = R - 2: GOSUB SIT4
 Y = Q: X = R: GOSUB LAY3
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

SUPLEX2:
 CLS : GOSUB RING
 Y = M - 3: X = R
 GOSUB UPSD2
 Y = Q: X = R
 GOSUB STAND2: FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF R = 9 THEN Q = QT: M = MT: R = R + 1: E = E - 1
 Y = Q: X = R
 GOSUB LAY2
 Y = Q: X = R + 3
 GOSUB LAY1: FOR I = 1 TO 50000: NEXT I
GOTO WALK

PWRBMB2:
 CLS : GOSUB RING
 Y = Q - 3: X = R - 2
 GOSUB LAY1
 Y = Q: X = R
 GOSUB STAND2
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF R = 37 THEN Q = QT: M = MT: E = E - 2
 Y = Q: X = R
 GOSUB STAND2
 Y = Q: X = R - 6
 GOSUB LAY1
 FOR I = 1 TO 50000: NEXT I
GOTO WALK

DDT2:
 CLS : GOSUB RING
 Y = Q: X = R
 GOSUB STAND2
 Y = M - 2: X = R - 3
 GOSUB LAY4
 FOR I = 1 TO 50000: NEXT I
 CLS : GOSUB RING
 IF R = 9 THEN R = R + 1: Q = QT: M = MT: E = E - 3
 Y = M: X = N
 GOSUB LAY2
 Y = M: X = N + 2
 GOSUB UPSD2
 FOR I = 1 TO 50000: NEXT I
GOTO WALK


RING:
 CLS
 FOR I = 1 TO 9
 PRINT "                                             "
 NEXT I
 COLOR 15: PRINT "       /";
 COLOR 12: PRINT "º"; : COLOR 15: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ";
 COLOR 12: PRINT "º"; : COLOR 15: PRINT "\       ": COLOR 15: PRINT "      //";
 COLOR 12: PRINT "º"; : COLOR 15: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ";
 COLOR 12: PRINT "º"; : COLOR 15: PRINT "\\      "
 COLOR 12: PRINT "     º"; : COLOR 15: PRINT "//";
 COLOR 12: PRINT "º";
 COLOR 15: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ";
 COLOR 12: PRINT "º"; : COLOR 15: PRINT "\\";
 COLOR 12: PRINT "º     "
 PRINT "     º"; : COLOR 15: PRINT "/";
 COLOR 2: PRINT "/                             \"; : COLOR 15: PRINT "\";
 COLOR 12: PRINT "º     "
 PRINT "     º";
 COLOR 2: PRINT "/                               \";
 COLOR 12: PRINT "º     "
 COLOR 2: PRINT "     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ1PLR "
 COLOR 2: PRINT "     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ2PLR "
 COLOR 7: PRINT "     WWJD WRESTLING 2"
RETURN

STAND1:
 COLOR 3
 LOCATE Y, X: PRINT ""
 LOCATE Y + 1, X: PRINT "Ì"
 LOCATE Y + 2, X: PRINT "º"
 LOCATE Y + 3, X: PRINT "È"
RETURN

STAND2:
 COLOR 3
 LOCATE Y, X: PRINT ""
 LOCATE Y + 1, X: PRINT "¹"
 LOCATE Y + 2, X: PRINT "º"
 LOCATE Y + 3, X: PRINT "¼"
RETURN

LAY1:
 COLOR 3
 LOCATE Y + 3, X: PRINT "Êͼ"
RETURN

LAY2:
 COLOR 3
 LOCATE Y + 3, X: PRINT "ÈÍÊ"
RETURN

LAY3:
 COLOR 3
 LOCATE Y + 3, X: PRINT "ËÍ»"
RETURN

LAY4:
 COLOR 3
 LOCATE Y + 3, X: PRINT "ÉÍË"
RETURN

UPSD1:
 COLOR 3
 LOCATE Y, X: PRINT "É"
 LOCATE Y + 1, X: PRINT "º"
 LOCATE Y + 2, X: PRINT "Ì"
 LOCATE Y + 3, X: PRINT ""
RETURN

UPSD2:
 COLOR 3
 LOCATE Y, X: PRINT "»"
 LOCATE Y + 1, X: PRINT "º"
 LOCATE Y + 2, X: PRINT "¹"
 LOCATE Y + 3, X: PRINT ""
RETURN

FRANK1:
 COLOR 3
 LOCATE Y, X: PRINT "»"
 LOCATE Y + 1, X: PRINT "Ì"
 LOCATE Y + 2, X: PRINT ""
RETURN

FRANK2:
 COLOR 3
 LOCATE Y, X: PRINT "É"
 LOCATE Y + 1, X: PRINT "¹"
 LOCATE Y + 2, X: PRINT ""
RETURN

FRANK3:
 COLOR 3
 LOCATE Y + 1, X: PRINT "»"
 LOCATE Y + 2, X: PRINT "º"
 LOCATE Y + 3, X - 1: PRINT "¼"
RETURN

STUN1:
 COLOR 3
 LOCATE Y + 1, X - 1: PRINT "»"
 LOCATE Y + 2, X: PRINT "º"
 LOCATE Y + 3, X: PRINT "¼"
RETURN

STUN2:
 COLOR 3
 LOCATE Y + 1, X: PRINT "É"
 LOCATE Y + 2, X: PRINT "º"
 LOCATE Y + 3, X: PRINT "È"
RETURN

SIT1:
 COLOR 3
 LOCATE Y + 1, X: PRINT ""
 LOCATE Y + 2, X: PRINT "Ì"
 LOCATE Y + 3, X: PRINT "ȼ"
RETURN

SIT2:
 COLOR 3
 LOCATE Y + 1, X + 1: PRINT ""
 LOCATE Y + 2, X + 1: PRINT "¹"
 LOCATE Y + 3, X: PRINT "ȼ"
RETURN

SIT3:
 COLOR 3
 LOCATE Y + 2, X: PRINT ""
 LOCATE Y + 3, X: PRINT "Èͼ"
RETURN

SIT4:
 COLOR 3
 LOCATE Y + 2, X + 2: PRINT ""
 LOCATE Y + 3, X: PRINT "Èͼ"
RETURN

SIT5: '  = Up   = Down   = Right   = Left"
 COLOR 3
 LOCATE Y + 1, X + 1: PRINT "¹È»"
RETURN

FINISH:
 LOCATE 1, 1: COLOR 15: PRINT "FINISH HIM!": FH = 1
GOTO 10

TITLE:
 IF FH = 0 OR FH = 1 THEN GOTO FINISH
 IF FH = 2 THEN FH = 0
 COLOR 1, 8, 1: COLOR 7
 IF TL = 1 AND TW = 3 THEN TW = 0
 IF TL = 2 AND TW = 3 THEN RUN
 IF TL = 1 AND TW = 1 THEN RUN
 IF TL = 2 AND TW = 2 THEN TL = 1: TW = 0
 IF TL = 1 AND TW = 0 THEN
   CLS
   INPUT "ENTER YOUR NAME"; N$
   IF WIN <> 1 THEN N$ = "MASTER"
   OPEN "C:\FIRSTB\GAMESS\TBELT" FOR INPUT AS #1
   INPUT #1, TT$
   FOR A = 1 TO 5
   INPUT #1, OTT$(A)
   NEXT A
   CLOSE #1

   PRINT "OLD CHAMPION WAS: "; TT$
   FOR A = 5 TO 1 STEP -1
   OTT$(A) = OTT$(A - 1)
   NEXT A
   OTT$(1) = TT$
   TT$ = N$
   PRINT "NEW CHAMPION IS:  "; N$
VFMAT:
   OPEN "C:\FIRSTB\GAMESS\TBELT" FOR OUTPUT AS #1
   PRINT #1, TT$
   FOR A = 1 TO 5
   PRINT #1, OTT$(A)
   NEXT A
 END IF
 DO
 G$ = INKEY$
 LOOP UNTIL G$ <> ""
RUN

VIEWT:
 CLS
 COLOR 1, 8, 1
 OPEN "C:\FIRSTB\GAMESS\TBELT" FOR INPUT AS #1
 INPUT #1, TT$
 FOR A = 1 TO 5
 INPUT #1, OTT$(A)
 NEXT A
 CLOSE #1
 COLOR 15: PRINT "THE CHAMPION": COLOR 7
 PRINT : PRINT TT$: COLOR 15
 PRINT : PRINT "HALL OF SHAME!": COLOR 7
 FOR A = 1 TO 5
 PRINT OTT$(A)
 NEXT A
 PRINT : PRINT "PRESS ANY KEY WHEN READY."
 DO
 G$ = INKEY$
 LOOP UNTIL G$ <> ""
GOTO ST