#bbcmicrobot 0TR.9:P."TRACE adventure. Enter N S E W to move.":P$="You are at ":P.P$;
1I.'I$:P.P$;:G.INSTR("SEWN",I$)+1
2I.'I$:P.P$;:G.INSTR("NEWS",I$)+1
3I.'I$:P.P$;:G.INSTR("NEW",I$)+3
4I.'I$:P.P$;:G.INSTR("WES",I$)+1
5I.'I$:P.P$;:G.INSTR("WE",I$)+5
6I.'I$:P.P$;:G.INSTR("EW",I$)+1
7I.'I$:P.P$;:G.INSTR("ES",I$)+6
8I.'I$:P.P$;:G.INSTR("SEW",I$)+6
9P."the end!":TR.OFF
1I.'I$:P.P$;:G.INSTR("SEWN",I$)+1
2I.'I$:P.P$;:G.INSTR("NEWS",I$)+1
3I.'I$:P.P$;:G.INSTR("NEW",I$)+3
4I.'I$:P.P$;:G.INSTR("WES",I$)+1
5I.'I$:P.P$;:G.INSTR("WE",I$)+5
6I.'I$:P.P$;:G.INSTR("EW",I$)+1
7I.'I$:P.P$;:G.INSTR("ES",I$)+6
8I.'I$:P.P$;:G.INSTR("SEW",I$)+6
9P."the end!":TR.OFF


