ʲMAIN,AA,AB,AC,ADΡĤΥץǹޤ
MAIN

  1. Z=0
  2. Lbl 1
  3. Z+1:"CONFIG":Pause 3
  4. Y=100:U=0
  5. Prog AB
  6. {U}
  7. U"LIFE":U0[then]Goto1[eoi]Prog AB:H[Z]=Int X
  8. {U}
  9. U"ATACK":Prog AB:A[Z]=Int X
  10. {U}
  11. U"DEFENCE":Prog AB:D[Z]=Int X
  12. {U}
  13. U"SPEED":Prog AB:S[Z]=Int X
  14. {U}
  15. L[Z]=Y
  16. V[Z]=1
  17. Z=Z+1:Z=1[then]GoTo 1[eoi]
  18. "FIGHT!":Pause 2
  19. Lbl 2
  20. S+Ran#LT+Ran#M[then]U=0:Prog AA:U=1:Prog AA:[else]U=1:Prog AA:U=0:Prog AA[eoi]
  21. Goto 2


AA

  1. 2-U:"ATACK BY":Pause 0
  2. Z=Int (A[1-U]+L[1-U]/3Ran#-D[U]/1.5-L[U]Ran#/3+Ran#4-2)
  3. Z1[then]Z=Int (Ran#2+1)[eoi]
  4. (s[U]-S[1-U])/100Ran#[then]U+1:"MISS!":Pause1:Goto 9[eoi]
  5. Z+(u+1)/10:"HIT!":Pause 3
  6. H[U]=H[U]-Z
  7. H[U]0[then]H[U]=0:Prog AD[eoi]
  8. Lbl 9
  9. H[U]+(U+1)/10:"LIFE":Pause 3
  10. H[U]=0[then]Prog AC[eoi]


AB

  1. YU[then]U=Y:[else]U0[then]U=0[eoi][eoi]
  2. X=U
  3. Y=Y-U:U=Y


AC

  1. V[U]=0[then]Goto 1[eoi]
  2. U+1:"LIMIT BREAK":Pause 2
  3. A[U]=A[U]2
  4. S[U]=S[U]3
  5. L[U]=L[U]3+20
  6. V[U]=0
  7. Lbl 1


AD

  1. 2.1-.9U:"WIN.DIE":Pause 9
  2. Lbl 1
  3. Goto 1