'ProgramMode:RUN
Prog "~SOP"
""->Str 9
Do
'DRAW
X+21Y-22
Str 9->Str 8
Str 1->Str 9
For 1->A To E
Mat A[1,A=>Mat A[2,A]-22+21*Mat A[3,A->B
Mat A[1,A=>StrLeft(Str 9,B)+StrMid("_#E59B__#E5E8__#E5E9__#E5EA__#E5EB_",Mat A[1,A],1)+StrRight(Str 9,146-B->Str 9
Next
Locate O,Q,StrMid(Str 1,O+21Q-21,1)
If StrCmp(Str 8,Str 9
Then For 0->A To 6
StrMid(Str 9,21A+1,21->Str 7
StrCmp(Str 7,StrMid(Str 8,21A+1,21))=>Locate 1,A+1,Str 7
Next
IfEnd
Locate X,Y,"@"
'DEATH
D->L
L=>L-StrSrc(StrMid(Str 1,Ans+1,1),"_#E6A0_")->L
Isz S
Do
Getkey->G
LpWhile  Not G
'PLAYER
X->O
Y->P~Q
G=List6[1=>Dsz X
G=List6[3=>Dsz Y
G=List6[2=>Isz X
G=List6[4=>Isz Y
G=48=>Prog "~SBIND"
'TRANSITION
1->A
XY And X<>22 And Y<>8=>StrSrc(Str 4,StrMid(Str 1,X+21Y-21,1))=>Goto Y
Goto N
Lbl Y
O->X
P->Y
Lbl N
If X=0
Then Dsz M
21->X
Prog "~SLOD"
Prog "~SSCR"
IfEnd
If Y=0
Then Dsz N
7->Y
Prog "~SLOD"
Prog "~SSCR"
IfEnd
If X=22
Then Isz M
1->X
Prog "~SLOD"
Prog "~SSCR"
IfEnd
If Y=8
Then Isz N
1->Y
Prog "~SLOD"
Prog "~SSCR"
IfEnd
'ENTITIES
For 1->A To E
Mat A[1,A
MOD(S,2->P
If PAns=1
Then X>Mat A[2,A=>1+Mat A[2,A->Mat A[2,A
X<Mat A[2,A=>-1+Mat A[2,A->Mat A[2,A
Y>Mat A[3,A=>1+Mat A[3,A->Mat A[3,A
Y<Mat A[3,A=>-1+Mat A[3,A->Mat A[3,A
X=Mat A[2,A=>Y=Mat A[3,A=>0->D
IfEnd
If Ans>=2 And Ans<=5
Then Mat A[2,A]-22-(Ans=2)+(Ans=3)+21(-(Ans=4)+(Ans=5)+Mat A[3,A->B
StrLeft(Str 1,B)+StrMid(" _#E6A0_",P+1,1)+StrRight(Str 1,146-B->Str 1
IfEnd
Next
LpWhile L
ClrText
Locate 7,4,"YOU DIED"