'Game program

'title screen
CLS
LOCATE 5, 38
PRINT "Game"
LOCATE 16, 34
PRINT "Press Enter"
DO
LOOP WHILE INKEY$ = ""
'input
DIM Name1$, Name2$, HP1, HP2, Temp$
CLS
LOCATE 8
PRINT "            Input 1st player's name";
INPUT Name1$
PRINT "            Input 2nd player's name";
INPUT Name2$
PRINT "            Do you want to Cheat for 1st player?(y/n)";
INPUT Temp$
Temp$ = UCASE$(Temp$)
RANDOMIZE TIMER
HP1 = INT(RND * 50) + 50
HP2 = INT(RND * 50) + 50
IF Temp$ = "Y" AND HP2 > HP1 THEN SWAP HP1, HP2
PRINT STRING$(12, " ") + Name1$ + "'s HP is " + STR$(HP1)
PRINT STRING$(12, " ") + Name2$ + "'s HP is " + STR$(HP2)
PRINT "            Press any key to contiune..."
DO
LOOP WHILE INKEY$ = ""
'start
DIM Row, Text$, Attack1, Attack2, I
Tem$ = "n"
Row = 0
CLS
DO
  PRINT
  PRINT Name1$ + "'s HP:" + STRING$(16 - LEN(Name1$), " ");
  PRINT STRING$(INT(HP1 / 2), 236); STR$(HP1)
  PRINT
  PRINT Name2$ + "'s HP:" + STRING$(16 - LEN(Name2$), " ");
  PRINT STRING$(INT(HP2 / 2), 236); STR$(HP2)
  FOR I = 1 TO 4
  PRINT
  NEXT
  Row = Row + 1
  PRINT STRING$(11, " ") + STR$(Row) + "."
  PRINT STRING$(12, " ") + Name1$ + " now has HP " + STR$(HP1)
  PRINT STRING$(12, " ") + Name2$ + " now has HP " + STR$(HP2)
  DO
  LOOP WHILE INKEY$ = ""
  Attack1 = INT(RND * 20)
  Attack2 = INT(RND * 20)
  IF Temp$ = "Y" AND Attack2 > Attack1 THEN SWAP Attack1, Attack2
  Text$ = STRING$(12, " ") + Name1$ + " attack " + Name2$ + " " + STR$(Attack1)
  HP2 = HP2 - Attack1
  PRINT Text$
  DO
  LOOP WHILE INKEY$ = ""
  Text$ = STRING$(12, " ") + Name2$ + " attack " + Name1$ + " " + STR$(Attack2)
  HP1 = HP1 - Attack2
  PRINT Text$
  IF HP1 <= 0 OR HP2 <= 0 THEN EXIT DO
  DO
  LOOP WHILE INKEY$ = ""
  CLS
LOOP
IF HP1 <= 0 THEN PRINT STRING$(12, " ") + Name2$ + " win"
IF HP2 <= 0 THEN PRINT STRING$(12, " ") + Name1$ + " win"
IF HP1 <= 0 AND HP2 <= 0 THEN PRINT STRING$(12, " ") + "Double win!"