Click Here to Visit Our Sponsor
ClrDraw:GridOff:AxesOff:LabelOff:CoordOff:Float:FnOff 
ZSquare 
Goto G 
Lbl I 
ClrDraw 
-47/->/Xmin:47/->/Xmax:1/->/Xscl 
-31/->/Ymin:31/->/Ymax:1/->/Yscl 
0/->/S:0/->/Z:0/->/V:0/->/T 
DispGraph 
-47/->/L 
For(theta,0,29) 
Text(29,theta,"SPACE") 
Line(47,0,-47,-3,0) 
L+1/->/L 
End 
For(theta,79,49,-1) 
Text(29,theta,"WAR") 
Line(0,0,47,0,0) 
End 
For(theta,31,0,-1) 
Pt-On(0,theta):Pt-On(3,theta):Pt-On(-3,theta):Pt-On(0,theta+3):Pt-On(0,theta-3) 
Pt-Off(0,theta+1):Pt-Off(3,theta+1):Pt-Off(-3,theta+1):Pt-Off(0,theta+4):Pt-Off(0,theta-2) End 
For(theta,1,400):End 
23/->/X 
-23/->/W 
For(Y,-31,0) 
Line(23,-31,X,Y) 
Line(-23,-31,W,Y) 
X-(23/31)/->/X 
W+(23/31)/->/W 
End 
For(theta,1,350):End 
ClrDraw 
For(theta,1,35) 
iPart 16rand/->/F 
iPart 24rand/->/G 
Pt-Change(G,F):Pt-Change(G,-F):Pt-Change(-G,-F):Pt-Change(-G,F) End 
ClrDraw 
For(theta,0,24) 
Text(theta,29,"CREATED BY:") 
End 
For(theta,80,28,-1) 
Text(31,theta,"PHIL PEREIRA") 
End 
Pause 
Lbl O 
Menu("INSTRUCTIONS?","GIMME 'EM!",J,"SKIP 'EM!",H,"SCORING METHOD",N) Lbl N 
ClrHome 
Disp "1 POINT" 
Disp "1.5 POINTS or " 
Disp "2 POINTS" 
Disp "DEPENDING ON" 
Disp "ACCURACY." 
Output(7,1,"-.5 POINTS FOR") 
Output(8,1,"MISSING.") 
Pause 
ClrHome 
Output(1,1,"'LUCKY HITS' ARE") 
Output(2,2,"WHEN IT SEEMS") 
Output(3,1,"LIKE YOU MISSED,") 
Output(4,1,"BUT IT REGESTERS:) 
Output(5,2,"AS A HIT. YOU") 
Output(6,3,"CAN RECEIVE") 
Output(7,3,"1, 1.5, or 2") 
Output(8,2,"POINTS FOR IT!") 
Pause 
ClrHome 
Goto O 
Lbl 1 
ClrDraw 
Horizontal 0 
Vertical 0 
Lbl C 
Pt-On(23,1):Pt-On(23,2):Pt-On(-23,2):Py-On(-23,1) 
Text(20,66,"23"):Text(20,17,"-23") 
Pt-On(-1,15):Pt-On(-2,15):Pt-On(-1,-15):Pt-On(-2,-15) 
Text(13,36,"15"):Text(43,32,"-15") 
Pause 
If S>=16:Then 
ClrDraw 
Pt-On(-23,0):Pt-On(23,0):Pt-On(0,15):Pt-On(0,-15) 
Goto D 
End 
If S>=12:Then 
ClrDraw 
Line(23,0,-23,0):Line(0,15,0,-15) 
Goto D 
End 
ClrDraw 
Horizontal 0 
Vertical 0 
If S<8 and S>=4:Then 
Pt-On(-23,1):Pt-On(1,15):Pt-On(23,-1):Pt-On(-1,-15) 
End 
Lbl D 
iPart 48rand/->/A 
iPart 32rand/->/B 
iPart 5rand+1/->/C 
If C=2:Then:-A/->/A:End 
If C=3:Then:-B/->/B:End 
If C=1:Then:-A/->/A:-B/->/B:End 
Pt-On(A,B):Circle(A,B,1):Circle(A,B,2):Pt-On(A-3,B):Pt-On(A+3,B) Pause:ClrHome 
Input "X VALUE: ",X 
Input "Y VALUE: ",Y 
LabelOff:DispGraph 
For(theta,1,13) 
Pt-On(X,Y):Pt-On(X+2,Y):Pt-On(X-2,Y):Pt-On(X,Y+2):Pt-On(X,Y-2) End 
23/->/J:-23/->/M 
For(K,-31,Y) 
Line(23,-31,J,K) 
If X>23:Then 
J+abs ((X-23)/(-31-Y+.1))/->/J 
End 
If X<=23:Then 
J-abs ((X-23)/(-31-Y+.1))/->/J 
End 
Line(-23,-31,M,K) 
If X>-23:Then 
M+abs ((X+23)/(-31-Y+.1))/->/M 
End 
If X<=-23:Then 
M-abs ((X+23)/(-31-Y+.1))/->/M 
End 
End 
If (X+Y)=(A+B-2) or (X+Y)=(A+B+2):Then:S+1/->/S:Goto A:End 
If (X+Y)=(A+B-1) or (X+Y)=(A+B+1):Then:S+1.5/->/S:Goto A:End 
If (X+Y)=(A+B) or (X+Y)=(A+B):Then:S+2/->/S:Goto A:End 
S-.5/->/S:Z+1/->/Z 
If C>=2:Then 
Text(43,10,"YOU MISSED"):Text(51,10,"SCORE:"):Text(51,36,iPart S):Else 
Text(13,10,"YOU MISSED"):Text(21,10,"SCORE:"):Text(21,36,iPart S):End For(theta,1,550) End 
Goto B 
Lbl A 
If V>0:Then 
Goto M:End 
ClrDraw 
If C>=2:Then 
Text(43,10,"NICE HIT!"):Text(51,10,"SCORE:"):Text(51,36,iPart S):Else 
Text(13,10,"NICE HIT!"):Text(21,10,"SCORE:"):Text(21,36,iPart S):End For(theta,1,50) iPart 6rand/->/D 
iPart 6rand/->/E 
Pt-Change(A+D,B+E):Pt-Change(A-D,B-E):Pt-Change(A+D,B-E):Pt-Change(A-D,B+E) End 
Lbl B 
If V>0:Then 
Goto L 
End 
ClrDraw 
Text(25,19,"PRESS '2ND' BUTTON") 
Text(35,38,"TO END") 
For(theta,1,200) 
If getKey=21:Then 
Goto F 
End:End 
Lbl H 
If S>=20:Then 
Goto E:End 
If S>=16:Then 
ClrDraw 
Goto C:End 
If S>=12:Then 
AxesOff 
ClrDraw 
Line(-23,0,23,0):Line(0,15,0,-15)Goto C 
End 
If S>=8:Then 
ClrDraw 
AxesOff 
Line(23,0,0,15):Line(0,15,-23,0):Line(-23,0,0,-15):Line(0,-15,23,0) Text(9,37,"(0,15)") 
Text(28,0,"(-23,0)") 
Text(47,36,"(0,-15)") 
Text(28,71,"(23,0)") 
Pause 
ClrDraw 
Line(23,0,0,15):Line(0,15,-23,0):Line(-23,0,0,-15):Line(0,-15,23,0) Goto D 
End 
If S>=4:Then:Goto 1:End 
ClrDraw 
Horizontal 15 
Horizontal -15 
Vertical 23 
Vertical -23 
Text(9,10,"(-23,15)"):Text(9,58,"(23,15)") 
Text(47,10,"(-23,-15)"):Text(47,57,"(23,-15)") 
Pause 
ClrDraw 
Horizontal 15 
Horizontal -15 
Vertical 23 
Vertical -23 
Pt-On(-23,1):Pt-On(1,15):Pt-On(23,-1):Pt-On(-1,-15) 
Goto D 
Lbl F 
ClrHome 
If S<10:Then 
Disp "THE ALIENS WOULD" 
Disp "LIKE YOU TO KNOW" 
Disp "THAT WITH YOU" 
Disp "FLYING THE" 
Disp "AIRCRAFT," 
Pause: ClrHome 
Disp "IT WAS EASY TO" 
Disp "TAKE OVER EARTH." 
Output(5,5,"GOOD JOB.") 
Pause 
Goto P 
End 
If S>=10:Then 
Disp "THE ALIENS ARE" 
Disp "VERY GRACIOUS" 
Disp "THAT YOU HAVE" 
Disp "GIVEN UP..." 
For(theta,1,400) 
End 
Output(7,1,"PLEASE TRY AGAIN") 
Pause 
Lbl P 
ClrHome 
Output(2,1,"SCORE:") 
Output(3,3,S) 
Output(5,1,"MISSES:") 
Output(6,3,Z) 
Pause 
ClrHome:ClrDraw 
DispGraph 
Text(1,1,"ONE OF PHIL'S PHABULOUS" 
Text(10,1,"GAMES" 
Text(20,1,"COPYRIGHT (C) 1996" 
Text(50,1,"PLEASE PRESS '2ND [QUIT]'" 
Stop 
Lbl G 
ClrHome 
DispGraph 
Text(5,15,"WARNING!  WARNING!")     note:  2 spaces between "Warning" For(theta,1,400):End 
Text(15,7,"UFO'S ARE ATTACKING THE") 
Text(21,40,"EARTH!") 
For(theta,1,400):End 
Text(31,30,"TAKE COVER!" 
For(theta,1,400):End 
Text(45,31,"LAUNCH THE") 
Text(51,17,"COUNTER-AIRCRAFT!") 
Pause 
Goto I 
Lbl J 
ClrHome 
Output(3,3,"IN ORDER TO") 
Output(4,3,"DESTROY THE") 
Output(5,1,"UFO'S, YOU MUST" 
Output(6,3,"'COORDINATE") 
Output(7,7,"PLOT ' " 
Pause 
ClrHome 
Output(2,2,"THIS IS DONE") 
Output(3,2,"WITH THE HELP") 
Output(4,7,"OF") 
Output(5,2,"'GUIDE POINTS'") 
Output(6,7,"AND") 
Output(7,2,"'GUIDE LINES'") 
Pause 
ClrHome 
Output(2,1,"BOTH ARE SHOWN") 
Output(3,1,"AT THE START OF") 
Output(4,1,"EACH LEVEL, BUT") 
Output(5,1,"GUIDE POINTS") 
Output(6,1,"DISAPPEAR WHEN") 
Output(7,1,"THE UFO APPEARS.") 
Pause 
ClrHome 
Output(1,4,"REMEMBER:") 
Output(3,1,"Xmin= -47") 
Output(4,1,"Xmax=47") 
Output(5,1,Ymin= -31") 
Output(6,1,"Ymax=31") 
Output(7,1,"Xscl and Yscl=1") 
Pause 
ClrHome 
Output(1,2,"ALSO REMEMBER:" 
Output(2,1,"WHEN PUTTING IN" 
Output(3,1,"A NEGATIVE, USE") 
Output(4,1,"'-' AND NOT '--'.")    note: first slash -negative sign-   2nd slash -subtraction- 
Output(5,3,"ONE MEANS") 
Output(6,2,"NEGATIVE, THE") 
Output(7,2,"THE OTHER IS") 
Output(8,2,"SUBTRACTION.") 
Pause 
ClrHome 
Output(4,4,"GOOD LUCK!") 
Pause 
ClrHome 
Goto O 
Lbl E 
If Z>6:Then 
Goto Q:End 
1+V/->/V 
ClrDraw 
Text(15,30,"SUPER JOB!!") 
Text(25,15,"YOU HAVE REACHED THE") 
Text(35,27,"BONUS LEVEL!") 
Text(48,35,"LOSSES:") 
Text(48,62,Z) 
Pause 
Z-7/->/T:abs T/->/T 
Lbl L 
If T=0:Then 
Goto K 
End 
ClrDraw 
Text(23,33,"YOU HAVE") 
Text(31,20,T) 
Text(31,26,"ATTEMPTS LEFT") 
Pause 
T-1/->/T 
ClrDraw:ClrHome 
Goto D 
Lbl Q 
ClrDraw:ClrHome 
Text(28,20,"IMPRESSIVE JOB!!") 
Pause 
ClrDraw 
Text(23,17,"YOU HAVE DONE WELL") 
Text(31,15,"IN DESTROYING") 
For(theta,1,200):End 
Text(31,65,"M") 
For(theta,1,200):End 
Text(31,71,"O") 
For(theta,1,200):End 
Text(31,75,"S") 
For(theta,1,200):End 
Text(31,79,"T") 
For(theta,1,200):End 
Text(39,28,"OF THE UFO'S!" 
Pause 
ClrDraw 
Text(21,22,"UNFORTUNATELY,") 
For(theta,1,100):End 
Text(29,21,"YOU LET TOO MANY") 
Text(37,53,"BY!") 
For(theta,90,37,-1) 
Text(37,theta,"SLIP") 
End 
Text(37,53,"BY!") 
Pause 
ClrDraw 
Text(29,18,"PLEASE TRY AGAIN!") 
Pause 
Goto P 
Lbl K 
ClrDraw 
Text(28,6,"YOU HAVE DONE VERY WELL.") 
Pause 
ClrDraw 
Text(25,8,"YOUR EFFORTS ARE KNOWN") 
Text(32,39,"TO ALL.") 
Pause 
ClrDraw 
Text(25,8,"YOU ARE RECOGNIZED AS A") 
For(theta,94,29,-1) 
Text(32,theta,"W") 
End 
For(theta,94,35,-1) 
Text(32,theta,"O") 
End 
For(theta,94,39,-1) 
Text(32,theta,"R") 
End 
For(theta,94,43,-1) 
Text(32,theta,"L") 
End 
For(theta,94,47,-1) 
Text(32,theta,"D") 
End 
For(theta,94,54,-1) 
Text(32,theta,"H") 
End 
For(theta,94,58,-1) 
Text(32,theta,"E") 
End 
For(theta,94,62,-1) 
Text(32,theta,"R") 
End 
For(theta,94,66,-1) 
Text(32,theta,"O") 
End 
For(theta,94,70,-1) 
Text(32,theta,"!") 
End 
For(theta,1,300):End 
Text(45,35,"HOWEVER") 
For(theta,1,200):End 
Text(45,65,".") 
For(theta,1,200):End 
Text(45,67,".") 
For(theta,1,200):End 
Text(45,69,".") 
Pause 
ClrDraw 
Text(23,10,"YOU DID NOT DESTROY THE") 
Text(30,18,"THE MOTHER SHIP IN") 
Text(37,20,"THE BONUS LEVEL!!") 
Pause 
ClrDraw 
Text(29,21,"THANKS ANYWAY.") 
Pause 
Goto P 
Lbl M 
ClrDraw 
Shade(-[square root](-(X+10)[squared]+300),[square root](-(X+10)[squared]+300)) 
Shade(-[square root](-(X-10)[squared]+300),[square root](-(X-10)[squared]+300)) 
Shade(-[square root](-(X)[squared]+300),[square root](-(X)[squared]+300)) 
Shade(-3,3,1,-40,40) 
Line(-47,-3,47,-3,0) 
Line(-47,3,47,3,0) 
-39/->/H 
For(theta,1,40) 
Pt-Change(H,0) 
H+2/->/H 
End 
0/->/R 
Repeat R=7 
0/->/H:0/->/I 
For(theta,1,40) 
Pt-Change(H,0) 
Pt-Change(I,0) 
H+1/->/H:I-1/->/I 
End 
R+1/->/R 
End 
For(theta,1,90) 
int 17rand/->/H 
(int 30rand)-40/->/I 
Pt-Change(I,H):Pt-Change(I,-H) 
End 
For(theta,1,90) 
int 25rand/->/H 
(int 60rand)-30/->/I 
Pt-Change(I,H):Pt-Change(I,-H) 
End 
For9theta,1,90) 
int 20rnad/->/H 
(int 30rand)+11/->/I 
Pt-Change(I,H):Pt-Change(I,-H) 
End 
For(theta,1,100) 
int 20rand/->/H 
int 20rand/->/I 
Pt-Change(I,H):Pt-Change(I,-H):Pt-Change(-I,H):Pt-Change(-I,-H) End 
ClrDraw 
Text(28,24,"KAAA-BOOOOM!!!") 
For(theta,1,130) 
int 41rand/->/I 
int 25rand/->/H 
Pt-On(I,H):Pt-On(I,-H):Pt-On(-I,-H):Pt-On(-I,H) 
End 
ClrDraw 
Text(28,16,"EXTRAORDINARY JOB!!") 
Pause 
ClrDraw 
Text(22,24,"YOU HAVE FULLY") 
Text(29,22,"COMPLETED YOUR") 
Text(36,34,"MISSION!" 
Pause 
ClrDraw 
Text(13,14,"YOU SAVED THE WORLD") 
Text(20,30,"FROM TOTAL"):Text(27,27,"DESTRUCTION!") 
For(theta,1,700):End 
Text(45,14,"YOU SHOULD BE PROUD!") 
Pause 
ClrDraw 
Text(28,14,"THANKS FOR PLAYING!") 
Pause 
Goto P
Make your own free website on Tripod.com