Alien 229
78 PLOT (16*X+96),(24-Y)*16,3:DRAWR 0,-( 22-Y)*16:PLOT (16*X+96),(24-Y)*16,0:DRAW R 0,-(22-Y)*16
79 SOUND 1,180,4:SOUND 1,120,5
80 IF X=Z+1 THEN PLOT (16*X+96),(24-Y)*1 6,3:DRAWR 0,-(22-Y)*16:PLOT (16*X+96),(2 4-Y)*16,0:DRAWR 0,-(22-Y)*16:GOTO 300
82 SOUND 1,180,4:SOUND 1,120,5
83 PLOT (16*X+96),(24-Y)*16,3:DRAWR 0,-( 22-Y)*16:PLOT (16*X+96),(24-Y)*16,0:DRAW R 0,-(22-Y)*16
84 RETURN
100 FOR A=20 TO 1 STEP -1
110 PEN 2:LOCATE Z+3,A+1:PRINT CHR$(237) :PEN 1
111 IF RND<0.04 THEN GOSUB 78
112 Z=Z-2*(INKEY (1)=0 AND Z<26)+2*(INKE Y(8)=0 AND Z>0)
113 PEN 3: LOCATE Z+1,22:PRINT " ";CHR$ (233);"	":PEN 1
120 GOSUB 71
150 SOUND 1,(A+100),4
160 IF A=Y THEN IF X=Z+2 OR X=Z+1 THEN S =S+ INT(100/Y)+10:LOCATE X+1,Y+1:PRINT "
";CHR$(234);CHR$(234):SOUND 1,120,4:SO UND 1,90,4:RETURN
168 LOCATE Z+1,A+1:PRINT"
170 NEXT A:RETURN
200 F=X:FOR A=Y TO 21
210 LOCATE F+1,A+1:PRINT CHR$(236);CHR$( 236);CHR$(236);CHR$(236)
220 Z=Z-2*(INKEY (1)=0 AND Z<26)+2*(INKE Y(8)=0 AND Z>0):PEN 3: LOCATE Z+1,22:PRI NT " ";CHR$(235);" ":PEN 1
230 IF A = 21 AND (F=Z-1 OR F=Z OR F=Z+1 OR F=Z+2) THEN 300
240 GOSUB 71
242 LOCATE F+1,A+1:PRINT"
245 NEXT A
250 RETURN
300 LOCATE Z+3,22:PRINT" "
301 FOR A=-15 TO 15 STEP 3
702 PLOT Z*I6+96,52,3
303 DRAWR A*3,RND*32+48