２０１３．４．２１
前へ
次へ
ホームページトップへ戻る

復活！ＣＰ／Ｍ　ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！

［第３７６回］


●ＳＴＡＲＴＲＥＫ完全記録

本日も１日中ＣＰ／Ｍ互換ＤＯＳのプログラム完成に向けて作業をしておりました。
少し進みましたが、まだもうすこしかかりそうです。
４日ほど前のことになりますが、毎日説明書作業やプログラムの修正作業をやっておりますと、たまには少しばかり息抜きをしたくなってきます。
それで。
おお、そうだ。
こんなときには、ちょっとＳＴＡＲＴＲＥＫをやってみましょう。
ということで、やり始めましたら、なんと。
ミッションをクリアしてしまいました。
途中でとんでもないおばかなミスをやってしまったものですから、クリアするまでにえらく遠回りをしてしまいましたが、それでもスタートからミッションをクリアするまでの完全な記録が取れましたので、ちょっとボリュームがありますけれど、参考までに全部掲載することにいたしました。
なお、これはＭＢＡＳＩＣ版ではなくてＺＢ３ＢＡＳＩＣ版（［第３６７回］のリスト）を、Ｗｉｎｄｏｗｓ９８ＳＥに接続したＮＤ８０ＺⅢ＋増設メモリボードで実行したものです。

プログラムをロード後、ＲＵＮコマンドで実行開始です。
ＺＢ３ＢＡＳＩＣは命令の省略形が使えます。Ｒ．はＲＵＮの省略形です。

>r.






                    THE USS ENTERPRISE --- NCC-1701

                   ,------*------,
   ,-------------   '---  ------'
    '-------- --'      / /
        ,---' '-------/ /--,
         '----------------'


                     ,------*------,
     ,-------------   '---  ------'
      '-------- --'      / /
          ,---' '-------/ /--,
           '----------------'


                       ,------*------,
       ,-------------   '---  ------'
        '-------- --'      / /
            ,---' '-------/ /--,
             '----------------'


                         ,------*------,
         ,-------------   '---  ------'
          '-------- --'      / /
              ,---' '-------/ /--,
               '----------------'


                           ,------*------,
           ,-------------   '---  ------'
            '-------- --'      / /
                ,---' '-------/ /--,
                 '----------------'


                             ,------*------,
             ,-------------   '---  ------'
              '-------- --'      / /
                  ,---' '-------/ /--,
                   '----------------'


                               ,------*------,
               ,-------------   '---  ------'
                '-------- --'      / /
                    ,---' '-------/ /--,
                     '----------------'


                                 ,------*------,
                 ,-------------   '---  ------'
                  '-------- --'      / /
                      ,---' '-------/ /--,
                       '----------------'


                                   ,------*------,
                   ,-------------   '---  ------'
                    '-------- --'      / /
                        ,---' '-------/ /--,
                         '----------------'


                                     ,------*------,
                     ,-------------   '---  ------'
                      '-------- --'      / /
                          ,---' '-------/ /--,
                           '----------------'


                                       ,------*------,
                       ,-------------   '---  ------'
                        '-------- --'      / /
                            ,---' '-------/ /--,
                             '----------------'


                                         ,------*------,
                         ,-------------   '---  ------'
                          '-------- --'      / /
                              ,---' '-------/ /--,
                               '----------------'


                                           ,------*------,
                           ,-------------   '---  ------'
                            '-------- --'      / /
                                ,---' '-------/ /--,
                                 '----------------'


                                             ,------*------,
                             ,-------------   '---  ------'
                              '-------- --'      / /
                                  ,---' '-------/ /--,
                                   '----------------'


                                               ,------*------,
                               ,-------------   '---  ------'
                                '-------- --'      / /
                                    ,---' '-------/ /--,
                                     '----------------'


                                                 ,------*------,
                                 ,-------------   '---  ------'
                                  '-------- --'      / /
                                      ,---' '-------/ /--,
                                       '----------------'


                                                   ,------*------,
                                   ,-------------   '---  ------'
                                    '-------- --'      / /
                                        ,---' '-------/ /--,
                                         '----------------'


                                                     ,------*------,
                                     ,-------------   '---  ------'
                                      '-------- --'      / /
                                          ,---' '-------/ /--,
                                           '----------------'


                                                       ,------*------,
                                       ,-------------   '---  ------'
                                        '-------- --'      / /
                                            ,---' '-------/ /--,
                                             '----------------'


                                                         ,------*------,
                                         ,-------------   '---  ------'
                                          '-------- --'      / /
                                              ,---' '-------/ /--,
                                               '----------------'







YOUR ORDERS ARE AS FOLLOWS:
--------------------------
   DESTROY THE 16 KLINGON WARSHIPS WHICH HAVE INVADED
   THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS.
