ZX81 Listing for ta.p


ZX81 program listing for **TARANTULA**SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19022
VARS  : 19815
E-LINE: 19816
STKBOT: 19816
STKEND: 19816


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **TARANTULA**SLR/1984**
  20 LET S=0
  30 LET X=13
  40 PRINT AT 0,0;"             
                     V   V    V"
  50 PRINT AT 5,0;"   ù      ù  
                                
   "
  60 LET TR1=3
  70 LET TR2=10
  80 LET DE=1
 110 DIM A$(3,3)
 120 LET A$(1)="´"
 130 LET A$(2)="´ñ"
 140 LET A$(3)="õõ"
 150 LET SP=5
 160 IF TR1<15 THEN LET TR1=TR1+
1
 170 IF TR2<15 THEN LET TR2=TR2+
1
 180 IF TR1=15 THEN LET TR1=0
 190 IF TR2=15 THEN LET TR2=0
 200 PRINT AT 8,0;"SCORE:";S;AT
5,0;"                  ";AT 5,TR
1;"ù";AT 5,TR2;"ù"
 210 FOR A=1 TO 5
 220 LET D=INT (3*RND)
 230 PRINT AT 1,0;"  V   V    V"
AND D=0;"    V   V  V" AND D=1;
"   V  V    V" AND D=2
 235 PRINT AT 2,0;"             
      "
 240 PRINT AT 3,X;A$(1);AT 4,X;A
$(2);AT 5,X;A$(3)
 250 LET X=X-(INKEY$="Z")
 260 IF X=-1 THEN GOTO 460
 270 IF INKEY$="." THEN GOSUB 31
0
 280 IF TR1=X OR TR1=X+1  OR TR2
=X OR TR2=X+1 THEN GOTO 620
 290 NEXT A
 300 GOTO 160
 310 LET E=SP-(SP<2)-(SP<3)-(SP<
4)-(SP<5)
 320 FOR F=1 TO E
 330 IF TR1<15 THEN LET TR1=TR1+
1
 340 IF TR2<15 THEN LET TR2=TR2+
1
 350 IF TR1=15 THEN LET TR1=0
 360 IF TR2=15 THEN LET TR2=0
 370 PRINT AT 5,0;"             
     ";AT 5,TR1;"ù";AT 5,TR2;"ù"
 380 PRINT AT 2,X;A$(1);AT 3,X;A
$(2);AT 4,X;A$(3)
 390 IF D=0 AND X=2 OR X=6 OR X=
11 THEN GOTO 620
 400 IF D=1 AND X=4 OR X=8 OR X=
11 THEN GOTO 620
 410 IF D=2 AND X=3 OR X=6 OR X=
11 THEN GOTO 620
 420 NEXT F
 430 IF TR1>=X AND TR1<X+4 THEN
LET S=S+10
 440 IF TR2>=X AND TR2<X+4 THEN
LET S=S+10
 450 RETURN
 460 LET S=S+100
 470 LET X=0
 480 GOSUB 530
 490 LET X=13
 500 GOSUB 530
 510 LET SP=SP-(SP>2)
 515 IF S>=100 AND S<600 THEN
PRINT AT 9,0;"WARRIOR"
 516 IF S>=600 AND S<1000 THEN
PRINT AT 9,0;"BLAZER"
 517 IF S>=1000 THEN PRINT AT 9,
0;"TARANTULA CRUSHER<><>"
 520 GOTO 160
 530 FOR F=1 TO 5
 535 PRINT AT 2,0;"             
      "
 540 PRINT AT 3,X;"ö  ";AT 4,X;"
¶ñ ";AT 5,X;"ôñ "
 550 PRINT AT 3,X;"ò  ";AT 4,X;"
µñ ";AT 5,X;"ñô "
 560 PRINT AT 3,X;"ñ  ";AT 4,X;"
·ñ ";AT 5,X;"õô "
 565 PRINT AT 3,X;"   ";AT 4,X;"
   ";AT 5,X;"   "
 570 NEXT F
 575 IF NOT DE THEN RETURN
 580 PRINT AT 10,0;"FORWARD---"
 590 PAUSE 100
 600 PRINT AT 10,0;"          "
 610 RETURN
 620 PRINT AT 8,0;"SCORE:";S
 630 LET DE=0
 640 GOSUB 530
 650 PRINT AT 7,0;"YOU DIED"
 660 PRINT AT 10,0;"***PRESS A K
EY TO PLAY AGAIN***"
 670 PAUSE 4E4
 680 CLS
 690 RUN
 700 SAVE "TA"
 710 RUN