P185 ORACLE 185 Sun20 Jun ITV 1900:10 35819376GFSN0( KLINGON 35819376GFSN0( 47 ; CUR(S1+1,S2+1) "*"|x48 REM S1 A ND S2 ARE POSITIONS OF THE STARS|+49 NEX T I |q50 REM |%51 REM START PROGRAM|l52 REM —————————————|g53 A=120 : T=1.5|454 REM A= CENTRE OF SCREEN :T=LOOP FACTOR|! 55 FG -1 : M1=0 : L1=0 : I=1 : P1=60*RND (RND(1))+90+M : P2=60*RND(RND(2))+90+L : A=120|u56 REM M1 AND L1 CONTROL THE MOV EMENT OF THE SHIP AWAY FRPM THE CENTRE A S THE SHIP APPROACHES|(57 REM P1AND P2 A RE THE RANDOM POSITIONS OF THE STARTING POINTS OF THE SHIP|-58 M1=M1+M|:59 L1=L1 +L|860 I=I+T : R1=A-P1+M1 : R2=A-P2+L1|u 61 REM R1 AND R2 ARE THE FACTORS WHICH A RE ADDED ON TO THE SCREEN POSITION WHICH MAKE THE SHIP MOVE|<62 N1=EXP(I/15) : N 2=.95*N1 : N3=.9*N1 : N4=.85*N1|=63 REM N1,N2,N3 AND N4 ARE THE EXPANSION FACTOR S WHICH PRODUCE THE 3D IMAGE|v64 X=A+N2* R1 : Y=A+N2*R2|÷65 REM X AND Y ARE THE C ENTRE OF THE SHIP|3|
P185 ORACLE 185 Sun20 Jun ITV 1950:00 35819376GFSN0( KLINGON 35819376GFSN0( 85 FGPOINT X2,Y2 : FGLINE X2,Y1 : FGLINE X4,Y3 : FGLINE X4,Y4 : FGLINE X2,Y2|g86 FGPOINT X5,Y5 : FGLINE X6,Y6 : FGLINE X 6,Y5 : FGLINE X5,Y6 : FGLINE X5,Y5|d87 F GPOINT X7,Y7 : FGLINE X8,Y8 : FGLINE X8, Y7 : FGLINE X7,Y8 8 FGLINE X7,Y7|y88 ON ERROR GOTO 242|d89 REM GOSUB GET CHARACT ER|>90 REM ———————————————————|)91 GOSUB 108|?92 REM GOTO SHIP FI BACK ROUTIN E |"93 REM ————————————————————————————| ,94 IF T1<20 THEN 188|k95 REM T1IS SIZE OF ENERGY BOLT|z96 IF RND(5)181 |s97 R M RANDOM FIRE CHECK|598 REM GOTO SHIP FIRD OU INEREM ————————|r100 ON O+1 GOTO 103,143|f101 R EM RE DRAW SHIPS|>102 REM —————————————| 3103 GOTO 58|v104 I=0 : GOTO 55|$105 GOT O 62|s106 REM GET CHARACTER ROUTINE|*107 REM —————————————————————|8108 F5=F5-AB S(M)-ABS(L)x(109 REM F5 IS AMOUNT OF FUE
P185 ORACLE 185 Sun20 Jun ITV 1941:05 35819376GFSN0( KLINGON 35819376GFSN0( 22 FOR I=0 TO 2*PI STEP PI/16 : A1(J)=SI N(I) : A2(J)=COS(I) : J=J+1 : NEXT I |52 3 REM |%24 GOSUB 204 : REM GOSUB INSTRU CTIONS|+25 REM : ————————————— ——————|a26 RANDOMIZE : T1=25 : U=3 : R4= .05 : R5=10 : D1=31 : D2=1 : D3=7 : D4=9 : D5=15 : D6=17 : D7=23 : D8=25 : E=1 : E2=1 : F5=10000|h27 REM |)28 REM TITLE PAGE|i29 REM —————————— |k30 ; CHR$(12)| /31 FOR I=1 TO 24 : ; BLU NWBG : NEXT I |o32 ; CUR(5,14) RED DBLE "KLINGON WARS" NRML|;33 ; CUR(7,20) RED "BY"|w34 ; CUR (9,17) YEL FLSH "P.BULL" STDY|235 T1=21 : FOR I=1 TO 1000 : NEXT I |g36 FG -1 : FG 1|h37 REM |*38 REM DRAW STARS RANDOML Y|l39 REM ———————————————————|,40 ; CHR$ (12)|041 FOR I=0 TO 70 : ; CUR(0,0)|$42 S1=22*RND(1) : S2=38*RND(2)|/43 ; CU R(S1+1,S2+1) CYA "."|u44 NEXT I |l45 FOR I=0 TO 5 : ; CUR(0,0)|v46 S1=22*RND(1 ) : S2=38*RND(2)|3|
P185 ORACLE 185 Sun20 Jun ITV 1900:10 35819376GFSN0( KLINGON 35819376GFSN0( 161 P1(K2)=.75*2*A2(K2) : Q1(K2)=A1(K2 )*2|$162 P3(K2)=X : Q3(K2)=Y|=163 RE M P1,P2,Q1,Q2 ARE CENTRE POINTS OF EXPLO SION|r164 FG@OINT P1(K2)+X,Q1(K2)+Y : FGLINE X-@1(K2),Y-P1(K2)|$165 NEXT K2 |4 166 FOR K3=.1 TO N1/2 STEP N1/10|(167 FOR K2=0 TO 16|5168 P2(K2)=(P1(K2))* K1(K2)*N1/K3/15|g169 Q2(K2)=(Q1(K2)) *K1(K2)*N1/K3/15|b170 P1(K2)=P1(K2)+ P2(K2)|*171 Q1(K2)=Q1(K2)+Q2(K2)|.17 2 REM P2(K2) AND Q2(K2) GIVE EXPASIO N SIZES|n173 FGPOINT P1(K2+1)+X,Q1(K 2+1)+Y : FGLINE X-P1(K2),Y-Q1(K2)|=174 ON ERROR GOTO 234|1175 NEXT K2 |u17 6 NEXT K3 |7177 FOR V=0 TO 1000 : NEXT V |x178 ON E GOSUB 284,287,293,299,305|g1 79 REM E IS THE SHEET||180 REM GOSUB NO OF SHIPS REMAINING|,181 DM ———————————— ———————————————|z182 O=0 : J=30 : FG -1 8 FG 1 : GOTO 55|q183 REM SHIP FIRE BACK ROUTINE|-|
P185 ORACLE 185 Sun20 Jun ITV 1910:00 35819376GFSN0( KLINGON 35819376GFSN0( 352 ; : ; CYA " st op any "|5353 ; : ; YEL " 4 5 6 " CYA "horizontal or"|—354 ; : ; CYA " vertical move ment"|.355 ; : ; YEL " 7 8 9 " CYA "and if you "|?356 ; : ; CYA " press any key more than once you will"|a 357 ; : ; CYA "increase your h or v spee ds !"|i358 FG -1 : FG 1|?359 FGPOINT 76, 120 : FGLINE 40,148 : FGPOINT 81,122 : F GLINE 81,148 : FGPOINT 86,120 : FGLINE 1 22,148360 FGPOINT 76,116 : FGLINE 40,1 16 : FGPOINT 86,116 : FGLINE 122,116|?36 1 FGPOINT 76,112 : FGLINE 40,84 : FGPOIN T 81,110 : FGLINE 81,84 : FGPOINT 86,112 : FGLINE 122,84|h362 ; : ; GRN "PRESS T HE SPACE BAR TO CONTINUE ";|d363 GET N$ : IF N$<>" " THEN 363 ELSE 364|4364 FG -
P185 ORACLE 185 Sun20 Jun ITV 1902:01 35819376GFSN0( KLINGON 35819376GFSN0( 184 REM ——————————————————————|}181 T1=0 : T2=0 : Z6=0 : Z7=0 : Q7=0 : Q8=0 : RA NDOMIZE |*186 V1=RND(1)*40+100 : V2=RND* 40+100|<187 U1=X : U2=Y : V3=V1-X : V4=V 2-Y|)188 T1=T1+.5 : Q7=Q7+M : Q8=Q8+L|11 89 Z6=Z6+V3/10 : Z7=Z7+V4/10|}190 Z1=EXP (T1/10) : V5=Z1*(5*A2(T1)*.75) : V6=Z1*( 5*A1(T1))|u191 W1=U1+Z6+V5+Q7 : W2=U2+Z7 +V6+Q8|4192 W3=U1+Z6-V5+Q7 : W4=U2+Z7-V6 +Q8|=193 FGPOINT W1,W2 : FGLINE W3,W4|=1 94 ON ERROR GOTO 223|1195 REM GE CHARAC TER|l196 REM —————————————| 197 GOSUB 10 8|v198 REM IF LARGE THEN DEST2OY OWN SHI P|}199 REM ————————————————————————————— —|£200 IF Z1>18 THEN 226|8201 GOTO 188|) 202 REM INSTRUCTIONS|i203 REM —————————— ——|5204 ; CHR$(12)|b205 ; CYA "Do you wa nt instructions "; : GET Z$ : IF Z$="Y" OR Z$="y" THEN 206 ELSE RE TRN |k206 ; C HR$(12)|d207 ; CUR(0,10) GRN NWBG RED "I NSTRUCTIONS " BLBG|h|
P185 ORACLE 185 Sun20 Jun ITV 1902:42 35819376GFSN0( KLINGON 35819376GFSN0( 208 ; : ; CYA " YOU are in command of the Starship"|v209 ; : ; CYA "INTERPRISE . You are stranded millions"|l210 ; : ; CYA "of parsecs from the centre of the E ARTH"|&211 ; : ; CYA "FEDERATION . Your energy screens can "|.212 ; : ; CYA "onl y withstand three direct hits and"|8213 ; ; CYA "you are low on fuel. T—e only way to"|8214 ; : ; CYA "regain the safe ty of your galaxy is"|-215 ; : ; CYA "to blast your way through."|m216 ; : ; CYA " GOOD LUCK !"|?217 ; : ; GRN "PRESS SPACE BAR TO CONTINUE ";|b218 GET N$ : IF N$<>" " THEN 218 ELSE 335|0219 ; : ; |h220 GET R$|&221 RE TRN |1222 END |)223 T1=25 : IF I>30 THEN RESUME 55 ELSE RES EME 58| 224 REM OWN SHIP EXPLODE|1225 D M ————————————————x8026 FOR I1=0 N 20|i 227 FOR I2=0 TO 24 : ; CUR(I2,0) GWHT NWBG : NEXT I2 |2228 ; CHR$(12)|(229 FOR I3=0 TO 10 : NEX I3 |"|
P185 ORACLE 185 Sun20 Jun ITV 1902:00 35819376GFSN0( KLINGON 35819376GFSN0( 254 FGPOINT X1,Y1 : FGLINE X3,Y3 : FGLIN E X5,Y5 : FGLINE X7,Y7 : FGLINE X8,Y8 : FGLINE X6,Y6 : FGLINE X4,Y4 : FGLINE X2, Y2 : FGLINE X1,Y1|u255 FGPOINT X1,Y2 : F GLINE X3,Y4 : FGLINE X5,Y6 : FGLINE X7,Y 8 : FGLINE X8,Y7 : FGLINE X6,Y5 : FGLINE X4,Y3 : FGLINE X2,Y1 : FGLINE X1,Y2|w25 6 FGPOINT N1*.75*R1+A,N1*R2+A : FGLINE N 4*R1*.75+A,N4*R2+A|'257 ON ERROR GOTO 24 2|2258 GOTO 88|$259 REM ROTATING SPACE S TATION|v260 REM ——————————————————————|x 261 C1=N1*(100+15*A2(D1))/100 : X1=C1*(R 1+10*A1(D1))+A : Y1=C1*(R2+4)+A : H1=C1* (R2-4)+A : D1=D1+1 : IF D1=32 THEN D1=0| .262 C2=N1*(100+15*A2(D2))/100 : X2=C2*( R1+10*A1(D2))+A : Y2=C2*(R2+4)+A : H2=C2 *(R2-4)+A : D2=D2+1 : IF D2=32 THEN D2=0 |<263 C3=N1*(100+15*A2(D3))/100 : X3=C3* (R1+10*A1(D3))+A : Y3=C3*(R2+4)+A : H3=C 3*(R2-4)+A : D3=D3+1 : IF D3=32 THEN D3= 0|j|
P185 ORACLE 185 Sun20 Jun ITV 1900:01 35819376GFSN0( KLINGON 35819376GFSN0( 135 M=M+2 : GOTO 124|s136 L=L-2 : M=M-2 : GOTO 124|$137 L=L-2 : GOTO 124|u138 L= L-2 : M=M+2 : GOTO 124|$139 REM M AND L ARE MOVEMANT CONTROLS||140 GOTO 124|!141 REM SHIP FIRE ROUTINE|v142 REM ———————— —————————|7143 J=J+30 : O=1|f144 REM J I S POSITION OF SHIP FIRE , O IS COUNTER F OR PROGRAM IF FIRING|'145 FGPOINT 5,0 : FGLINE J,J : FGPOINT 0,5 : FGLINE J,J|÷1 46 FGPOINT 235,0 : FGLINE 240-J,J : FGPO INT 239,5 : FGLINE 239-J,J|—147 IF J<120 THEN 58||148 REM IF HIT THEN EXPLODE|q1 49 REM ———————————————————|÷150 IF X>120 -2*N1 AND X<120+2*N1 AND Y>120-N1 AND Y< 120+N1 THEN 152|'151 J=30 : O=0 : GOTO 9 4|3152 FG -1 : FG 1|7153 REM GOSUB FIND SCORE|6154 REM ————————————————|:155 ON E2 GOSUB 279,280,281|z156 REM EXPLOSION ROUTINE|c157 REM —————————————————|=158 FOR K2=0 TO 16|u159 K1(K2)=INT(5*RND)/ 5+1|a160 REM K1(K2) IS RANDOM NO.|i|
P185 ORACLE 185 Sun20 Jun ITV 1904:13 35819376GFSN0( KLINGON 35819376GFSN0( 315 FOR I5=0 TO 2000 : NEXT I5 |c316 E=E +1 : GOTO 40|0317 FG -1 : ; CUR(13,7) RE D FLSH DBLE "YOU HAVE RUN OUT OF FUEL"|k 318 ; CUR(10,15) YEL DBLE "GAME OVER"||3 19 ; CUR(16,12) RED DBLE "Your score was " R;|÷320 GOTO 65000|%321 FG 0 : ; CUR( 10,15) YEL DBLE "GAME OVER"|-322 ; CUR(1 4,12) RED DBLE "Your score was ";R;|1323 GOTO 65000|(324 FG -1 : FG 1 : R4=0|%32 5 FOR H=0 TO 30|8326 X1=N1*.75*A2(H+1) +A : Y1=N1*A1(H+1)+A|;327 X2=N1*.75*A2 (H)+A : Y2=N1*A1(H)+A|&328 X3=N1*.75*. 75*A2(H+1)+A : X4=N1*.75*.75*A2(H)+A|232 9 X5=N1*.75*.5*A2(H+1)+A : X6=N1*.75*. 5*A2(H)+A|i330 X7=N1*.75*.25*A2(H+1)+A : X8=N1*.75*.25*A2(H)+A|)331 FGPOINT X2,Y2 : FGLINE X1,Y1 : FGPOINT X4,Y2 : F GLINE X3,Y1 : FGPOINT X6,Y2 : FGLINE X5, Y1 : FGPOINT X8,Y2 : FGLINE X7,Y1|1332 N EXT H |{333 FGLINE N1*.75+A,A|&334 GOTO 88|335 ; CHR$(12)|g|
P185 ORACLE 181 Sun20 Jun ITV 1944:00 35819376GFSN0( KLINGON 35819376GFSN0( 264 C4=N1*(100+11*A2(D4))/100 : X4=C4*(R 1+10*A1(D4))+A : Y4=C4*(R2+4)+A : H4=C4* (R2-4)+A : D4=D4+1 : IF D4=32 THEN D4=0| x265 C5=N1*(100+15*A2(D5))/100 2 X5=C5*( R1+10*A1(D5))+A : Y5=C5*(R2+4)+A : H5=C5 *(R2-4)+A : D5=D5+1 x IF D5=32 THEN D5=0 |f266 C6=N1*(100+15*A2(D6))/100 : X6=C6* (R1+10*A1(D6))+A : Y6=C6*(R2+4)+A : H6=C 6*(R2-4)+A : D6=D6+1 : IF D6=32 THEN D6= 0|t267 C7=N1*(100+11*A2(D7))/100 : X7=C7 *(R1+10*A1(D7))+A : Y7=C7*(R2+4)+A : H7= C7*(R2-4)+A : D7=D7+1 : IF D7=32 THEN D7 =0|"268 C8=N1*(100+15*A2(D8))/100 : X8=C 8*(R1+10*A1(D8))+A : Y8=C8*(R2+4)+A : H8 =C8*(R2-4)+A : D8=D8+1 : IF D8=32 T@EN D
P185 ORACLE 181 Sun20 Jun ITV 0000:00 35819376GFSN0( KLINGON 35819376GFSN0( 365 ; : ; CYA " Remember press s p—ce bar to "|k366 ; : ; CYA "fire. Dhe game will get more difficult"|—367 FG -1 : FG 1|?368 ; : ; CYA "as you progress through it so beware !"|k369 ; : ; CYA " There are three different types of "|x37 0 ; : ; CYA "space ships which are more difficult"|2371 ; 8 ; CYA "to hit but th ey are also worth more"|c372 ; : ; CYA " points."|t373 ; : ; GRN "PRESS SPACE BAR TO START GAME ! ";|i374 GET N$ : IF N$< >" " THEN 374 ELSE 375|:375 RETURN |;376 REM A1(I)AND A2(I) ARE SINES AND COSINE S|-|
P185 ORACLE 185 Sun20 Jun ITV 1905:01 35819376GFSN0( KLINGON 35819376GFSN0( 352 ; : ; CYA " st op any "|5353 ; : ; YEL " 4 5 6 " CYA "horizontal or"|—354 ; : ; CYA " vertical move ment"|.355 ; : ; YEL " 7 8 9 " CYA "and if you "|?356 ; : ; CYA " press any key more than once you will"|a 357 ; : ; CYA "increase your h or v spee ds !"|i358 FG -1 : FG 1|?359 FGPOINT 76, 120 : FGLINE 40,148 : FGPOINT 81,122 : F GLINE 81,148 : FGPOINT 86,120 : FGLINE 1 22,148360 FGPOINT 76,116 : FGLINE 40,1 16 : FGPOINT 86,116 : FGLINE 122,116|?36 1 FGPOINT 76,112 : FGLINE 40,84 : FGPOIN T 81,110 : FGLINE 81,84 : FGPOINT 86,112 : FGLINE 122,84|h362 ; : ; GRN "PRESS T HE SPACE BAR TO CONTINUE ";|d363 GET N$ : IF N$<>" " THEN 363 ELSE 364|4364 FG - 1 : FG 1 : ; CHR$(12) CUR(0,10) GRN NWBG RED "INSTRUCTIONS " BLBG|>|
P185 ORACLE 181 Sun20 Jun ITV 1900:00 35819376GFSN0( KLINGON 35819376GFSN0( 336 ; CUR(0,10) GRN NWBG RED "INSTRUCTIO NS " BLBG|k337 ; : ; CYA " To control your ship use the "|338 ; : ; CYA "num eric keys and the space bar to "|2339 ; : ; CYA "destroy the alien space ships." |a340 ; : ; CYA "Avoid the energy bolts fired at you"|b341 ; : ; CYA "by using t he normal controls but try"|.342 ; : ; C YA "not to allow the horizontal and"|734 3 ; : ; CYA "vertical speeds to become t oo large or"|1344 ; : ; CYA "you will lo se control!"|r345 ; : ; : ; GRN "PRESS S PACE BAR TO CONTINUE ";|y346 GET N$ : IF N$<>" " THEN 346 ELSE 347|7347 ; CHR$(1 2) CUR(0,10) GRN NWBG RED "INSTRUCTIONS " BLBG|b348 ; : ; CYA " Use the keys in the following "|349 ; : ; CYA " manner to bring the enemy space ships"|u 350 ; : ; CYA "into your target."|£351 ; : ; YEL " 1 2 3" CYA " Key '5' will"|.|
P185 ORACLE 185 Sun20 Jun ITV 0000:12 G|+232 REM ———————————————————|w233 U=U- 1 : IF U>0 THEN 35 ELSE E2=4 : GOTO 35|h 234 RESUME 175|c235 REM GAME OVER|0236 R EM —————————|;237 ; CUR(12,0) YEL DBLE " GAME OVER"|(238 ; CUR(14,2) YEL "YOUR SC ORE WAS" R|h239 GOTO 65000|.240 R=0 : GO TO 24|*241 RE @RN |3242 RESUME 55|/243 R EM X WING FIGH DR|/244 REM ————————————— —|z245 X1=N1*.71*(R1+2)+A 8 Y1=N1*(R2+2) +A|/246 X2=N1*.75*(R1-2)+A : Y2=N1*(R2-2 )+A|6247 X3=N2*.75* AYNR 2)+A|7248 X4=N2*.75*(R1-2)+A 8 Y4=N2*(R2 -2)+A|>249 X5=N3*.75*(R1+5)+A : Y5=N3*(R 2+5)+A|%250 X6=N3*.75*(R1-5)+A : Y6=N3*( R2-5)+A|£211 X7=N4*.75*(R1+5)+A : Y7=N4* (R2+5)+A|$252 X8=N4*.75*(R1-5)+A : Y8=N4 *(R2-5)+A|+253 FG -1 : FGPOINT 120,120-1 5 : FGLINE 120,120+15,1 : FGPOINT 120-11 ,120 : FGLINE 120+15,120,1|+|
P185 ORACLE 185 Sun20 Jun ITV 1917:11 35819376GFSN0( KLINGON 35819376GFSN0( 271 FGPOINT X5,Y5 : FGLINE X6,Y6 : FGLIN E X6,H6 : FGLINE X5,H5 : FGLINE X5,Y5|n2 72 FGPOINT X1,Y1 : FGLINE X6,H6 : FGPOIN T X1,H1 : FGLINE X6,Y6 : FGPOINT X2,Y2 : FGLINE X5,H5 : FGPOINT X2,H2 : FGLINE X 5,Y5|9273 FGPOINT X3,Y3 : FGLINE X4,Y4 : FGLINE X4,H4 : FGLINE X3,H3 : FGLINE X3 ,Y3||274 FGPOINT X7,Y7 : FGLINE X8,Y8 : FGLINE X8,H8 : FGLINE X7,H7 : FGLINE X7, Y7|%275 FGPOINT X3,Y3 : FGLINE X8,H8 : F GPOINT X3,H3 : FGLINE X8,Y8 : FGPOINT X4 ,Y4 : FGLINE X7,H7 : FGPOINT X4,H4 : FGL INE X7,Y7|<276 GOTO 88|$277 REM SHIP POI NTS|q278 REM ———————————|a279 F1=F1+1 : R=R+10 : RETURN |&280 F2=F2+1 : R=R+20 : RE$VRN |!281 F3=F3+1 : R=R+50 : RETURN |'282 REM NO OF SHIPS/SHEET ROUTINE|£283 REM —————————————————————————|=284 IF F 1<=10 THEN E2=1 ELSE E2=3|÷285 IF F3=E T HEN 313|k286 RETURN |<287 T=1 : R4=.1|;|
P185 ORACLE 183 Sun20 Jun ITV 1937:19 35819376GFSN0( KLINGON 35819376GFSN0( 230 NEXT I1 |*231 REM OWN SHIPS REMAININ G|+232 REM ———————————————————|w233 U=U- 1 : IF U>0 THEN 35 ELSE E2=4 : GOTO 35|h 234 RESUME 175|c235 REM GAME OVER|0236 R EM —————————|;237 ; CUR(12,0) YEL DBLE " GAME OVER"|(238 ; CUR(14,2) YEL "Y DR SC ORE WAS" R|h239 GOTO 65000|.240 R=0 : GO TO 24|*241 RE$VRN |3242 RESUME 55|/243 R EM X WING FIGHTER|/244 REM ————————————— —|z245 X1=N1*.75*(R1+2)+A : Y1=N1*(R2+2) +A|/246 X2=N1*.75*(R1-2)+A : Y2=N1*(R2-2 )+A|6247 X3=N2*.75*(R1+2)+A : Y3=N2*(R2+ 2)+A|7248 X4=N2*.75*(R1-2)+A : Y4=N2*(R2 -2)+A|>249 X5=N3*.75*(R1+5)+A : Y5=N3*(R 2+5)+A|%250 X6=N3*.75*(R1-5)+A : Y6=N3*( R2-5)+A|£251 X7=N4*.75*(R1+5)+A : Y7=N4* (R2+5)+A|$252 X8=N4*.75*(R1-5)+A : Y8=N4 *(R2-5)+A|+253 FG -1 : FGPOINT 120,120-1 5 : FGLINE 120,120+15,1 : FGPOINT 120-15 ,120 : FGLINE 120+15,120,1|+|
P185 ORACLE 185 Sun20 Jun ITV 1901:04 35819376GFSN0 KLINGON 35819376GFSN0( 110 REM IF OUT OF FUEL T@EN END GAME|r01 1 REM ————————————————————————————|3112 IF F5<=0 THEN 317|-113 IF SYS(5) THEN GE T A$ ELSE 124|9114 REM A$ IS KEYBOARD IN PUT|x115 IF A$=" " THEN 143|o116 IF VAL( A$)>9 THEN 124|y117 ON VAL(A$) GOTO 130, 131,132,133,134,135,136,137,138,141|÷118 ON ERROR GOTO 121|*119 DD IF ANY OTHER INPET IGNO D|(120 GOTO 124|?121 DSUME 124|8122 REM DISPLAY SPEEDS ETC.|y123 RE M ———————————————————|v124 ; CUR(0,0) YE L "H/speed" INT(M*10) CUR(0,13) "V/speed " INT(L*10) CUR(0,26) CYA "Score" Rx4125 F5=F5-ABS(M)-ABS(L)|(126 ; CUR(23,0) GR N "Remaining Ships" U CUR(23,20) RDD "Fu el" F5;|<127 RETURN |6128 REM MOVEMENT C ONTROLS|:129 REM —————————————————|<130 M=M-2 : L=L+2 : GOTO 124||131 L=L+2 : GO TO 124|m132 L=L+2 : M=M 0 : GOTO 124||13 3 M=M-2 : GOTO 124|s134 F5=F5-ABS(L)-ABS (M) L=0 : M=0 : GOTO 124|y|
P185 ORACLE 185 Sun20 Jun ITV 1950:00 35819376GFSN0( KLINGON 35819376GFSN0( 66 REM WHICH TYPE OF SPACE SHIP|v67 REM ————————————————————————|-68 ON E2 GOTO 72,245,261,321,324|369 REM E2 $FLLS THE PROGRAM WHICH SHIP TO USE |:70 REM INTER CEPTOR|v71 REM ———————————|(72 X1=N1*.75 *(R1+5)+A : Y1=N1*(R2+5)+A|c73 X2=N1*.75 *(R1-5)+A : Y2=N1*(R2-5)+A|j74 X3=N4*.75 *(R1+2)+A : Y3=N4*(R2+2)+A|i75 X4=N4*.75 *(R1-2)+A : Y4=N4*(R2-2)+A|p76 X5=N2*.75 *(R1+4)+A : Y5=N2*(R2+2)+A|m77 X6=N2*.75 *(R1-4)+A : Y6=N2*(R2-2)+A|t78 X7=N3*.75 *(R1+3)+A : Y7=N3*(R2+1.5)+A|v79 X8=N3*. 75*(R1-3)+A : Y8=N3*(R2-1.5)+A|}80 REM X 1-X8 AND Y1-Y8 ARE CO ORDS OF SHIP|481 F G -1 : FGPOINT 120,120-15 : FGLINE 120,1 20+15,1 : FGPOINT 120-15,120 : FGLINE 12 0+15,120,1|z82 REM DRAW CENTRE TARGET| 8 3 FGPOINT X1,Y1 : FGLINE X1,Y2 : FGLINE X3,Y4 : FGLINE X3,Y3 : FGLINE X1,Y1|?84 REM DRAW INTERCEPTOR|)|