P185 ORACLE 185 Fri25 Dec ITV 2048:37 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 : FGLINE X7,Y7|y88 ON ERROR GOTO 242|d89 REM GOSUB GET CHARACT ER|>90 REM ———————————————————|)91 GOSUB 108|?92 REM GOTO SHIP FI"DLBACK 2OUTIN E |"93 REM ————————————————————————————| ,94 IF T1<20 THEN 188|k95 REM T1IS SIZE OF ENERGY BOLT|z96 IF RND(5)185 |s97 REM RANDOM FIRE CHECK|598 2EM GOTO SHIP FIRE ROUTINE|*99 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)|)109 REM F5 IS AMOUNT OF FUE L|f|
P185 ORACLE 181 Fri25 Dec ITV 2040:04 35819376GFSN0( KLINGON 35819376GFSN0( 135 M=M+2 : GOTO 124|s136 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 CONT OLSGOTO REM SHIP FIRE ROUTINE|v142 REM ———————— —————————|7143 J=J+30 : O=1|b144 REM J I S POSITION OF SHIP FIRE , O IS COUN(BR F OR PROGRAM IF FIRING|'145 FGPOINT 5,0 : FGLINE J,J : FGPOINT 0,1 : 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 E PLODE|q1 49 REM ———————————————————|÷110 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 OUTINEREM FOR K2=0 TO 16|u159 K1(K2)=INT(5*RND)/ 5+1|a160 DDKKIS ANDOMNON
P185 ORACLE 183 Fri25 Dec ITV 2008:04 35819376GFSN0( KLINGON 35819376GFSN0( 66 REM GHICH TYPE OF SPACE SHIP|v67 "@D ————————————————————————|-68 ON E2 GOTO 72,245,261,321,324|369 DD A2 $BLLS THE P2OGRAM WHICH SHIP TO USE |:70 DM INTER CEPTOR|v71 REM ———————————| 72 1=N1*.75 * AYN AXN *(R1-5)+A : Y2=N1*(R2-5)+A|b74 X3=N4*.75 *(R1+2)+A : Y3=N4*(R2+2)+A|i75 X4=N4*.71 *(R1-2)+A : Y4=N4*(R2-2)+A|p76 X5=N2*.75 *( AYNRAXN *( AYNR AXN 75*(R1-3)+A : Y8=N3*(R2-1.5)+A|}80 @M X 1 X8 AND Y1-Y8 ARE CO ORDS OF SHIP|481 F 20£15,1 : FGPOINT 120-11,120 : FGLINE 12 0+15,120,1|z82 REM DRAW CENTRE @RGET| 8 3 FGPOINT X1,Y1 : FGLINE 1,Y2 : FGLINE X3,Y4 : FGLINE X3,Y3 : FGLINE X1,Y1|?84 REM DRAW INTERCEPTOR|)|
P185 ORACLE 185 Fri25 Dec ITV 2009:36 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 "DM START PROGRAM|l52 REM —————————————|g53 A=120 : T=1.5|454 DN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 "DM 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 "FM R1 AND R2 ARE THE FACTORS WHICH A RE ADDED ON TO THE SC JENPOSIHON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 183 Fri25 Dec ITV 2016: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 oncd you will"|a 357 ; : ; CYA "incrdase your h or v spee ds !"|i358 FG -1 : FG 1|?359 FGPOINT 76, 120 : FGLINE 00,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 "P DBS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 DD "INSTRUCTIONS " BLBG|>|
P185 ORACLE 185 Fri25 Dec ITV 2026:07 35819376GFSN0( KLINGON 35819376GFSN0( 336 ; CUR(0,10) GRN NgBG 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) CU2(0,10) GRN NWBG RED "INSTRUC$HONS " 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 Fri25 Dec ITV 2011:05 35819376GFSN0( KLINGON 35819376GFSN0( 110 REM IF OUT OF FUEL THEN END GAME|z11 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 REM IF ANY OTHER INPUT IGNORE|(120 GOTO 124|?121 RESUME 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" R|5125 F5=F5-ABS(M)-ABS(L)|(126 ; CUR(23,0) GR N "Remaining Ships" U CUR(23,20) RED "Fu el" F5;|<127 RETURN |6128 REM MOVEMENT C ONTROLS|:129 DM —————————————————|<130 M=M-2 : L=L+2 : GOTO 124||131 L=L+2 : GO TO 124|m132 L=L+2 : M=M+2 : 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 Fri25 Dec ITV 2026:06 35819376GFSN0( KLINGON 35819376GFSN0( 365 ; : ; CYA " Remember press s pace bar to "|k366 ; : ; CYA "fire. The 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 ; : ; 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 Fri25 Dec ITV 2002:04 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+11*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 Fri25 Dec ITV 2006:04 35819376GFSN0( KLINGON 35819376GFSN0( 1 GRAPHICS |>2 "DD ********************* **********|h3 REM * *|g4 REM * KLINGON WARS *|75 REM * *|i6 REM * by *|e7 REM * *|k8 REM * PETER BULL *|{9 REM * *|m10 REM * of *|*11 REM * *|v12 REM * CARDINAL NEWMAN SCHOOL *|c13 REM * *|x14 REM * Copyright (c) 8/7/81 *||15 REM * *|z16 REM **************************** ***|=17 REM |(18 DIM P1(40),Q1(40),K1(40 ),P2(40),P3(40),Q2(40),Q3(40),A1(40),A2( 40)|,19 REM |*20 REM ASSIGN VALUES FOR S INE AND COSINE|a21 REM ————————————————— ————————————————|c|
P185 ORACLE 185 Fri25 Dec ITV 2044:04 35819376GFSN0( KLINGON 35819376GFSN0( 271 FGPOINT X5,Y5 : FGLINE X6,Y6 : FGLIN E X6,H6 : FGLINE X5,H5 : FGLINE X5,Y5|n2 72 FGPOINT 1,Y1 : FGLINE X6,H6 : FGPOIN T 1,H1 : FGLINE X6,Y6 : FGPOINT X2,Y2 : FGLINE X5,H5 : FGPOINT X2,H2 : FGLINE X 5,Y5<9273 FGPOIN 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 @M SHIP POI NTS|q278 REM ———————————|a279 F1=F1+1 : R=R+10 : D PRN |&280 F2=F2+1 : R=  RETURN |!281 F3=F3+1 : R=R+50 : RETURN |'082 REM NO OF SHIPS/SHEET ROUTINE|£283 DM —————————————————————————|=284 IF F 1<=10 THEN E2=1 ELSE E2=3|÷281 IF F3=E T HEN 313|k286 RE P NTR
P185 ORACLE 185 Fri25 Dec ITV 2039:34 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 187 Fri25 Dec ITV 2052:35 35819376GFSN0( KLINGON 35819376GFSN0( 184 REM ——————————————————————|}185 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,g4|=1 94 ON ERROR GOTO 223|1195 REM GET CHA2AC $FR|l196 REM —————————————| 197 GOSUB 10 8|v198 REM IF LARGE THEN DESTROY OWN SHI P|}199 REM ————————————————————————————— —|£200 IF Z1>18 THEN 226|8201 GOTO 188|) 202 REM INSTRUCTIONS|i203 DM ——|5204 ; CHR$(12)|b205 ; CYA "Do you wa nt instructions "; : GET Z$ : IF Z$="Y" OR Z$="y" THEN 206 ELSE RETURN |k206 ; C HR$(12)|d207 ; CUR(0,10) GRN NWBG RED "I NSTRUCTIONS " BLBG|h|
P185 ORACLE 185 Fri25 Dec ITV 2004:04 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) @D 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*.71*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*.71*.25*A2(H)+A|)331 FGPOINT X2,Y2 : FGLINE 1,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*.71+A,A|&334 GOTO 88|335 ; CHR$(12)|g|
P185 ORACLE 185 Fri25 Dec ITV 2000:04 35819376GFSN0( KLINGON 35819376GFSN0( 264 C4=N1*(100+15*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 : X5=C5*( R1+10*A1(D5))+A : Y5=C5*(R2+4)+A : H5=C5 *(R2-4)+A : D5=D5+1 : 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= *(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*( ADDIFDTHEND 8=0|0269 FG -1 : FGPOINT 120,120-15 : FG LINE 120,120+15,1 : FGPOINT 120-15,120 : FGLINE 120+15,120,1|2270 FGPOINT X1,Y1 : FGLINE X2,Y2 : FGLINE X2,H2 : FGLINE X 1,H1 : FGLINE X1,Y1|e|