at base me confirm
at base sword confirm
at base sword confirm
at hand sword confirm

confirm

LOOK
me is at base
you can go tunnel castle
roads lead here
you can see me

at base me
at forrest dragon
at hand sword

do me grab sword

YES

8 do me grab sword
P=me
F=grab
X=sword
Y=
do me grab sword

8 1 doo P F X Y Z
9 doo me grab sword
P=me
F=grab
X=sword
doo me grab sword

9 1 strips F M G A B
29 strips grab M G
M=pre
G=at
A=zz3
strips grab pre at

9 2 if
9 3 bigger z A
9 6 if
9 7 bigger z B
9 10 if
9 11 eq A zzp
9 14 if
9 15 eq B zzp
9 16 let R P
9 17 endif
9 18 if
9 19 eq A zz33
9 22 if
9 23 eq B zz33
9 26 if
9 27 eq A zz1
9 30 if
9 31 eq A zz2
9 34 if
9 35 eq B zz1
9 38 if
9 39 eq B zz2
9 42 if
9 43 eq M void
9 49 if
9 50 eq M pre
9 51 let Z deny
9 52 if
9 53 G Q R
14 at Q me
Q=base
at base me

9 54 let Z confirm
9 55 endif
9 56 if
9 57 eq M add
9 60 if
9 61 eq M del
9 64 if
9 65 eq M plan
9 68 print G
9 69 print Q
9 70 print R
9 71 print Z
9 72 echo newline
9 73 if
9 74 eq A zz3
9 75 let S Q
9 76 endif
9 77 if
9 78 eq B zz3
9 81 clear A
9 82 clear B
9 83 clear G
9 84 clear Q
9 85 clear R
9 86 clear M
9 87 next
9 88 if
9 89 eq Z confirm
9 90 doo P F X Y Z
9 doo me grab sword
P=me
F=grab
X=sword
doo me grab sword

9 1 strips F M G A B
30 strips grab M G
M=pre
G=at
A=zz33
strips grab pre at

9 2 if
9 3 bigger z A
9 6 if
9 7 bigger z B
9 10 if
9 11 eq A zzp
9 14 if
9 15 eq B zzp
9 18 if
9 19 eq A zz33
9 20 let Q S
9 21 endif
9 22 if
9 23 eq B zz33
9 26 if
9 27 eq A zz1
9 30 if
9 31 eq A zz2
9 34 if
9 35 eq B zz1
9 36 let R X
9 37 endif
9 38 if
9 39 eq B zz2
9 42 if
9 43 eq M void
9 49 if
9 50 eq M pre
9 51 let Z deny
9 52 if
9 53 G Q R
15 at base sword
at base sword

9 54 let Z confirm
9 55 endif
9 56 if
9 57 eq M add
9 60 if
9 61 eq M del
9 64 if
9 65 eq M plan
9 68 print G
9 69 print Q
9 70 print R
9 71 print Z
9 72 echo newline
9 73 if
9 74 eq A zz3
9 77 if
9 78 eq B zz3
9 81 clear A
9 82 clear B
9 83 clear G
9 84 clear Q
9 85 clear R
9 86 clear M
9 87 next
9 88 if
9 89 eq Z confirm
9 90 doo P F X Y Z
9 doo me grab sword
P=me
F=grab
X=sword
doo me grab sword

9 1 strips F M G A B
31 strips grab M G
M=del
G=at
A=zz33
strips grab del at

9 2 if
9 3 bigger z A
9 6 if
9 7 bigger z B
9 10 if
9 11 eq A zzp
9 14 if
9 15 eq B zzp
9 18 if
9 19 eq A zz33
9 20 let Q S
9 21 endif
9 22 if
9 23 eq B zz33
9 26 if
9 27 eq A zz1
9 30 if
9 31 eq A zz2
9 34 if
9 35 eq B zz1
9 36 let R X
9 37 endif
9 38 if
9 39 eq B zz2
9 42 if
9 43 eq M void
9 49 if
9 50 eq M pre
9 56 if
9 57 eq M add
9 60 if
9 61 eq M del
9 62 remove G Q R
9 63 endif
9 64 if
9 65 eq M plan
9 68 print G
9 69 print Q
9 70 print R
9 71 print Z
9 72 echo newline
9 73 if
9 74 eq A zz3
9 77 if
9 78 eq B zz3
9 81 clear A
9 82 clear B
9 83 clear G
9 84 clear Q
9 85 clear R
9 86 clear M
9 87 next
9 88 if
9 89 eq Z confirm
9 90 doo P F X Y Z
9 doo me grab sword
P=me
F=grab
X=sword
doo me grab sword

