しょう。 もちろん、 0 になる と ゲーム 終了です が、 少しで も 死亡 すると 故障 発 ± 率が 増加 します 0 - TORPedo — トー ピード

光子 魚雷の 残り 数です。 ゲーム 開始 時と ベースで 補給した とき は 2 晩になります。 強力な 武器です から、 有効に 使っ てくだ さい。

ゲームの 制限時間で 単位は 宇宙 時間です。 もちろん、 これ も マ イ ナスになる と 惑星 連盟は ク リム ゾンに 占領され、 ゲーム 終了に なって しまいます。 っ

- KUmzon —— クリムゾン

今、 銀河系 内に いる クリムゾンの 数です。 当然 0 になれば、 ェ ン ター ブライズの 勝^です。

•BASE — i-S

銀河系 内に ある ベースの 数を 示して います。 各 ベースでは 一回 ' だけし 力備 給が 受け られ ません。

• CONDinON —— コンデ イシ ヨン' .，

現在の ェ ン タープライ ズの 状況を 示 しています。 通常は“ GREE N" …… グリーン、 戦闘 状態では "RED" …… レツ ド、 ェネルギー が 不足 してく ると" YELLOW" …… イェロー、 ベースの ある クオ ド ラント 内に いる ど‘ BLUE" …… ブル， に それぞれ 変化し ます。 S1SH0RT- RANGE SENSOR …… ショート レ ンジセ ンサー 二れ は、 军, ン ター プライ;^* いる グオ ドラン ト 内の 様子を！®

に _ する: 3 マンドです。 クオ ド ラントは 8X8 の セクタ （座標）

に 区切られ、 ェンタープライズは "E" 、 クリムゾンは“ K" 、 ペースは “B" 、 星は“*" で 示されます 0 [DBREAK DOWN DISPUY …… ブレイク ダウン デ イス プレイ 現在、 故障して いる 装置の 修理に 必要な 時間を 表示し ます。 例 え ば、 "PHASER DOWN (1 .20) " と 表示され たら、 フ ェーザー が 直る までに あと 1. 2 宇宙 時 M かかる という ことを 示します。 イ ンパ ルス ェンジンと ワープ ェンジンは 温度 も 表示され ます。 [SIMPLUSE ENGINE …… イン ノ 、•ル^ 6 ン ジン この ェンジンは、 クオ ドラン ト 内を 移動 するとき 等の セクタ 単

位の 小 移動に 使用し ます。 3

インパルス ェンジンを 起動す ると、 "Course?” と 聞いて きま すので、 進みたい 方向を 角度で 入力 します。 この 角度は 上を 0 度 として 時計回りに 360 度です。 次に、 "Sector ? " と閫 いてき ま す。 これには 移動 距離を 入力し ますが、 この 単位は セクタです。 例えば、 クオ ドラン ト 内の 端から 端まで 進みたい ときには 7 を 入 力して ください。 クオ ド ラントから はみ出 しまったと きには、 隣り の クオ ド ラントに 行きます が、 クオ ド ラント W は 少し 難れ て いるので 時間を 消 資します。 ですから、 他の クオ ド ラントへ 移動 する には ワープ ェンジン を 使用 した 方が 良いで しよう。

進行 方 行に ク リム ゾンや 星が あると ぶつかっ で います。 ま た、 ベース | こ. 卜*. ツ キングす るた めには、 この 方法で 笨ン ター ブラ イ ズを ベースの いる セクタ に 移動して ぐ ださい。

イン ノ マルス ェン ジ ンは 使用す るた びに 温® が 上昇し、 30CTC 以上 になる と オー ハ*— ヒート して 使用 不能に なり ます。

[2WARP ENGINE …… ワープ ェン q ン こ のワ: ープ X ンジ ンは 銀^ 内 を クオ ド ラント 単位で 高速に 移 動す る こと がで きます。 ワープ ェ ン ジン を^) すると、 "Course?"

と 聞いて く るの f v イ ンパル ス年ン ジンと 同様に 角度を 入力し ま す。 次に ''Quod ? " と 聞いて くるので、 移動したい クオ ドラン 卜の 数を 入力し ます。 例えば、 9CT に 1と 入力ず％ と I つ 右の ク オ ドラン トに 行く こと になります。

最後に "Speed ?" と 聞いて きます。 これは ワープ 速度で、,, ネ

ビー ド カ SI ければ 消费 時間が 少なく て 済みます が、 代わり に エネ ルギ ーの 消 費置 が增^ します。 この 範囲は 丨 ~ 15(7) 間です が、 通 常は 2 ~ 4 の 間で 十分です。

ス ピー ド カし 定の 場合は 速く へ 行つ て も、 近く へ 行って も 所要 時間は 同じです 0

この 1 —プ エンジン も 使用 頻度に よって 温度が J^U300 で以 上になる と 使用 不能になります。 しかし、 ワープ エンジン も イン パルス エンジン も 時間と 共に 冷え ますし、 べ^- ス人ド ッ キングす ると たいていの 場合 使用 可 育 I になり ます。

囹 COMPUTER …… コ ン ピュー タ

エン タ ァプライ ズの _ コン ピュ— 夕 44 いろいろ な 装置を 制御

吸^と して、 ク リム ゾンと 戦う にあたって 基本と なる を 解説し ます。 基本と いっても 最も 重要な ことです か につけて ください。 これを マスター すれば、 この ゲニ を 十分に 味わう こと カヾ でき るて う。

と フエ ー ザ ーを 使い分ける

