Declare Sub Punch()
Declare Sub Whip()
Declare Sub Crush()
Declare Sub Smash()

'Enemy Fighter!
'***State HP***
SLEEP 500
var EHP = 100
PRINT "Enemy has" ;EHP; " HP."
SLEEP 500
var HP = 1000
PRINT "You have" ;HP; " HP."
SLEEP 1000
'***Fight Code***
RANDOMIZE TIMER
var EATK = 0
var EATK_NAME = ""
var RAND = RND * 99 + 1
if RAND < 25 THEN
    EATK_NAME = "Punch"
ELSE
    if RAND < 50 THEN
        EATK_NAME = "Smash"
    ElseIf RAND < 75 THEN
            EATK_NAME = "Whip"
    ELSE
            EATK_NAME = "Crush"
    End If
END If

IF EATK_NAME = "Punch" Then
    Punch()
    'GOTO punch_code
ElseIf EATK_NAME = "Smash" Then
        Smash()
    'GOTO smash_code
ElseIf EATK_NAME = "Whip" Then
        Whip()
    'GOTO whip_code
ElseIf EATK_NAME = "Crush" Then
        Crush()
    'GOTO crush_code
END IF

Sleep

Sub Punch()
'punch_code:
    PRINT "Punch!"
End Sub

Sub Smash()
'smash_code:
    PRINT "Smash!"
End Sub

Sub Whip()
'whip_code:
    PRINT "Whip!"
End Sub

Sub Crush()
'crush_code:
    PRINT "Crush!"
End Sub