10 CLS:P. :P." "."GOLD IN THEM THERE SKYSCRAPERS" 15 F.X=101TO500:A(X)=1:N.X:F.X=1TO100:A(X)=0:N.X 20 F.X=391TO410:A(X)=0:N.X:Y=201:F.X=1TO10 25 A(Y)=0:Y=Y+10:N.X:Y=U0:F.X=1TO10 30 A(Y)=0:Y=Y+10:N.X 40 Y=RND(250):F.X=1TOY:Z=RND(400)+100 45 A(Z)=0:N.X:M=1:P=1:G=0:E=20 50 Y=RND(20):F.X=1TOY:Z=RND(90)+10:A(Z)=4:N.X 55 U=110:D=- 10:R=1:L=- 1:F.X=1T03:Y=RND(10) 60 A(Y)=3:N.X:X=RND(99)+1:A(X)=2 100 P."MOVE #";M:M=M+l:P."YOU ARE IN ROOM #";P 105 X=A(P):IF X=2 GOS.250 110 IF X=3 P."THERE IS AN EXIT." 115 IF X=4 G.260 120 P. "YOU CAN MOVE IN THE FOLLOWING DIRECTIONS 125 Y=P+100:IF A(Y)=1 P."RIGHT "; 130 Y=P+200:IF A(Y)=1 P."LEFT "j 135 Y=P+300:IF A(Y)=1 P.'UP "; 140 Y=P+400:IF A(Y)=1 P."DOWN "; 145 P.:P.:IN."YOUR MOVE";Q:IF Q=E G.180 150 IF Q=R G.210 155 IF Q=L G.230 160 IF Q=U G.235 165 IF Q=D G.240 170 P."INVALID MOVE!":G.100 180 IF A(P)=E G.190 185 G.170 190 P."YOU HAVE JUST LEFT THE BUILDING WITH"; 195 IF G=0 P."OUT"; 200 P."THE GOLD."M=M-l:P."IT TOOK YOU ";M;" MOVES." 205 END 210 X=P+100 215 IF A(X)=1 G.225 220 P."YOU JUST RAN INTO A WALL, CLOD!":G.100 225 P=P+Q:G.100 230 X=P+200:G,215 235 X=P+300:G.215 240 X=P+400:G.215 250 P."YOU FOUND THE GOLD!":A(P)=0:G=1:RET. 260 P=P-10:P."TRAP DOOR!":F.X=1TO 333:N.X:G.100 Secret Passageway Option (TRS-80) 35 Y=RND(40):F.X=1TOY:Z=RND(100):A(Z)=5:N.X:S=5 117 IF X=S GOS.300 167 IF Q=S G.310 300 P."THERE IS A SECRET PASSAGEWAY"; RET. 310 IF A(P)=5 G.620 315 G.170 320 CLS:P=RND(100):F.X=1TO456:N.X 330 G.100