ブライ ズの 兵器には、 光子 魚雷と フ エーザー 砲が あり . 光子 魚雷です が、 これは 一種の ミサイルと 考えられ 夕 — ブライ ズ から 敵に 向かって 一直線に 飛んで 行く の ; 二 いる 敵に 向け 発射す ると、 光子 魚雷は 星に 当たって , また、 発射 角度を 正確に 設定し ない と 速くに いる 敵 り、 当たり ま せん。 しかし、 光子 魚雷は フエ ー ザー砲と

L ニット、 光子 角、 雷 か 3 発 残って いたと い/ ンと 戦って にいって 勝てる わ

でで てく る ハイテク ニックで も 使わない 無駄と いえる でしよう。 判断を 誤って 苦 きには、 もう 遅い のです。

そ； 作ね いうの も、 こちら 側が 弱くな っ クリム ゾンが ワ―プ し て 来て 戦線に 参加 『3 機の クリム ゾンを 相手に 戦って t 功; になって いた。 j という こと も あるので 無駄 だと わかったら 何も 考える ことは いのです。 撤退 も 戦略の 丨 つなので すか

& 編では ク リム ゾンに 勝つ ための テ

エー ザ- 5 包は レーザ-光線 のよ 稍 度が 高い ので、 星の 影に なつ

また、 たと え エネルギーが なく ならな かっ: た としても、 す ぐ 次の クリム ゾンの 攻撃に 耐え られな く なって しまいます。 その上、 敵 力够 数の 場合、 エネルギーは それぞれの 敵に 均等に 分けられて 発 射さ れ てし 秦 いますので、 敵が たく きんい ると き には 効果が 薄く なります。 これを まとめる と、 敵が 多い 場合 や 敵 ま での 閜に障 塞 1 を 使って エネルギーの 浪費を 押さえ、

! うように します。 つまり、 光子 魚雷は

が 無い 場合には、 味 フ エーザー 砲は 補 &

參 敵からの 攻擊を 防く 敵からの 攻擎も 光子 魚雷と フエ ー ザー砲が あり ます。 フエ ー ザ は 前述の通り 確実に 命中す るので 防ぎよう が あり ません。 し か U 光子 魚雷なら かわす 方法が あり ます。 その 第 I の 敵の ミス で 光子 魚雷の 弾道が それて 当たらない 場合です 0 しかし、 これは 滅多にない ことで しょう。 第 2 は 敵の 光子 魚雷が 星に 当たった 場 合です。 第 3 は 敵の 光子 魚雷が 違う 敵に 当たる 場合です。 第 4 は エンター プライ ズか游 動し て 敵の 光子 魚® を かわし た 場合です。

して、 最後は こち らの 光子 魚 蕾 マ •まった 場合です。 それでは、 戦 W

ンノ り レス ン を 使用し て 敵から 見て 星の 影になる 位 置 に 移動 します。 この 移動が 基本 戰 略の カ ギ となります。 つまり、 敵との 位置 関係が 非常に 重要な のです。 こ れで 敵の 光子 魚雷は 星に 当た り， エンタープライズは とりあえず ダメージを 受けません。 しか し、 必ず 星に 当たる とは 限りません し、 星が なくなって しまえば 何にもな りません。 つぎに、 敵* 洗 子 魚雷を 発射した 令、 すぐに 移動して 敵の 光子 魚雷を かわす ことです。 このと き' イン パルス エンジンを 起動す るのに 多少 時間が 必要です から、 ク リム ゾンが あまり 近くに いると 間に合いません。 また、 インパル^ t ン ジン の 進む 角度を あらかじめ 設定して おく と 時間を 節約で きます。 最 後に、 こち らか らも 光子 魚雷を 発射して 敵の 光子 魚雷を 迎擎 しま

すが、 光子 魚雷は I 発に つき •

ごが 直接 ダメージを 受けな く い 她 江 ニッ トの 破壊力が 岁

ま T。 陬の 強？ か 止 嫌に わかれは、 光子 魚 笛 や フエ ーサ ー個を 無 駄 使いせ ずに 済みます。

敵の エネルギーを 知る センサーを 装備して いますが、 ク リム ゾ ンカ 僻に 強 過ぎたり、 弱 過ぎたり した 場合は 未 確認に なって しま います。 では、 確実に 敵の 強さを 知る 方法は ない のか、 というと I つ だけ 方法が あります。

それは、 フエー ザ ー 砲を 発射す る ことです。 フエ ー ザ ー 砲を 発 射す ると、 敵の シール ド エネルギーから ダメージを 計算す る 装 置 を エンタープライズは 装備して います。 そこで、 フエ ー ザー^を 拭 射して みます。 エネルギーは 200 ユニッ ト 程度で 良いで しょう。 各ク リム ゾ ンにフ エーザー 砲を 発射し、 その 残り エネルギーを 表 示して いきます。

參 ベースを 守れ

鍛可系 内には 惑星 連 補給 基地、 っ ま_ ベ— スがい く っか股 営され ており、 エンタープライズは そこ で エネルギーの 補給を 行

図一 4

匱 要な ものと いヌ

戦闘力を もってぃません。.

図 4 のよう に エンタープライズ ¥ 多 リム ゾンの 問に ベースが ある と、 クリム ゾンの 光子 魚雷が ベース に当たって しまし 趨 壊されて しまいます。 また、 誤って こちらの 光子 魚雷が 当たっても 破壊 さ れ ます。 当然、 ベースは 限られた 数し かないめ で 土ン ター プライ ズ にと づ孓、 非常に 大き な ダメージになります。

です か％、 ク リム ヴンと エンタ^ ブライズで ベースを 挟まなぃ よう にしなければ なり ません。

參 シール ド エネルギーの 割合を かける

