#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

#bbcmicrobot 0IFD%TR.1:F%=NOTF%:X%=X%+(D%A.F%):D%=D%*(1ORF%A.(X%<32ORX%>1124)):MOVEX%,999:G.0EL.MO.4:GC.4,0:V.5:D%=42:X%=32:G.0

#bbcmicrobot F.F=0TO255:@%?F=(1A.F)+SGN(2A.F)+SGN(4A.F)+SGN(8A.F)+SGN(16A.F)+SGN(32A.F)+SGN(64A.F)+SGN(128A.F):N.:MO.4:PL.&99,1023,0:V.5,30,18,4;10,10:F.A%=H. TO&7FFF:T=T+@%??A%:N.:P=T/16384:$@%=STR$(P*1E4)+STRI.38," ")+"IYPDA":F._=0TO4:V.@%?_?@%:N.:P.''P:I.""I