THIS GIVES YOU 34 DAYS. THERE  IS 
  1 STARBASE  IN THE GALAXY FOR RESUPPLYING YOUR SHIP.

ARE YOU READY TO ACCEPT COMMAND ('N' FOR INSTRUCTIONS)?y

YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'SIRIUS II'.

   +--1---2---3---4---5---6---7---8-+
 1 |  *                             | 1        STARDATE          2500.0
 2 |                              * | 2        CONDITION          GREEN
 3 |                                | 3        QUADRANT           1,6
 4 |                              * | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES     10
 6 |                                | 6        TOTAL ENERGY       3000
 7 |                                | 7        SHIELDS               0
 8 |  *                            >| 8        KLINGONS REMAINING   16
   +--1---2---3---4---5---6---7---8-+

小宇宙（ＱＵＡＤＲＡＮＴ　１，６）からのスタートです。
銀河全体に敵（ＫＬＩＮＧＯＮ戦艦）は１６艦存在します。
それを撃破するのが今回のミッションです。

８×８あるＱＵＡＤＲＡＮＴのうちで、（１，６）は上の端ですから、ＬＲＳでスキャンするために１つ下に移動します（このままだと３×３個のスキャンのうち上３個が無駄になってしまいます）。
ＮＡＶで方向７、ワープ距離１を指令しました。
COMMAND?NAV

COURSE (0-9)?7
WARP FACTOR (0-8)?1


NOW ENTERING DENEB II QUADRANT . . .

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2501.0
 2 |                                | 2        CONDITION          GREEN
 3 |                                | 3        QUADRANT           2,6
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES     10
 6 |                  *             | 6        TOTAL ENERGY       2982
 7 |                                | 7        SHIELDS               0
 8 |          *                    >| 8        KLINGONS REMAINING   16
   +--1---2---3---4---5---6---7---8-+

COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 2,6

-------------------
| 001 | 004 | 006 |
-------------------
| 103 | 002 | 002 |
-------------------
| 003 | 005 | 005 |
-------------------

COMMAND?SHE

ENERGY AVAILABLE =2982NUMBER OF UNITS TO SHIELDS?1000
DEFLECTOR CONTROL ROOM:
  'SHIELDS NOW AT1000UNITS PER YOUR COMMAND.'

ＱＵＡＤＲＡＮＴ（２，６）に移動しました。
ＬＲＳでスキャンしました。
おお。左のＱＵＡＤＲＡＮＴ（２，５）に敵がいます（数値の１００の位が敵の数です）。
ワープしたときに変なところに敵がいてぶつかってしまってもまずいですから、先にＳＨＥでシールドをしました。
エネルギーはどれぐらいがよいのかわかりませんが、［第３６６回］でご紹介しました「ＢＡＳＩＣ　ＣＯＭＰＵＴＥＲ　ＧＡＭＥＳ」のｓａｍｐｌｅ　ｒｕｎを見ますとかなり大きな値を設定していますから、ここは気張って１０００単位を指令しました。

ＮＡＶで方向５、ワープ距離１を指令しました。
敵は座標（８，７）にいました。
当艦は（５，６）てす。
ということは、下に３、右に１ですから、方向は７．３３３３３です。
方向の算出法は［第３７０回］を参照してください。
ＴＯＲで光子魚雷発射です。

COMMAND?NAV

COURSE (0-9)?5
WARP FACTOR (0-8)?1


NOW ENTERING DENEB I QUADRANT . . .

     COMBAT AREA      CONDITION RED  

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2502.0
 2 |                                | 2        CONDITION          *RED*
 3 |                                | 3        QUADRANT           2,5
 4 |                                | 4        SECTOR             5,6
 5 |                  *  <E>        | 5        PHOTON TORPEDOES     10
 6 |                              * | 6        TOTAL ENERGY       2964
 7 |          *                     | 7        SHIELDS            1000
 8 |                         +K+   >| 8        KLINGONS REMAINING   16
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?7.33333
TORPEDO TRACK:
               6,6
               7,7
               8,7

*** KLINGON DESTROYED ***


COMMAND?NAV

COURSE (0-9)?7
WARP FACTOR (0-8)?2


NOW ENTERING BETELGEUSE I QUADRANT . . .

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2503.0
 2 |  *                             | 2        CONDITION          GREEN
 3 |                  *             | 3        QUADRANT           4,5
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      9
 6 |                                | 6        TOTAL ENERGY       2936
 7 |          *                     | 7        SHIELDS            1000
 8 |                               >| 8        KLINGONS REMAINING   15
   +--1---2---3---4---5---6---7---8-+

COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 4,5

