1 CSR 11:PRINT " Fight!   ";:X=4↑.5
2 Y$="EHLVLHV":T$="4A4V4AH":H$="EVVVVVE":E=94:F=24:G=26:M=5:J=5
3 CSR 0,:PRINT "Atk:";:GOSUB 20:A$=$:PRINT "Def:";:GOSUB 20:B$=$
4 N$=H$:C$="":D$="":FOR I=0 TO 5:C$=C$+CHR E(RAN#*3)
5 D$=D$+CHR E(RAN#*3):NEXT I:LETC H$:Q$=CHR 96:PRINT Q$;:CSR 11
6 PRINT Q$;:LETC T$:CSR 3:PRINT Q$;:CSR 8:PRINT Q$;:X=2^2:FOR I=1 TO 6
7 U$=GETC (A$,I):CSR 5:PRINT "-";:W$="X":IF U$!=GETC (D$,I);GOSUB 30
8 PRINT U$;:CSR 8:PRINT W$;:X=2^2:CSR 8:PRINT Q$;:LETC N$:CSR 11
9 PRINT Q$;:LETC T$:IF J=0;CSR 8:LETC Y$:PRINT Q$;:X=4^.5:GOTO 40
10 U$=GETC (C$,I):W$="X":CSR 6:PRINT "-";:IF U$!=GETC (B$,I);GOSUB 31
11 IF U$="→";U$="←"
12 CSR 5:PRINT U$;:CSR 3:PRINT W$;:X=2^2:CSR 3
13 PRINT Q$;:LETC H$:CSR 0:PRINT Q$;:LETC T$
14 IF M=0;CSR 3:LETC Y$:PRINT Q$;:X=4^.5:GOTO 41
15 NEXT I:X=4^.5:IF J=M THEN 42:IF J>M THEN 41:GOTO 40
20 P=0:$=""
21 K=ASCI KEY:IF K=0 THEN 21:IF K=8 THEN 24:IF K=4 THEN 23:IF P=6 THEN 21
22 K=K-52:IF K>=0;IF K<=2;P=P+1:$=$+CHR E(K):GOTO 25
23 P=P+1:IF P=7;CSR 0,:RETURN
24 IF P>0;P=P-1:$=MID (1,P)
25 CSR 5,:PRINT $;:GOTO 21
30 W$="â–ˆ":J=J-1:$=N$:N$=MID (1,5-J)+"H"+MID (7-J,J+1):RETURN
31 W$="â–ˆ":M=M-1:$=H$:H$=MID (1,5-M)+"H"+MID (7-M,M+1):RETURN
40 $="Yeeaah":GOTO 43
41 $="So sad":GOTO 43
42 $="Draw."
43 CSR 0,:CSR 3:PRINT $;