ISSN 0910-7614

MZ, ЖЛ = ボケ コン シリ

ソコ ERSONAL OMPUTER IAGAZINE

= ЕЕ е; ЫБ» Ри, x атс: DNE S ^ AUG. 1985 = Wl А / 定価 480

HF 6 O #F 6 A 2 4H

受験 忘れ 青春 3 こう ! и

Tei (o = 7 ジマ ーー

主催 高校 生徒 山田

生徒 主催 よる 恒例 サマ ンズ 黒潮 躍る 南紀 開催 ます 合間 養う 3 g 2k 8] > 2 SESA O b. 2 . 32: 6 A Š = XZ > E [s p < @ £$ = СЗ. БАКУ КИ ФЬЛ A AK 309 5 TE). КАТЕ L 2 k OG Wa. темы. Q. ГЬ = spa < ЕЕ,

Eod od +++ $ $ £ KE GRO £ ЕВ ЖЖ キキ $u ck Gk ЖЖ Gk o

BHIH = 2H 和歌 山県 勝浦 ナチ ビー ナチ 8 1 ・2 勝浦 商業 高校 特設 宿舎 8 FB Кїн (TE) 120 (予定 )

宿

指導 担当 北田 正史 先生 AGHM SALE = ЕЖ

父兄 代表 村田 WHKIEK Е | イベ ント 幹事 [AMEE Hu

つい ホー ムル 配布 ます

案内 ぎら レボ 手紙 美しい 文書 すれ 説得 力も 違っ きま MZ-1500 ROM* 辞書 ROM*、 プリ ンタ * つない ワー プロ ソフ 走ら せれ ホー 登場 カラ ンタ MZ-1P17 、24 美しい 文書 イン パク ある カラ * ……。 キャ ラク 使っ ちょ 引く 絵入り 文書 、BASIC 使っ グラ フィ ハガキ Е, 達する ほど 応用 範囲 多種 多彩 あな ワー プロ 遊び

オプ ショ

28 J^ NS

pt T.

р

watt EFE y FIER RRC FIN

FEIERS ^ カラ リン 登場

of x< J “Е

ラー 漢字 サー マル プリ ンタ MZ-1P17… 価格 79,800 < 特長 >@ ラフ 威力 発揮 する 7 ラー 印字 @ 語文 つく れる 24 X24 ドッ 品位 漢字 印字 өз 転写 感熱 よる 印字 パイ 90 / 漢字 60 / (ドラ フト モード ) 高速 印字 MZ リー 、X1 リー 対応 JIS 1 水準 漢字 標準 装備 印字 効果 多彩 文字 出し 効果 倍角 印字 ・4 置場 困ら クト 設計

CU-14F 1B

Өм2-1500 ワー プロ シス テム シス テム 標準 価格 284.000 バー ソナ ルコ ンピュータ MZ-1500 標準 価格 89,800

AMZ-1500

14 カラー ディス プレ CU-14F1B 標準 価格 64,800 バー ソナ ルコ ンピュータ

漢字 ROM MZ-1R23 標準 価格 19,800 レン

ОМИ wma maen MSO «xus өз, оғ

カラ プリ ンタ MZ-1P17 標準 価格 79,800 A 画面 ハメ コミ 合成 、「 」」 (東海 クリ エイ ) и

接続 ケー ブル MZ-1C47 標準 価格 7,800 2 %

ы š Ке; Wi М -ARIE KH тыз 阿倍 長池 22 22 (06)621-1221( 代表 ) @ 問い 合わ 社内 国内 情報 シス テム 営業 ES 2 %- MERE

ОҺЛИ/.........

CONTENTS

GAME25 パソ コン 眠れ 85 アタ 反乱 86 ファ ンタ ジア イド ライ ドラ コン スレ イヤ ー/ デー モン クリ スタ / 脱走 コロ / ラズ マラ イン / ステ コン スト ラク ショ ヒー ロー 養成 ギプス 103

MZ- パズル ゲー :— ! TMAN ズル ゲー ゲー 105

X1/C/D /F/ turbo

STARTREK1801 жиы. qu

89

THE SENTINEL 43

ゲー ВЕМ$ 44 ソー スジ レー ZING 52 Ж : CTIM WHITE NEW Arrivals, Old Encounters UNIX 米国 ベル 研究 開発 され ソフ トウ Part! ソフ ワイ ワイ Т риш aaa 新作 SOFTWARE/ ゲー 159

XENIX, MS-DOS Microsoft FLEX TSC UCSD p-System カリ フォ ルニア 理事

Part2 GAME REVIEW RACET NECD0S RACET COMPUTES

SB-80, SB-86 LIFEBOAT ASSOCIATES バー ガー タイ / 練習 問題 мы WORDSTAR, MAILMERGE, SPELLSTAR, WORDMAST 探険 / オセ

ER, CALCSTAR, DATASTAR, SUPERSORT, INFOSTAR Micro Pro 登録 商標

その ログ ラム , シス テム , CPU 登録 商標

文中 *TMZ*R" 明記 いま せん

掲載 され すべ ブロ グラ 著作 , (R 使用 する ほか 無断 複製 する こと 禁じ られ ます

カラ 3D CAD 31

X1 フト ウェ アパ バック the Yokozuna イメ スキ PIS-20&Ink Pot カラ 画面 紹介 84

Part3 清水 ゲー テク 道場 ちゃ くん \ * 2

Part4 SPECIAL REVIEW

Ink Pot

Part5 BUSINESS REPORT

MY CARD

愛読 プレ ゼン 168

81 Oh./ MZ 質問 172 82 FILES Oh/MZ 174 infoMZ 176

162

164

166

ペン ギン 情報 コー ナー/Again Watch 177 STUDIO MZ/ くら 掲示 180 編集 めん さい コー ナー 184 投稿 募集 /SHIFT BREAK/micro Odyssey

| 読物 アプ ЖЕНЕР ЖЕНЕР / "sn.

アイ ビッ

パソ コン %20% x ウス ソコ ンタ …… 2 マイ コン プー ころ ペン トミ nem-

コン ピュ 7

みん コワ AREF TO р эш ысы コス モス 岡山 (ユニ バー ) Pe A

絵夢 面白 玉手 20 サム シン ググ

電脳 関す 1 1 仮設 独断 ма 507

連載 / / ジネス /DOS5 £ ググ =

X1/turbo 3D CAD - 建築 デザ イナ ー<2> E W 33 :

身近 入力 よう Lic 東海 クリ エイ

試験 出る 3X 3 ファ ルコ

Z80 ある fo om ох сега А ESE MM 18—19

X1/C/D/F/turbo 強力 ディ スク ユー ティ リティ BLUE SKY Co.

JODAN-DOS X1 BASIO HOUSE

MZ-1500 ユー ティ リティ シリ

RAM デー

きる メタ BASIC 4

スク リー デザ イン する

Мау the “FORTH” be with уои 最終

明日

X1/C/D/P/turbo, MZ-700/1500 PUZZLE BOOK (5)

カー

Short Access MZ-700/1500

CRT EDITOR&GRAPHIC KEY

X1/C/D/F/turbo

音声 ログ ラム

< スタ

| 安田 千尋 ORE 菊川 良子 W {FEE @ 有田 隆也 高野 西畑 文広 іш Rittaporn ИЖЕ 清水 後藤 貴行 Ж 斎藤 ж 近藤 弘幸 浅野 工藤 М 台原 秀幸 @ メラ 浜崎 杉山 和美 @ ラス トーー 山田 晴久 er デイ レク ター ニー 中島 @ イア ウト ーーCAN ART. TREF 由紀 校正 グル

ا

疾走 する グラ フィ ックス

ペイ ント 速度 従来 35 а 表現 簡単

2| 広がる メモ そり 空間

10 NEWON ユー ザー エリ きら 拡大

変換 漢字 入力 (Model20)。

We АЖЕ ЕЛІ 問い 合わ 綿 電子 機器 事業 本部 シス テム 機器 営業 /〒545 阿倍 長池 2

スーパ パー イン ボーズ 機能 : リア 合成 ナル (オプ ション) 組め 楽し pipes š

uM I - M (Model 20) : 情報 WV BASIC 漢字 ユー ティ

簡単 X1 リー フル

X1 BASIC(V1.0)

1 プリ フト

バイ ) @8+zz—7'3 ж 拡張 1/ ポート (2 ) Wik タイ マー つき カレ ンダ ロッ

(価格 標準 価格 ) ーー МН 208) CZ-52F 近日 発売 . CZ-8PNI 134,8003 _ CZ-8BK2 近日 発売 МВ

CZ-8DT2 44.800

CZ-8VP1 59,8009

CZ-8RL1 24.800

ディ و‎

Model 20 (ミニ フロ イブ 1 ドラ イブ )

M RUJZTLE АЗ

ө Model 10 バー ソナ ルコ ンピュータ キキ CZ-811CE (オフ グレ ー) > RR( レッ ) e Model 20 バー ソナ ルコ ュー タナ キー ボー CZ-B12CE (オフ グレ ー)・R( レッ )rr imm 価格 139.800 @ 14 カテ ラー ディ スプ レイ レイ テレ CZ-811DE (オフ クレ ー)*RR( レッド) ero real 標準 価格 89.800

жеде

“ж” “йе

NB

n

тга

Model 0 高速 電磁 メカ カセ ウド ニタ レコ )

標準 価格 89.800

CZ-804C 標準 価格 139,800

N パー ソナ ルコ ンピュータ АХ/ bk 14 カラ プレ CZ-801D 標準 価格 99,800

С2-803С 標準 価格 119,800

NA バー ソナ ルコ ンピュータ AN б 14 カテ ラー ディス プレ CZ-801D 標準 価格 99.800

CZ-802C 標準 価格 198,000

v バー ソナ ルコ ンピュータ АҮ/) 14 カテ ラー ディ スプ レイ テレ CZ-802D 標準 価格 128.000

W ずれ まで 幅広 くそ X1 ソフ 共通 使え コン バチ ブル 設計 カラ それ ロー ズレ タリ 2 あり ます

@X1 リー NEW BASIC(V2.0) CZ-112SF (カセ )……………… CZ-113SF (コン パク ロッ ピー CZ-124SF (ミニ フロ )

価格 7,800 標準 価格 8.800 価格 8,800

Же MESE IDE ター

72:212XFER+—-:-:::

ター 強力 処理 機能 サポー キー ボー さらに パパ ワー アッ きれ いま 。HELP COPY キー 加え XFER 採用 。16 える この キー 機能 ちろ BASIC サポ され 簡単 入力 モー 設定 CTRL +XFER、 SHIFT+XFER いう 親切 設計 この 実行 より ファ ンク ショ ニュ 画面 表示 され 手軽 操作 スピ テイ ブロ グラ ミン きま

BREAK

Т

p wi акту кр» ¢ v1 4

| асн ЛОУ

Н Жаа ӨР RHE OL AEE CUN АУ urta i システム ユー ザー 辞書 2D・5"FD CZ-111SF 標準 価格 8,800

FFERI ЖЛ) ___ _ = : Ë ДОЎ? Ратио XXI シリ ラン ゲー リー マメ F OR TRAN 2D・5"FD CZ-115LF 標準 価格 13,800

* フト 使用 あたっ 、CZ-5CPM (標準 価格 16,800 ) 必要 すす

RISAS RR WE, CFARE

AXI Раши 7574527 Жк (< ウス ) 2D・5" F Dh (Mode! 20、30、40 ) CZ-114SF 標準 価格 17,800

virteikHo4065854

AVI furi XU シリ ラン ゲー リー С Ш20 -5” FDR CZ-116LF 標準 価格 13,800

* フト 使用 あたっ 、CZ-5CPM (標準 価格 16,800 ) 必要

t

ШЕ 処理 機能 | 簡単 操作 きる 新開 漢字 BASIC 標準 装備 変換 カタ カナ ひら 6 でも 文章 作成 きま 処理 機能 移動 文章 (プロ グラ ) 返し 使用 きる コピ 自在 , まる ブロ グラ ミン ピー Y 文書 作成 可能 報告 ジネス ちろ 教育 研究 各種 レポ 論文 幅広 きま

高速 密度 グラ フィ | 曲線 1000 ハイ レベ 表現 可能 する 640 х 400 ルカ ラー。 ビジ ネス グラ チャ 作成 コン ピュ グラ フィ ックス 表現 楽し

ビデ | ホー 接続 する コン ピュ 画像 スー パー ポー その まま 録画 きる 採用 デジ タル 7 ロッ (特許 出願 )。 ビー ちろ ビデ オォ 教材 映像 カタ ログ デオ POP デオ テー ' 新しい 実務 活か せま

新しい 実務. ガー ルド ター 走り N パソ コン テレ А / ZZ/

シリ Model 30 (ミニ フロ ティ スク ドラ イブ 、2 ライ AR)

パー ソナ ルコ ンピュータ キー ボー CZ-852C 標準 価格 278.000 Model 20 (ミニ フロ イブ 1 ドラ イブ )

パー ソナ ルコ ンピュータ キー ボー CZ-851C 標準 価格 248.000 Model 10 (高速 電磁 メカ カセ レコ 内蔵)

パー ソナ ルコ ンピュータ キー ボー CZ-850C 標準 価格 168.000 15 カテ ラー ディ スプ レイ テレ CZ-850D 標準 価格 129,800

カラ それ オフ イス レー (Е), レッ (R) 2 あり まれ

НЖЕ НЕА ЫАМЕСХ 実務 能力 高め ХУ тат Model 40%.

SHARP

DAFA PELS, 1.1,

<X1 特長 > PRINT XX DATAX. ВЕМХ. イル 直接 漢字 書き 込め ログ ラム 作成 修正 訂正 容易 JIS 1 水準 漢字 ROM 実装 漢字 V-RAM 搭載 より 漢字 1000 文字 高速 表示 田高 定義 実現 ユー ザー 定義 キャ ラク イン ШІЛ 開発 黒色 スー パー イン ポー 85K イト ユー ザー エリ 、172K イト 容量 RAM 5 ンチ ラッ クミ ピー、 8 イン ロッ ピー、 10M バイ ディ スク BASIC サポ NATA. RS-232C ユー ザー イン ター フェ イィ イス 専用 ディ スプ レイ テレ 世界 、640 400/640 x 200 ドッ 自動 切換 実現 レン ドリ 追求 機能 薄型 キー ボー 50 順に 変換 可能

ж Model 10 400 フル カラ 表示 デジ タル テロ ウス ・RS-232C イン ター フェ イス オプ ショ また RAM 124K ュー ザー エリ 32K イト ж 画面 説明 作成 製版 合成 写真 ソフ せん

< オプ ショ >

ミニ フロ イブ (CZ-851C ) CZ-51F 標準 価格 39,800 ティ スク セッ CZ-501F 標準 価格 129,800

デー タレ コー CZ-8RL1 標準 価格 24,800 ФБ 7/25 NEW CZ-8PN1 標準 価格 134, 800 @ デオ マル CZ-8VP1 標準 価格 59,800

CZ-8DT2 標準 価格 44,800

バー ソナ

4 写真 Model 30 C$,

熟語 30,000 収録 シス テム 辞書 搭載 ログ ラム 漢字 自在 使え 漢字 BASIC d& i ORF 1000 5c FAKAT @640 x <400 ルカ ラー

パー ソナ ルコ ンピュータ + キー ボー CZ-862C 標準 価格 258,000 ө 14 カラ ティス プレ CU-14D1 標準 価格 108 ,000

We -ARIEI < 想い 合わ -… 機器 事業 シス テム 機器 営業 /〒545 阿倍 長池 22 22 (06)621-1221( 代表 ) 東京 /〒162 東京 新宿 8 番地 (03)260- 116 1( 代表 ) シャ エン ジニ アリ ング 〒545 阿倍 長池 22 22 (06)621-1221( 代表 )

vV AX Ратио グラ フィ ツー 3 らく

MEEL ^ Ий їс sP >> S E

* ラジ

