0 PRINT"[147]":POKE36879,10:GOTO3000:PH=0:SC=0:S=7680
1 GOSUB2000:S=7680:C=38400:DX=1:DY=1:EX(1)=10:EX(2)=13:EX(3)=2
2 Q=22:EY(1)=11:EY(2)=10:EY(3)=17:POKE8162,32:POKE8139,32:POKE7726,32
3 POKES+Q*DY+DX,33:POKEC+Q*DY+DX,4
4 FORZ=1TO3:POKES+Q*EY(Z)+EX(Z),36:POKEC+Q*EY(Z)+EX(Z),5:NEXT
5 POKE8185,37:POKE38905,7
11 TR=500
12 POKE36878,15
18 POKE36875,140:FOR Z=1TO25:NEXT
19 POKE36875,0
20 POKE37154,127:P=PEEK(37152)AND128:J0=-(P=0):POKE37154,255
21 P=PEEK(37151):J1=-((PAND8)=0):J2=-((PAND16)=0):J3=-((PAND4)=0)
22 CX=J0-J2:CY=J1-J3
23 IFCX=0ANDCY=0THEN80
24 IFPEEK(S+Q*(DY+CY)+(DX+CX))=35THEN80
25 POKES+Q*DY+DX,32:DX=DX+CX:DY=DY+CY:IFPEEK(S+Q*DY+DX)=36THEN4000
28 POKEC+Q*DY+DX,4:POKES+Q*DY+DX,33
29 IFS+Q*DY+DX=8185THEN5000
79 IFINT(RND(1)*3)=1THEN18
80 B=INT(RND(1)*3)+1:CX(B)=0:CY(B)=0:W=0
81 POKES+Q*EY(B)+EX(B),32:CX(B)=((EX(B)>DX)-(EX(B)<DX))
82 EX(B)=EX(B)+CX(B)
85 CY(B)=((EY(B)>DY)-(EY(B)<DY))
86 IFPEEK(S+Q*EY(B)+EX(B)+Q*CY(B))=35THENCY(B)=0:EX(B)=EX(B)-CX(B)
87 EY(B)=EY(B)+CY(B)
88 IFPEEK(S+Q*EY(B)+EX(B))=33THEN4000
89 POKES+Q*EY(B)+EX(B),36:POKEC+Q*EY(B)+EX(B),5:TR=TR-1:GOTO18
91 GOTO18
299 CX(B)=0:CY(B)=0
1999 END
2000 FORM=7702TO8163
2001 IFINT(RND(1)*3)=1 ANDPEEK(M-1)<>35THEN2004
2002 NEXT
2003 RETURN
2004 POKEM+30720,2:POKEM,35:NEXT
2999 RETURN
3000 POKE56,28:POKE52,28:POKE51,PEEK(55):CLR:PRINT"";:PRINTTAB(6)"REDEFINING"
3001 CS=256*PEEK(52)+PEEK(51):FORI=CSTOCS+511:POKEI,PEEK(I+32768-CS):NEXT
3002 FORI=7432TO7439:READJ:POKEI,J:NEXT
3003 DATA60,60,24,255,60,60,102,102
3004 FORI=7448TO7455:READJ:POKEI,J:NEXT
3005 DATA255,255,255,255,255,255,255,255
3006 FORI=7456TO7463:READJ:POKEI,J:NEXT
3007 DATA129,153,102,60,255,60,66,66
3008 FORI=7464TO7471:READJ:POKEI,J:NEXT:PRINT"[147]"
3009 DATA0,0,126,126,126,126,0,0
3010 CLR:POKE36869,255
3011 FORC=7680TO7701:POKEC+30720,2:POKEC,35:POKEC+31204,2:POKEC+484,35:NEXT
3012 FORC=7680TO8164STEP22:POKEC+30720,2:POKEC,35:POKEC+30741,2:POKEC+21,35:NEXT
3111 GOTO 1
4000 POKE 36878,15:POKE36876,200:FORL1=250 TO 150STEP-17
4001 POKE36875,L1:FORL2=150TO190:POKE36876,L2:NEXTL2,L1
4002 POKE36875,0:POKE36876,0
4003 PRINT"  THE GUARDIAN HAS         CAUGHT YOU."
4004 PRINTTAB(8)"[158]GOLD="SC
4005 PRINT"[159]HIT THE TRIGGER IF YOU  DARE TO TRY AGAIN."
4006 PRINT"[159]TYPE (Q) IF YOU WISH         TO QUIT."
4007 GETA$:P=PEEK(37137):IF A$="Q"THENPOKE251,0:SYS251
4008 IF-((PAND32)=0)<>1THEN4007
4009 IF SC>PH THEN PH=SC
4010 PRINT"[147]":SC=0:GOTO3011
5000 PRINT"YOU GRAB THE TREASURE"
5001 FORZ=1TO100:POKE36876,INT(RND(1)*128)+128
5002 FORHG=1TO10:NEXT:NEXT:POKE36876,0
5100 PRINT"[147]":PRINT"  GOLD=[158]"SC;:PRINT" "
5101 FORL=1TOTR:SC=SC+1:PRINT"[145]"SC:NEXT
5120 PRINT" MOST TREASURE RECOV-  ERED FROM TOMB YET":PRINTTAB(8)"[158]"PH
5121 PRINT"[156] PRESS Q TO QUIT NOW"
5122 PRINT:PRINT  "   HIT THE TRIGGER         TO CONTINUE"
5123 P=PEEK(37137):IF -((PAND32)=0)=1THEN PRINT"[147]":GOTO 3011
5124 IF PEEK(197)=48 THEN POKE251,0:SYS251
5125 GOTO 5123