0 REM FENIX.BA - SJ Sims [72245,1254]	3/13/84; NEC 8201A adaptation for GEnie's Laptops RoundTable, Dave Thomas - 7-9-87
1 GOTO4
2 'VITAL NOTE! Program requires LINE function be enabled; also requires CHR100.CO or LAPTOP.CO for M100 character set.
3 Q=PMOD40:V=P\40:RETURN
4 SCREEN,0:CLEAR256:DEFINTA-Z:GOTO20
5 P=X+R:GOSUB3:LOCATE Q,V:PRINTCL$:R=0:X=RND(1)*35+1:IFSC>BVTHENT=T+INT(BV/600)*50:BV=BV+600:FORI=1TO5:SOUND555,1:SOUND444,1:NEXT:F=F-1
6 T=T-1:P=X+R:GOSUB3:LOCATE Q,V:PRINTB$:P=M+239:GOSUB3:LOCATE Q,V:PRINTP$;:LOCATE 0,7:PRINTT"	Hi Score:"HS"	Score:"SC;:I$=INKEY$:IFI$=""THENW=W+1ELSEW=0
7 IFW>3THEN18ELSEIFI$="."ORI$=CHR$(28)THENM=M+1ELSEIFI$=","ORI$=CHR$(29)THENM=M-1ELSEIFI$=" "THEN12
8 IFT<1THEN16ELSEIFM<0THENM=39:LOCATE 0,6:PRINTCL$;
9 IFM>39THENM=0:LOCATE 39,6:PRINTCL$;
10 X=X+RND(1)*3-1:IFX<0THENX=0ELSEIFX>36THENX=36ELSEIFT<50THENSOUND4000,1
11 GOTO6
12 FORY=200+MTOMSTEP-40:P=Y:GOSUB3:LOCATE Q,V:PRINTCHR$(152);:SOUNDY*68,1:I$=INKEY$:LOCATE Q,V:PRINT" ";:NEXT
13 IFM=X+1ORM=X+3THENSC=SC+50:BEEP:FORI=0TO10:P=X+R:GOSUB3:LOCATE Q,V:PRINT"BLORK!":LOCATE Q,V:PRINTCL$:SOUND16000,1:NEXT:GOTO5
14 IFM=X+2THENSC=SC+100:SOUND440,10:FORI=0TO10:P=X+R:GOSUB3:LOCATE Q,V:PRINT"WAAGH!":LOCATE Q,V:PRINTCL$:SOUND1760,1:NEXT:GOTO5
15 IFX+R>40*FTHEN18ELSE:P=X+R::GOSUB3:LOCATE Q,V:PRINTCL$:R=R+40:SC=SC-5:GOTO8
16 LOCATE 15,4:PRINT"Game Over":LINE(0,0)-(239,63),1,BF:FORI=1TO20:I$=INKEY$:NEXT:CLS:IFSC<=HSTHEN20
17 HS=SC:GOTO20
18 LINE(X*6+15,R/40*8+4)-(M*6+3,51):LINE(X*6+15,R/40*8+4)-(M*6+3,51),0:FORW=10000TO15000STEP250:P=239+M:GOSUB3:LOCATE Q,V:PRINT"* *";
19 SOUNDW,1:I$=INKEY$:LOCATE Q,V:PRINT" * ";:NEXT:SC=SC-100:W=0:GOTO5
20 HS$=" 2980 JOE                     ":CL$=SPACE$(6):HS=VAL(HS$)
21 CLS:PRINTTAB(9)"F E N I X":LINE(0,9)-(239,9):PRINT:PRINT" High Score:"HS$:PRINT" Last Score:"SC
22 LOCATE 1,7:PRINT"<I>nstructions, <P>lay or <M>enu?";
23 B$=" ^"+CHR$(145)+"^ ":P$=" "+CHR$(133)+" ":ONINSTR("PpMmIi",INPUT$(1))GOTO24,24,25,25,26,26:GOTO23
24 CLS:M=20:T=350:F=2:SC=0:BV=600:GOTO5
25 MENU
26 D$=CHR$(10)+CHR$(27)+"p"+SPACE$(15)+"DEATH RAY!"+SPACE$(15)+CHR$(27)+"q"
27 CLS:PRINT:PRINT" Aliens are trying to take over EARTH!!":PRINT
28 PRINT"They weave back & forth across the sky, but remain cautious; not descending     until fired upon!":GOSUB39
29 PRINT"If you fire and miss, the Alien will de-scend slightly and you will lose FIVE"
30 PRINT"points.  If you miss too many times the Alien will zap you with his":PRINTD$:GOSUB39
31 PRINT"If the Alien detects any indecision on  your part (a failure to move or shoot)"
32 PRINT"he will again unleash the fury of the":PRINTD$:PRINT"and you will lose 100 points!":GOSUB39
33 PRINT"Alien:"B$TAB(20)"You:"P$:PRINT:PRINT"Guide your ship left or right by tappingthe "CHR$(34)"<"CHR$(34)" and ";
34 PRINTCHR$(34)">"CHR$(34)" keys.":PRINT:PRINT"Press the SPACEBAR to fire at the alien.":GOSUB39
35 PRINT"You will receive 50 points for "CHR$(34)"winging"CHR$(34)"the alien, and 100 points for a direct  hit."
36 PRINT"Additional time is awarded at 600 point intervals, but difficulty increases at  the same time!":GOSUB39
37 PRINT:PRINT"Warriors with "CHR$(27)"pThe Right Stuff"CHR$(27)"q will scorein the 2000+ point range.":PRINT
38 PRINT"Good Luck - ":PRINT"	You'll need it!":GOSUB39:GOTO21
39 LOCATE 6,7:PRINT"<Press any key to continue>";INPUT$(1);:CLS:RETURN
40 REM If memory is a problem, delete lines 25-39 and don't use the "INSTRUCTION" option.