-------------------
| 004 | 003 | 005 |
-------------------
| 002 | 003 | 003 |
-------------------
| 005 | 007 | 104 |
-------------------
敵（ＫＬＩＮＧＯＮ）を破壊しました。
またＬＲＳでスキャンするため下に２つ移動しました。
ＱＵＡＤＲＡＮＴ（２，５）から（４，５）へ移動です。
敵の残りは１５艦です。
ＬＲＳでスキャンしました。
お。
右下（ということはＱＵＡＤＲＡＮＴ（５，６））に敵です。

ここで今までのＬＲＳ情報を確認するため、ＣＯＭコマンドで０を指定しました。
過去のセンサーのデータが全て得られます。

COMMAND?COM

COMPUTER ACTIVE AND AWAITING COMMAND?0


       COMPUTER RECORD OF GALAXY FOR QUADRANT4,5

       1     2     3     4     5     6     7     8
    +-----+-----+-----+-----+-----+-----+-----+-----+
1 | *** | *** | *** | *** | 001 | 004 | 006 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
2 | *** | *** | *** | *** | 003 | 002 | 002 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
3 | *** | *** | *** | 004 | 003 | 005 | 005 | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
4 | *** | *** | *** | 002 | 003 | 003 | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
5 | *** | *** | *** | 005 | 007 | 104 | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
6 | *** | *** | *** | *** | *** | *** | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
7 | *** | *** | *** | *** | *** | *** | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+
8 | *** | *** | *** | *** | *** | *** | *** | *** |
    +-----+-----+-----+-----+-----+-----+-----+-----+


COMMAND?NAV

COURSE (0-9)?8
WARP FACTOR (0-8)?1

DAMAGE CONTROL REPORT:  DAMAGE CONTROL STATE OF REPAIR IMPROVED


NOW ENTERING ALDEBARAN II QUADRANT . . .

     COMBAT AREA      CONDITION RED  

   +--1---2---3---4---5---6---7---8-+
 1 |      *               *         | 1        STARDATE          2504.0
 2 |      *                         | 2        CONDITION          *RED*
 3 |                                | 3        QUADRANT           5,6
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      9
 6 |     +K+  *                     | 6        TOTAL ENERGY       2918
 7 |                                | 7        SHIELDS            1000
 8 |                               >| 8        KLINGONS REMAINING   15
   +--1---2---3---4---5---6---7---8-+

うむむ。
表示桁が１つずれていますねえ。
後で直しておきましょう。
それでは。
右下へワープです。
ＮＡＶで方向８、距離１を指令しました。
ＱＵＡＤＲＡＮＴ（５，６）に移動しました。
斜めに移動するときは、ワープ距離は１．４１４かと思っていたのですが…。
どうやらそういうことではないようです。
斜め方向でも、１つ移動するなら距離は１でよいようです。
その証拠に移動前と移動後でＱＵＡＤＲＡＮＴ内の座標は同じです。
さて。
敵がいますが、ちょっと星（＊）が邪魔です。
こういうときは…。

超強力武器フェイザー砲です。
宇宙戦艦ヤマトの波動砲のようなものでしょうかねえ。
ＰＨＡを指令しました。
エネルギーはどの程度必要かわかりません。
ためしに５０単位だけでやってみましたが、全然足りませんでした。
そこでもう一度同じく５０単位でＰＨＡを指令しました。
おお。
今度は破壊できました。

COMMAND?PHA

PHASERS LOCKED ON TARGET;  ENERGY AVAILABLE =1918UNITS
NUMBER OF UNITS TO FIRE?50
SENSORS SHOW NO DAMAGE TO ENEMY AT 6,2.

140UNIT HIT ON ENTERPRISE FROM SECTOR6,2.
      <SHIELDS DOWN TO860UNITS>
DAMAGE CONTROL: 'SHIELD CONTROL DAMAGED BY THE HIT'

COMMAND?PHA

PHASERS LOCKED ON TARGET;  ENERGY AVAILABLE =1868UNITS
NUMBER OF UNITS TO FIRE?50
16UNIT HIT ON KLINGON AT SECTOR6,2.
*** KLINGON DESTROYED ***


COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 5,6

-------------------
| 003 | 003 | 002 |
-------------------
| 007 | 004 | 104 |
-------------------
| 003 | 103 | 202 |
-------------------


もう一度ＬＲＳで広域センサーしました。
うわあ。
今度は右に１、下に１、右下に２の敵がいます。

そこで、まずは下（６，６）に移動して、１艦を破壊しました。
次に右（６，７）に移動して、そこでも１艦を破壊しました。

COMMAND?NAV

COURSE (0-9)?7
WARP FACTOR (0-8)?1