エネルギーと シール ド エネルギーの 割合は コン ビュー タ によっ て 制御して おり、 ゲーム スター ト 時は 50% に殺定 されて います。 つまり、 エネルギーと シール ド エネルギーは コマン ド 待ちに もど ると き、 っねに 等しくなる ように 賊^され ている のです。 しがし、 敵が 非常に 多ぃ とき や、 エネルギーが 少なく なって しま った とき などは、 シールド エネルギーが 不足して しまい、 敵の 攻擎に 持ち こたえられ なくなって しまいます。 このと き、 シールド エネ ルギ 一の 割合を 增 やすこと によって シール ド エネルギーを 強化す る こ とがで きます。 ただし、 エネルギーと シールド エネルギーは |〇〇 0£& 二^/卜 以上になる と カット されて しまう ので 股定 する 場合に は 注意が 必要です。

籲 エネルギーが 無! く な フ たら ……

どんなに テクニックを 駆使しても、 エネルギーは 少しずっ 滅っ て いきます。 ベースに 行けば 補給で きます が、 ペースに 行く まで の エネルギーを 少し 補給したい とか、 もう ベースが 無くなって し まった というと き には、 ベース 以外の ものから エネルギーを 得る 方法が あります。

まず、 光子 魚雷を エネ ル ギ-に 変換して しまう こと です。 m- 魚雷 I 発から 500 ユニット の エネルギーを 得る こと がで きます。 光子 魚 蕾の 破壤 力は 700 ユニット ですから < I 発 変換す るのに 200 ユニッ トの ロスが 生じる ことになります。

っぎに、 まわり の 星から エネ ルギー を 補給す る ことができます。 もちろ, ん、 ただで 補給で きる わけでは なく、 星から エネルギーを 吸収す るた めの 時間を 消費し ます。 補給され る エネルギーは 時 問 に 比例し ま すが、 星が 多ぃ ほ ど 吸収 効率が 良くな り ま すか fe、 ス ペー ズマ ッブや ロング レンジ センサーで 近く の 星の 多い、 しかも、 クリムゾンの いない クオ ド ラントで 補給す るよう にします。 しか し、 時間を 消費し ますので、 あまり 使う ど 時 IBJ 切れに なって fc ま います。 この 装置を 起動す るのは、 いざと いう It 常時 だけにし ま

謹では、 すべての ク リム ゾンを 倒す ために 必要な テク ニッ クを 説明し ましよう。 しかし、 これを マスター' したから といって、 I。 あとは あなたの 艦長と しての 腕

必ずしも 月 にか か っ_

、にか かってい: るので す。

參 _ を かけろ

ク リム ゾン の攻擎 には一

グンの 攻擊 周期を う まく 利用して 敵に _を かける ことができます。 敵の いる クオ ド ラントに 行く と、 普通は クリム fc に攻擎 してきます。 しかし、 クリム ゾン の攻擊 周期の 汽 •と、 こ ちらから 先に 攻擊を 仕掛ける：: とが あ

もっ と 具体的に 説明 しまし ょう。 敵と の 戦 鬪力资 わる と、 自動 的に 通常の モードに も-どり ます。 このと きから、 約 0.3 宇宙 時間 後に クリムゾンからの 攻撃が あるので す。 て* すから、 すぐ ワープ エンジンを 起動して、 ワーブ 速度を 8 から 12 f らいに 設定し' ク リム ゾン のい る クオ ド ラントに 移動し ます。 ワープ 速度 8 で 移動 するとき の 所用 時間は 0.1 2 宇宙 時閜 ですから、 ワーブ 速度 8 以上 でク リム ゾン のい る クオ ド ラントに 行ぐ と、 こちらから、 先に攻 擊 できる ことになる わけです。

この 奇 期を うま く 使えば、 エンタープライズ カ徘 常に 有利に 戦 うこと がで きます。 なぜならば、 クリム ゾン か*^ 孿 してく る 前に クリムゾンの 強さを 知り、 適当な 所に 移動して から ク リム ゾンと

の 同士討ち

も 光子 魚雷と フエー ザ によ って 攻擊 してきます I くな ってく ると 光子 魚雷を 発射して きます。 クリム D 見境な く エンター ブライズの 方向に 光子 魚雷を 発射 する ので、 その 方向に クリム ゾン がいる： と 、クリム ゾンの 発射し た 光子 魚雷が クリムゾンに 当たって しまいます。 当然、 光子 魚雷 を 当て られ たクリ ムゾン ばダメ ージを 受けます。

たと え ば、 図 >5 のように ク リム ゾン が一 例に 並んで いた としま す。 クリムゾンは 左上に いる 物から 順に 攻擎 してく るので、 まず

m-5

戦える わけで ず か $ クリムゾンの 同;！ クリムゾン も 孕 に 弱く 4 / ンは 前後の 見ぢ

會 同志 肘ち を さそえ。

一番 左の クリム ゾンカ^ •魚雷を 発射 します。 すると、 その 右の クリムゾンに 当たり ダメージを 与え、 弱った ク リム ゾン はさら に 光子 魚雷を 発射 します。 すると、 さ らに 右の クリ ムゾン に 当たり ダメージを 与えます。

この 繰り返しに よって、 連鎖反応 的に クリム ゾンは 同士討ちに よって 破壊され ていく のです。 しかし、 一番 左の ク リム ゾンが 光 子 魚雷を 発射し なければ 何にもな りません。 フ エーザー 砲を 使っ たのでは、 その クリムゾン のみを 攻擊 する ことは 不可能です。 こ の 状態での 得策は、 一度 イ ン パルス エンジンを 使用して 左上へ 移 動し、 — # 左の ク リム ゾン にだけ 適 置の 光子 魚雷を お見舞い する ことです。 そして、 すぐに •もと の 位置に も-どって しまえば 良い の です 0

