0 'FENIX.BA SJ SimS 3/84 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 DEFINTA-Z:GOTO19 3 PRINT@X+R,CL$: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 4 T=T-1:PRINT@X+R,B$:PRINT@M+239,P$;:PRINT@280,T" Hi Score:"HS" Score:"SC;:I$=INKEY$:IFI$=""THENW=W+1ELSEW=0 5 IFW>3THEN17ELSEIFI$="."THENM=M+1ELSEIFI$=","THENM=M-1ELSEIFI$=" "THEN10 6 IFT<1THEN14ELSEIFM<0THENM=39:PRINT@240,CL$; 7 IFM>39THENM=0:PRINT@279,CL$; 8 X=X+RND(1)*3-1:IFX<0THENX=0ELSEIFX>36THENX=36ELSEIFT<50THENSOUND4000,1 9 GOTO4 10 FORY=200+MTOMSTEP-40:PRINT@Y,CHR$(152);:SOUNDY*68,1:I$=INKEY$:PRINT@Y," ";:NEXT 11 IFM=X+1ORM=X+3THENSC=SC+50:BEEP:FORI=0TO10:PRINT@X+R,"BLORK!":PRINT@X+R,CL$:SOUND16000,1:NEXT:GOTO3 12 IFM=X+2THENSC=SC+100:SOUND440,10:FORI=0TO10:PRINT@X+R,"WAAGH!":PRINT@X+R,CL$:SOUND1760,1:NEXT:GOTO3 13 IFX+R>40*FTHEN17ELSEPRINT@X+R,CL$:R=R+40:SC=SC-5:GOTO6 14 PRINT@175,"Game Over":LINE(0,0)-(239,63),1,BF:FORI=1TO20:I$=INKEY$:NEXT:CLS:IFSC<=HSTHEN19 15 HS=SC:LINEINPUT"NEW HIGH SCORE!!! Enter your name (20 characters max) ";HN$:FORI=1TO30 16 POKEHB!+I-1,ASC(MID$(STR$(HS)+" "+HN$+SPACE$(32),I,1)):NEXT:GOTO19 17 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:PRINT@239+M,"* *"; 18 SOUNDW,1:I$=INKEY$:PRINT@239+M," * ";:NEXT:SC=SC-100:W=0:GOTO3 19 HS$=" ":P1=VARPTR(HS$):HB!=PEEK(P1+1)+PEEK(P1+2)*256:CL$=SPACE$(6):HS=VAL(HS$) 20 CLS:PRINTTAB(9)"F E N I X":LINE(0,9)-(239,9):PRINT:PRINT"High Score:"HS$:PRINT"Last Score:"SC 21 PRINT@243,"nstructions,
lay or