10 CLS:WIDTH20,8:RANDOMIZE(60*VAL(MID$(TIME$,4,2))+VAL(MID$(TIME$,7,2)))
20 PRINTCHR$(23):PRINTTAB(6)+"BURIED":PRINTTAB(5)+"TREASURE"
30 FORI=1TO3:FORJ=1TO55STEP3:SOUNDJ,1:NEXTJ,I
40 CLS:PRINT:PRINTTAB(2)+": THE TREASURE":PRINTTAB(2)+": THE TRAP"
50 PRINTTAB(2)+": THE ENEMY!";:E%=0:F%=0:G%=8:GOSUB350
60 CLS:FORI=0TO2:PRINTSTRING$(20,140);:NEXTI:PRINTSTRING$(19,140);
70 XMAN=0:YMAN=0:XENEMY=18:YENEMY=3:TREA=INT(RND*78)+1:TRAP=INT(RND*78)+1
80 XTREA=TREA MOD20:YTREA=TREA\20:XTRAP=TRAP MOD20:YTRAP=TRAP\20:GOTO120
90 A$=INPUT$(1):A%=ASC(A$)-27
100 LOCATEXMAN,YMAN,0:PRINTCHR$(48+N\3);:LOCATEXENEMY,YENEMY,0:PRINTCHR$(139);
110 ONA%GOSUB200,210,220,230
120 LOCATEXMAN,YMAN,0:PRINT"";
130 IFXMAN=XTREA ANDYMAN=YTREA THENGOSUB240
140 IFXMAN=XTRAP ANDYMAN=YTRAP THENGOSUB270
150 XENEMY=XENEMY+SGN(XMAN-XENEMY)/2:YENEMY=YENEMY+SGN(YMAN-YENEMY)/2
160 LOCATEXENEMY,YENEMY,0:PRINT"";
170 IFXMAN=XENEMY ANDYMAN=YENEMY THENGOTO300
180 M=24-ABS(XMAN-XTREA)-ABS(YMAN-YTREA):N=24-ABS(XMAN-XTRAP)-ABS(YMAN-YTRAP)
190 SOUNDM,1:LOCATES0,0,0:GOTO90
200 XMAN=XMAN-XMAN\19+1:RETURN
210 XMAN=XMAN-SGN(XMAN):RETURN
220 YMAN=YMAN-SGN(YMAN):RETURN
230 YMAN=YMAN-YMAN\3+1:RETURN
240 LOCATEXMAN,YMAN,0:PRINT"";
250 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
260 E%=E%+1:IFE%=G%THEN360ELSE310
270 LOCATEXMAN,YMAN,0:PRINT"";
280 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
290 F%=F%+1:IFF%=G%THEN360ELSE310
300 F%=F%+1:G%=G%+1
310 LOCATES0,0,0:LOCATE0,0,0:PRINTCHR$(32);
320 PRINTCHR$(135)+STRING$(17,130)+CHR$(136);:PRINTCHR$(135)+STRING$(18,128)+CHR$(131);
330 PRINTCHR$(132)+STRING$(18,128)+CHR$(138);:PRINTCHR$(137)+STRING$(17,129)+CHR$(138);
340 LOCATEXTRAP,YTRAP,0:PRINT"";:LOCATEXTREA,YTREA,0:PRINT"";:GOSUB350:GOTO60
350 J=0:FORI=1TO56:J=(J+I)MOD56+1:SOUNDJ,1:NEXTI:RETURN
360 CLS:PRINT"/":PRINT100*E%/(E%+F%);"%"
370 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
380 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:CLS:END