しかし、 いつも このように ク リム ゾンが 症んで いるとは 限り ま せん 》 夕1 i? 洛ゾン が 比較的ち らばって いると きは、 まず ク リム ゾ ンと クリムゾンの 間に _ します。 そして、 いつでも 移動で きる

1100 CLEAR1000 : C0L0R15 ,1,1

1110 DEFSN6A-Z : DEFINTZ,K,F, I : DEFUSR= A : DI M0X*4 ( 32 ) , OY ン • （ 32 〉 • QX ( 32 ) • QY < 32 > : KEYOFF: S REEN0：UI DTH39 ：FP=1： KL$='KLI MZON _ : E$= • ENTERPR I SE •: GOSUB4350 : GOTO4370 1120 DXJ{=l:DYJi=l:DEFFNR(RN>=INT(RND<l)*RN)+l：DEFFNX(X>=X*16+8：DEFFNY(Y)=Y*16+32 DEFFNE<E)=E/62.5+75

1130 CLS： LOCATE 3,7s PN=50 : PM=300 SPRINT' How Many KLIMZONS ( 30-300 )? ' { ： GOSUB2950 <L=PN：IFKL<30THEN1130ELSELOCATE11,9：PRINTE$+' GO! * : KK=KL

1140 A=RND( -T I ME)： GOSUB3730 : U=KL/ • 8 : W0=W- • 3 : M=430 : E0=50 : MP=0： BA=INT<KL/12)+1 ：D$ ' DESTROYED ! '

1150 RESTORE2940 : FORT= lT08：Q(T)=U：U(T)=U-2.5： RE ADC 车 (T)i FORR= 1 T08 : L ( T , R ) =FNR ( 8 > + 0000: NEXT R,T»K=KL

1160 T=FNR (8)： R=FNR (8)： A=FNR ( 5 > : L=L ( T , R > : I F I NT ( ( L- 1 0000 ) / 100 > +A >9 THEN1 160ELSE I «ATHENA=K

1170 L=L<T,R) s IFINT( (L-10000)/100)+A>9 THEN1160 1180 L(T,R) =L+A*100： K=K-A：IFK >0THEN1 160ELSEFORB=1TOBA

1190 T=FNR (8)s R=FNR (8):1 FVA し < LEFT 车 < R I GHT$( STR$< L(T,R) ) ,2) ,1) ) THEN1190ELSEL < T • R > L(T,R)+10：NEXT

1200 XX=FNR (8)s YY=FNR (8): X=FNR (8): Y=FNR ( 8 〉 ： CLS : GOSUB2570 : L=L(XX,YY): GOSUB1800 : G TO1750

1210 GOSUB 1220:GOTO1350

1220 I FQ ( 4 ) < UTHEN1330ELSES ( X , Y )=1 : LOCATE 3,14sPRINT'l 2 3 4 5 6 7 8' | jF0RT=1T08 LOCATE0,T+14:PRINTSTR$<T) ■: ' ;SPC(15 厂〆

1230 FOR R=1T08 j IFS< T , R )=0THEN1290ELSES=S< T , R ) : LOCATE R*2+l ,T+14: IFS>6THENPRINT

<' ：GOTO1290ELSEIFS<0THEN1280

1240 ONS6OSUB1250 , 1260, 1270, 1280： GOTO1290

1250 IFINT(X+.5)=T AND I NT ( Y+ . 5 ) =RTHENPR I NT ' E 1 J RETURNELSE1280

1300 F0RPT=9T013 s LOCATE0 , PT : PR I NTSPC( 39 ) ; s NEXT s LOCATE0 , 9 : RETURN 1310 LOCATE0 , 10 : PR I NTSPCOl) +CHR 幸 (13): L0CATE3 , 10 : RETURN 1320 LOCATE I NT ( L+ • 5 ) *2+1 , I NT ( S+14 • 5 ) : RETURN

1330 F0RT=1T08 : L0CATE3 , T+14 i PRINT 1 ? ?????? ? ' : NEXT : L0CATEY*2+1 , X+14 ： PR I NT"

1340 PR I NT ： I FA$< > ' r " ANDPN< >0THENPLAY ' o7a4 ' ： PR I NT ' Too BIG ! (MAX'PM" ) ' jPRINTSPC(3 )：G0SUB22ie

1350 FP=45： PM=360S F0RT=1T03 : I FW-U(T )<2. 5THENU(T) =U-2.5

1360 NEXT »E=E+E1:E1=E*E0/100：E=E-E1: GOSUB2210JIFE<0ORM<0ORW<0THEN2620ELSEIFU<U0

THEN I F V >0THEN3050ELSEU0=W- . 3

1370 I F V=0 THENGOSUB20 30ELSE I FC< >5THENGOSUB1960

1380 I FQ ( 4 ) < UTHEN60SUB 1330

1390 IF RND(lX.02+(430-M>/699 THENGOSUB2460 1400 LOCATE0 ,9:1 FKL< 1THEN2660ELSE I F I NKEY$< > ' _THEN1400 1410 GOSUB1300 i PLAY ' vl5o6c24 ' : PR I NT "COMMAND? _ ; : C=5:PC=5 1420 U=U-lE-03: IFU<U0THENIFVTHEN3050ELSEW0=U- . 3

1430 C$= I NKE Y$ i PC=ST I CK ( SK ) : I FSTR I G < SK ) < >0 OR C$=CHR$< 13)THEN1480 ELSE IFPC=0TI ENIFC$=' ■ THEN1420ELSEC=ASC< C$ ) -&H30 ELSEC=C+< PC=7)+< PC=5 )-<PC=3)-(PC=l ) ldd0 GOSUB2210 : U=U- .01: IFU<0THENU=0 : GOTO2620

C く 1 THENC=8ELSE I FC >8THENC= AY* 06V13C64V15 ■: L0CATE9, < ft Y ■ 07C64 ■ : I FQ < C K WTHENT2:

WC )<WTHENT2=C: G6sUB2480:Gof6iib0

