ZX81 Listing for fly.p


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

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17516
VARS  : 18309
E-LINE: 18310
STKBOT: 18310
STKEND: 18310


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **FLY**SLR/1984********
  20 LET S=0
  30 LET A$=" >"
  40 LET B$=" V "
  50 PRINT AT 0,0;"             
                                
                   ¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸             
                                
                   "
  60 LET C$="¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸"
  70 LET X=15
  80 FOR A=0 TO 5
  90 FOR G=0 TO 30
 100 PRINT AT 1,X;B$;AT 2,0;C$;
AT 3,G;A$
 110 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<29)
 120 IF INKEY$="M" THEN GOSUB 22
0
 130 NEXT G
 140 PRINT AT 3,30;"  ";
 150 NEXT A
 160 LET L=0
 170 FOR F=1 TO 32
 180 IF C$(F)=" " THEN LET L=L+1
 190 NEXT F
 200 IF L<19 OR L>21 THEN GOTO 3
00
 210 GOTO 50
 220 IF C$(X+2)=" " AND X+1=G+1
THEN LET S=S+10*INT (RND*3)
 225 IF C$(X+2)=" " AND X=G
THEN PRINT AT 3,G+1;"*"
 230 IF C$(X+2)="¸" THEN LET S=S
+2
 240 IF C$(X+2)="¸" THEN LET C$(
X+2)=" "
 250 RETURN
 300 PRINT AT 19,0;"SCREENINGS B
EEN FOULED...TOO BADSCORE=";S;" 
  **END**"
 310 PRINT "****PRESS A KEY TO T
RY AGAIN****";
 320 PAUSE 4E4
 330 RUN
 400 SAVE "FLY"
 410 RUN