8000->A
8000->B
DISP "PLAYER 1 LP
DISP A
DISP "PLAYER 2 LP
DISP B
DISP
DISP "DUEL
PAUSE
LBL 1
DISP "SELECT PLAYER
DISP "P1 : 1
DISP "P2 : 2
DISP " DISPLAY ALL
DISP "PLAYER LP : 3
INOUT C
IF C=1
GOTO Z
IF C=2
GOTO Y
IF C=3
GOTO 2
LBL Z
DISP "PLAYER 1
DISP "SUBTRACT LP=1
DISP "ADD LP=2
INPUT D
IF D=1
GOTO X
IF D=2
GOTO W
LBL X
DISP "DAMAGE?
INPUT E
A-E->A
DISP A
PAUSE
GOTO 1
STOP
LBL W
DISP "ADD LP?
INPUT F
A+F->A
DISP A
PAUSE
GOTO 1
STOP
LBL Y
DISP "PLAYER 2
DISP "SUBTRACT LP=1
DISP "ADD LP=2
INPUT G
IF G=1
GOTO V
IF G=2
GOTO U
LBL V
DISP "DAMAGE?
INPUT H
B-H->B
DISP B
PAUSE
GOTO 1
STOP
LBL U
DISP "ADD LP?
INPUT I
B+I->B
DISP B
PAUSE
GOTO 1
STOP
LBL2
DISP "PLAYER 1 LP
DISP A
DISP "PLAYER 2 LP
DISP B
PAUSE
GOTO 1