From Graham Cooper@21:1/5 to All on Mon Jul 19 07:10:51 2021
menu
-look me
-echo newline
-echo newline
-echo QUERY do me go castle
list A
-A B C D
-print A
-print B
-print C
-print D
-echo newline
-clear B
-clear C
-clear D
-next
-list A B C D
look P
-echo LOOK
-echo newline
-print P
-echo is at
-at R P
-print R
-echo newline
-echo you can go
-printcon1 R
-echo newline
-echo roads lead here
-printcon2 R
-echo newline
-echo you can see
-printsee R
-echo newline
-echo newline
-list at
printcon1 R
-if
-con R B
-print B
-clear B
-next
-printcon1 R
-endif
printcon2 R
-if
-con B R
-print B
-clear B
-next
-printcon2 R
-endif
printsee R
-if
-at R A
-print A
-clear A
-next
-printsee R
-endif
c me go castle
do P F X Y
-doo P F X Y Z
-echo newline
-print Z
-echo newline
-echo newline
-look P
doo P F X Y Z
-clear A
-clear B
-clear G
-clear Q
-clear R
-clear M
-strips F M G A B
-if
-bigger z A
-let Q A
-endif
-if
-bigger z B
-let R B
-endif
-if
-eq A zzp
-let Q P
-endif
-if
-eq B zzp
-let R P
-endif
-if
-eq A zz33
-let Q S
-endif
-if
-eq B zz33
-let R S
-endif
-if
-eq A zz1
-let Q X
-endif
-if
-eq A zz2
-let Q Y
-endif
-if
-eq B zz1
-let R X
-endif
-if
-eq B zz2
-let R Y
-endif
-if
-eq M void
-let Z confirm
-if
-G Q R
-let Z deny
-endif
-if
-eq M pre
-let Z deny
-if
-G Q R
-let Z confirm
-endif
-if
-eq M add
-assert G Q R
-endif
-if
-eq M del
-remove G Q R
-endif
-if
-eq M plan
-echo newline
-echo PLAN
-print P
-print G
-echo newline
-echo SUBPLAN
-echo newline
-doo2 P G Q R Z
-let Z confirm
-endif
-print G
-print Q
-print R
-print Z
-echo newline
-if
-eq A zz3
-let S Q
-endif
-if
-eq B zz3
-let S R
-endif
-clear Q
-clear R
-next
-if
-eq Z confirm
-doo P F X Y Z
-endif
doo2 C D H I Z
-clear J
-clear K
-clear L
-clear N
-clear O
-clear U
-strips D U L J K
-if
-bigger z J
-let N J
-endif
-if
-bigger z K
-let O K
-endif
-if
-eq J zzp
-let N C
-endif
-if
-eq K zzp
-let O C
-endif
-if
-eq J zz33
-let N T
-endif
-if
-eq K zz33
-let O T
-endif
-if
-eq J zz1
-let N H
-endif
-if
-eq J zz2
-let N I
-endif
-if
-eq K zz1
-let O H
-endif
-if
-eq K zz2
-let O I
-endif
-if
-eq U void
-let Z confirm
-if
-L N O
-let Z deny
-endif
-if
-eq U pre
-let Z deny
-if
-L N O
-let Z confirm
-endif
-if
-eq U add
-assert L N O
-endif
-if
-eq U del
-remove L N O
-endif
-if
-eq U plan
-echo newline
-echo PLAN
-print U
-print L
-echo newline
-doo2 P L N O
-let Z confirm
-endif
-print L
-print N
-print O
-print Z
-echo newline
-if
-eq J zz3
-let T N
-endif
-if
-eq K zz3
-let T O
-endif
-clear N
-clear O
-next
-if
-eq Z confirm
-doo2 C D H I Z
-endif
sym
-remove conn
-sym1
-sym2
sym1
-con A B
-assert conn B A
-clear A
-clear B
-next
-sym1
sym2
-conn A B
-assert con A B
-clear A
-clear B
-next
-sym2
c
at base me
at base sword
at forrest dragon
con start fin
con base tunnel
con base castle
con castle river
con river tunnel
con tunnel forrest
locked tunnel
strips go pre at zz3 zzp
strips go pre con zz33 zz1
strips go void locked zz1
strips go del at zz33 zzp
strips go add at zz1 zzp
strips grab pre at zz3 zzp
strips grab pre at zz33 zz1
strips grab del at zz33 zz1
strips grab add at hand zz1
strips drop pre at zz3 zzp
strips drop add at zz33 zz1
strips drop del at hand zz1
strips move plan grab zz2
strips move plan go zz1
strips move plan drop zz2