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