9 1 strips F M G A B
32 strips grab M G
M=add
G=at
A=hand
strips grab add at

9 2 if
9 3 bigger z A
9 4 let Q A
9 5 endif
9 6 if
9 7 bigger z B
9 10 if
9 11 eq A zzp
9 14 if
9 15 eq B zzp
9 18 if
9 19 eq A zz33
9 22 if
9 23 eq B zz33
9 26 if
9 27 eq A zz1
9 30 if
9 31 eq A zz2
9 34 if
9 35 eq B zz1
9 36 let R X
9 37 endif
9 38 if
9 39 eq B zz2
9 42 if
9 43 eq M void
9 49 if
9 50 eq M pre
9 56 if
9 57 eq M add
9 58 assert G Q R
9 59 endif
9 60 if
9 61 eq M del
9 64 if
9 65 eq M plan
9 68 print G
9 69 print Q
9 70 print R
9 71 print Z
9 72 echo newline
9 73 if
9 74 eq A zz3
9 77 if
9 78 eq B zz3
9 81 clear A
9 82 clear B
9 83 clear G
9 84 clear Q
9 85 clear R
9 86 clear M
9 87 next
9 88 if
9 89 eq Z confirm
9 90 doo P F X Y Z
9 doo me grab sword
P=me
F=grab
X=sword
doo me grab sword

9 1 strips F M G A B
9 91 endif
9 91 endif
9 91 endif
8 2 echo newline
8 3 print Z
8 4 echo newline
8 5 echo newline
8 6 look P
3 look me
P=me
look me

3 1 echo LOOK
3 2 echo newline
3 3 print P
3 4 echo is at
3 5 at R P
14 at R me
R=base
at base me

3 6 print R
3 7 echo newline
3 8 echo you can go
3 9 printcon1 R
4 printcon1 base
R=base
printcon1 base

4 1 if
4 2 con R B
18 con base B
B=tunnel
con base tunnel

4 3 print B
4 4 clear B
4 5 next
4 6 printcon1 R
4 printcon1 base
R=base
printcon1 base

4 1 if
4 2 con R B
19 con base B
B=castle
con base castle

4 3 print B
4 4 clear B
4 5 next
4 6 printcon1 R
4 printcon1 base
R=base
printcon1 base

4 1 if
4 2 con R B
4 7 endif
4 7 endif
3 10 echo newline
3 11 echo roads lead here
3 12 printcon2 R
5 printcon2 base
R=base
printcon2 base

5 1 if
5 2 con B R
3 13 echo newline
3 14 echo you can see
3 15 printsee R
6 printsee base
R=base
printsee base

6 1 if
6 2 at R A
14 at base A
A=me
at base me

6 3 print A
6 4 clear A
6 5 next
6 6 printsee R
6 printsee base
R=base
printsee base

6 1 if
6 2 at R A
6 7 endif
3 16 echo newline
3 17 echo newline
3 18 list at
2 list at
A=at
list at

2 1 A B C D
14 at B C D
B=base
C=me
D=
at base me

2 2 print A
2 3 print B
2 4 print C
2 5 print D
2 6 echo newline
2 7 clear B
2 8 clear C
2 9 clear D
2 10 next
2 11 list A B C D
2 list at B C
A=at
B=
C=
D=
list at

2 1 A B C D
16 at B C D
B=forrest
C=dragon
D=
at forrest dragon

2 2 print A
2 3 print B
2 4 print C
2 5 print D
2 6 echo newline
2 7 clear B
2 8 clear C
2 9 clear D
2 10 next
2 11 list A B C D
2 list at B C
A=at
B=
C=
D=
list at

2 1 A B C D
39 at B C D
B=hand
C=sword
D=
at hand sword

2 2 print A
2 3 print B
2 4 print C
2 5 print D
2 6 echo newline
2 7 clear B
2 8 clear C
2 9 clear D
2 10 next
2 11 list A B C D
2 list at B C
A=at
B=
C=
D=
list at

2 1 A B C D