3 ONC GOTO 3050,305 0,2120 ,1210 ,2020,1510,1670,1910

し 穿 ぱ はば 涊ば盟 〖N 巧： 盟 益! 组 ⑦忠。 qr()>360t 盟盟 i は1: PM=99:PRINT,SECTC>R?、 •FP=2 = GOSUB29501FP=45!T*=A*!T=VAL(T*) : I

3 U=U-T*.02： E=E-T*3 : W( 3 〉=W( 3 〉-T* • 25 : B1=0 3 IFT>1ANDOMOD45=0ANDOMOD90< >0THENT=T+1

B：IFX>8. 4THENX=1 : L=180： GOTO1620ELSEIFX< . 5

:顒ポ ，遄盅 品; 謚^ ぶ 沿喆が

1 X=INT(X+.5):Y=INT(Y+.5)：S(X,Y)=1:GOTO1210

Z1=T-T1:Z2=0:0=L 心: 1;“：： ル：; 心；:^; INT(Y+.5>

X=X+B : Y=Y-A : GOTO1610

GOSUB2890 ： PRINT' DANGER ! EMERGENCY STOP ! •: GOTO1650

ぽ 益! “啟 だ 说盎盅 ぽ蹯 巧嗌 S0>360THEN13

1 PRINTjPRINT'USE ENERGY IS，T*SE*128, at_,

1 PRINTINT(<1/SE)*100)/100* TIME •: L0CATEY»2+1,X+14:PRINT_ ■

1 S=XsL=Y：GOSUB1770

1 GOSUB1220 : GOSUB2140 : IFQ< 8 KUTHEN1350 IFV>0THEN1950ELSE1350 L(XX,YY)=V*100+H1*10+H

GOSUB2510 : F0RT1=1T0T: XX=XX-B： YY=YY+A： NEXT XX= I NT ( XX+7.5) M0D8+ 1：YY=INT< YY+7.5) M0D8+1 IFL(XX,YY) >9999THENL ( XX , YY ) =L ( XX ， Y Y ) - 10000

k7Li2J；1Y!)iFORT=1TO8sFORR=1TO8{S<T*R)=0{NEXT

S1=INT( L/100) { S2=INT(L/10 )-Sl*10: S3=L-S1*100-S2*10 : V=S1 S< X ， Y )=1 : IFS1=0THEN1850ELSEFORA=1TOS1

00?nextIlsenextR)=RND<1>*RND<1)*3000+999sIFRND<1><,02THENS<t,r>=s<t>^

i 尨; 鼦

V=S1 : H1=S2： H=S3j RETURN

T=FNR (8): R=FNR <8)：IFS<T,R) THEN1880ELSERETURN

品 ぼねば ぽ谍浞 說诺 媼? ^PN=1:PRINT_MMPUTER 」°B?. ! !PM=a^P=2:G0SUB

ONPN6OTO1950, 2000 ,2010, 2070 GOSUB1300jPRINT:PRINT':1 ENERGY OF KLIMZONS"

PRINT: 2 SET SHIELD% ■

PRINT' :3 TORP to ENERGY'

PRINT" :4 GET ENERGY FROM STAR' ： 60 101890

