100 REM ADVENTURE CAVES BY:JERRY TRAVIS
 110 W$="6620000000":W=815:S=10:P=53256:N=1
 120 O=48:X=1+O:Y=X:Z=5+O
 130 PRINT:INPUT"No. of Rooms";M:M=ABS(M):DIMA$(M)
 140 PRINT:INPUT"Game No";Q:Q=ABS(Q):IFQ=0THENDEFFNR(R)=RND(1):GOTO160
 150 REM DEF RNDAMON FN
 160 FORI=PTOP+M*S-1:POKEI,O:NEXT
 170 POKEP,X:POKEP+1,Y:POKEP+2,Z
 180 R=INT(FNR(Q)*6)+1
 190 IFR=2ANDY=1+OGOTO180
 200 IFR=4ANDX=1+OGOTO180
 210 IFR=5ANDZ=10+OGOTO180
 220 IFR=6ANDZ=1+OGOTO180
 230 IFR=1THENY=Y+1
 240 IFR=2THENY=Y-1
 250 IFR=3THENX=X+1
 260 IFR=4THENX=X-1
 270 IFR=5THENZ=Z+1
 280 IFR=6THENZ=Z-1
 290 T=P+S*L:POKET+S,X:POKET+S+1,Y:POKET+S+2,Z
 300 FORI=0TOL:K=P+S*I:IFPEEK(K)=XANDPEEK(K+1)=YANDPEEK(K+2)=ZGOTO700
 310 NEXT:J=0
 320 POKET+R+2,L+1+O:R=R+1:IFR/2<>INT(R/2)THENR=R-2
 330 T=P+S*L:POKET+R+2,N+1+O:L=N:N=N+1:IFN<MGOTO180
 340 FORI=1TON:FORJ=0TOS-1:T=P+S*(I-1)+J
 350 D=PEEK(T):POKET,32:POKEW+J,D:NEXTJ:A$(I)=MID$(W$,1):NEXTI
 360 PRINT:PRINTN;"Rooms Created":P=1:GOSUB900
 370 D=0:INPUT"DIRECTION";I$:T=ASC(I$)
 380 IFT=78THEND=1
 390 IFT=83THEND=2
 400 IFT=69THEND=3
 410 IFT=87THEND=4
 420 IFT=85THEND=5
 430 IFT=68THEND=6
 440 IFD=0GOTO370
 450 T=ASC(MID$(A$(P),3+D,1))-O
 460 IFT=0THENPRINT"CAN'T GO THAT WAY":GOTO370
 470 P=T:GOSUB900:GOTO370
 700 IFK+R+2<>0GOTO730
 710 POKEK+R+2,N+O:R=R+1:IFR/2<>INT(R/2)THENR=R-2
 720 T=P+S*L:POKET+R+2,I+49
 730 J=J+1:IFJ>6THENJ=0:L=L-1
 740 T=P+S*L:X=PEEK(T):Y=PEEK(T+1):Z=PEEK(T+2):GOTO180
 900 PRINT:PRINT"AT ROOM";P:PRINT:PRINTA$(P):PRINT:RETURN