[P0]
1 $="24"+E$+"26346533276333333151150"
2 H=H+SGN(L*5-H):C$=MID(Z+1,2):D=VAL(C$)/10:A=INT D:B=10*FRAC D
3 O=0:PRINT:IF A>=4;A=A-4:O=-1:PRINT "\LA";
4 Q=0:IF A>=2;Q=5:PRINT "\UA";
5 N=0:IF FRAC(A/2)<>0;N=-5:PRINT "\DA";
6 P=0:IF B>3;P=1:PRINT "\RA";
7 PRINT ":";H;:IF RAN#<.3;GOTO #1
8 K$=KEY:IF K$<"1" THEN 8
9 IF K$>"9" THEN 8
10 V=VAL(K$):S=V/2:IF FRAC S<>0;S=0
11 Z=Z+M(S):IF Z/F=24;F=2:E$="4":PRINT "Get \DI"
12 IF Z=2;F=3:PRINT " !!":GOTO #1
13 GOTO 2

[P1]
1 $="scrbJ":T=INT(RAN#*3+F:U=2^T
2 PRINT CSR 0;MID(T,1);U;":";H;" ";
3 IF KEY="0";GOTO #0
4 IF KEY<>"1" THEN 3
5 J=INT(RAN#*2:U=U-J:H=H-1+J:IF H<=0;PRINT "Died";:END
6 IF U>0 THEN 2
7 PRINT "Won":G=G+1:IF G>L^2;L=L+1:PRINT "Lv\UA";L
8 IF T<>5;GOTO #0
9 PRINT "Victory!"

[P9]
1 PRINT "In":VAC
2 F=1:H=5:L=1:E$="0":GOTO #0