[EY Dg [A bkt “АЖЖ,

X1 標準 BASIC より 熟語 変換 可能 ステ ユー ザー 自由 文字 登録 自分 専用 オリ つく 辞書 ユー ティ イリ ティ ソフ トウ ステ BASIC 辞書 ほとんど すべ よく 使わ れる 熟語 3 収録 され 辞書 変更 ユー ティ リティ 利用 すれ 追加 8OK。 また ユー ザー 辞書 専用 辞書 活用 住所 電話 応用 きま れる

Ш 20-5" РОМ CZ-111SF 標準 価格 8.800

IB X 85-7

2-,-4>Жж-ХШФ fMi ET ERU, - 4 わか りや すい アイ コン 表示 EV, グラ 組め 複雑 コン ピュ 画像 楽し みな きる うれ ラフ 入力 マウ 簡単 精密 400 イン モー 装備 いま きら ビデ オマ プロ セッ (CZ-8VP1) 入力 切換 Ü 0 コン トロ きる タイ 装備 デオ 便利 イコ よる グラ フィ マン > 9717971722971 227v9*7 —2v @ イン @ プレ ー@ ブラ @ レッ @ 2D・5' FD (Model 20、30、40 ) С2-1145Е (772) 標準 価格 17.800

ヒュー マン [0OGO 22] ター 化す E 言語 LOGO いよ いよ 3 ター 走り ます グラ 模様 簡単 命令 わか りや すく プロ グラ ミン きる ター トル グラ フィ ックス 機能 構造 ログ ラミ ング 機能 優れ リス 処理 機能 BASIC どの 言語 独自 機能 持つ LOGO (この turbo LOGO (漢字 ) ロン シン ジャー 変数 漢字 ポー LOGO 加え ウス 使っ 書い ログ ラミ ング こなせ 機能 ぶり ヒュ ソフ トウ よっ あな 創造 世界 拡がり ます

2D・5" РОЯ CZ-117SF 7 発売 予定

XI(z#KU2S GETE 3 5

SOFTWARE INFORMATION

Жат, КААТ,

オチ オリジナ ルン フト 続々 登場 X11 なら クラ ич ティ ディ 加え

AOE, 28-15090 LU 7 E

Z 883 ILU— スズ サボ ホー

#ПА7 EIS SPRIED AVETE

NEW BASIC versionzo

№7777, 1 シリ 待望 ニュ ーBASIC 登場 まし ター 高速 グラ フィ 高速 ペイ ント ルー チン ペイ ント 速度 従来 35 (ХІ BASIC V1.0 比較 )。 きら X1 好評 NEWON よる BASIC 10 カッ 機能 導入 リア 拡大 きま 漢字 機能 ワー アッ T 漢字 ユー ティ リティ サポ 漢字 扱い さら 身近 X1 BASIC

セッ CZ-112SF 標準 価格 7.800 Ш20-7 РОМ С2-1135Ғ 標準 価格 8.800 2D・5" РОМ CZ-124SF 標準 価格 8.800

セー 合わ 機器 事業 ソフ 開発 〒162 東京 新宿 8 番地 (03)260-1161( 代表 ) | AS.

クワ クソ フト 6 セッ スバ パプ ルッ ーッ ラル ウラ 7 HE ا م‎ 9 テー CZ-122PF #URRIS15800FI

1 ユー カラ リゾ 4 БЫН タイ ピン ゲー 2 キー ボー 5 フラ ヒー

3 SUPER ODYSSEY 6 SH @5 ンチ ディ スク CZ-123PF 標準 価格 19.800 7 ユー カラ リリ 4 サン ダー フォ 2 HARUCHAN 5 ニラ ンド

グラ フィ

3 SUPER ODYSSEY 6 ИЖЕ

CPM" ラン ゲー グー FP BM AAOH РСА СВЕ < マグ ラン ゲー リー FORT RAN Ш20-57ҒОЛЯ CZ-115LF 標準 価格 13,800 JE 2 FF CIT TET SEO HERR A ランゲージ リー COBOL . 2D・5"FD CZ-118LF 標準 価格 13,800 @ シリ 使用 あたっ CZ-5CPM 必要

C3. ※CP/M 米国 デジ タル リサ 登録 商標 ラン ゲー リー この 、「LISP」・「FORTH」・

ノン コン ワー

зём ЗАРСАН ラン ゲー リー ( 2D・5" FD CZ-116LF 標準 価格 13,800 ЖАСА LAIKE НЕН < ランゲ シリ PROLOG

20۰5 ҒОЛ CZ-119LF 標準 価格 13,800

< クシ リー P/ M*

ーー > WI2D-5'FDh& CZ-5CPM 標準 価格 16,8009 'rPASCAL」・「APL」 発売 /

BCIcReE2UI о |

< ` * ЖАРУ | -

ва FUZE, する желш

EY

>- Уре. те. Df vmm

ワー 通信 機能 、80 22 0 機能 満載 ひと 磨き 充実 120% ビジ ネス ) 十分 活躍 きる レベ

AX ате モデ テル 80、30 Nl プロ セッ 02

パン

Z \ ユー カラ PDP イジ アル ジュ アル ワー

1 セッ つき 文字 4 倍角 文字 スー パー г イン ポー イマ ロッ 満載 BKET IYER AVI. АХ aane / ヴィ ジュ アル ワー ドブ プロセ _

ユー カラ JJ | 手軽 コン バク プロ セッ 必要 機能 慎重 ぎゅ つと 絞り 込み まし いわ ワー プロ エッ セン 小粒 働き 以上

2577 MZ-1500 f ワー セッ

| 4-23. `

:。 スカ 取扱 計算 ブロ グラ 計算 手間 ` 簿 テス 情報 / 整理 する レコ リス \ ` 使 それ 便利 `

AYZ AX ni —— \ 簡易 ログ ラム ``

x =

通信 販売 サー ビス 開始 : 近く ( 信販 ます afr. NED 電話 申し 込み SC 支払 連絡 いた ます

қ 会社 東海 クリ エイ ta ж 東京 三田 3-1=7 ビル A4F [ л 当社 ソフ つい 問合せ | 宮崎 営業 T880 宮崎 ]-6-35 (b ビル 7F TEL.0985-29- 1966 | 左記 まで 気軽 どう )

Өн! MZ 8 у; ; қ | 7

EPSON

機種 対応 ROM カー トリ

огаН C): I DONE

各種 パソコ リッ 交換 簡単 接続 きま ESC/P (QC-10II、HC-40、X1 )@FM (FM シリ )@PC (PC シリ パッ ピア シリ )@X1 (X1、X1 )@JX (]X リー ) カー トリ

ж”

SP-80 XI カー

течет

この クラ 抜く 100cps 印字 速度 ピー ディ キャ リッ ジリ ター 高速 コマ ンド 処理 より 印字 効率 高め 、59Lpm 高速 印字 可能 いま

I8X I2Fy FONLQX F

エプソン 6 では 優れ 印字 品質 もろ 継承 18 X12 NLQ( アー・ ター・ ティ ) 品位 文字 印字 可能

BROT HRD

カッ ルト シール フィ ( ショ 主として ビジ ネス プリ ンタ よう リン

トリ 使用 X 1 接続 (ケー ブル 8226) こと より スト 出力 (文字 コー ) よび ハー ドコ ピー 可能 ESC/P

プリ ンタ エプソン

カッ トシ フィ #8338 x10,000 B5 A4 カッ セッ 自動

買い 求め くだ さい

Озари оаа モッ 自動 あたかも 連続 よう 使用 プリ ント アウ 効率 高め ます 50 まで セッ

BE ЖОКЛЕ ЯХТ. ЖИЧИНЕН256,800Р3

英文 ワー プロ 作成 威力 発揮 する 自動 ジャ ステ (自動 左右 ) 機能 文字 マー 作成 きる ダウ 文字 セッ 文字 パネ ルス イッ セッ きる ネル セッティング: 1KB 入力 バッ ファ 装備 対応 豊富 まる 全身 イコ スト パフ ンス 誇り ます

トリ また X 1 カート リッ 使用 X| 接続

(ケー ブル # 8226) こと より スト 出力 (文字 コー )、 コピ ー、 よび 漢字 出力 可能 SP-80 漢字 プリ ンタ あり ませ ピッ トイ メー 出力 する ワー プロ ソフ より

簡単 漢字 出力 する こと 可能

エプソン プリ ンタ 、ESC / "の ター ミナ ルプ リン ント ロー ルコ 体系 世界 統一 規格 提唱 製品 開発 され いま

@「 フィ シャ ルプ リン ンド ブック 発売 (エー・ フト )

ノン 販売 o+tt/= so 東京 新宿 新宿 2-4- 宿 NS 5109 (03)348-7121⑩ @ / 宿 NS 5 @ (03)348-6801 @ HR (03) 258-4841 E

Ф XIK (06) 365-5071

X 2,400

阪南 (06)632-3353 ФА (011)222-2821 XE (0188)32-4002 ежа 3691 @Ж}(0263)36-725! @ $5 (0252) 43-8515 н ее 7001 Ф #57 (0762)62-3216 ®/ (082) 262-5181 @ M (092) 471-0761 ФИ (0992)25-7717 @ はがき 住所 、W

ノン @ /〒399-07 вши RYN ABO

ке ОФЕРТУ. 申込 みく さい

体験 1 6C» feel

«НИЛ 8 ビッ

SHARP X1/X1turbo

8 ピン ・I6 ・24 リン ター 対応 5 イン

\55,000

遂に 、< 戦力 > 8 ビッ トシ 登場 多く 8 ピッ まで 出現 従来 8 ビッ ワー プロ ソフ 16 比べ ЖЕ, Ж 制限 され 使用 する プラ イベ 限ら いま < 戦力 >(X1/X1turbo ) パソコン ハー 機能 すみ ずみ まで 使い 込み ジネス ワー プロ 生産 持た 8 ピッ 最高 フト あく まで 基本 ポリ シー つく られ いる レベ ОИЕ < 戦力 > 是非 試し 下さ

これ X | 画面 写真 @ Xlturbo 画面 写真 X1 グラ フィ 使い 、X1lturbo テキ スト 画面 使い ます ラフ つき つき 文字 印刷 同じ よう こと きま キス スピ 速く 良く 文書 作成 きま

ШЕЯ

@ 15 ニュ アル

@ 文例 ビジ ネス 文書 ディス (ビジ ネス 文書 50 登録 )

e 漢字 /JIS 水準 ・JIS 文字

@ 文字種 全角 ( タカ )、 、! ( )、 つき

9 外字 40 (16X16 24x24 )

画面 制御 クロ クロ (最大 82 )、 画面 画面 表示 指定 文頭 文末 呼び 出し 位置 表示

@ 枚数 イズ 真行 行文 字数 文字 間隔 ( より 自動 設定 )、 込み 印刷 書き 印刷

@ 管理 文書 登録 (か 漢字 まじ 15 まで )、 書名 変更 文書 表示 文書 削除 併合

e 辞書 5"2D 4 以上 + 登録 8.000 (40K)

@ レイ アウ トノ 寄せ 寄せ 寄せ

© プリンター 機種 SHARP CZ-800P、CZ-8PD2、CZ-80PK、CZ-8PK2、CZ-8PN1、MZ-1P03、 MZ-1P06、MZ-1P07、MZ-1P08、MZ-1P10、MZ-1P11、MZ-1P14、MZ-1P10A、MZ-1P11A EPSON//RP-80, RP-80K, КР-80П, RP-80II K, RP-80F/TII, RP-80F/TII K, FP-80, ЕР-80 K, UP-130K (ESC/P, PC), IP-130K (ESC/P, PC) NEC PC-PR101、PC-PR201、PC-8822

@ ティ 文書 デア フォ ピー、 BET 4A20»54y クア 文書 印刷

@ 短文 登録 16 (読み 最大 12 最大 120 )

つき 文字

PC-98O1(E、F、M、U2 )

\94,500

E する テク ノロ ジー サム シン ググ

T!60 東京 新宿 久保 2-5-20 シテ 宿 TEL03(232)0801( )

Y55,000

ホビ ー、 リー、 ジネス 1 パー フェ クト / ター 馬力 12006 ! プル デー タベース

シャ ユー ザー 辞書 サポ

@33 応用 実例 “f. チマ ニュ アル ж” 電子 コマ ンド 辞書

CETT К

リレー ショ ナル デー タベース ビジ レス 特徴

A | FD 80 ァイル 登録 可能 メニ ュー 作成 サイ 自由 定義 (! ァイル = ヨコ 26 999 )

@ シャー ブル デー タベース @ 使 する 手順 自動 プロ グラ @80 コマ ンド カン タン 操作 くり @1 変更 すべ 変更 きる デー ンク @ デー 項目 別に すばやく 検索 機能 @ 伝票 プリ ント ウト 宛名 印刷 可能 @ 単位 ウル トラ 演算 可能 @ 並び 替え 可能

集計 可能 ラク ラク

ビジ レス X1-turbo 対応 プリ ンタ ビジ レス つい いる

CZ-8PD2 М2-1РІ0А PC-PR20ICL

Es шыты шшш асый 2 ЕБ CZ-800P PC-PRIOI NM-9400S (実務 使え 応用 実例 )

MZ-IP07 PC-PR20! UP-I30K " s " » @ 問い 合わ : 7444 岡崎 3-13-2 (0564) 53-9400

5 3 12228 ORRAZIA (03)543-6987 5 イン 、3 ンチ (カナ )…\39.000 Т Шш ш ` | @ 古屋 地区 受付 / (052)452-0552 5 イン チタ 漢字 E sss ы РТР

※QD…\12.000 MZ-2200 ӚЗІ жс ре е シス テム デザ イナ MASH

3 ЕНФЖЕНІ57 8474 f1(0565)3I 7644 一対 機種 最寄り ショ 購入 電話 申し = 5342 込み くだ さい а х1 em ig 金庫 大名 支店 No042283 OAF v2 z MZ- フト カタ ログ 希望 さる 場合 d à "o BRR- EA EZ £ RED E REARS $ t: L p MZ-80B 25 請求 くだ さい c % カタ ログ 希望 解体 新書 求め 下さ „Ёл (|,500 切手 同封 QA テック まで 下さ 。) EM.

,

ヒコ Z アス テッ -X 愉快 ゲー 目白 押し つて 栄華 誇っ アズ テカ 奥深 財宝 眠る いう アメ リカ 香り 載せ 多く 探検 それ 求め きた 地上 戻っ ます ます 白く いな よい よこ キミ コマ ンド 早く キミ 熱い 期待 応え まれ 寄せ 怪物 トラ 守り

クロ オー リア

©}1/X1C/X1 TURBO (5" D. TAPE)

DISK : \6.800/TAPE : \4.800

@X1/X1C/X1TURB0⑤"D.TAPE) DISK : \6.800/TAPE : \4.800

メー ベル スマ

つか ヒー ロー クロ 画面 ニン ジャ スモ ウレ スラ 相手 活劇 違っ 負け まう こと ある ろう /

51122244421 ЙАА

@X1/X1C/X1TURB0 (57 D. ТАРЕ)

DISK : \6.800 ТАРЕ : 4,800

Eo addu

ЕА

@X1/X1C/X1 TURBO (5" D. TAPE)

オイ ルズ ウエ ч

ну ане у аы са. コン プティ ゲー 遊べ ます 掘っ また 掘っ マー 目印

自慢 ドリ ルル いよ うに よう くだ さい ,。

@X1/X1C/X1 TURBO (5"D :xe.800/TAPE : \4.800) * 海道 地区 : 札幌 電機 (01|) 24」-2299 関東 地区 : 秋葉 М.А マイ クロ コン ピュ SHINKO(03) 251-1523 CVA スコ 秋葉 (03)258-371 家庭 電器 C&Q (03)253-4191 新宿 オッ クス 宿 (03)350 -1241 渋谷 ・J&P (03)496-414| 関西 地区 : ・J&P テク ノラ ンド (0O6)644-1413 J&P ディ アラ ンド (06)644-1613 ニノ ミヤ エレ ラン (O6)632-2038 ミヤ 無線 V8 (06)643-1681 京都 ソコ カム タク (0774)20-0784 * 地区 : 広島 産業 マイ コン к b. コー ナー3F (082) 247-5111,/107 л К (0823) 25-5380 * 九州 地区 : 福岡 映画 同名 小説 シナ リオ 新た ベス ベス トマ イコ 7F (092) 781-7131

ゲー スケ

- E td "o" ショ みな さま : ファ 強い 要望 あり ンプ ティ

ロマ あふ 幕末 アド ベン チャ ー。 当社 商品 "タッ & ライ コー ナー" 協力 いた ける ショ 募集 ます <03・234・804I> ショ まで

@X1/X1E/X1 TURBO (57D :2 \7.800/TAPE : 2 \5.400

禁断 ゲー フト クォリティ いのち

4

〒102 京都 千代 3-19 ピル 4F 電話 (03)234-8041

* 画面 多少 異な こと あり ます * 信販 希望 品名 明記 うえ 料金 現金 書留 送り くだ さい 。( ービス )

mess.

“ДЕЛО.

Ет: уя: БЕ fA 同じ 、「 ë

変換 」" 変換 "3 5 22 \ これ まで Jl

Етел ИА suci "Om

(機能 概要 ) @ 領域 | 文書 64 x96 @ JIS 水準 漢字 漢字 ステ ( )、 |/4 倍角 、4 өте 独自 文法 解析 よる 文節 変換 ( 文節 入力 )、 機能 有り シス テム 登録 3 5 5 FEE өші 削除 セン リン 右寄せ ンダ イン イア ウト 表示 貼り 復活 ロー 入力 設定 みか 引け 定型 96 イト өс ФЕПЕІ 行間 / 書き 指定 印刷 印刷 eto. 文書 管理 文書 新規 登録 登録 削除 出し 書名 変更 呼出 | FD 最大 64 書記 可能 スワ よる 機密 保護 有り 補助 機能 シス テム 設定 / ピー、 文書 印刷 管理 検索 通信 使用 プリ ンタ 設定 使 ディ スプ レイ 設定 ピー、 コピ ー、 文書 印刷 リス eto.

dins ® Carry lab.

e マイ クロ キャ ヒン аны. ін コン ハウ キヤ リー ラフ

Ф マイ コン ハウ SPS

ソフ "チャ レン ジャ ヤー 希望 [通信 販売 | 全国 マイ コン 販売 取り 信販 | サポ セン ター| Н--ФШБ14:00--17:00 氏名 明記 200 請求 現金 便 振替 利用 くだ さい 送料 300 郵便 TEL 096—363—0047 ЖЕСЕ 熊本 0 18846

申し 込み くだ さい

A.FANTASY АРУЕХТОКЕ БСА МВ ВУ FAL OM

4 . 2% | p d

FUGVER іт POINT

STRENGTH

GOMA OR е こそ

PT

я Б ーー ІР Е © a - СОП ファ ルコ 株式

ビッ クウ エス

パト ロイ ウォ ファ イタ リア 完全 変形 スク ロー 画面 819 キャ ラク ター パタ 100 宇宙 空間 戦闘 基地 侵入 驚く < ほど リア キャ ラク ター 動き バリ エー ショ 豊富 i ` Р そし ミン メイ 救え ? くさ スピ $ ちまちま ALEX BROS 最新 登場 А $7 J *274Y2nACCMTAZr7H! 東京 / TBS ジオ (土曜 深夜 0 30 1 ) /MBS ジオ (土曜 深夜 1 1 30 ) @SHARP X-1/turbo(CT) \4.500 (5D) X 6,500 XDISKRRIS 2 2 74 v2 画像

ni

音楽 担当 : リス タル キン t ##:YAMAHA MUSIC FOUNDATION F5] ФТАРЕЙУ420

e DISK \7200 “4 ※X-| 9 発売 予定

e

ドラ イブ コン ピュ TURBO

装備 ギー 操り

ロッ リズ

クボ イン 通過

多く 障害 ミカ 演出

楽し 最高 / V 95

@sHARP ; Я M X-1/turbo(CT) Ұ4,200 4

ы амы, АЙНА I UE P 7

| 競技 種目 モー グル アリ アル ラロ ピー 処理 体験 ジャ ンプ ギャ パス する イン 追求 ゆけ @SHARP X-l1/turbo(CT) X 4,800 (5D) 346,800 ※DISK より リア 再現 (画面 写真 88 )

вая”!

X NN s n ——— こち 好評 発売 ! «ЖЕНЫ ж エギ トロ ウェ хРУЖАУР- >

ECROSS MEDIA

О ММУ ОМУ АУ

у

ой

@ 最大 ンチ 楽し 出逢い 出逢い 人生 きま ざま 出逢い ある けれ 、『 > 物語 ゆい 出逢い ある 苦労 どり つい いっ

$ AW 0 X ЛОС il c obi A-C620)26, ЗФ HCO, 779.

: いく びる ブス 天国 地獄 ほど 5 うし 逢い 努力 すべ

X1/X1turbo | рр x5002 | 2 きっ 願い (8 予定 ) 5003 | ¥9.800 SED Fo на | 認定 ント 実施 . FM-7 | | s | \9800| スコア セー 住所 番号 NEW7/77 [Dem | oem | (必ず ) 明記 うえ さい プレ + ゼン あり ます 段位 獲得 希望 より いた まち

| йй |90 | чет) OHTE T150 東京 渋谷 渋谷 1-7-5 青山 モブ ハイ 605

ビク ター 音楽 産業 PS Oh. MZ

PC-6601sm,PC-9801.IBM-JX いま

ж” /- いま 移植 @ 問い 合わ 7%03(486)9470 ET ( 求め 商品 使 機種 記入 送料 (500 ) ааст. 販売 募集 いま Mesue 直接 申し 込み くだ さい 。〒107 東京 北青山 3-6-I8 (共同 ビル 青山 2F) エイ ブイ 販売 関す 問い 合わ

27 シー Oh/MZ エイ 企画 まで 03(486)4121

(1316 АФ. УРЕ ЖА

7 š

н モー 鍛え いる まず じん いじ うぶ

どこから いく 充分 考え よう > ププ ププ ププ ププ Ж 落ち ちゃ А 5

>y

ЗЕ БЕ ЕЕ ЕЕ КСЕ. :

Мы os apt P би Ж

いも いも 落ち きま せん

ハシ そば 不用 タテ 折る / ハシ けが ひと つの

昇り ロロ

3242317?

NEW7/77 Пт Гот | m d X1/X1turbo 発売

@⑯ 発売 ・PC-6001mkIlss,PC-6601sw@ ・PC-98 リー どん どん 掘っ いも ジャ カス 全部 食べ | リア ー/

, = А ГІЛІ АРЫС БАРДА ТТТ

50 クリ アー きた 抽選 200 豪華 スタ ジア いつ (ぴい . ジャ バー 差し あげ ます (締切 ・60 10 ) ろう ./ アー オリ < 発売 され / RT ER BE E E 買い あげ ラフ} あな 作っ オリ 09 きい この 発売 豪華 コッ ペン 。『 モー 2』 採用 きれ 当社 規定 謝礼 便利 、CROSS MEDIA PRESS 差し あげ ます (締切 9・60 10 ) あげ ます

] B ミュ ディ ター

MUSIUM ГТ ЕС. 確認 きま

| 三戸 独立 . ロー プア パタ 変化 きれ こと きま

EX OFTEN: スク ラッ リズ 使っ ディ {スコ チュ リズ ミッ ロッ クン ロー O EER > : 美しい 宇宙 コン ツー 画面 3 パー イン リア イム 動き ます

左右 高き きき 対応 @⑱ ング ウレ レイ レイ ュー ックス どの 演奏 モー あり ます (ディ スク )

ҒЗ 健康 明る <、 ある プロ グラ マー、 / ピク ター 音楽 産業 dii. 企画 ある プロ デュ / / エイ プイ 1203(486) 9470PS まで

` * . * " ; em r^ ; р

Es

_ ВЕН, 5 š

X フル メモ リー、 マジ シン x オリ ルフ モー ап yU жазға ЛЕРГЕ

ET З Un Й z

9138 7 胞子

以前 種族 よっ

BATRORO RURRURIG,

ELTS, ШАИСТА 207—0. FTA "au ODER STU. LC ақық” АИ ИЕ

宇宙 、7 彼方 送信 開始

8/1

FM-7/NEW7/77 PC-88/mk!/SR X1/ Turbo = w K 1184 Таре(2Жі8) …\7.800 Tape(? ) 37800 Tape(? )\7800 ホッ er E

5" (2848) \9.800 5” (22588) \9.800 5"(6 ) \9.800

中野 4-4-| F 2 ғ ш ホッ өзг + £. Tape or Disk

P3 EEL TTF 込み 下さ og o% Rin. 3.5" (28588) ¥ 9.800 開発 予定 PC-9800 リー &281'0ARAR E)/-R27—4A77H > 2 АЖ Ра

НА

Laboratory

% % ポー ルイ DJ 立体 リア サウ ンド ゴル レー 約束 ラブ 選択 スイ ング 強弱 向き クニ 楽し キミ どう 攻め &、72 HAL カン トリ ー。

B x12/—XH 定価 5.800 (5 ンチ ディ スク セッ ) (MSX ROM4.,800 )

4 1425 Jo š CAT トラ ラフ 機能 簡単 使 ( こなせ シス テム ' トラ 動か 知識 ぐに 楽し むこ きま

ラー ボール

ある ピン ボー

画面 切り 変わ ロー ラー

ボー スピ スリ アク ショ

3 拍子 揃っ 最高 !

Ш X1 リー 定価 5.800 (5 イン セッ ) (MSX ROM4.800 )

| -л-Еу»-К A 研究 興奮 味わい いな

101 東京 千代 神田 須田 2-6-5 05850: РР Ары таған ж 7 "9" id つか りあ 7 ポール q: TEL 03-252-5561 FAX 03-252-8675 ДО ы а. e Ж. + ] 資料 希望 100 切手 同封 封書

CAT リー (MSX 2 タン 。) JAT+TED( フィ クッ ) |o, /mKIISR | イン ター フェ カー |7:

(AT+TED( ラフ ) | м インター フェー スカ |4

CAT EDDY-X1 (グラ フィ САТ ETE GA

сатжғооу(297427-9) | 14,8009 | TRACI-BALL

P Player d: 1190 6---- -

楽し 魅力 Player 2: 4080

ж L D) (CHB лака. ^M X1z/—XHB 定価 5.800 (5 イン セッ ) HAL 研究 通信 販売 受付 いま (MSX ROM4.800 )

Licensed from

Broderbund Software”

from 2 THESE THRILLING GAMES INVITE YOU TO THE MOST EXCITING GAME WORLD

"LE

Soft Pro International

ソフ トブ プロ フト プロ イン ター ナシ ナル 事業

〒530 西天満 6-7-2 5F TEL.06(363)1221

bo —Ж—Ж#жЖс, BELTI- 進化 手助け する 優れ ソフ パワー 多く ソフ トウ DAD-x14 ФІ Бос. KIRKE? こと

より ハイ パパ ワー マシ 進化 する 2

@ エディタ z хл ZB

いる ンプ ブル 可能 非常 高速 入力 可能

ドド メモ 格納

ジェ クト 作成 可能 セン プル 可能 СОК,

prem [o i шава сани аон са ші nu ани ss m

その 100 持ち 知れ 仕掛 られ いる いう 往来 する レン 魔法 使い 衛兵 待ち 伏せ ・・・。 乗り 越え いと 最愛 姫君 危な 勇敢 王子 助け 出す 乗り うと いる

アク ショ ンチ ー、 プレ イン ズル あら ゆる ゲー 要素 兼ね 備え 「T HE CASTLE」、 試し みな いか ? X1/C/D/turbo/F テー 定価 3.800 (送料 400 )

X1/C/D/turbo/F

デュ アド

DUAD-X1

X1 リー ディ スク セン プラ シス テム (Free 40548 L|

2-88 RSSEMBLER Version 1.0 1958 0888-8FEL BFE2-1FFF гаан E 4/18/13 - 1985/16 - 1/24

C) by Yasushi Sugimoto in KOCHI

; DisNSN block LINK

定価 39,800 (送料 1.000 )

а

4370: 38 9*5 4i

+ 7k 378 «X 259779258 52

АННО ILA DHI, ЭМ ОО チャ ンス スレ 。10 騎士 14 兵卒 引き 連れ パサ 目指 出発

600 m 道程 騎士 兵卒 騎士 より 手強い えて いる つけ すぐ 復活 する 戦士 呼び 出す 魔術 強敵 従者 増し そう 意気 盛ん 途中

捕らわれ いる 兵卒 助け 味方 総勢 50

さあ 倒す 全力 尽く X1/C/D/turbo/F テー 定価 3,800 (送料 400 )

ディ スク (5-2D、3-2D)

@ プロ

ГРА СУРА ソー スプ ログ タプ ンジ ラマ

スプ ログ ラム ログ ラム リロ ケー \ 09773. 7v

A. セン プル

5 びに 文法

西暦 200| EXOA 奪回 する 地球 向かっ 最新 兵器 、FX-IBS。 EXOA 白兵戦 戦闘 マシ 、“ イド いる 。FX-1BS ウォ イド 変身 使っ 戦わ なか 立ち 並ぶ 荒野 洞窟 イド 1 x 1 戦う ンプ ビー ピー 制限 範囲 自由 設定 アル 動き 迫力 シミ

X1/C/D/turbo/F テー 定価 3800 (送料 400 )

ə----------------------------------------------------------------------------------------

パソ コン 映像 メデ [イメー する スキ CGC ツール]

ASCII

パイ / ケン グー スガ イン クッ Я,

FAI BEAT DIT ФОР ЯЬ BA ET НЫ,

みあ 2 まめ 4。 KEES SCIO, MAB, EDB, WEB v ADAO CHHIÉEÉE.

7 ファ 7 メージ ВСМС СОС,

PIA ŠPA IAR RETAN URAN (だ あう ラフ / クエ 7 プン クッパ D EPI DARE HERON AITTI AU) ITER OH N = SNR, DU ОЗЫК КИРЕФЕРЗаЙАА А.И 58126089; 7 ター シン クー KEPA д-лі-4>й-20 ЕУ а а F5,

nk Pot コマ ンド 定規 : 直線 コン パス : 描く ックス : 四角 描く 文字 : タカ 記入 (PC-8801 漢字 ROM 必要 ) 待避 : シス テム デイ スク 保存 プル : 6 拡大 表示 修正 可能 座標 : カー ソル 位置 座標 表示 イア ウト 編集 : キャンバス 全体 縮小 イア ウト 確認 プス クロ : 画面 移動 / ピー: ピー 可能 / : 変更 可能 / : 範囲 90 反転 : 範囲 反転 左右 反転 : 範囲 左右 反転 プリ パース: 白黒 反転 プス クラ : 使用 する カッ 保存 修正 : 単位 パタ 作製 プリ ント : A4 A6 印刷 プイ メー ジス キャ : メー ジス キャ 写真 読み 込む / ボーズ : デオ 再生 画像 受信 TV 画像 イン クボ 作成 文字 スー パー イン 、7 カラ 使用 可能 (SHARP X1 イン )

スー パー イン ポー 、X1 専用 解像度 ディ スプ レイ TV アス キー クフフ クエ テグ

。@ ンク ポッ ライ ブラ リー、8 下旬 発売 。@% スキ ( ウス ウェ ニュ アル ) 発売 25.000 2.000 107 東京 南青山 5-11-5 南青山 ビル スキ 03(486)7111⑯

EC PC-8800 リー 発売 | SHARP X1 シリ 発売

価格 18.000 1.000 、38.000 (マウ )・ 2.000 価格 18,000 1.000 、38.000 (マウ )・ 2.000

«dev 970) ca^ 59

@ 新しい 思考 ルー チン より ピー アッ 。( ログ ラム アセ ンプ

自由 定石 登録 。(5FD)

@ イコ 指す 覚え あな 合っ 思考 ルー チン いき ます 。(5FD)

O 実際 将棋 ルー シミ РЕЗ.

@ ラフ すい

Өл Л ОШ t L < ピュ 使用 きま

易い 漢字 表示 アイ コン OMS 3—12 XI UC いま

ハン ドカ ソル

ジョ イス ティ イツ ウス 使

(Xー1D 製造 せん ) ^. = 9a

ny TAXPE447 9 РЗ AUMEB ASA TAG, ; EE 求め 近く 有名 マイ コン ショ バー トナ プーー

すす ノノ 09 通販 希望 使用 機種 明記 現金 = جر‎

FAX(024)45-1804(GIL GII) Пе ет де іл іліне A ы МН

ドン ソン 札幌 〒062 札幌 豊平 平岸 3 5 4 17 f コロ ナー II201 PHONE:011-821-15; 適応 機種 X-| シリ РС-8801 シリ 営業 古屋 鹿 児島 TAPE \4.800 FD \6.800 住所 変わ 住所 5162 東京 新宿 田町 3-|-1! ピル

今夜 高校 野球 開幕 宣誓 ちろ わが 代表 主力 選手

まず 僕ら チー 打率 守備 どの デー 入力 対戦 相手 選び 同じ よう デー 入力 あと

デー 従っ 動く 画面 リア 楽し

まる テレ 野球 6 審判 動く Н

満点 いつ 飛ば まう こと ある

wow 208 いつ 甲子 持ち 帰っ くる わが 代表 けれ パッ コン 優勝 候補 今年 願い HUDSON GROUP wa Fz HUDSON SOFT 適応 機種 @PC-6001mkII(T ) €PC- od = 6601 (РОЯ) @PC- 6601SR(FD ) @PC-8001mk Lt(T ) 登場 @PC-8801 ӨРМ-7 рн ыны ш зы АШЫ ГЫ (T ) QD @FM-77(FD ) 〔TAPE 4,000 FD \6.800 QOD \5,800〕 2

Е м М |

АХ/ ие 0b BE ERO

BASIC INPUT OUTPUT SYSTENMI、BIOSE ュー (CRT、 リン ロッ ピー ティ スク ) する サブ ルー チン 集まり フロ スペ クト 、Xl1turbo ROM

有形 BIOS 完全 解説 初め 書き 沿 4

ЖУН ТАРА У д о НЕА

A v X £ E する ' “7 H X NIJ w Ж. к !

A & p ``.

きら ぐに 使え デー タベース フロ グラ 掲載 。BIOS ROM

j- PAX: 73465527 ? -—> チン а? 19: НОС 4 /

ベー グラ つけ まし .

= 4----

応用 1

200055 5 ^, ЕН НҚ ЕО ペー その まま 使え ます 5 イン 、8 ンチ よび ハー

ПЕНЬ "ВЕ. 3017. ЕЕ У 7 RS-232C7—7» TFR

Е

デー タベース プロ グラ つい BIOS ROM 7.800

KERBA“ IRB KE ンプ 発行 シャ 社協 ; f д B í

о“

3 リマ AD

ІШІ!

ELITS Z

13

マル CAD マイ ホー

明治 銀座 レン

=

Cosmetica

- im (CAD) OBS X él. 入力 シス

- マルチ CAD 4 空間 | | 銀座 レン マル CAD 使っ , 明治 銀座 ンカ 明治 初頭 , 銀座 , よう レン 入力 3D , CG。 5. 建設 当初 不評 あっ , 新聞 文明 開花 жалда, , 縮小 反転 合成 , 3D 彩る 並べ , 近代 商店 先駆 CAD , 明治 都市 空間 ОО ж 3 >

3Dv JV САБ 7^ > ВЕН) EF $ СА

利用 さる よう 設計 され いる : 古代 | : 古代 国府 (栃木 )

TW F3- алин смен М Е : 東京 参道 現在 t F4- Е5-М IR ҒАТ

: 古代 国府 (栃木 県)

(連載 1 ) , さしずめ マルチ САПОТЕНЕСЭСЕС, シリ 全体

紹介 いた きま 2 回目 今回 , この , まず 入力 シス テム 取り みる こと ます 5t, 入力 ゲロ グラ ムリ スト 紹介 , 事例 操作 説明 i£, 3D プロ グラ あり ませ C, “な あー "と 拍子 まう 向き ある せん ころ , プロ グラ , 図面 描い いく 楽し 十分 盛り 込ま いま L, その 楽し どん どん 広げ こと きま りか , ここ 描い , 紹介 する 3D 出力 基本 デー 3D この ステ , 3 みた いも , あら いい 誌面 . わか りや すい 実例 , H 入力 する ノウ ハウ 紹介 いた ます , あわ こち チャ レン みれ , 3D 実際 きっ よく わか 思い ます

5, ここ 入力 シス テム プロ グラ ムリ スト 概要 説明 いき いと いま X1turbo X1 マシ , X1 ほう 優先 紹介 CSA SEELE LZ,

i, Xlturbo 使っ プロ グラ 2 つの ケー 考え られ ます

その ひと , X1 BASIC(NEW BASIC

6") 立ち , その まま 入力 する , マウ 使い 1I・0 機器 いる , マウ 使用 する よい

つの ケー , X1turbo FH BASIC (CZ-8FBO2) 使う 方法 場合 X1 BASIC , KMODE, CONSOLE, WIDTH, KEY LIST, MOUSE , グラ フィ 関し 異な あり ます , 書き 換え 必要 ここ , 漢字 使っ わか すい 表示 変更 する , 工夫 ひと , これ ディ スク 仕様 5, テー する , CHAIN OPEN あと つけ ファ イル ディ スク リプ “0:” №6 “CAS: また 変更 必要

, 間違い 切な プロ グラ , 22004139 1 (52300 PRINT “デー タカ セッ セッ くだ さい " 変更 , 2100410 " ステ 入れ くだ さい " 表示 する PRINT 挿入 すれ , いっ そう 使い すく

SAVE ファ イル , よい , これ 紹介 する ステ 関連 あり ます , 最初 プロ グラ SAVE , SA. “CAD- START" LL, プロ グラ SA. "MAIN-JOB" 記録 くだ さい

= иас.

基本 ンド 使っ , まず 描き 楽し よい この 2 絵描き , 操作 読ん いた

Aw あな 建築 デザ イナ ー〈( 入力 シス テム

さあ , いよ いよ 3 D CAD プロ グラ 紹介 平面 挑戦 まし 今回 入力 シス テム 描い 図面 まま 3 素材 わけ

けれ , 理解 いた ける 思い ます また , 絵描き 飽き , ちょ 実用 利用 みた なら, マイ ルー A, マイ ホー ラン 挑戦 する いか そこ , ここ 入力 手順 実例 も, マイ ルー , マイ ホー "ラン

入力 手順 (0) e 自分 実測 よう

コン ピュ 向かう ,。 ちょ 和裕 持っ , まず 自分 調査 メジ , Ж みる , 暮らし いた 再発 きる せん , 定規 使わ いで 描く ほう 面倒 省け ます , 空間 整理 する 向い いま , Ві, СНЕ マス 使っ ほう , 作業 すず ゆで よう

, HE, 90cm ひと つの いま , きも , きも , これ 目安 する いい Jv

ノー 取り コツ , あま 寸法 いで , 全体 どう いる づか 解す こと ドア , Ж, 家具 , りあ 記号 置き 換え 考え ほう いい 入力 手順 (1)

間取り メモ きた 。, ピュー 入力 開始

ビデ オカ メラ VTR 持っ いれ , Sprok же а), VTR カメ 使っ スー パー イン ポー 入力 補助 (テレ ビデ ) 便利 VTR

3D OCAD<2> 33

いよ いよ コン

スー パー イン ポー , 画面 入力 する 位置 目安 必要 すか , [ 1] 押し , 画面 グリ 出し 234.

@ まず, 描き まし

カー ソル BOX 持っ いき , カー ツル 位置 入力 する と, LINE BOX コマ ンド 変更 され ます ( 基本 単位 すれ , 高き = 奥行 指定 不要 )。

ドア ある , 全体 1 考え , ДЖУН, 対角線 始点 終点 指定 する と, 順次 , 作画 ます , 描き 直し , DEL カー ソル 移動 入力 くだ さい 斜め LINE 使っ 描き まし 塗り つぶ (PAINT) も, 構造 わか りや すく 表現 する ひと つと いえ ます 入力 手順 (2) ez, ドア 入力

ドア 入力 まし [F8」 奥行 設定 呼び 出し , 最初 “立ち 終わ " 聞い きま , ドア 入力 ます , さき ほど 決め 高き 標準 じき 出す С, 0.8 0.7 (標準 天井 高き 2.4 m , サッ 1.8m 2=0.75 , 小数 以下 2 場合 ,0 除い .75 入力 ださい)。

さらに, 立ち 始め 位置 きま TOT, 下端 リタ キー 押し , 床上 60cm 下端 , aT ・25 入力 , リタ キー 押し さい

以上 奥行 (高き ) 設定 終了 引き 続き 同様 手順 入力 いけ いい わけ , こと りや すく したい なら, [F4 | キー 塗り ける よい た, 途中 設定 変更 行い いと , [F8] 変更 くだ さい

@ 家具 どの 入力

, ドア 入力 同様 , 家具 レイ アウ まし 最初 単純 四角 考え 入力 する 簡単 (EDÊ 1 場合 , 高き 0.3 )。

34 ohiMZz 1985.8.

マル チビ AD 概要

マル CAD 機能

O どの 2 | 図面 ж, 自動 パー ( (И), アク トリ ( 投影 ) , 3

[ 3D CAD シス テム フロ ー〕]

デー 記録 , 呼び 出し , 合成 , デー 出力 (プリ ンタ ) デー 変更 (Е, 倍率 )

X 縮小 スー パー イン ボー 補助 入力 ケー 使用 デー 反転 ( X, Y ) デー 縮小

パー (EREN) 出力 イヤ フレ モデ リッ ドモ デル (任意 アン Jv, 倍率 設定 可能 )

De |

FADE UtH7) グラ フィ 記入 °‘ KENTA y 2187) (漢字 対応 )

立体 化し 出力

Oo 出力 , 画面 出力 , プリ ンタ 出力 ,X-Y

プロ 出力 , いずれ 0K。

シス テム 】〕 (AR)

入力 装置 キー ボー , ジョ イス ティ , ウス ( XI:』・0 デー Xiturbo : ) 入力 補助 テレ , VTR

コン ピュ XI/C/D/F XI turbo

記憶 装置 フロ , テー

出力 装置 プリ ンタ カラ リン XY プロ (カラ 8 8) ディ スプ レイ

VTR (スー パー )

[入力 シス テム 概要

ENR E

ファ ンク ショ

m | я m E

V Ej š HE

GLID

o Ë:

г š

=

:

s

m

ч da 5 ч o

m :

Li к, | m В

e 記録 展開

話し する 立体 アプ ログ ラム 実行 する , この 高き (奥行 ) 設定 意味 , わか 思い ます , 入力 段階 ける 奥行 設定 いま そこ , この 段階 2.4m i, 240cm 入力 奥行 設定 これ , 高き 入力 する こと きま , 描い , りあ えん ロッ ピー( —7) 記録 よい 5。

NM LLL |

2 作図 自動 3 立体 作図 する , 2 通り よっ きる よう プロ グラ され いま 1. 立ち

2 作画 され 1 1 , 奥行 ある 解釈 , 作画 する (3

1 Bl).

この 場合 , A よう 作画 され , B よう 立体 解釈 され ます 2. 立ち

2 作画 きれ 1 1 , 斜め 解釈 , 作画 する ( 3 - 2 М).

以上 2 つの 選択 つい , 透視 作画 , 2 ゲー どちら 解釈 作画 する きま ,

その 都度 どちら 指定 くだ さい

これ 2 デー 併用 , 3 - 3 うな 応用 活用 可能 Ее.

(高き 指定 考え

高き (奥行 = 方向 ) 指定 , 標準 fr (基本 単位 使用 頻度 高い 要素 どか 任意 設定 きる ) 単位 1 , それ 対す 倍率 設定 行う いて ます

3 - 4 示す よう 奥行 位置 設定 , 立ち 終わ 標準 奥行 対す (HE) , 立ち 始め 位置 標準 奥行 する 倍率 (HS) 設定 より , Z 決ま

ik, Z 標準 奥行 単位 (= 1) 実数 設定

iX, 3D 作製 レシ ステ ログ ラム © HE, HS 指定 HE よび HS 指定 , 作画 シス テム 基本 モー 2 基本 作画 [Ев] 押し , 高き (奥行 =Z )

指定 変更 呼び 出し ます (作画 シス

テム * 条件 補助 操作 参照 )。 iE, HE, HS 指定 同様

場合 , 今回 指定 不要

HE=1 , 入力

リタ キー くだ さい

HS = 0 , 入力 リタ キー くだ さい 指定 文字 3 0.24 場合 24, また 0.2 指定 RTG; =2 k KO Т;

標準 奥行 単位 (=1) , 基準 いる , メモ Е, BRO 便

==FuvbIOOoƏ”

今回 , НОЯ ЖСК あり ます 足ら 説明 思い ます , 入力 シス テム 概要 理解 HEOR ЫТЫ 20%

fk fk KR, この 入力 デー 3 変換 する プロ グラ 説明 +, 紹介 3 D 発展 けれ , そこ 至る 入力 簡単 さと リッ , きっ わか いた ける 思い ます

ころ 今回 入力 ゲロ グラ 使え , あげ 入力 始め , Š 描く こと きま そこ あな タイ トル 作り , スー パー イン デオ 収め ,。 あな だけ テロ 作り 9 チャ レン みて うぅ , いよ いさ 3 挑戦 びす 楽し きも グン 盛り あがる こと

8 - 1

3 -4

ケー А X 2 入力 図面

"| HE=1 HS=0 . HET Нэ,

立ち

奥行 倍率 (Z )

立ち

アン グル 同じ 場合 , 画面 消去 , この よう 画面 合成 可能

3D CAD<2> 35.

入力 シス テム 操作

起動

HuBASIC 立ち げた , RUN “CAD- START" 起動 ます XIturbo 場合 , NEWON 実行 くだ さい (| HELP| 押し BASIC 立ち )。 画面 構成

作画 範囲 , 囲ま 画面 リー スペ また, 作画 コマ ンド , 画面 右側 LINE, BOX どの 文字 表示 され いる 行い ます イン , 同様 画面 カラ ンプ 指定 ます 主要 操作

キー ボー ,。 ウス イス ティ 使っ グラ フィ カー ソル 移動 させ , リタ キー (マウ 場合 [ЕЖУ и) 作画 ポイ ント コマ ンド 指定 ます

< カー ソル 移動 ポイ ント 指定 > e 7T + —0)[11[21[31[4][6][7][8][9], + @ ジョイスティック , キー @ マウ , |+

< カー ソル 移動 スピ 変更 >

@ キー ボー 場合 [HTAB」 押す ピッ , カー 1 ドッ せる こと ,

| イン 指定 する 解除 され ます

@ マウ 場合 シャ 純正 マウ MZ-IXI0 (XI turbo DNH) 場合 [IR| ボタ , |・0 マウ 場合 ボタ , 細か , イン 指定 する 解除 され ます @ イス ティ 場合 トリ ガー ボタ 押し いる , カー 細か 作画 コマ ンド 基本 モー グラ フィ 画面 右上 ある 指定 マン (マゼンタ ) 移動 させ , リタ キー (マウ [L|) 押す , その コマ ンド 表示 反転 , 作画 コマ ンド 指定 (変更 ) きま W-—LNE (ライ ) : 直線 引く 始点 終点 指定 する , 2 引か 連続 ライ 続け , 途中 切る 場合 , LINE マン 指定 直せ , 新た ライ きま , 起動 , H この モー 指定 され ます Ш-БОХ (ボッ クス ) : 四角 描く 描き 角形 対角線 2 それ 指定 ます

36 OnlMzZ 1985.8.

CIRC (サー クル ) 描く また よび 外周 位置 カー ソル 指定 , 種類 キー (0]—[8]) 指定 ます 種類 指定 > [0~

О

: Fg, АН,

| 2 3 4

PAN (ペイ ント ) : 境界 囲ま 塗り つぶ

PAIN 指定 , カラ ンプ 希望 選択 くだ さい 塗り カー ソル 移動 させ 位置 指定 また 境界 含む られ 塗り 直し いと , 変え 必要 あり ます (一 LCOL)。 PSET (ポイ ント セッ ) : 描く

任意 位置 指定 描き ます Ш-БОХҒ (ボッ クス フル ) : 四角 描き ,

塗り つぶ

BOX 同様 描き 角形 対角線 2 それ 指定 くだ さい Шон (デリ ) : 描い

コマ ンド

この コマ ンド 指定 する , いっ 消え , 描い ひと まで 出力 ます 完了 する ピッ 入力 待ち

Ш-ГЕРЕ (リフ レイ ) : 描い 繰り 返し 描く コマ ンド

この コマ ンド 指定 する , いっ 消え , 入力 順に 出力 ます 出力 完了 する ピッ 鳴っ 入力 待ち 作画 ゴミ 残る こと あり ます , REFR 実行 する 消去 きま スン (スン ) : 寸法 補助

, その 表示 する コマ ンド

まず 寸法 補助 引き 始点 , グラ フィ 移動 指定 同様 終点 指定 ます , 画面 下方 寸法 きま , その 入力 ます , 寸法 補助 寸法 表示 され ます , + 入力 リタ キー 押し 場合 画面 ドッ 表示 され ます (な , 寸法 対象 タテ ヨコ 長手 £d, £f, この コマ ンド 2 画面 , 3 画面 自動 変換 する 場合 出力 され ませ )。 作画 条件 , 補助 操作

基本 作画 コマ ンド ほか ., 作画

変更 作画 補助 行う 機能 あり コマ ンド メニ ュー 赤い 文字 表示 され コマ ンド , ファ ンク ショ ー[ FI |—[Е10] THEE きま , |・0 デー ウス 使用 する 場合 , ファ ンク ショ 指定 終え あと , マウ [RI ボタ この 機能 呼び 出せ ませ

GLID or[F 1] (ZU y E)

作画 補助 表示 ます 指定 解除 され ます

Ш— CLSO or[F2| (画面 クリ )

表示 され いる グラ フィ 消去 ます (デー 消去 ませ )。 W PALE or [F3] (パレ )

画面 ポジ ネガ 逆転 ます PALE , [F 3 押す 画面 ポジ 反転 きま , 反転 コー ([0]—[8)) いずれ キー 選ん THL, リタ キー 押し くだ さい INT 指定 する [F5] 解除 され ます LCOL or[F4] (ライ ンカ ラー)

LINE, BOX, CIRC, PSET, BOXF, そし РАМ 境界 変更 ます 変更 きま , -8+-9 いずれ 押し , リタ キー 押し さい

NIT or[F 5] (イニ シャ ライ ) 画面 条件 初期 (BASIC ニュ アル 参照 ) 実行 ます より , PALE よる 反転 解除 され ます

ヨコ セン orlF 6

水平 引く 機能 引き 始点 入力 , カー ソル ヨコ セン 指定 指定 する , ある , 始点 入力 , カー ソル 終点 位置 まで 移動 させ [F 6 押す , E 水平 引く こと きま

タテ セン or[F 7

垂直 引く 機能 セン 場合 同様 操作 , 正確 垂直 引く こと きま

オク ユキ or[F8| .

3 出力 (ある 奥行 ) 条件 設定 機能 下方 , 標準 対す 立ち 終わ (Hir) 倍率 , 標準 対す 立ち 始め 倍率 きま , それ 倍率 入力 , リタ キー 押し くだ さい (詳細 , 3D シス テム 説明 ます )。 コピ orlF 9

ハー ドコ ピー プリ ント アウ 機能

リン 正しく 接続 され , 起動 ある こと 確か さい 入力 付属 機能 モー 入力 , 以上 ほか いく つか 機能 あり ます , コマ ンド メニ ュー 下方 ブル 表示 され コマ ンド 指定 ます load (ロー ) 作画 デー 呼び 出し , 再生 行い ます コマ ンド 指定 する , ドラ イブ デー タデ 入っ いる , 確か くだ さい 。load 呼び 出す , 0-іоай | MARGE きま , どちら 番号 入れ ます Ф 0 =load DBR, デー , ファ イル ある デー MEMORY され ます | MARGE 場合 , デー 新しく 呼び 出す ファ イル デー , 合成 され ます E, デー 300 超え エラ れる デー 合わ 300 超え いよ うに くだ さい 既存 ファ イル リス 画面 表示 , 画面 下方 ファ イル きま TOT, 呼び 出し ァイル 入れ , リタ キー 押し ます 読み える 作画 始め , 作画 完了 する ピッ 鳴り , 作画 基本 モー 戻り ます save (2—7) 作画 デー 記録 行い ます コマ ンド 指定 する , 書き 込み 使 ディ スク , ディ スク ドラ イブ I! 入れ 確認 ます デー ファ イル きま , ファ イル 入れ , リタ キー 押し くだ さい ディスク らく する 。, まで デー くし ます (YES=I, №= 2 )」 きま , デー 消去 する 場合 | , 残す 場合 2 キー 入力 ター 押し ます Ш wid (ウイ ンド ) それ まで 作画 縮小 また 拡大 Ма, 2, ヨコ それ 任意 倍率 場所 出力 ます 画面 指定 せよ 表示 され ます , カー ソル 移動 させ , 取り 込む 四角 始点 (左上 頂点 ) 終点 ( 頂点 ), 続い , 描き 込む 始点 終点 , 順次 メッ セー 従っ 指定 ます z, データ オー パー まう この コマ ンド 2 以上 続け 使用 いで くだ さい ただ, コマ シド

2 図面 出力 , 3 自動 変換 場合 出力 され ませ CLS (画面 クリ ) テキ スト 画面 クリ ます Ш— menu (メニ ュー) 作画 シス テム 3 変換 シス テム , ステ メニ ュー 戻り ます ( ステ ニュ )。 Ш TILE (タイ バタ ) 画面 右端 ペイ ント カラ ンプ こと きま コマ ンド 呼び 出す 画面 下方 指定 くだ さい 表示 され ます , カー ソル 変更 ラー ンプ 位置 移動 , 指定 ます <, 画面 下方 カラ ンプ 1!6 (タイ デー ) DK 示さ , 0 F デー 入力 , リタ キー 押し くだ さい (数 BASIC マニ )。 カラ ンプ 塗り 変わ , らく ピッ 鳴り 基本 モー 戻り ます ж, 境界 同じ 混ざっ いる 場合 , 塗り 変わ いこ あり ます , 作画 変更 状態 塗ら Ш new (ニュ ー) 入っ いた 作画 デー すべ

ж, グラ フィ 消去 され いま また , 付属 機能 モー , LINE 作画 きま せん , 作画 する 基本 モー 戻っ くだ さい デー ンジ ケー 画面 3 デー 関す イン 表示 され いま : 作画 デー 示し ます (300 SAVE くだ さい )。 メモ 表示 gx. 作画 関す

番号 表示 され いま

(奥行 ) 指定 立ち 終わ Uo, 標準 対す 倍数 表示 され いま DER (奥行 ) 指定 立ち 始め , 標準 対す 倍数 表示 され いま

誤操作 よる エラ 6070 10 [J 実行 くだ さい

| 4 1 ジネス 活用 , ビデ テオ 活用 挑戦

1983 9

プロ グラ デー 打ち 込む 入力 , それ くら リン 出力 感激 プリ ンタ 自ら , | 2 続け 集計 項目 100 超え , 出力 使 われ スピ ロケ , 1 つき 30 ー40 程度 , 全部 150 ペー

エリ (エリ 構成 利用 ) , ハー ドコ ピー 出力 , 任意 項目 計算 その 結果 , 地図 グラ フィ 現し くれ , 間違い 解消 スク リー ント 貼り 省力 実現 する あたっ 現在 ころ , この 当たら 計算 結果 ビデ 収録 きた 思う

1984 10

研究 調査 委託 され 基礎 づく , アウ デー

始め ウト プッ 概要 マト ックス 化し 傾向 読み 取り , この , 違い いか どう チェ いく ころ , この 読み 取り 作業 ひと 苦労 よっ いう こと 使う

また , 伝わり すい よう , 発表 ビデ 収録 この ひと 含め 2 割く ジタル テロ 欲し くる 1984 1

デジ タル テロ デオ カメ 接写 レン 接写 レン 使え , 写真 雑誌 自由 撮れ ズー 使え 動き くる , 必要 情報 クロ 効果 せら れる , BGM アフ レコ すれ , デジ タル テロ ソフ (SEAD) (à, ENDE, なんとなく ちゃ 感じ 使う 半減 デオ さま まな 活用 , 実に 近づい きた

3D CAD <2>

37

リサ スト 1

5 “^жжжжжжжжжжжС AD -5 ТАК Тжжжжжжжжжжжжжж

7 INIT:PALET:MWIDTH 88

18 PMAX-301:DIM TAS (24). РАФ (24), DTS (PMAX) 15 COLORé, 11 CS IZES: ОСАТЕ2Ө. 10 :РК ИМТ #8 "САО -5УЗТЕМЖЖЖЗТАР Тжжж" : CS IZE @ 17 INPUT "マウ 9 マス (YES=1) "IMAUE IF MAU=1 THEN 36 18 ІМРОТ "2° イス テッ ラー カイ マス カカ (YES=1) "kJOI IF JO <>1 THEN JO=0@ 19 GOTO?6

36 LIMIT &HFBFF

48 LOADM"BMOUS"

50 DEF USR-&HFC80:PAD-&HFE15:C-7

68 POKE PAD, 20е, ð, 100,68

78 АФ-" *

90 GOSUB168600:COLOR4, 9

500 CHAIN"MAIN-JOB"

1008 FOR I=0 TO 24

1010 READ РАФ: ТАФ (1) =РАФ:РАФ (1) :HEXCHRS$ (РАФ) 1020 NEXTI

1030 RETURN

1200 рата 999999

1210 DATA FF9999

1220 DATA eerree

1230 DATA 9999FF

1240 DATA FFFF99

1250 DATA FFeeFF

1268 DATA 99FFFF

1278 DATA FFFFFF

1280 DATA AA0000

1298 бата 0@0AA009

1300 DATA өвөөеда

1310 DATA AAAA00

1328 DATA AABAA

1330 DATA 99QAQAA

1340 DATA AAAAAA

1358 DATA FFAAAA

1368 DATA AAFFAA

1378 DATA FFFFFF

1380 DATA QAAFF

1390 DATA FFAAFF

1400 DATA Ae6FFFF

1410 DATA FF99QA

1420 DATA 99FFAA

1438 DATA ғғғғаа-

1448 DATA AA8008FF

Xiturbo 変更 よび 追加 リス

7 INIT:PALET:HIDTH 88, 25, 0, @:К1 1ST@: СОМОГ Ее, 25

18 PMAÁX-601:DIM ТАФ (24), PAS (24), DTS (PMAX)

15 COLORé, 1:С512Е3:1 ОСАТЕ2Ө, 10:РКІМТЊӨ"САр $УЗТЕМЖЖЖЗТАКТжжж" : CSIZEG

17 KMODE@: INPUT" フス 3 イマ スカ (YES=1) "iMAU: IF MAU=1 THEN GOSUB5080:GOTO?0

5000 ‘MOUSE

5020 LINE (@, 6) - (7, 7? , XOR, BF, HEXCHR$ ("808000 666060 787878 242424 222222 111111 Ө ABABA 040404")

5060 DIM A13)

5070 GET3 (8, 0) - (7, 52, 6.7

5080 X=0:Y=0:XX=100:YY=100

5098 RETURN

リス 2 JOB MAIN

16 “JOB MAIN--------

28 CLICKOFF:^ON ERROR GOTO40000

30 RESTORE 48:FOR I-8 TO 8:READ B8$% (1) :NEXTI

48 DATA ZZR* , LINE, BOX ,CIRC,PAIN,PSET, BOXF, DEL ,REFR 50 RESTORE 9:FOR 1-8 TO 8:READ В1%<1)2:МЕХТІ

68 DATA GLID ,CLS0,PALE,LCOL, INIT, ヨコ セン , タテ セン オク ユキ , 26° 76 RESTORE 88:FOR I=0 TO iREAD В2% (1) :NEXTI

86 DATA load ,save,wind,CLS , menu, TILE, new

98 INIT:IF MAU >1 THEN X-319:Y299:GOTO146

108 LOADM"BMOUS"

118 DEF USR-&HFC80:PAD-&HFE15:C-7

120 POKE PAD, 266, е, 100,0

130 А%=" k

140 CLS

288 LOCATE280, 16:СО( ОК2:РКІМТ"жжжжжСАаО ЅҮЅТЕМжжжжжжж" ; t COLORé PRINT" (BY HISASHI O ZAWA) "

210 605081478

228 BEEP:E$="B":E1=1:CLS

230 GOSUB 1630:COLOR C:LOCATE20, 23:PRINT"C=";C:LOCATE25, 23: PRINTSPACES$ (16) :LOCAT E25, 23:PRINT"HE="+H0K$:LOCATE35, 23:PRINT"HS="+HS0OK$

28 onwz 1985.8.

248 LOCATE0,23:PRINT"DN=";:PRINTUSING"#WW";DNJ:PRINT"” MEM=";:PRINT FRE (0) : IF DN >PMAX- 1 OR FRE(0)<1000 THEN COLOR 1,2:PRINT" モリ イッ 0* SAVE PLEASE":PLAY"GFEDC":C OLOR4, 9:GOT024 19 258 (ОСАТЕӨ, 0: PRINT"FIGLID:F2CLS60:F3PALE:F4LCOL:FSINIT:Fó25t727:F7323t7:F8171*:F9?23 t? -1F 10MENU" 268 ON KEY GOSUB 60800, 6126, 6200, 6306, 5488, 6520, 6620, 6800, 57080, 2040 278 GOSUB "マウ " 288 WINDOW (1,1)-(583, 1982, (1, 1) - (583, 198) 290 IF $=6 THEN POKE РАО , 10, 0, 180,8 300 IF S-4 THEN GOSUB"DELAY":GOTO 1956 310 IF S=1 THEN GOTO 350 320 IF $=2 AND SF=0 THEN POKE &НЕЕВС, Ө:РОКЕ &HFE1D, 2, 1:SF=1:S=0 338 IF $=2 AND SF=1 THEN POKE &НҒЕӨС, 1:SF=0:S=0 348 GOTO 230 356 368 E=INT<(Y/8):IF Х>584 THEN 1=9 ELSE 440 378 IF X»615 THEN GOTO 430 388 IF Е›8 THEN 1900 398 CONSOLE:LOCATE 73,E1:PRINT SPACES$(4);i:E2-E1:E1-E:LOCATE 73,E:CFLASH1:PRINT B $ (E) ; 1 CFLASHe 400 Е%=СНК% (&H4 1 +E) :D$="" 410 IF E$-"H" OR E$="I" THEN 460 420 GOTO 230 438 IF Х‹=584 THEN GOTO 460 440 OUT —&H304F«PTX80,&H20:PT-INT(Y/8) :OUT &H304F«*PTX80,&H87 азе GOTO 230 468 GOSUB E$ 470 IF E$-"I* OR E$-"H" THEN GOTO 370 480 IF D$45"" THEN GOSUB 1108 498 GOTO 238 500 LABEL "А" 518 IF SUN=0 THEN LINE (X, Y)-(X,Y),XOR,C ELSE LINE 4X1, ¥1) = (X1, ¥1), XOR, C 520 IF SUN=1 THEN CONSOLE 24,1,0,20:8UN$2"":INPUT"274*? n 477" ; SUNS: CONSOLE 538 IF SUN=1 THEN D$-E$*RIGHT$(" *" «STR$ (X1), 3) +", "*RIGHT$ <" "*STR$ 15,32 +", " «RIGHTS с” "+STR$ OO ,3) +", "+RIGHT$ <" "+STR$(Y),3)+", "+SUN$:SUN=0@ ELSE X1=X:Y 1=Y:SUN=1 540 RETURN 550 LABEL"B" 568 IF LI=0 THEN LINE OG Y9 = OG Y>; X9R, С ELSE LINE (X1, Y1) = (X, ¥2, XOR, C 570 IF LI=1 THEN D$-E$*RIGHT$«(" "+STR$ CX1) 3) +", "+RIGHT$ C" "+5ТЕФ СҮ1),3) +", * +RIGHT$ С" "+STR$ OO ,3) +", "+RIGHT$ С" "+STRS СҮ), 3) +", "+STRS (C) *RIGHTS <" " 4HO K$,3) *HSOK$:X12X:Y12Y:ELSE X1=X:Y1=Y:LI=1 580 RETURN 590 LeBEL"C" 608 IF ВО=@ THEN LINE (X,Y?)-O6 Y); ХО, С ELSE LINE (X1, Y1) = (X1, Y12, XOR, C 610 IF BOs1 THEN D$-ES$«RIGHT$(" "+STRS (X1), 3) +", "*RIGHT$ С" "+STR$(Y1),3)+", " *RIGHT$" "*STR$ O0, 3) +", "*RIGHT$C" *"4STR$ СҮ), 3) +", "+STR$ (G) *RIGHTS С" "+HO K$, 3) %Н50К%:В0-0 ELSE Х1=Х:\1=\:В0=1 29 RETURN 630 R=INT (806 (ҮІ -Ү) X2) ( (Ү1-Ү) ж2) + (X1 OO X (X1 20 20» 72 648 LABEL"D" | 658 IF CD=0 THEN LINE (X, Y)-(X,Y), XOR,C ELSE LINE (X1, Y1) = (X1, ¥10, XOR,C 9 IF СО=@ THEN X1=X:Y1=Y:CD=1:RETURN 678 R=INT < (508 ( ( (Үі-Ү) ж2) ^2+ CX1—0 ^2>>/2> 690 INPUT" 225^ 9= 1 カラ 4=1/4 5358=1/2)";СІ:ІҒ CI>8 THEN 688 698 D$=E$+RIGHT$% (" "+STR$ (X1), 3) +", " +RIGHT$ <" "+6ТЕФ (Ү1),3) +", "+RIGHT% (" = *STR$ (R); 3) +", "+RIGHT$ С" "+6ТЕФ (СІ), 3) +", "+STR$(C)+RIGHT* C" "+HOK$, 3) *HSOK$: CD=@ :RETURN с 790 LeBEL"E" 1 718 D$=E$+RIGHT$(" "+STR$ ОФ, 3) +", "+RIGHT$ С" "*STR$ СҮ), 3) +", "+RIGHT$ <" "+6 ТКФ (РТ) ,3) +", s " *STR$(C) *RIGHT$ <" " *HOK$, 3) *HSOK$ 728 RETURN 738 LABEL"F" 748 D$-ES$4RIGHTS$(" "«STR$ OO ,3) +", "*RIGHT$" "+6ТЕФ C32 +", , | " *STR$(C > *RIGHT$(" * *HOK$, 3) *HSOK$ 758 RETURN 768 LABEL "G" 778 IF X=X1 OR Y=Y1 THEN GOSUB "マウ " 789 IF Ү>-198 THEN RETURN 798 IF ЕВЕ=@ THEN LINE (X, Y) - (X, Y), XOR, C ELSE LINE (X1, Y1)- (X1, Y12, XOR, C 808 IF EBF=1 THEN D$-ES$«*RIGHTS$(" "*STR$OGO,3) +", " *RIGHT$C" "*STR$CY12, 3) +", "*RIGHT$C" "*STR$ OO , 3) +", "*RIGHT$ С" " 4STR$ CY), 3) +", "+STR$ (C) +RIGHT$ <" "+H 0К%, 3) +*HSOK$:EBF=0 ELSE X1=X:Y1=Y:EBF=1 816 RETURN - 820 LABEL"H" 830 CLS e 840 IF DN<=9 THEN DN=0:BEEP :RETURN230 850 RP=1:DN=DN-1 868 FOR Ј=@ TO DN-1 870 D$-DT$(J):GOSUB 1100 880 NEXT 890 RP=0 ' 980 E=E2 910 BEEP:RETURN 920 LABEL"1" 930 CLS e 9408 950 RP=1 968 RPC1=0:RPC2=0 978 FOR J=9 TO DN-1 988 RPC2=RPC2+1 998 LOCATE?O,2:PRINTUSING "#88"; J

3D CAD<2> 39

40 ohiMz 1985.8.

1808 1018 1020 19830 1048 1100 1110 1120

D$-DT$(J):GOSUB 1100

NEXT

RP=@

E=E2

BEEP : RETURN

IF МІОФ (D$, 1, 1)="W" THEN GOSUB1800:RETURN

Ci=ASC (MID$ (D$, 1, 12) -&H48:C2-UAL (MID$ (D$, 2, 32) : C3=VAL (MID$ (D$, é, 3) ) : C4=VAL

MIDS (0%, 10, 3)) :CS=VAL (MIDS (D$, 14, 3)) :CL$=MID$ (D$, 19, 1) :C-UAL (CL$) : IF CL$="" OR C >7 ТНЕМ С=7

1130 1140 1158 1160 1178 1168 1190 ELSE i200 1218 1220 1230 1240 1250 1260 1270 1280 1290 1399 1319 1329 1330 1348 1350 1360 1378 1388 1378 1408 1418 1420 1430 1448 1458 1460 1478 1488 1498 1508 1518 1520 1530 1548 1550 1568 1578 1588 1598 1608 1618 1620 1630 1640 1650 1660 1678

SUN$=MID$ (D$, 18, 6)

IF RP*1 THEN GOTO 1160

DT$ (ОМ D$:DNzDN*1:D$-""

ОМ C1 GOSUB 1188, 1240, 1289, 1300, 1400, 1420, 1440 RETURN

А

COLOR4:1F ABS (C4-C2) >QBS (СЗ-С5) ж2 THEN LINE (C2, C3) - C2, C5) - (C4, CS) - (C4, C3) 1220

IF SUN$-"" THEN SUN$=STR$ (ABS (C4-C2)) 80701248

L INE (C2, C3) - C4, C3) - (C4, C5) - C2, C55

IF SUN$-"" THEN SUN$=STR$ (ABS (C5 -C3) x2) LOCATE ІМТ <С4+С2>/16>, ІМТ ((C5+C3) 716) SPRINT SUNS RETURN

LINE (C2, C3) - <С4,С5>,РЗЕТ, С

RETURN

LINE (C2, СЗ) - (C4, C5), PSET, С, В

RETURN

IF С5=@ THEN CIRCLE (C2,C3),C4,C, 1, 0,360 IF С5=1 THEN CIRCLE <(C2,C3),C4,C, 1,0,90

IF С5=2 THEN CIRCLE (C2,C35,C4,C, 1,90, 180 IF С5=3 THEN CIRCLE (C2,C35,C4,C, 1, 180, 270 IF C524 THEN CIRCLE (C2,C35,C4,C, 1,270, 3 9 IF C525 THEN CIRCLE (C2,C35,C4,C, 1, 0, 180 IF С5=6 THEN CIRCLE (C2,C35,C4,C, 1, 768,278 IF C527 THEN CIRCLE «C2, C3), C4, C, 1, 188, 360 IF C5=8 THEN CIRCLE (C2,C3),C4,C, 1,276, 456 CONSOLE : CLS : RETURN

PAINT (C2,C35,PA$(C45,C

RETURN

PSET (C2,C3,C)

RETURN

LINE (C2, C3) - (C4, CS) , PSET, C, BF RETURN IF С<1 OR C>7 THEN C=7 LINE (0, 0) - (539, 199»), PSET, C, B IF GL >1 THEN LINE (584, 1) - (615, 199), PSET, 5, BF LINE (584, 1) - (584, 199›,РЅЕТ, C LINE (616,1) - (616, 199) ,РЅЕТ, С FOR 1=1 ТО 24 LINE (584, 1ж8> - (639, 1ж8›,РЅЕТ, C NEXT “FOR I=1 TO 24 “LINE (615, 1ж8) - (639, IX8) , PSET, C "NEXT LINE (632, 9) - (632, 1995, PSET, С FOR I=1 TO 24 PAINT (620, 1ж8%5),РАФ(12,С NEXT CONSOLE : LOCATE7?, 8: PRINTCHR$ (&H87) ; COLORS:FOR 1=@ TO 8:LOCATE 73, I:PRINT ВФ (1) i :МЕХТІ COLOR2:FOR 1-8 TO 8:LOCATE 73,1*9:PRINT B1% (1) ; t NEXTI COLOR1:FOR 1=@ TO 6:1 ОСАТЕ 73,1*18:PRINT В2% (1) ; ENEXTI CONSOLE:LOCATE 73,E1:COLOR6:CREU1:PRINT LEFTS (ВФ (E1) +" "s 4) ; CREVO: ВЕЕР:

RETURN

1710 1800 1810 1820 1830 1840 1850 1860 1870 1908 1910 1920 1930 1940 1758 1960 1978 1980 1990 20060 2018 2020 2036 2040 2e5e

LABEL "DELAY" t BEEPtPLAY"R1":RETURN

RP=1:X1=VAL (MIDS (D$, 2, 3) ) : Y1 =VAL (MID$ (D$, 5, 3))

X2=VAL (MID$ (D$, 8, 3)) ! Y2-UAL (MIDS$ (D$, 11, 35)

XS3*UAL (MIDS (D$, 14, 32» : Y3=UAL (MIDS (D$, 17, 355

X4=UAL (MIDS (D$, 20, 3) ) 1 Y4=UAL (MIDS (D$, 23, 35)

WINDOW (X3, ҮЗ) - (X4, Y4), (X1, Y1) = (X2, Y2)

FOR 1=9 TO DN-1:D$-DT$(I):IF М10$ (D$, 1, 1)<>"W" THEN GOSUB 1126 NEXTI RP*8:D$z""tAINDOHCI, 1) - (563, 198), (1, 1) - (583, 198) : RETURN ^жжжжжжжжжжжжжжжжжжжжжжжжж

IF EX18 THEN Fl=E-8:GOTO1?30

F2-E-17:GOTO2036

ON F1 GOSUB 660606, 6126, 6200, 6306, 5480, 56500, 6600, 6800, 6700 GOTO238

`

фуре ч

E

ON F2 GOTO 2266, 2416, 2660, 2070, 2640, 4000, 2050 GOSUBS400:CONSOLE:CHAIN"JOB SELECT" DN*8:CONSOLE:GOTO 236

2068 50701960

2878 CLS:GOTO236 3

2200 GOSUBS610:CONSOLE:PRINT"DATA LOAD-h*247*1 Z 3“ «х2 (LOAD 4-0» OR MARGE <=1> 7 N ?) "; INPUT МА EA E :

2218 COLORS:FILES"1:":COLOR4:1IF С<1 OR C27 THEN C=7 : : 1

2220 INPUT"FILE NAME";FI$:GOSUB30060 : pu қ

2230 ОРЕМ"1", #1, "1:"+71%

2240 FOR 1-0 TO 24:LINPUT #1, ТАФ CI) :PA$CI) =НЕХСНЕФ (TAS (1) ) tNEXTI

2250 INPUTM1,LN:IF MA=1 THEN EN=LN+DN:ST=DN ELSE ST=@ EN=LN

2240 FOR IsST TO EN

2278 LINPUT&1,DT$:DT$(CI)*DT$

2288 NEXTI:CLS:CLOSE

2298 DN=EN

2388 GOSUB950:GO0SUB5600:G0SUB14780:FOR 1=8 TO 24:PAINT(ó20, 1ж8+5), РАФ (1), С: МЕХТІ:

608085410

2318 IF GL=1 THEN GL=0:GOSUB&000@

2320 GOTO229 :

2400 *

2418 GOSUB3010:PRINT"DATAÀ SAVE-h* 54771 = 5* 422"

2420 INPUT"FILE МАМЕ"3ҒІФ -

2438 ОРЕМ"0", #1, "1: "*FI$

2448 FOR I=0 TO 24:PRINT#1,TA$(I):NEXTI

2450 PRINT#1。DNIFOR I=0 TO DN-1

2460 DT$=DT$(I):PRINT#1,DT$

2470 NEXTI:CLS:CLOSE

2480 INPUT" ママ " 97-2 ñ 12» マス (YES=1 NO=2)";YS:IF YS=1 THEN DN=0

2499 GOSUB3999

2500 IF GL=1 THEN GL=9+GOSUB 999

2510 GOTO229

2600 '------- WIN----

2618 PRINT" リコ 6 9*ta? / サイ ショ 594 t3"

2626 GOSUB58000:BEEP:CLS ;

2638 CLS:X1=X:Y1=Y:PRINT">>2 X1,Y1=";X,Y, EPR INT "シュ シテ イセ "

2640 GOSUBSO0Q0:BEEP:CLS

2650 X2-X1Y22Y:PRINT"»32577X2, Y2=" 3X, Y

2668 PRINT "カキ コム 9*taz? サイ ショ シテ Ез"

2678 GOSUB5000:BEEP:CLS

2688 X3=X:Y3=YIPRINT" テン X3, Y3=";X, Y; EPRINT" テン シテ イセ セヨ" я

2698 GOSUB5000:CLS j es

2700 X42X1Y4* Y1PRINT"$3277X4, Y4=" $X, Y, у T ies

2718 IF X2-X1=0 OR X4-X3=0 THEN PLAY "CDE"#PRINT" ナラ t3":GOTO2610 im

2720 МІМООИХЗ, ҮЗ) - (X4, Y4), (X1, ¥1) = (X2, Y2)

2730 RP=1:FOR I=RPC1 TO DN-1:0$-DT$(I1):GOSUB11208:RPC2sRPC2*1:NEXTI:RPCisRPC2 a ;

2740 D$="W"+RIGHT$(" "+STR$ (X1), 3) +RIGHT*$(" "«STR$Y12, 8) *RIGHT$(" "«STR$C RS

X2),8) *RIGHT$(" "+STR$(Y2), 3 *RIGHT$(" "+STR$ 03), 3) *RIGHTS(" "+5Т8Ф (ҮЗ),3 DEF

)*RIGHT$(" "+STR$(X4), 3) +RIGHTS(" | "«*STR$CY45, 3)

2750 RP=0:DT$ (DN) =D$:DN=DN+1:D%=" "

2760 WINDOW:CLS

2778 CONSOLE:GOSUB1476

2780 IF GL=1 THEN GL-0:GOSUB4000

2798 6070220

3000 FOR I=0 TO 7:РА ЕТІ, 1: NEXT: RETURN

3010 FOR I=0 TO 7:PALETI; 0: МЕХТ: RETURN

4000

4010 LOCATE8,23:PRINT"^z29 $24 イロ э マウ $34 シテ 29*94----"

4020 GOSUBS800:CONSOLE22, 3:CLS Š :

4030 IF X< 15 THEN 4010 Я

4048 CC=INT (¥/8) :

4050 PRINT" = ALN ターン 3*-3- э t-A*-M* 97 カキ カエ テー クタ "サイ ーーーー"

4060 PRINTTA%$ (СС) :LOCATE0, 24 : LOCATEQ, 23:L INPUT PAS: TAS (CC) =PA$:CLS

4878 РАФ (СС) =НЕХСНЕФ (PAS)

4080 WINDOW: 50808 1470:РАІМТ (620, CCX845) , 1, С:РАІМТ (620, CCX845) , НЕХСНЕФ (РАФ), С

4090 GOTO230 :

5800 LABEL"7?2":1F MAU >1 THEN GOSUB"GSTICK":RETURN ELSE А%=" "1$-USR (A$)

1G0SUB "DELAY"

5618 S=VAL (MIDS (A$, 1, 10)

5020 X=VAL ‹МІЮФ (АФ, 2, 35)

5038 YsUAL (MIDS (A$, 5, 3> : KRETURN

5600 WINDOW: RETURN

5610 WINDOW (1, 1) - (583, 198), (1, 12 - (583, 198) : RETURN

5700 ^----- COLOR---SUMPLE

5718 FOR J=@ TO 7:COLORJ:PRINT ЗТВ$ (J) +" - ШШ" ; : МЕХТЈ: RETURN

4099 LABEL"GLID":INIT:IF GL=1 THEN 00706100

8018 CLS:PRW &B11111110:CONSOLE8, 24, 8,74

6020 OS-HEXCHR$("00000000000000FF")

6030 P$-HEXCHR$("0000000000000000")

6040 DEFCHR$(&H30) =0%+РФ+РФ

6050 OS$-HEXCHR$("01010101010101FF")

6068 DEFCHR$(&H31)-0$4P$«P$

6876 FOR Ізі TO 874 :CGEN1:PRINTA40, CHR$ (&H30) 1CHR$ (&H31) ; : NEXT

6088 BEEP:CGENO:CONSOLE6, 25, 0, 86 :GL =1

6898 FOR 1-0 TO 24:LINE (585, 8ж1+1) - (614, GX1*7) , PSET, 6, BF : NEXT:RETURN 230

6190 CLS

6118 GL=8:RETURN 230

6128 LABEL "CLS"

6138 GOSUBSé10:CLSO:RETURN 230

6200 LABEL "PALET" ;

6218 CONSOLE0,2:CLS:GOSUB 5700: INPUT" タイ イロ / M72*2"iCX:PALETO,CX:IF CX <1 OR C

X>7 THEN GOTO 6210 ELSE PALET CX,8:CLS:CONSOLE:RETURN 230

6388 LABEL"LINE-C" s

6318 CONSOLEG,2:CLS:GOSUB 5700: INPUT" 2 イロ フロ ドン ウタ "5CEC=INT<C〉 1:CLS: IF C<9 OR

С>7 THENGOT0631 9

3D CAD<2〉 41

6328 CONSOLE:GOSUB1470:RETURN 230

6488 INIT:RETURN 230

6508 '----s3t2---------

6518 GOSUB"v2?Z2":LI*1

6528 IF Е®%‹›"В" THEN RETURN

6538 GOSUB"DELAY":1F MAU=1 THEN X=VAL (MIDS (АФ, 2, 35)

6540 YzY1:GOSUB"B":GOSUB1100:RETURN236

6688 ーーーー ンーーーーーーーーー

4618 GOSUB" ウス "』 1=1

6628 IF ЕФ<>"В" THEN RETURN ;

6638 GOSUB"DELAY":IF MAU=1 THEN Y=UAL (MID# (A8, 5, 3)5

6648 X-X1:G0SUB"B":GOSUB1100:RETURN230

6808 ^-ーーーー カサ v*a?7y セッ テイ

6818 CONSOLE23,2:CLS:HOK$="":HSOK$="":CFLASH1 4 6828 INPUT"2577* ) ка?убіу 229 = タイ スル NN" イリ NN (35° 9357) (ヒョウ シバ =1 ñ 09-228) "jHOK$ 6830 IF LEN(HOK$)?3 THEN 6828

6848 1NPUT" チリ シメ ヒョウ シド 229 = クイ スル NN" イリ IN (3 モジ シバ マテ * ) (ヒョウ シド =9 ñ U2-772) "3HSO K$

6856 IF LEN(HSOK$)?3 THEN 6848

6868 CFLASHOLCLS:CONSOLE

6870 RETURN236

6988 HCOPY4 RETURN

6910 RETURN

30000 LABEL"GSTICK":HT21:X0-161Y028

30010 WINDOW

30020 LINE (X-2, Y) - (X*2, Y>), XOR, 7

30030 LINE (X, Y-2) - (X, Y+2) , XOR, 7

30040 IF JO-?* THEN IF STRIG(JO)=0 THEN X0=1é:Y0=8 ELSE X9=1:Y9=1 30050 S=STICK (JO)

38068 LINE (X-2, Y) - (X*2, Y) , XOR, 7

30070 LINE (X, Y-2) - (X, Y+2) , XOR, 7

30080 S$-"":IF 5-0 THEN 5%-ІМКЕҮ%(0) IF S$-CHR$(13) THEN BEEP:S-1:RETURN ELSE IF S$-CHR$(?) THEN BEEP:REPEATOFF:PAUSES:GOSUBS0230 ELSE 30020 38188 IF S=1 THEN X=X-X0:Y=Y+Y0:GOTO30180 - 30110 IF S=2 THEN YsY*Y0:GOTO30180

30120 IF S=3 THEN X=X+X@:Y=Y+Y0:GOT030180

30138 IF 5-4 THEN X=X-X@:Y=Y:GOT030180

38146 IF S=é THEN Х«Х%Х0:007030180

30150 IF S=7 THEN X=X-X@:Y=Y-Y0:GOTO30180

38160 IF S=8 THEN Y=Y-Y0:GOTO30180 .

38170 IF S=? THEN X=X+X@:Y=Y-Y@:GOTO30180

38180 IF X<@ THEN Х=639

30190 IF X>639 THEN Х=@

30200 IF Ү(Я THEN Y=1??

30210 IF Y>1?? THEN Y=@

38220 вотозееге

30238 IF НТ=@ THEN X6z16:Y8-8:HT-1 ELSE Х@=1:Ү@=1:НТ=@

30240 REPEATON:RETURN38026

48008 ^------

48010 INIT:FOR 1=7 TO 2 STEP-1:COLOR7, I:NEXTI:CFLASH1I

40920 IF ERR=73 THEN PRINT" シュ ウス ヘン ++ カト ツナ カド 44t2"iPLAY "GFEDC":CFLASHO:CLS:COL > ОВ, ё: RESUME230

40030 IF ERR=53 THEN PRINT" ファ イル アリ マセ ンーーーーーーーーー "PLAY "GFEDC":CFLASHe:CLS:COL OR, 8: RESUME236 40040 PRINT" I3- 2'n»t4------------ "iPLAY "GFEDC":CFLASH8:CLS:COLOR, 6:RESUME230 X1turbo 変更

90 !40 代わ

100 КМОБЕ@: INITi IF MAU >1 THEN Xs319:Y299:G0TO1168 110 CLS

290 340 代わ

52 5 300 *

5000 5030 代わ

5000 LABEL"??2":IF MAU >1 THEN GOSUB"GSTICK" : RETURN

5018 MR=0:M0USE 1 XX, YY

5020 MOUSE2, ð, 1

5030 МО05Е2,1,1

5040 МОЦ5ЕЗ, 0, 0, 632, 192

5050 WINDOW

5048 PUTA (XX, YY) = (XX+7, ҮҮ%7), A, XOR, 7

5070 PUTƏ (XX, YY) = (XX+7, ҮҮ%7), A, ХОК, 7

5080 IF BO=1 OR EBF=1 THEN LINE (X, Y) = (XX, YY), XOR, 7, B: L INE (X, Y) = О, YY), XOR, 7, B: G OTO5100

59968 IF (1-1 THEN LINE (X, Y> - (XX, ҮҮ), XOR, 7 : L INE (X, Y) = (XX, YY), ХОК, 7:G0T05188

5108 XX*MOUSE (0) : YY MOUSE (1) :LOCATE45, 23: PRINTSPACE$ (20) :LOCATE45, 23:РКІМТ "а=": Х X-X; "B="; ҮҮ-Ү; "X2" 1XX; "Y="; YY

5110 IF MOUSE (2, 1)=-1 THEN ВЕЕР: Х=ХХ: ҮзҮҮ: MOUSE 0 !RETURN

5120 IF MOUSE (2,2) =-1 THEN BEEP:IF MR=1 THEN M0USE2, 0, 16:M0USE2, 1, 16:MR=0:G0T058 é@:ELSE MOUSEZ, 0, 2:M0USE2, 1, 2:MR=1:G6G0T05060

5138 GOTOS060

42 onwz 1985.8.

5-OS よっ 共通 プロ グラ | ro —— ——

ыу, /” | 9 4 ef" узел / 479 SPRITA —- 7 Те. ЭСИ Ju 9 Gy

5-05 “МАСЕ” 活用 始ま , これ 考え みれ 簡単 こと ある , これ 実践 こと パソ コン 空前 ある こと 言う まで Oh /MZ 永遠 テー すね 野田 (16) М2-1500 @S-OS 企画 。MZ-80 X1C 使っ いる , 2 つの Computer よう 楽し くる 加藤 % (19) MZ-80B, X1C @S-0S シャ マイ コン 君たち 通訳 すね 。80 B 持っ いる 友人 距離 ぐっ 短く ます 小笠 %4 (27) MZ-2200 @S-0S 発表 され | カ月 過ぎ , 今や S-0S 気づい パカ 自分 早く パソ コン 買っ , これ ソフ 活用 gak vO 高橋 (15) @S-0S カセ , えば ZEDA あと コピ 著作 ひっ うか 小野 義之 (17) X1C いい 打ち 込ん みん 使 いね e 6 Lisp-85 “ANMAL" プロ グラ 入れ 遊ん ころ , 友人 M “АМ すか ? 問い No / 答え ほう され , 喜ん いま 山河 ВЕ (19) MZ-700 @ 。ZAID 載っ / ラベ アセ & レー サー (5-05 ) 作っ けど あり > HR (24) MZ-2000 S-OS 走る レー サー まだ せん ぜひ 完成 きせ Oh /MZ 送っ (778%, @S- 0S 続き ZEDA ZAID > 公開 いた 欲張っ , 98 リー

НЯ te E

@ MZ ユー ザー あり ませ , АБО `

S-08S ロジ ェクト いと 思っ 良い こん こと きる

松木 淳子 (29) FM-NEW7, PC- 6001 mk II @ S-0S 記事 思わ まい まし PC-8801 移植 , わか いこ 多く 進み ませ BASIC ROM じゃ , ROM 使わ けれ …… °

飛田 % (28) РС-8801

@MZ-700 画面 する プロ ラム 。S-0S ホッ トス ター 戻る うに ます (実行 画面 クリ

=). ЗЕ 70 LD A, $70 32 ТЕ 00 LD ($007E), А 32 49 OE LD ($0Е49), А 32 87 LD ($0E87), A 32 DE OE LD ( SOEDE), А СЗ FA IF JP $IFFA

西山 弘之 (28) MZ-700 プロ グラ リロ ケー タプ ブル すか , どの アド レス 置い まい ませ ちろ MZ-1500 0K @ 先月 S-0S 少々 改造 , HuBASC ニタ リン , 使い すく いい 今月 ZEDA 打ち 込み 始め まし アセ ンプ 欲し うれ 727; 澤田 нг (18) Xlturbo @X1 HuBASIC S-0S 読み 込み ,Lisp , 0I2Bma FD1F 変更 , さら 1F 7En 0030 変更 , 0000m 4DD8 セー , IPL Lisp-85 使用 いま 井畑 (28) Xl IPL する いい アイ すね 6.MZ-1500 S-0S Ка 85, 5- TUE E ME

CIOS 記事

ШЕЯ

序論 共通 試み

| 5-05 “МАСЕ”

2 Lisp-85 ンタ プリ 3 チェ ログ ラム 7

4 マシ ログ ラム 開発 入門

5 エディ セン プラ ZEDA

6 デバ パッ ギン ZAID

*Lisp-85, ZEDA, ZAID どの アプ ンプ ログ ラム , S-0S"MACE" いと ませ 注意 くだ さい

今月 発表 X1 JODAN-DOS リン 紹介 まし ①JODAN-DOS 起動 する ②BASIC CZ-8FBO1 ロー ,POKE .

コマ ンド 書き 換え

012В- A0 14 > E2 OF OEA6 12 00

0000mー14FFa モー 離し

HuMonitor ③S-0S S-0S プリ ケー

それ ディ スク 転送 する 以上 準備 完了 それぞれ 起動 する , JODAN-DOS 起動 ,FILES , 必要 アプ リケーション S-0 S ロー , 最後 HuMonitor ? RUN すれ モニ コマ ンド 待ち D000』 破壊 きれ いな けれ , D 000』 ジャ ンプ すれ いつ JODAN- DOS 戻れ ます , えば ZEDA 使っ ,M マン テキ スト アド レス 調べ いて , JODAN- DOS 戻っ アド レス セー よい

THE SENTINEL 43

Ei O ゲー BEIM5S

いよ いよ 待ち , S-0S リア 走ら せる パッ ケー , ゲー ログ ラム , キャ ラク 移動 衝突 判定 どの 処理 受け 持ち ます 。BEMS 使い 理解 , どん どん 投稿 寄せ くだ さい

TV ゲー 世に 7 らい うか 当初 まり 」( 不良 言う よく わか せん ) きっ 散々 言わ よう マイ クロ コン ピュ ,「 代名詞 らい ポピュラー b, 教育 ママ さん 注目 負っ たり, 週刊 ハイ テク 趣味 いう こと 自分 知性 Gal すこ いと …… 開い 真っ まう よう 扱わ いる よう この間 イコ 使っ いわ ゆる TV ゲー なり まし STE アド ベン チャ ロー ルプ レイ ング ゲー 話題 いま , ソフ アル タイ 反射 神経 きれ まだ 多勢 占め いる よう ンチ ゲー ムセン ター 入り 込め いと いう こと

ST, Zany ËL, スペ イン 始ま リアルタイム ゲー 変化 , また それぞれ C 加え られ , 今や 改造 除い 膨大 ぼり ます マイ コン 雑誌 立ち 読み みる , 毎月 よう リア ゲー 発表 さる いま 移植 だけ 濁し いる よう 受け られ ます , それ これ

膨大 種類 ゲー 毎月 発表 きれ ソフ トウ 生活 こと ( 44 омм 1985.8.

8, プロ アマ チュ , 仕事 趣味 れる 品質 あり ます )。

, ゲー 少し みる こと 気が付き ます E, どれ これ よく いる go», 思う いと ころ いる 背景 , 言う 6 最近 リッ ター カー いう うか 小型 , FFT, 車内 べく 広く ろう いう 設計 , AWO ヘッ ドラ イト , ちょ どれ えて まう いっ こと いる いで うか

BK (Enemy 仮に 呼び ます ) いく つか OT, 自分 (Ship。 FERN o R d ADÉ いた いっ あり ます ) OT, ミサ イル (Missile) 飛び 5, 相手 ぶつ , 相手 ミサ イル ぶつ 自分 られ , どの 背景 (Back) 持つ ある

, 動物 2 持ち , ПІ 1 ある よう いう 同じ こと いか 怒ら れる 向き ある うみ 75, この >% いも あり ます , EOF ha 多く この パタ 統一 考え きそう ペー ダー b, ゼビウス , サン ダー フォ これ 当て まり ます ブロ ピン ボー ミサ イル ボー , Ship ラケット フリ ッッ パー, Back プロ 仕掛 みた , 衝突 判定 少し 変え (Ship 壊れ いよ うに する ) 解決 +. 平安 エイ リア ドア ドア , ロー ラン ナー つい これ 4 ( Back, Enemy, Missile, Ship) 考え EPCOS че

こま くる ПЕ ооа НЕ kd, 多く リア ゲー プロ グラ うち 少な キャ ラク 移動 関し , この 統一 考え きる いか いう 仮定 うま ぐい どう LU 比較 身近 ころ , BASIC LINE 画面 描く こと 考え まし ログ ラム 描き 座標 並べ , LINE こと こと , 画面 任意 場所 打つ ルー チン 直線 ルー チン まっ きま せん その よう 基本 ルー チン BASIC タプ リタ 持っ , それ 利用 めで ゲー 対比 ラク 画面 書き 込ん , Ж 判定 する 打っ , 引い りす 相当 ます ルー チン ゲー 作る びに 1 られ いる 現実 よう ゲー 作り いう アイ デア , その 段階 こう いっ ルー チン 作ら いと あっ , する こと よう あら いれ , ゲー アイ デア 考え こと 集中 きま すし , 描く (の DDA (デジ タル 微分 解析 ) 勉強 いと よう ナン セン いく くら きれ いで うか 今回 , この 考え 基づい , ひとつ タタ よう ブロ グラ 発表 する こと ます プロ グラ 先ほど 4 つの 属性 (Back, Enemy, Missile, Ship) 文字 , BEMS (ベム ) 付け ӘРЛЕЛЬ ІІД Фр

о

今回 発表 する BEMS キャ ラク 移動 , 衝突 判定 , リア ゲー 処理 引き 受け ます 起き あと 処理 ゲー よっ , それ つい BEMS ユール メイン ルー チン 任せ こと , BEMS 使っ ゲー ムジ ログ ラム フロ 1 よう 単純

ここ BEMS キャ ラク つい 仕様 説明 きま

(1) ラク B, E, M, S それ つい 255 登録 する こと $3. 同時 255 ちの キャ ラク まず 確実 ゲー くく ひま すか 十分

(2) ラク 位置 X Y зи, 画面 左上 (0,0), (39, 24) いま

(3) ラク 移動 X , Y され ます

(4 速度 127 (0…… あり ) 調 きま

(5 衝突 判定 B, М, E, S 行う 選択 びび きま (B L E 衝突 判定 する , B M 判定 いな )。 BEMS コー びに , BEMS

テー ブル 参照 ラク 移動

衝突 判定 行い ます , BEMS% =

する キャ ラク 移動

必要 あり ませ , キャ ラク

, 移動 位置 , 速度 変化 させ

いと , 1 バイ (X, Y 変化

させ よう 2 バイ ) 書き

すん まい ます

1

移動 変化

(必要 あれ )

<<, BEMS どの よう ゲー うか こと みな きる こと 思い ます BEMS 設計 あっ ペー スイ ベーダー」 2 TV ゲー 輝く, , ほとん 源氏 物語 いう 両者 , これ , 現在 リア ゲー 与え 影響

それ , BEMS 記述 する 目標 この 2 つの ゲー BEMS よる 記述 いき まし

Ф パッ クマ

パッ クマ アル フォ 比べ

動く キャラ クタ オバ 4 つと パッ クマ

いと いう イン ベー ダー より

キャ ラク ゲー 。B

EMS うち , BC aset F> b, EU

オバ , S パッ クマ 登録

オバ 衝突

, 互い ぶつ たり, パッ

マン ドッ ぶつ

BEMS 判定 戻っ きま ,

移動 , ドッ 消し

コア 増やし りす よい

パッ クマ オバ ぶつ とき

パッ クマ パワ 食べ 状態

どう 判定 必要 , 2

つい キャ ラク 移動

納め いる テー ブル 空き 作っ

これ 使う ,。 メイ

変数 ひと 使 それ 基づい

判断 すれ よい 50 ®© スペ イン ペー ダー

イン ベー ダー 場合 , パッ クマ 決定

違う ミサ イル 飛ぶ こと ,

イン ベー ダー 両者 発射

れる ミサ イル 処理 結構 面倒

ます

BEMS ミサ イル 専用 属性 持っ

いま , ここ 登録 行い ます

サイ タン 押さ きれ ,

ミサ イル 位置 ビー 位置 コピ

, 移動 X 0, Y

1 ( 飛ぶ ため) モッ

終わ 移動 BEMS 管理

ます イン ベー ダー 衝突

, パッ クマ

納め 処理 依頼 きま , 8

壊す ペー ダー 消し スコ

増やす 処理 すれ 終わ

UFO メイ 管理

いて , きど UFO 表示 イネ

ブル (許可 ) する (1 バイ むだ )

BEMS よっ 勝手 UFO 飛ば され

ます

この よう 書い まう , 実に 簡単 ゲー 作れ よう ませ くく とも, キャ ラク 移動 どの 処理 つい ほとん こと 自負 いる …… °

今回 発表 する BEMS S-OS 走っ MZ/X1 テキ スト 画面 使っ , 1 キャ ラク 移動 管理 する BEMS キャ ラク 重なり 処理 自動 行わ , キャ ラク 重なっ とき キャ ラク 退 いっ 面倒 あり ませ BEMS キャ ラク B(ack),E(nemy), M(issile), S (hip) 4 つの 属性 てい ます ラク 移動 関し B ほか ,E, M, S まっ 管理 され いま それ , BEMS キャ ラク いき まし

E, MS ラク 16 イト ベク トル テー ブル , 表示 位置 , 行方 , 速度 > キャ ラク タコ ユー , そし 表示 する 決定 され ます ある キャ ラク ベク トル テー ブル 取ら いな けれ せん 。B 場合 どの よう , 衝突 判定 定義 する テー ブル 画面 1 キャ ラク , その テー ブル 続い , 背景 キャ クタ 納め テー ブル きま

これ ベク トル テー ブル 集まり まり , 定義 まれ いる キャ ラク タタ いく 示す , DEFPTR (Definition pointer) テー ブル この テー ブル B, E, М, S ベク トル テー プル 先頭 アド レス 長き 定義 きれ ます B つい , Е きる V-RAM きる 2 , 長き 情報 意味 持ち ませ

BEMS キャ ラク これ 2 テー ブル 管理 され いま , BEMS つの 衝突 つい いき まし

BEMS 同士 衝突 判定 する COLCTL (Collision con trol) テー ブル 従っ 行い ます 衝突 発生 する BEMS 衝突 起こ こと 示す フラ 立て , 衝突 2 つの キャ クタ 属性 キャ ラク ベク トル

ゲー BEMS 45

先頭 アド レス テー プル BEMS 呼ん メイ 戻り ます テー ブル SDTBL (Col lision source & destination table) 呼ぶ СЕ.

BEMS 使う 場合 , BEMS CALL 帰っ きた 時点 , この SDTBL Dif 突発 示す フラ ます , フラ 立っ いれ 衝突 発生 すか , В キャ ラク 応じ スコ カウ ント アッ ププ や, ゲーム どの 処理 行い ます ラグ 立っ いな けれ , すべ キャ ラク 移動 終了 , 処理 (新しい キャ クタ 発生 ) よい こと Xd.

kt, 衝突 発生 , 再び BEMS CALL t, BEMS 衝突 発生 キャ ラク 計算 衝突 行っ いき ます

BEMS この よう , すべ 動作 よっ 管理 いま 。BEMS 使い こなす これ テー ブル 使い すこ ほか せん それ , B EMS プル どの よう いる 順に 説明 まし (1) クト ブル

В, М, S キャ ラク 動き 関係 する ラメ この テー ブル 納め られ ます ラク 16 イト 占有 ちり , その 2 よう いま 左側 +0, +1 いっ , 先頭 ドレ 対す オフ 示し ます id, 先頭 いき まし i, 名称 先頭 つけ , そこ 通常 書き 込み 禁止 ある こと 示し いま

(DENBL CTRL (Display enable control )

ここ 0 以外 場合 その キャ ラク 移動 , 表示 行わ 0 以外

書い あっ よい ,

ほう 計画 いる BEMS バー 互換 保つ , Ж 示す 場合 1 (表示 0 ) 書く よう さや ②*VECT BUF BEMS 移動 計算 (DDA) 行う ワー クエ リア , メイ える 移動 仕方 かしく ( まっ いっ こと あり せん )。 操作 する 必要 まず よう

46 on! 1985 8.

(ФРО5 X, POS Y キャ ラク 表示 する 位置 入り ます 原点 画面 左上 , X , Y 位置 決定 ます 。BEMS 40 , 25 表示 いま すか , 表示 する , POS X 39 , POS Y 24 書き よい こと 当然 こと , ここ BEMS 移動 よっ 書き 換え られ いき ます

(④ жРО5 L, *POS Н 画面 横幅 WX する , (POS У) ж WX + (POS X) 入り ます 。POS 下位 バイ , POS H イト BEMS ワー クエ リア , BEMS 表示 ルー チン 負担 軽く する 設け あり ます 2 バイ V-RAM 先頭 アド レス すこ , その キャ ラク V-RAM どこ 示さ いる 知る こと きま

@VECT X, VECT Y キャ ラク 移動 決定 ます 。V ECT X 画面 移動 , VECT Y 画面 移動 示し ます VECT X , VECT Y ほう 進む , ラス , 側が イナ 2 表現

6 6 上位 ビッ 符号 (0 ,

1 ), F 7 2 扱っ My まず

移動 VEC T ХЕУЕСТ Y 決定 りき 移動 つけ こと きま b 注意 きま , V ECT X, VEC T Y 移動 決定 , VECT X2:2, VECT Y 3 あっ 場合 VECT X #4, VECT Y 6 場合 まっ SEID FFs

ベク トル テー ブル

ENBL CTRL VECT BUF

(6) * SPEED BUF SPEED 従っ , キャ ラク 行う 計算 する エリ

⑦SPEED キャ ラク 移動 速度 決定 ます 高速 7Fn (127) T, 0 最低 (動か г) CT, 速度 比例 b, 静止 状態 最高 127 よう いま ざく 自然 速度 つけ こと きま

⑧CHR. CODE 表示 する キャ ラク アス キー コー Ab š+,

⑨*BEMS WORK 衝突 起こ あと 再び BEMS CAL L され 場合 継続 処理 使用 td.

@+С»5+Е#ТСТФ4^%4 kiła 開放 きれ おり , BEMS 使用 され ませ ラク 移動 以外 (ロー ルプ レイ ング ゲー ラク ) ここ 納め СЕ, те PLIN あう

(2)DEFPTR (6010н--601Ғн)

В, E, M, S キャ ラク ベク

トル テー ブル 開始 アド レス 格納 され

3 DEFPTR テー ブル

HEAD (L) HEAD (H) (LENGTH)

HEAD (L) HEAD (H)

テー ブル プロ グラ スタ 書き 込む 以外 ,。 いじ 必要 それ ほど ЖЕТА ЭЗ

テー ブル B, E, M, S まっ だく 構造 いま 2 バイ テー 開始 アド レス あり , LENGTH よっ т, ラク テー ブル され いる BEMS 知ら せま 。LENGTH 1 バイ 意味 持ち ませ 当初 , キャ ラク 多く 取れ ほう よい 思い LENGTH 2 バイ , 現実 255 ちの キャ ラク 画面 飛び こと まず ろう いう 考え ,1 イト 縮小 めで また, 先ほど 少し 説明 まし が, B ベク 常に V-RAM 2 , 2K バイ イト 固定 , DEFPTR LENGTH まっ 持ち ませ (3)COLCTL (6030』 6033。)

衝突 判定 行う 制御 する テー プル

4 バイ それ 下位 4 ビッ 意味 持ち ます うど 4X4 リー 同じ よう , B, E, M, S 動い きた , ぶつ けら れる キャ ラク ワー クエ リア 衝突 判定 行わ むせ たい ころ 1, 判定 行わ いと ころ 0 ます МЕС, 自分 らぶ つか (Source) , ぶつけ られ (Destination) 別して いる だめ えば ,。 S EE ぶつ こら , S EE ぶつ られ ときには 衝突 処理 行う よう , 4 バイ (+3 ころ )

5 SDTBL

Sorce Chr (L) Sorce Chr (H)

Dest Chr (L) Dest Chr (H)

2 ビッ ( 3 E ころ ) 0 , 2 バイト 0 ビッ 1 よい , 実際 どちら ぶつ いっ いう くい 場合 多い , リー 同様 , 対角線 , 対称 ビッ 同じ いし 普通 LE Ja

ここ , ちょ うど 対角線 , つま 属性 同士 衝突 どう 疑問 ある ころ 最初 B, E, M, S きのこ 考え よかっ , 実際 使う 自由 感じ , この 制限 解除 まし 場合 同一 キャ ラク 。, つま 自身 衝突 問題 起き ます 自分 自身 必ず ぶつ すか , 自分 自身 衝突 判定 する こと まっ ませ そこ , Source Desti nation 属性 同じ 場合 , 自分 自身 判定 避け , 自分 以外 判定 どけ ЕЛЕ UE

B つい この テー ブル たせ いま , 今回 バー ジョ B 動か さる いこ いる , 最初 1 バイ 意味 ませ (4)SDTBL (6020,--602Ғн)

衝突 起こ どう , また 起こ する どの キャ ラク どの キャ ラク ぶつ のか, どの 情報 BEMS 呼ん ルー チン 引き 渡す ブル 1%, (DSTATUS

衝突 発生 戻っ のか, ひと ちり ラク つい 処理 終え 戻っ きた のか 示す バイ 衝突 発生 場合 1, ラク いて 処理 終え 返っ きた 場合 0 入っ いま (2)Source АН, Dest Att

衝突 キャ ラク 衝突 きれ キャラ クタ アト (属性 ) いま B 0,E 1, МНО, S 3 ③Source Chr (HZL)

Dest Chr (HL)

衝突 キャ ラク 衝突 きれ キャ クタ ベク トル テー ブル アド レス 。H いう ,。 イト , L 下位 バイ 示し ます よっ , 具体 どの ラク ぶつ 知る こと きま , メイ 適当 処理 行う よう ます

`

@(HL’), (DE), (вс) 衝突 発生 後に 再び BEMS CALL 場合 継続 処理 必要 レジ スタ 退 リア BEMS ソース , 退避 レジ スタ 意味 いる わか 。SDTBL よかっ ,。 デバ 便利 ここ 入れ まい まし 以上 述べ 4 つの テー プル 管理 する こと よって, リア キャ ラク 管理 する こと きま 。BEMS , その ほか ユー ザー サブ 開放 いま , それ まとめ 示し ます

いろ いろ BEMS 説明 きま D, 動か みな いこ ピン きま せん そこで , BEMS 利用 サン プル プロ グラ ゲー 作っ ンプ いう , べく BEMS 典型 使い よう 考え みた ので うか

この ゲー S (Ship) 移動 , 2t ( BE (Enemy) M(M issile) 発射 つけ いう , きわ

Ф BEMS サブ ルー チン

(DBEMS (60004) ) キャ ラク 移動 , 衝突 判定 行い 4, 処理 すべ 4 つの テー ブル 従い ます

②INIDSP (60034) 画面 クリ 40 ラク タモ する , DE レジ スタ 先頭 アド レス する メモ 1 画面 アス キー コー 画面 表示 ます スタ 必ず コー злее

(@DISPW (6006。)

HL レジ スタ V-RAM ドレ オフ セッ , A レジ スタ アス キー コー セッ コー , 画面 キャ ラク 表示 ます

④ERASE (6009,)

POS L, POS H 示さ れる 場所 その 背景 キャ ラク 表示 ます , 場所 キャ ラク 消す いう こと

(5)MOVE (600C。) ` 指定 キャ ラク ベク トル テー ブル ドレ セッ コー 。, テー ブル 従っ 移動 その 行い テー ブル 書き 換え т.

ゲー パッケ BEMS 47

単純 移動 J キー , KK キー , I キー , M ペー スキ ミサ イル 発射

ゲー 6400g ジャ ンプ すれ スタ ます "ニン ゲー 表示 あり ませ 6 ロー チャ 載せ きま 解析 参考 きい

以上 BEMS 説明 終え ます あま する こと 種類 ログ ラム , 受け られ 少な いで ЖЕ, この 原稿 プロ (オー ルド タイ あり ませ ) 2, 3 いた いた 5, わが いま すか , 実は 作る こと , いざ オブ ジェ クト まえ この 程度 プロ

リス 1-A BEMS ダン プリ スト

& Г ---------------—

2 $ - BEMS SYSTEM VERSION 1.0 3 $ - 1984,85 М.К (YOU&HICA) - 4 к. —n 5 oooo ORG 6000H

6 4

7 1ЕҒ4 PRINT EQU 1FF4H

8 1FF7 VER EQU 1FF7H

9 1F7C LPSM EQU 1F7CH

10 000C cs Eau OCH

12 6000 C33D6O з JP

15 6003 C3F7650 JINIDSP: УР INIDSP 14 6006 C33O61 JDISPW: JP DISPW 15 6009 С55С61 JERASE* JP ERASE 16 600C C34E61 JMOVE: JP MOVE 17 &00F DEFS 1

18 5

19 6010 DEFPTR: DEFS 10H 20 6020 SDTBL: DEFS 10H 21 6030 COLCTL: DEFS 4

22 6054 POSBUF: DEFS 2

23 5036 XYBUF: DEFS 2

24 5038 TBLBUF: DEFS 1

48 отм 1985.8.

グラ , その 実に 仕様 決定 まで 7 8 カ月 いる 過去 みる , アセ ンプ ブラ いた 1 100 (コメ ント 除く 〈) らい ペー 作成 いた こと 考え , いか 手間 どっ わか いた ただ ける うか それ 費やし いま ,

BEMS BASIC CP/M よう 完成 あり ませ くま ひと つの 提案 あり タタ こん 考え うま くい くも どう わか いな с, そん ブロ グラ どう すれ いち 良い わか いな 改造 拡張 まい ませ 。「 ほう 良い いか 」,「 機能 欲し どの 意見 あり , 編集 送り くだ さい さん 意見 捕っ ころ , バー ジョ 考え みる こと まう (EF ЖЗ)

8328%2252590500%а008%8569 БЕНЕН E

pu

MAINLP:

TRICO:

6 サン プル ゲー フロ

START

3 (SDTBL+2),A

A, (SDTBL+2) ^

(TRICO*2),HL. Іх, (OOOOH)

52 23 1:60 52 38 :А6 СВ 27 :61

49 6069 25 INC HL 191 6169 2600 LD но 50 606A 23 INC HL 29 ADD HL. HL 51 6068 45 LD B, (HL) 29 ADD HL,HL 52 &06C 111000 LD DE, 16 29 ADD HL,HL 55 &06F АҒ XOR а 54 LD рн 54 6070 BO ок B sp iD EL 55 6071 2004 JR NZ, LOOP 29 ADD нун. 56 6075 04 INC B 29 ADD HL, HL 57 6074 C36050 JP NOTDSP 19 ADD HL, DE 58 6077 LOOP: DDSEO2 LD E, (1X+2) 59 5077 007Е00 LD A, OX) 1600 LD D,0 1 60 607a B7 ов а 19 аро HL, DE д 61 607B 2823 JR 2,NOTDSP DD7504 UD GX4),L 62 607D 09 ЕХХ 007405 LD (1X+5),H 63 607E DDéEO4 LD Ls (1х+4) c9 RET ъа 6061 006605 Lp н, (1х+5) CALC. NEXT POS . | 6084 225460 LD (POSBUF ) , HL CALVET: гь 6087 DD&EO2 LD Ls (1X+2) 267F Lo H, 7FH 87 608A 006605 LD н, (1X+3) 005606 р D, CIX*6) 88 6080 223660 ш (XYBUF),HL 005Е07 LD E,(IX+7) r 69 6090 CD4E61 CALL MOVE 7C LD AsH 70 6095 CDDCé1 CALL COLL “2 AND D 71 609 CD3C61 CALL ERASE 47 LD в, А 72 6099 CNTENT: LD AsH 73 6099 DD7EOA Lo A, (1X410) Аз AND Е 74 &09C CD2A&1 CALL DISP ағ р С,А 75 609F 09 ЕХХ 24 INC H 76 60A0 NOTDSP: р AsH 77 £0A0 0019 ADD IX。DE ^2 AND D 78 65042 1003 DJNZ Loop 28o2 JR 2,хәто 79 5084 5А2260 LD As (SDTBL+2) JEFE LD A,OFFH-1 BO 6047 3D DEC XGTO: 81 6008 CAB16O ЈР Z, ЕХЕЕМО зс INC а 82 6OAB 322250 LD (SDTBL+2),A 57 LD а 85 6OAE C35460 JP MAINLP LD AH 84 6081 EXEEND: Аз AND Е 95 6081 АЕ XOR A 2802 JR Z, YGTO 88 6082 322060 LD (SDTBL),A ЗЕРЕ LD A, ОРЕН-1 87 6085 COLEND: . YGTO: BB 6085 2A3B50 LD HL, (SPBUF ) зс INC A 89 6088 F9 LD SP, HL SF LD Е, А 90 6089 205960 LD HL, (RETADR) 78 LD а,в 91 60ВС E9 ЈР (HL) ві OR c 92 CB RET z 93 $ CONTINUE MODE 78 LD AB 94 ' B9 CP c 95 &OBD CONT: звів JR С, МОЧЕ? 96 &0BD 2A2860 LD HL, (SDTBL+@) #ーーーーーーー Юү --------- 97 &0CO EDSB2A60 ір DE, (SDTBL+10) р ^D 98 60С4 ED4B2C6O LD BC, (SDTBL+12) DD8502 ADD A, (1X+2) 99 60CB рэ ЕХХ 007702 ш ‹1Х+2›,А 100 60C 0024240 LD IX, (SDTBL+4 ) 79 LD ^c 101 &OCD 242660 LD HL, (SDTBL+6 ) DD8601 арр As (1+1) 102 6000 CDSC61 CALL ERASE DD7701 LD (1х+1),А 103 6005 DD7EOB LD а, (TX+8) 90 SUB в 104 $006 DD770B LD (1Х+11),А De RET c 105 &0D9 3E7F LD А,7ЕН 007701 LD ‹їх+1),А 106 &ODB DD7708 LD ‹1Х+8),А LD А,Е 107 60DE CD4E61 CALL МОМЕ DD8503 арр As (1X+3) 108 6OE1 DD7EOB LD As (1Х+11) DD7703 LD (1х+3),А 109 &0Е4 007708 LD (1х+8),А с? í RET 110 &0E7 DD7EOO LD А, (TX) X<Y --------- 111 &0EA B7 OR, A 112 60EB 2806 JR Z,CNT1 7B Lp AE | 113 60Ер CDDCó1 CALL COLL DD8603 ADD As (IX+3) 114 6020 C39960 JP CNTENT 007705 LD {1Х+5),А 115 éoF3 емтіз 78 LD A,B 116 60F3 09 EXX DD8501 ADD А, (1Х+1) 117 6024 C3A060 JP NOTDSP DD7701 LD (1Х+1),А 118 П 91 SUB c 119 1 BEMS DISPLAY MODULE те ВЕТ c 120 $ DD7701 со OX*1),A5 121 60F7 INIDSP: та LD ^D 122 6027 DS PUSH DE 008602 Арр А,‹1х+2› 123 6OFB АҒ хой ^ DD7702 LD (1х+2),А 124 ЬОҒ9 327CiF LD (LPSW), A с» RET 125 ФОҒС 3EOC LD ACLS D 126 &0FE CDF41F CALL PRINT $ BEMS COLLISION JUDGE MODULE D 127 6101 CDF71F CALL VER ; 128 6104 7C LD AH COLL: 129 6105 E6FO AND окон 342250 LD а, (SDTBL+2) 130 6107 CC8A62 CALL Z, INIDSO 32EB61 р (ТАІС2+2),А 131 4104 FE10 СР 10H Fp213060 LD 1Y,COLCTL 132 610C CC9762 CALL Z,INIDS1 FD7EO0 TRIC2! LD A, CIY*0) 133 &10F FE20 СР 20H 323860 LD (TBLBUF),A 134 6111 CCA762 CALL Z,INIDS2 ЗЕОЗ LD 4,3 135 6114 225561 LD (DSPWJ+1),HL 322560 LD (SDTBL«3),A 136 6117 01 POP DE COLL1: 137 6118 O1E803 LD BC, 1000 3a3860 LD As CTBLBUF 138 6118 210000 LD HL, O CB3F SRL ^ 139 611Е STDSP: 3238560 ш (TBLBUF),A 140 611E LD а, (DE) 3022 JR NC,COLL2 141 é11F CD3061 CALL DISPW 142 6122 13 INC DE 3A2360 LD A, (SDTBL+3) 143 6125 23 INC HL CB27 SLA а 144 6124 ОВ DEC BC CB27 SLA A 145 6125 78 ір A,B ЗЕ LD Е,А 146 6126 B1 OR с 1500 LD 2,0 147 6127 20F5 JR NZ, STDSP FD211060 LD 1Y,DEFPTR 148 6129 C9 RET FD19 аро IY,DE 149 612А DISP: FD4602 LD В, (1Y+2) 150 612A DD&EO4 LD Ls (IX+4) FD6601 LD Н, (1Y+1) 151 612D DD6605 LD н, (1X+5) ЕрФЕОО LD Ls ауз) 152 6150 ` DISPW: DDSEO2 LD Е, (EX+2) 153 6150 FS PUSH АҒ 005605 LD D, (1X43) | 154 6131 CS PUSH BC CD4062 CALL TBLSEC 155 &132 DS PUSH РЕ COLL2: | 156 8155 ES PUSH HL 542560 LD А, (SDTBL+3) 157 6154 CD0000 DSPWJ: CALL 0000 3D DEC A 158 6137 Е! POP HL 322360 LD (SDTBL+3),A 159 6138 01 РОР DE 20CB JR NZ,COLL1 160 6139 C1 POP BC 161 613A F1 POP АЕ 303860 LD A, (TBLBUF ) x 162 6158 C9 RET OF RRCA 163 613C ERASE: Do RET NC 164 &13C 2А1060 LD HL, (DEFPTR) 165 &13F 110004 LD DE, 400H PLANE ... 166 6142 19 ADD HL, DE 211060 LD HL, DEFPTR 167 6143 EDSB 46O LD DE, (POSBUF ) 223262 LD (TRIC3+1),HL 168 6147 19 ADD HL, DE 2A0000 TRIC3: LD HL, (0000) 169 6148 7E ір A, (HL) DDSEO4 LD Е, (IX*4) 170 6149 62 LD нр 005605 LD D, (IX+5) 171 614A 6B LD LE 19 ADD HL,DE 172 614B C33061 JP DISPW 7E LD As (HL) 173 D B7 OR ^ 174 $ BEMS MOVE MODULE 2820 JR Z, COLOCC 175 D cs RET 176 614Е MOVE: %------- SEARCH TBL -------- 177 614E DD7EOO LD аах š- TABLE HEAD .... HL - 178 6151 B7 OR а š- TABLE LENGTH .. B - 179 6152 C8 RET z %- SORCE POS XY DE - 180 6153 007Е09 LD А, (1х+9) і--------------------------- 181 6156 008608 ADD A, (IX+8) 323 6240 TBLSEC: 182 6159 DD7708 LD (IX48),5 324 &240 7E LD а, (HL) 183 &15C Dé7F SUB 7FH 325 &241 23 INC HL 184 615E 5806 JR C, CALC 326 6242 23 INC HL 185 6160 DD7708 LD (1х+8),а 327 6245 В7 OR ^ 186 6163 CD8061 CALL CALVET 328 6244 2810 ж 2,COLPSS 187 329 6246 224862 р (TRIC1+1), HL 188 %....... CALC CRT ADRS ........ 330 6249 ES PUSH HL 189 6156 CALC: 331 6246 240000 тиісі: LD HL, (0000H) 190 6166 DD6EO LD ‚Е, (1x+3) 332 6240 B7 OR A

ゲー BEMS 49

%..... MZ-8OK/C/1200/700/1S00 .... INI DSO:

LD HL, DSPWO

RET DSPWO:

LD DE, ODOOOH

ADD HL, DE

CALL OBB9H з?арсм

LD (HL) A

RET

MZ-80B/2000/2200

3---- COLLISION PUSH ағ Cotocc:

LD

POP

RET

AH T н app

NZ,COLRET ЈР

оррн X1/C/D/F /TURBO аш

L NZ,COLRET 0998H #MI4O HL

A

^

(SDTBL),A (SDTBL*&6),HL. (SDTBL*4),IX

(SDTBL*8) , HL. (SDTBL*10),DE (SDTBL*12),BC HL

COLEND

CD :29 1F :06 CD :E1 ES :7E 27 :04 СВ :58 64 :1Е 01 :75

Egu + EQU +7 EQU EQU +9 Eau +10 EQU +11 1 まま まま まま まま まま まま まま まま まま まま まま їмїтї CALL МКУВЕ хок А SCRDSP INKEY BAME HOT жаланы S ا ب‎ i- GAME PROGRAM START FROM HERE - ーー (に at r ӨАМЕ: LD. HL, GAME HL WAIT BEMS LD А, (SDTBL) B7 он ^ CAE364 JP Z,KEYIN РН CORRISION OCCURED Miei 342250 LD A, (SDTBL+SORCA) CB27 SLA а BEMS«34H CB27 SLA ^ + SORCE & DESTINATION TABLE 47 LD BA си 3А2560 А, (SDTBL+DESTA) E503 Eau во m CB27 ЕВО 0600 20214164

н, (IX+1) CHL)

50 onwz 1985.8

6164 6264 9864 6264 6264 6164 A164 9664 9864 A164 6164 9664 6264 9664 9664 6154

c9

00242460 DD7EOB рр770В DDS6087F

32E067

DD210067 EDSBF267 0603

JPTBL: DEFW NUL »DEFW STOP DEFW ERA DEFW STOP DEFW STOP DEFW NUL DEFW SCORE DEFW GOVER DEFW ERA DEFW SCORE DEFW NUL БЕРИ GOVER DEFW STOP DEFW BOVER DEFW GOVER DEFW ми. NUL: RET STOP: LD 1X, (SDTBL+SORCC) Lo A, (1X+SPEDBF) LD (IX+BEMSWK),A LD (IX+SPEDBF),7FH LD A, 80H XOR 'CIX+VECTX) LD (1X+VECTX), А LD A, вон ў XOR (1 X+VECTY) LD (IX+VECTY),A PUSH CALL MOVE РОР 1x LD А, (1X+BEMSWK) ір (IX+SPEDBF),A LD XSVECTX),0 LD (IX+VECTY),0 RET GOVER: РОР AF RET ERA: LD 1X» (SDTBL+SORCC) LD (IX+ENBL),O RET SCORE: LD HL, (POSBUF ) PUSH HL ш IX, (SDTBL+DESTC) LD L, (IX+POSL) LD Н, (TX+POBH) LD (POSBUF ) , HL CALL ERASE РОР HL LD (POSBUF ) , HL Cp 1X, (SDTBL+DESTC) LD (IX+ENBL),O Lo IX, (SDTBL*SORCC LD CIX+ENBL),O SCRINC: LD A, (SCRTBL) INC A CALL SCRDSP LD А, (SCRTBL) СР ENUM RET Nz POP AF RET SCRDSP: LD (SCRTBL),A ADD а, 'о* Lp HL,SCRPOS JP DISPW KEYIN: CALL ӨЕТКҮ СР "Er JR ZUP СР *M* JR Z, DOWN СР ққ» JR Z,RIGHT СР з” JR Z,LEFT СР Мач JR Z, SHOOT XOR A tD (SVECT*VECTX), А LD {ВУЕСТ+УЕСТУ) ‚А JR SETDIR ШР: LD DE, 8100H JR ЗУВЕТ DOWN: LD DE, 0100H JR ЗУВЕТ RIGHT: LD DE, 0001H JR SVSET LEFT: LD DE, 0081H SVSET: LD (SVECT+VECTX),DE LD (SVBUF) , DE JR SETDIR SHOOT: LD A, (MVECT+ENBL ) он ^ JR NZ,SETDIR LD HL, (SVECT+POSX ) LD (MVECT+PDSX ) , HL. LD HL, (BVBUF) LD (MVECT+VECTX) HL LD А, 1 Lp (MVECT+ENBL),A

%... SET ENEMY'S DIRECTION ... SETDIR:

LD IX,EVECT LD DE, (8VECT+PDSX) LD B, ENUM STiDIF: LD AE SUB (TX+POSX) CALL CVRTV LD (1X+VECTX),A LD AD SUB (IX+POSY) CALL CVRTV LD {1Х+УЕСТУ),А PUSH DE LD DE, 10H ADD IX,DE РОР DE DJNZ STiDIR RET CVRTV* LD L A AND 7FH RET z LD AL амр вон ADD А1 RET

210002 2B 7C

21006С 11016С O1EBO 3620 EDBO

21006C 11С06Е 0628 SE23

21746D 00218460 112800 0607

277. 007700 19

0019 1027

110066 Ср0560

АҒ 322060 111060 212266 011000 EDBO 113060 213266 010400 EDBO 210058 11006C 01E803

1^ FE20 2004 3601 1802 3600 13. 25 ов 78 B1 20ЕЕ

213666 110067 0603

CD1366

11Е067 0601 CD1366

11F067 0601

0068E805 00670300 E0670100 F0670100

07 ов ос ос

01000805 00000101 001045 0100081 00000181 001845

01002003 00008101

0100140F