ZX81 Listing for snf.p


ZX81 program listing for *SPIDERS£FLIES*SLR/1985

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17792
VARS  : 18585
E-LINE: 18586
STKBOT: 18586
STKEND: 18586


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM *SPIDERS£FLIES*SLR/1985
  20 LET S=0
  30 PRINT "SPIDERS £ FLIES"
  40 PRINT ,,"YOU ARE A GROWING 
VENUS FLY TRAPAND ARE TRYING TO 
EAT THE FLIES,8, WHILE AVOIDING 
THE SPIDERS,  X, AND YOURSELF, !
. THE BONUS   INSECT, $, GIVES Y
OU A FEW MORE POINTS.  GOOD LUCK
****"
  50 PRINT ,,,,"PRESS ENTER TO B
EGIN"
  60 PAUSE 4E4
  70 FAST
  80 CLS
  90 FOR A=1 TO 150
 100 PRINT AT (INT (RND*21)),(
INT (RND*32));"8X888X$"(INT (RND
*7+1))
 110 NEXT A
 120 PRINT AT 21,0;"!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!"
 130 LET X=20
 131 LET X1=X
 140 LET Y=INT (RND*32)
 150 LET Y1=Y
 160 LET P$="PEEK (PEEK 16398+25
6*PEEK 16399)"
 170 SLOW
 180 FOR A=1 TO 300
 190 PRINT AT X1,Y1;"!";AT X,Y;"
V"
 193 LET X1=X
 200 LET Y1=Y
 210 LET X=X+(INKEY$="6" AND X<2
1)-(INKEY$="7" AND X>0)
 220 LET Y=Y+(INKEY$="8" AND Y<3
2)-(INKEY$="5" AND Y>0)
 230 PRINT AT X,Y;
 240 LET P=VAL P$
 250 IF P=8 OR P=189 THEN GOTO 3
10
 260 LET S=S+1+(10 AND P=164)+((
INT (RND*25+25)) AND P=141)
 270 NEXT A
 280 LET S=S+100
 290 PRINT AT 0,0;"SCORE:";S;AT
1,0;"CONTINUE ON..."
 300 GOTO 60
 310 PRINT AT 0,0;"SCORE:";S;AT
1,0;"YOU DIED FROM GARDEN PROBLE
MS...TOO BAD**"
 320 FOR A=1 TO 10
 330 PRINT AT X,Y;"!";AT X1,Y1;"
!"
 340 LET L=SIN PI
 350 PRINT AT X,Y;"ù"
 360 LET L=SIN PI
 370 PRINT AT X,Y;" "
 380 NEXT A
 390 PRINT AT X,Y;"X"
 400 PRINT AT 21,0;"PRESS ENTER 
FOR NEW GAME"
 410 PAUSE 4E4
 420 CLS
 430 RUN
 500 SAVE "SNF"
 510 RUN