DAMAGE CONTROL REPORT:          SHIELD CONTROL REPAIR COMPLETED.

NOW ENTERING REGULUS II QUADRANT . . .

     COMBAT AREA      CONDITION RED  

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2505.0
 2 |                                | 2        CONDITION          *RED*
 3 |  *          +K+                | 3        QUADRANT           6,6
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      9
 6 |          *                     | 6        TOTAL ENERGY       2660
 7 |                                | 7        SHIELDS             860
 8 |  *                            >| 8        KLINGONS REMAINING   14
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?4
TORPEDO TRACK:
               4,5
               3,4

*** KLINGON DESTROYED ***


COMMAND?NAV

COURSE (0-9)?1
WARP FACTOR (0-8)?1


NOW ENTERING REGULUS III QUADRANT . . .

     COMBAT AREA      CONDITION RED  

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2506.0
 2 |                                | 2        CONDITION          *RED*
 3 |                                | 3        QUADRANT           6,7
 4 |                                | 4        SECTOR             5,6
 5 |                     <E> +K+    | 5        PHOTON TORPEDOES      8
 6 |                                | 6        TOTAL ENERGY       2640
 7 |  *                             | 7        SHIELDS             860
 8 |         +K+              *    >| 8        KLINGONS REMAINING   13
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?1
TORPEDO TRACK:
               5,7

*** KLINGON DESTROYED ***


77UNIT HIT ON ENTERPRISE FROM SECTOR8,3.
      <SHIELDS DOWN TO783UNITS>

COMMAND?NAV

COURSE (0-9)?3
WARP FACTOR (0-8)?1


24UNIT HIT ON ENTERPRISE FROM SECTOR2,7.
      <SHIELDS DOWN TO759UNITS>
DAMAGE CONTROL: 'SHIELD CONTROL DAMAGED BY THE HIT'
DAMAGE CONTROL REPORT:          SHIELD CONTROL REPAIR COMPLETED.
DAMAGE CONTROL REPORT:  LIBRARY-COMPUTER DAMAGED


NOW ENTERING ALDEBARAN III QUADRANT . . .

     COMBAT AREA      CONDITION RED  

   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2507.0
 2 |                          *     | 2        CONDITION          *RED*
 3 |                          *     | 3        QUADRANT           5,7
 4 |                         +K+    | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      7
 6 |                                | 6        TOTAL ENERGY       2519
 7 |                          *     | 7        SHIELDS             759
 8 |                  *            >| 8        KLINGONS REMAINING   12
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?2
TORPEDO TRACK:
               4,7

*** KLINGON DESTROYED ***

あれ？
まだもう１艦残っているのに上（５，７）へ移動してしまいましたよ。
ここでも１艦撃破です。

ＬＲＳで広域センサーをして、１艦残してきたことにやっと気が付きました。
そこでまた下に戻ってそこで１艦撃破しました。

COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 5,7

-------------------
| 003 | 002 | 002 |
-------------------
| 004 | 004 | 004 |
-------------------
| 003 | 102 | 003 |
-------------------

COMMAND?NAV

COURSE (0-9)?7
WARP FACTOR (0-8)?1


NOW ENTERING REGULUS III QUADRANT . . .

     COMBAT AREA      CONDITION RED  
   +--1---2---3---4---5---6---7---8-+
 1 |                                | 1        STARDATE          2508.0
 2 |                              * | 2        CONDITION          *RED*
 3 |                                | 3        QUADRANT           6,7
 4 |                                | 4        SECTOR             5,6
 5 |                     <E>        | 5        PHOTON TORPEDOES      6
 6 |                                | 6        TOTAL ENERGY       2499
 7 |     +K+                  *     | 7        SHIELDS             759
 8 |                               >| 8        KLINGONS REMAINING   11
   +--1---2---3---4---5---6---7---8-+

COMMAND?TOR

PHOTON TORPEDO COURSE (1-9)?5.5
TORPEDO TRACK:
               6,5
               6,4
               7,3
               7,2

*** KLINGON DESTROYED ***


COMMAND?LRS

LONG RANGE SCAN FOR QUADRANT 6,7

-------------------
| 004 | 004 | 004 |
-------------------
| 003 | 002 | 003 |
-------------------
| 003 | 004 | 002 |
-------------------

COMMAND?COM

COMPUTER DISABLED.

もう一度ＬＲＳでスキャンしました。
周りに敵はいなくなりました。
でもまだどこかに１０艦残っているはずです。
情報を確認しておこうと思ってＣＯＭコマンドを指令しましたら。
コンピュータがダウンですと。
うむむ。

本日は時間がなくなってしまいました。
この続きは次回にいたします。

ワンボードマイコンでＣＰ／Ｍを！［第３７６回］
２０１３．４．２１ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る