[P0]
1 GOSUB #2
2 IF O<>0; GOSUB #4
3 IF KEY="4";I=I-1:Z=1:IF I<0;I=6:X=X-7:GOSUB 30
4 IF KEY="6";I=I+1:Z=-1:IF I>6;I=0:X=X+7:GOSUB 30
5 W$=MID(X+I,1):IF W$="\BX";I=I+Z
6 IF KEY="5";IF W$<>" ";GOSUB 25
7 IF KEY="0";GOSUB #1
8 IF KEY="Z";IF K<>0;I=INT(RAN#*5+1
9 IF O=0;IF RAN#<.1;GOSUB #3
10 IF I=S;A=0;GOSUB 13
111 IF S=7;PRINT CSR 0;MID(X,7);CSR I;"\CL";CSR 7;":";C;"F";:GOTO 12
11 PRINT CSR 0;MID(X,7);CSR I;"\CL";CSR S;Q$;CSR 7;":";C;"F";
12 GOTO 2
13 IF H<=20;MODE 6:GOTO 14
113 IF H<50;E=9-E:MODE E
14 Z=0:IF KEY="4";IF A<>0;Z=-1
15 IF KEY="6";IF A<>6;Z=1
16 M$=Q$:IF A+Z=S;U=U-G:M$="*":Z=0
17 A=A+Z:PRINT CSR S;M$;CSR A;W$;CSR 7;":";INT U;:W$="\CL"
18 IF K>=5;IF KEY="Z";PRINT CSR A+1;"/";:IF A+1=S;U=U-G*2
19 GOSUB #4:PRINT
20 IF A=S;W$="\CR":H=H-ABS T:IF H<=0;PRINT "YOU DEAD":END
21 IF U>=1 THEN 13
22 O=0:S=7:F=F+T*.1:D=D+ABS T*10:G=G+ABS T*.01:PRINT "Win!"
23 IF T=15;R=2:PRINT "GET KEY"
24 RETURN
25 IF W$="\UA";X=X+14:C=C+1:IF X>22;X=X-28:Y=Y+1
26 IF W$="\DA";X=X-14:C=C-1:IF X<1;X=X+28:Y=Y-1
27 IF W$="O";Y=5-Y:C=1-C
28 GOSUB #2
30 S=7:O=0:RETURN
[P1]
1 PRINT
2 IF KEY="/";PRINT "L";H;CSR 7;"$";D:RETURN
3 IF KEY="*" THEN 6
4 IF KEY="-" THEN 15
5 GOTO 2
6 B$="CAN'T":IF W$="H" THEN 12
7 IF O<>2;RETURN
8 M$=Q$:B$="Sorry":S=7:O=0:IF F>=5;IF T=-2 THEN 10
9 PRINT M$;"<";B$:RETURN
10 IF K<>5;K=K+1:B$="MAGIC":IF K=5;B$="SWORD"
11 GOTO 9
12 M$="":INPUT "foods",A:IF D-A>=0;D=D-A:H=H+A:B$="LIFE UP"
13 IF H>=50;MODE 4
14 GOTO 9
15 IF W$="\DV";PRINT "Grave":IF R=0;R=1:PRINT "Get Crystal"
16 IF W$="#";PRINT "Prison":IF R=2;R=3:PRINT "Get fairly"
17 IF W$<>"\HT";RETURN
18 IF R<>3;END
19 $=" \OM\\  \CL :":FOR I=63 TO 0 STEP -1
20 PRINT CSR 0;$;CSR I/9;"\MU";:NEXT I:PRINT "<Thank you!";
[P2]
1 GOTO Y+1
2 $="\BX           \HT\BX\BX\DA  \BX      \UA \BX":Q$="\OM":RETURN
3 $="\BXH        O \DA _+_+_+_    _\DV\BX":Q$="\\":RETURN
4 $="\BX\UA         O \BX\BX \DA         \UA\BX":Q$="@":RETURN
5 $="\BX\UA         \DA \BX\BX\UA\BX     \UA\BX\DA #\BX":Q$="&":RETURN
6 $="\BX\UA\BX\DA\BX       \UA\BX\BX  \DA\BX        \BX":Q$="\SP":RETURN
[P3]
1 T=Y:IF R=1;IF X+Y=27;IF F>9;T=15:Q$="\SG"
2 U=T*9:T=T*SGN(Y-2.5
3 O=1:IF ABS T<ABS F;IF SGN T<>SGN F;O=2
4 S=1:IF I<3;S=5
5 RETURN
[P4]
1 IF RAN#>.2*ABS T;RETURN
2 V=INT(RAN#*3-1:S=S+V
3 IF S*(6-S)<0;S=S-V
4 IF MID(X+S,1)="\BX";S=S-V
5 RETURN
[P9]
1 PRINT "NOWELL":VAC:X=1:Y=2:I=3:H=50:G=.5:E=5:GOTO #0