1960 LN=0s F0RT=1T08： F0RR=1T08 •• I FS ( T , R > < 6THEN1990 1970 LOC ATE19 , LN+14 ： PR I NTR ； -T ' • • • • ; :LN=LN+1

1980 I FS < T , R ) >5000ORRND (IX. 03THENPR I NT ' ????': ELSEPR I NT I NT ( S ( T , R > > ,

1990 NEXT： NEXT {RETURN

2000 PN=E0 : PM=75 : GOSUB1300 SPRINT' SHIELDS (1-75) ' ； sGOSUB2950s IFA$= V0RPN>?5THEN 1340ELSEE0=PN： GOTO1350

2010 PN=lsPM=I:GOSUB1300 SPRINT' HOW MANY (500unita/TORP) ? ' ； ： GOSUB2950 : 1 FA$= VO RPN>I THEN1340ELSE I=I-PN： E=E+PN*500 : GOTO 1350 2020 GOSUB2030：GOTO1350

- - ‘4:PRINTSPC(20〉：FORT=1TO8

2050 I FT=60RT=7THENPRI NTUS I NG • ###° C • ; ( UI-UI ( 9 - T)> *10 ; : PR I NT ■

' ；ELSEPRINTSPC<8)

H=0THENPRINT_NO STAR ! •: GOTO1350

2070 IFH=0T.._ - - - - - -

2080 PN=1 : PM=10 : GOSUB1300 SPRINT" HOU MANY TIMES' J ：6OSUB2950 ： IFPN<0ORU<PNORPN>10TH

2090 E=E+PN*64*H : U=U-PN ： PR I NT

2100 PRINT ' CHARGE ENERGY IS 'PN*64*H' UNITS ■: GOTO 1350 2110 PLAY_V1506A2_ t PRINT' OVERHEAT! ! • : GOTO1350 2120 GOSUB2130：GOTO1350 2130 U=U- . 1

2140 IFQ(3XUTHENRETURNELSEF0RT1=XX-1T0XX+1：F0RR1=YY-1T0YY+1：T=T1：R=R1 2150 T=(T1+7)M0D8+1: R=( Rl+7 〉M0D8+1

2190 NEXTRJi,TJJ：GOTO1310 2200 I FT?i=XXANDRJi=YYTHENPR I NT" 0 0 □•い RETURNELSEPRI NTUS I NG •###■; L2 RETURN 2210 S$=STR I NG$ ( 8 , 29 〉 +CHR$ ( 31 ) : I FE >9999THENE=9999ELSE I FE<0THENE=-1 2220 IFE1 >9999THENE 1 =9999ELSE I FE 1 < 0THENE1 =- 1

2230 LOCATE31,0：PRINTUSING' *.EN ####• }E； jPRINTUSINGS$+* ：SH ####'{ E 1 PR I NTUS I NGS$ +■ : KLI ###' }KL； : PRINTUSINGS$+' :CRE ###' ；M;

2240 PR I NTUS I NGS$+ •: T I ME### ■ ; U ; : PR I NTUS I NGS$+ •: TORP ##';I;：PRI NTUS I NGS$+ •: BASE##

r;BA;

2250 LOCATE31,7:IF V< >0 THEN PRINT' RED ' ELSE IF HI THEN PRINT" : -BLUE-' J ELSE PRINT* r 2260 RETURN

2270 G0SUB2386 X TM=FNR (8)： RM=FNR (8) J IFS<TM,RM)< 60RS ( TM , RM ) > 1000ORMD=0THENRETURN 2280 I NTERVALOFF? FX=TM : FY=RM : PUTSPR I TE8 , ( FY*16+8 , FX*16+32 ),8,6： GOSUB4030 : A$=STR$ (RM)+STR$(-TM)+, '+KL$+* '

2290 SM=S(TM,RM) ：S<TM,RM)=0

2300 OM?{=FNR <3)-2: PM《=FNR ( 3 〉 -2 : 1 FOM《=0ANDPM?J=0THEN2300ELSETM=TM+OMV •: RM=RM+PMJi 2310 I FTM< 10RTM >80RRM< 10RRM >8 THEN2340

2320 IFS(TM, RM )THEN2340ELSEFORKM?J=1TO16 ： PUTSPR I TE8 , < FY*16+8+PM《*KM •ィ， FX*16+32+OM5i ,8,6: NEXT

2330 A$=A$+"MOVE ' : XP=RM*16+8 i YP=TM*16+32 : 6OSUB3910 : GOSUB3420 : GOSUB4090 s S< TM , RM ) =SM : I NTERVALON： RETURN

2340 GOSUB3420 : A$=A$+' WARP ! •: GOSUB4090： PLAY _ S7M 500003 C3 ■ .

2350 TM=FNR(8):RM=FNR(8)： I FXX=TM AND Y Y=RMTHEN2350 2360 LM=L(TM,RM)： IFLM<9999THENLM=LM+10000

2370 IFLM>10899THEN2350ELSEV=V-1 : L( TM , RM)=LM+100： I NTERVALON： RETURN 23801 FRND (IX E/99999 !+. 70RV >8THENRETURN

2390 TM=FNR (8)： TM=FNR (8):1 FTM=XXANDRM=YYTHEN2390ELSE I FS ( TM , RM 〉 THENRETURN 2400 IFL(TM.RM) >99990RL (TM.RMX 100THENRETURN 2410 PLAY ■ S7M 699903 A3 ■ : I NTERVALOFF

2420 IFMD=0THENLOCATERM*2+1 , TM+14 {PRINT'K" ELSEXP=RM*16+8: YP=TM*16+32： GOSUB3910 2430 V . . —— 一 - - ——

ELSE IF -GREEN-*;

E<1000 THENPRINT" t* YELLOW

：0 V=V+ls W=W+1 : S ( TM ， RM 〉 =RND(1) *4000+999

2440 L(TM,RM)=L

1eI?sSb?300?Pr|S^$?RETURNT '+KL$+' • +STR*( RM ) +STR*< -TM ) : US，0 i I FMD=1THEN4100EL

!iLI?li^Sf^?^^*<iNI<iy-?iT?2>*i®0>^0®>+，tim.-：IFMDaiTHENGOSUB 4090,1 P!

A=SIN( 0*3. 1416/180): B=C0S(0*3. 1416/180): RETURN

S00 IFY<DYJiTHENUA=-UA

S10 UA=UA/6 : UB=UB/6 : RETURN

S20 GOSUB1300:T$='T110V9O5, jPLAY T 车 ，丁 车 ，丁 车

S^R^^；^li^il^^t^^i^|«^|^^^32R32C2---L1^8^^^R16A32R32A2G8GR

>50 PRINT* " E$ ； D$ : PR I NT : GOTO2720

!a!l0U6Vt?50vl0??Iy!?tl§8^8T8?288rl6rl6°39l6rl6o2sl6rl6o8r8o3°rl6r8'^

>70 G$= ' r 4.04 .Hr-ftr-1 Ar'/lrlr-l A^~a ■

dr8rl6r4drl6r8' 8rl6rl6o3crl6o2c cr8rl6r4crl6r8" J

:o5g«cr^LMPWPp2*Cp!iG1*+G1$+C1*! P3$=M+' f » »e—*2 _ 1 PWYP1* , P2* , P3* : P3$=A$ 巧 ば： ^oU^--r!：0^NTERWL；5G0SUB 2730 IINTERVALON^

1111 5 !ONINTERVAL=5GOSUB2730：INTERVALON

IHSntSE も

ip t*.t*,t*

2770 T$='S12M 600051120 L4' : PLAYT 车 ,T$,T わ PLAY.C+. , _G. ， _B_

2790 REM

2800 SOUND7,0 {SOUND 8，15

r® > ?RNDa 1STEP10 s SOUND0,SO{ S0UND6» INT(S0/8)+l: IFUS=1THENPUTSPRITE1 , (EXSS.E

N|^S0UND7 , &HF8： SOUND8 , 0 * IFUS=1THENPUTSPR ITE1,<EXJS ,EY^),15,1 >840 REM

2950 IFSTRIG(SK)THEN2950

2960 PK$=" • : PX=POS < 0 ) s PY=CSRL I N s P I =1 ： PLAY * V1505C6406C64 ' : PU=0 2970 LOCATEPX ,PY：I FPN く 0THENPR I NT • QU I T • ELSEPR I NT I NT ( PN ) ; • '

2980 PS=ST ICK(SK): I FSTR IGtSKX >0ORPK$=CHR$ (13) THEN3040

2990 PK$=INKEY$：IF PK$>='0 * ANDPK$< = '9, THEN PN=PN*PU ： PU=1 ： PK=VAL < PK$ ) : PN= I NT < PN ) * 10+PK : I FPN >999THENPN=VAL(RI GHT$ ( STR$ (PN),3))

3000 I FPK$=，-' THENPN=0ELSEI FPK$='Q, ORPK$= • q _ THENPN=-1 : GOTO 304.0

3010 IF PS=0THEN PI=l:GOTO 2970 ELSE S0UND8, 13:F0RPT=1T0 30/PI: S0UND8 , 0 : NEXT : SOU

MD8,0：IF PS=1THENPN=PN+PI :PI=PI+PI/8 ELSE IF PS=5 THEN PN=PN-PI ：PI=PI+PI/8 ELSE

3050 PLAY _S10M 80006 C2_ , ^+2* : SCREEN 2,2: C0L0R1 , 5 , 9 ： CLS s GOSUB2500 : F0RT=1T06 ： SPR I T E$(T)=S$(T)： NEXT: OX《=204 : 0Y?J=152： W=V : MD=1： P=100 3060 FC=C : I FC く 10RC >4THENFC=1

3070 L I NE ( 0 , 192-9 )-(255,192) ,15, BFi CLOSE： OPEN 'GRP : ' AS#1 ：LINE( 10 ,3)-( 247,32) , 15,B

- s XP=20 s YP=184 : C0L0R8 : GOSUB4080 ： PR I NT#1 , ' - FIGHT MODE - ' : C0L0R1

3080 XP=18sYP=5 : GOSUB4080 ： PR I NT#1 , ' ENERGY s * ： YP=14：GOSUB4080 ；PRINT#1 , 'SHIELD： ' ：Y 3=23:GOSUB4080:PRINT#1, • POWER

3090 DR$='C8BM=XP? ,=YP；BD2BF7BGR5EU2E2L4G4L2U2L3GDFR5F2R4H2, : IFQ(4XUITHENSD=1ELS il00 LINE( 165, 48)-(243, 103), 14, BF: COLOR 1： XP=170： YP=51s 6OSUB4080 ：PRINT#1, ' *COMMAN

_ _ _ -< 243 , 103 ) , 14 , BF t C0L0R1 : XP=170 : YP=51 : 6OSUB4080 : PRINT#1 , 1 JtCOMMAN

XP=178：YP=62： 6OSUB4080 i PRINT#!,'- TORPEDO •: YP=71： GOSUB4080 : PRINT#1 , ■ • PHASER'： VP=80 : GOSUB4080 ：PRINT#1, ' - MOVE ■: YP=89 : GOSUB4080 ：PRINT#1 , 1 • EXIT '

3110 EX《=Y*16+8:EY《=X*16+32: PUTSPRITE1 , (EXV”EY?0 , 15, 1

3120 LINE(22*8, 125)-(29*8, 179), 15, BF：CIRCLE(204, 152), 20, 1:PAINT(204, 152), 1,1 3130 GOSUB 3770 { PUTSPR I TE2 , ( 204-8, 152-9 ),10, It 0=FC <FC>： 6OSUB3860 3148 I FSD=1THEN3200ELSECOLOR15 S XP=30 : YP=38 : GOSUB4080 : PRINT#1 , ' 1 2 3 4 5 6 7 8'：F DRT=1T08： XP=3： YP=T*16+36： GOSUB4080 :PRINT#1,T： F0RR=1T08 : IFS( T , R)=0THEN3190 3150 B=S( T , R ) : XP=R*16+8： YP=T*16+32

3200 GOSUB3700： INTERVAL OFF： ON INTERVAL=12 GOSUB 3990 S INTERVAL ON： ON STRI660SUB4 3 60 , 4060 , 40 60 J STR I G ( SK ) ON ： I S=- 1

3210 GOSUB 4140 ； GOSUB2270 : COLOR , , FC+7 1 IFV=0ANDW< >0THEN3680 3220 IFE<0ORM<0ORW<0THEN3690

3230 IFISTHEN3210ELSE STR I (3 (SK) OFF: INTERVAL OFF : ON I NTERVAL=9999GOSUB4130 ： US=0 : GO SUB3370

3240 I F ( FC く 3ANDQ (FCXU)OR< FC=3ANDQ (6XU) THENT2=FC- (FC=3)*3： 6OSUB2480 : GOTO3200 3250 FC=F0 tONFCGOT 03260 , 3440, 3490, 3680

3260 COLORlsIF I<1 THEN A$=_ NO TORPEDO ! ' s GOSUB4090 : GOTO3200 3270 IF JF5i=l THEN 3200

3280 CNJ{=0 : JX=X: JY=Y : JObFC (1)： 0=J0? JF*4=1 : GOSUB2520 : JA=A/3： JB=B/3 : PLAY • 06A64'

3290 I=I-1:A$=* TORPEDO LEFT: ，+STR$< I ) :GOSUB 4090 3300 GOTO 3200

3310 JX= JX- JB : JY= JY+ J A 1 1 F JX >8 . 40R J Y >8 . 40R JX< .50RJY< .5THEN3360 3320 PUTSPR ITE4,( FNX < JY> ,FNY( JX) ) , CN2M0D13+2 , 3+FPM0D2： FP=FP+1： CN5{=CNJi+2 3330 IF ABS(UX-JXX.2 AND ABS(UY-JY) <.2AND UF?{=1 THEN US=0 ：GOSUB2790 ：GOS GOSUB3390 : UFJJ=0 i GOTO3360

3340 IFS< INK JX+.5) , INK JY+.5) )<2 THENRETURN ELSEJF5{=0

3940 FX=UX：FY=UY

3950 GOSUB 2760 s GOSUB3980 : A$=STR$ < FY ) +STR$ C -FX ) + ' *+KL$

3960 S( FX , FY )=S< FX , FY >-P2 s IFS( FX , FY X 6THENS (FX,FY)=0： V=V-1： KL=KL-1 : A$=A$+D$: GOS 2790 : GOSUB4030ELSEA$=A$+ ' DAMAGE! 1 +STR$( INT(S<FX,FY) ) )+' LEFT'

970 GOTO 4090

980 FORZO=1TO30 : PUTSPRITE8 , ( FY*16+8, FX*16+32 ),RND<1 ) *14+2 , 6 : NEXT： GOTO3420

990 ST2=STICK(SK〉：IFST?{=10RSTJJ=5 THEN GOSUB4040 : FC= < FC- ( ST4=5 ) + ( ST?i=l > +3 ) M0D4-*

GOSUB3830

000 IF JF^=1THENGOSUB3310 010 IF UF《=1THENGOSUB4250 020 PUTSPRI TE3 ,(167, 51+FC*9 >,12,2： GOTO 3810

030 LINE( FV*16+8, FX*16+32)-< FY*16+23, FX*16+47 ),1-( SD=1 )*7, BF: RETURN 040 SOUND0 , 30 : SOUNOl , 0 : S0UND8 , 15 050 SOUND8,0 {RETURN 4060 IS=0：F0=FC

4070 SOUND4.40: SOUNDS, 0s SOUND10.15： F0RS0=1T02： NEXT： SOUND10.0： RETURN

0 IS=0sF0=FC 0 SOUND4,40:SOUND5,0:SOl 0 PSET(XP,YP),POINT(XPO 0 I FUS=0THEN I NTERVALOFF 0 LINE(255,191)-(0,192-< 0 COLORl：PSET(l, 192-8

4110 COLOR 1 : PSET(1, 192-8 ),15： PRINT 轉 1 , A 车 4120 IFUS< >0THENRETURNELSE INTERVAL ON: RETURN 4130 RETURN

4140 I FF3= 1 ANDUF?J = 1 THEN6OSUB4250 4150 IFF3=1ANDJFJ4=1THEN6OSUB3310

4160 DXJJ=DX?J+1 J IFDX?{>8THENDXJS=1： DY?J=DY?{+1： IFDY?i>8THENDYJ{=l s W0=U-.3： U=W-.l 4170 IF S(DXJ{,DY?{)<6 THENRETURN

4180 S1=S(DX?{,DYJ{)：IFS1<30THENRETURNELSES1=S1/<RND<1 )*6+4 )：S<DXJ{,DYJi)=S<DXJ{,DY!! -S1：IFS1<150THEN4230

4190 D1^=DY? {: D2?{=DXJ {: D3^=EX5{+8： D4J{=EYJJ+8： COLORlsLI NE( FNX ( D1 JO +8 , FNY< D2% )+8)-(EX +8,EY?i+8),8:US=0

4200 GOSUB4330： GOSUB 2740 ：A$=' HIT 1 +STR$ < DY ) +STR$ < -DXJ{ ) + ' ,+KL$+" ,+STR$(INT( DJ + 'units' : GOSUB4090 : US=0

4210 LINE(FNX<DUO+8»F(NY<D2J5)+8)-CD3JS,D4J5>il-<SD=l)t7

RETURN

4250 UX=UX+UB : UY=UY+UAjI FUX >8 • 40RUY >8 ♦ 40RUX< . 50RUY< . 5THEN4310

4260 PUTSPR I TE5 , ( FNX < UY ) , FNY < UX ) ) , 1 1 , 3+FTM0D2： FT=FT+1

4270 I FABS ( UX-XX. 5ANDABS ( UY-YX. 5THENUS=1 : GOTO4290

4280 I FS ( I NT ( UX+ . 5 〉 ， I NT ( U Y+ • 5 〉 ） く 2 THENRETURNELSEUS=S (UX+.5.UY+.5)

4320 GOSUB2790 i Sl=700 i A$= ' HIT ,+KL$+, TORP DAMAGE 79Qun i t ' : GOSUB4100 : GOSUB4330 SOSUB3710： RETURN

4330 E1=E1-S1 : IFE1<0THENE=E+E1 ：E1=0 5ELSERETURN

1340 A$=' SHIELD OVER ! ' : GOSUB4090 : GOSUB2790 s M0=FNR < 20 ) ： M=M-M0 : A$=STR$ < M0 ) + ' KIL

ED! C +STR$ ( M ) + • LEFT 〉■ : GOSUB4090 : 1 FRND (IX. 2THENRETURNELSE2460

4350 RESTORE4670 : F0RZ=1T06 ：S$="j F0RT=1T032： READA$： S$=S$+CHR$ ( VAL( ,&H'+A$) )

4360 NEXT ：S$(Z)=S$： NEXT： I FPEEK (-2^15) =65THENA=USR ( 0 )ELSERETURN