Avoid the tarantula’s by jumping over them using . and move to the other side using Z. But, be careful not to hit your head.
PROG : 16509
D-FILE: 19022
VARS : 19815
E-LINE: 19816
STKBOT: 19816
STKEND: 19816
9999 means line number
PRINT means treat as KEYWORD P
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