Use Z and . to move, and M to get the fly.
PROG : 16509
D-FILE: 17516
VARS : 18309
E-LINE: 18310
STKBOT: 18310
STKEND: 18310
9999 means line number
PRINT means treat as KEYWORD P
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