1000:2000  "ESCAPE"  (L=R(40()*15 2X=R(4) <Y=R(6) F&"THE ENCLOSURE IS ";L;" FEET SQUARE" PI=1 2000:I Z2000:700 d280:260 n"HOW FAR TO DIG"; xF 260:900 2000 5F<(L/100d)*(70F+R(20)) 170 -"YOU COLLAPSED FROM EXHAUSTION":4000 X1=X/5*L:Y1=Y/7*L X1=X1+X9*F:Y1=Y1+Y9*F Y1<0 300, Y1>L 400 X1<0 500 X1>L 600X $"YOU CAME UP INSIDE THE ENCLOSURE" "BAD LUCK!" 4000 0,0;  #Y+4,X*2+4;"#"; " ,"YOU ARE IN THE FOREST" 6.X=R(3)-2:Y=R(3)-2 @%A$="COMPLETELY":I=1 6 J"YOU ARE ";A$;" LOST..." T900:X=X+X9:Y=Y+Y9 ^"X=0 Y=0 390 h A$="VERY" r&X=0 Y=0 A$="SLIGHTLY" |/I:"THE DOGS FOUND YOU! BAD LUCK":4000 &"YOU ESCAPED!!!!! WOW!!":4000 "YOU ARE BY A ROAD" 8X=1 X=4 ŨR(10 )>6 450 "THE GATE HOUSE COLLAPSED" "ON TOP OF YOU! BAD LUCK!"  4000  A$="CAR"  620l "YOU ARE IN A MINEFIELD" "THERE ARE MINES ALL AROUND"  3106 X"YOU ARE BY A RAILWAY" b A$="TRAIN" l'I=1 ̨R(600X)+200:I vC=R(26):2000 2"PRESS THE ";(64@+C);" KEY TO CATCH A ";A$ I=1 502 3000 :I$=""I 0I$=(64@+C) I$=(96`+C) 690 0"YOU HAVE BEEN SPOTTED. BAD LUCK!":4000 '"YOU ESCAPED!!!!! PHEW!!":4000 : (5);"* * FOREST *" (7);"*" (4);"I--------I I-I" "O O I I I-I R" " O I I I-I A" "M I I I-I I" "I O I I I-I L"  "N O I I I-I W" "E I I I-I A"  "S I I----I I I-I Y" *" O I-IGATEI-I I-I" 4(16);"I-I" >"----------------------" H" - - - ROAD - - -" R"----------------------"; \ "DIRECTION (N,S,E,W)" X9=0:Y9=0 D$ D$="N"Y9=-1 D$="S"Y9=1 D$="W"X9=-1 D$="E"X9=1 $X9=0 Y9=0 920  R(X)=(*X+1)  : I$=