ZX81 Listing for traporgold.p

*TRAP OR GOLD*SLR/2026* (traporgold.p)

Open the chest to gain a reward. Be careful of the trap! Can you make it to 100 gold without dying?

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18489
VARS  : 19282
E-LINE: 19283
STKBOT: 19283
STKEND: 19283

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM *TRAP OR GOLD*SLR/2026*
  20 GOSUB 500
  30 REM **GAME LOOP**
  40 PRINT AT 21,6;"  OPEN CHEST
? (Y/N)  "
  50 PRINT AT 8,14;"     ";AT 9,
14;"     ";AT 10,14;"öóóó¶";AT 1
1,14;"²³³³±"
  60 PRINT AT 12,4;"HEALTH ";H;"
 ";AT 12,20;"GOLD ";G
  70 IF G>=100 THEN GOTO 1000
  80 IF H<=0 THEN GOTO 1500
  90 LET R=RND
 100 IF INKEY$="" THEN GOTO 100
 110 LET A$=INKEY$
 120 IF INKEY$<>"" THEN GOTO 120
 130 IF A$="Y" THEN GOSUB 2500
 140 IF A$<>"Y" THEN GOSUB 250
 150 GOTO 30
 250 PRINT AT 21,6;"OKAY. RESETT
ING CHEST"
 260 LET P=25
 270 IF INKEY$<>"" THEN GOTO 300
 280 LET P=P-1
 290 IF P>0 THEN GOTO 270
 300 PRINT AT 21,6;"            
         "
 310 IF INKEY$<>"" THEN GOTO 310
 320 RETURN
 500 REM **SETUP**
 510 CLS
 520 LET H=10
 530 LET G=0
 540 PRINT AT 4,10;"TRAP";AT 5,1
5;"OR";AT 6,18;"GOLD/"
 550 PRINT AT 10,14;"öóóó¶";AT 1
1,14;"²³³³±";AT 12,14;"õ O µ";
AT 13,14;"²³³³±"
 600 REM **WAIT FOR KEY**
 610 PRINT AT 21,6;"     PRESS A
 KEY     "
 620 LET L=SIN PI
 630 IF INKEY$<>"" THEN GOTO 670
 640 PRINT AT 21,6;"     PRESS A
 KEY     "
 650 LET L=SIN PI
 660 GOTO 610
 670 IF INKEY$<>"" THEN GOTO 670
 680 RAND 0
 690 RETURN
1000 REM **WIN**
1010 PRINT AT 19,13;"YOU WIN/"
1020 GOSUB 600
1030 RUN
1500 REM **LOSE**
1510 PRINT AT 19,12;"YOU LOSE/"
1520 GOSUB 600
1530 RUN
2000 SAVE "TRAPORGOLD"
2010 RUN
2500 REM **OPEN CHEST**
2510 PRINT
2520 PRINT AT 9,14;"³³³³³";AT 10
,14;"²³³³±"
2530 LET L=SIN PI**PI
2540 PRINT AT 9,14;"÷óóó´";AT 10
,14;"÷óóó´"
2550 LET L=SIN PI**PI
2560 PRINT AT 9,14;"÷óóó´";AT 10
,14;"õ   µ"
2570 LET L=SIN PI**PI
2600 IF R<.6 THEN GOTO 3000
2610 REM **TRAP**
2620 LET D=INT (RND*4)+1
2630 LET H=H-D
2640 PRINT AT 21,6;"   TRAP/ -";
D;" HEALTH   "
2650 FOR P=1 TO 10
2660 PRINT AT 10,15;"***"
2670 LET L=SIN PI
2680 PRINT AT 10,15;"***"
2690 LET L=SIN PI
2700 NEXT P
2710 RETURN
3000 REM **GOLD**
3010 LET T=INT (RND*20)+5
3020 LET G=G+T
3030 PRINT AT 21,6;"   TREASURE/
 ";T;" GOLD   "
3040 FOR P=1 TO 10
3050 PRINT AT 10,15;"!!!"
3060 LET L=SIN PI
3070 PRINT AT 10,15;"¸¸¸"
3080 LET L=SIN PI
3090 NEXT P
3100 RETURN