PROG : 16424
VARS : 17458
E-LINE: 17459
9999 means line number
PRINT means treat as KEYWORD P
10 REM *TRAP OR GOLD*SLR/2026*
20 REM **SETUP**
30 LET HEALTH=10
40 LET GOLD=0
50 REM **CHEST**
60 GO SUB 300
70 IF GOLD>99 THEN GO TO 750
80 IF HEALTH<1 THEN GO TO 800
90 LET R=RND(100)
100 PRINT "OPEN CHEST? (Y/N)"
110 GO SUB 700
120 IF A$="N" THEN GO TO 150
130 GO SUB 400
140 GO TO 50
150 GO SUB 600
160 GO TO 50
200 REM **TILE**
210 CLS
220 PRINT
230 PRINT ,"TRAP OR GOLD/"
240 PRINT
250 PRINT " HEALTH:";HEALTH,
" GOLD:";GOLD
260 PRINT
270 RANDOMISE
280 RETURN
300 REM **CLOSED CHEST**
310 GO SUB 200
320 PRINT
330 PRINT ,"▞";CHR$(131);CHR$(1
31);CHR$(131);CHR$(136)
340 REM **CHEST BOTTOM**
350 PRINT ,CHR$(133);"▄▄▄";CHR$
(132)
360 PRINT ,"▌ ";CHR$(180);" ";C
HR$(130)
370 PRINT ,CHR$(133);"▄▄▄";CHR$
(132)
380 PRINT
390 RETURN
400 REM **OPEN CHEST**
410 GO SUB 200
420 PRINT ,CHR$(135);CHR$(131);
CHR$(131);CHR$(131);CHR$(134)
430 PRINT ,"▌";
440 IF R<60 THEN PRINT "▒▒▒";
450 IF R>59 THEN PRINT CHR$(222
);CHR$(222);CHR$(222);
460 PRINT CHR$(130)
470 GO SUB 350
480 IF R<60 THEN GO TO 550
500 REM **TRAP**
510 LET DMG=RND(4)
520 LET HEALTH=HEALTH-DMG
530 PRINT "TRAP/ -";DMG;" HEALT
H"
540 GO TO 650
550 REM **GOLD**
560 LET TREASURE=RND(20)+5
570 LET GOLD=GOLD+TREASURE
580 PRINT "TREASURE/ ";TREASURE
;" GOLD"
590 GO TO 650
600 REM **RESET**
610 PRINT
620 PRINT "OKAY. RESETTING CHES
T."
650 REM **CONTINUE**
660 PRINT
670 PRINT "PRESS NEWLINE TO CON
TINUE."
700 REM **GET KEY**
710 INPUT A$
720 IF A$="Q" THEN STOP
730 RETURN
750 REM **WIN**
760 PRINT "YOU WIN/"
770 GO SUB 650
780 RUN
800 REM **LOSE**
810 PRINT "YOU LOSE/"
820 GO SUB 650
830 RUN