第 8 回 1994年 11月号

■、■MDW…団
ISSN0389-5254
表紙:東京国際空港
JAPANAIRCRAFTPILOTASSOCIATION
<コラム>
中部新空港の早期実現を望む.…・………………………………・……栗崎教雄…2
<航空気象>
パイロットに望まれる知識は何か……………………………………中山章…4
<特集:東京国際空港>
沖合展開後の羽田空港の管制運用………………東京国際空港長小田原員…10
<航空局通達>
パッセンジャー・ストップの取り扱い(試行)の一部改正について……………15
データ通信による飛行計画等の取扱いサービスの試行運用の開始について……17
ヘリコプター騒音の軽減について………………・…………………………・………・21
<運輸省>
「間違い」についての一考察…………運輸省航空事故調査委員会長江努…22
<気象庁>
運航用気象(OPMET)情報の提供……………航空気象管理課北脇安正…30
<外国資料>、
ヘリコプターの計器飛行と異常姿勢について…………………訳:佐藤裕…34
<寄稿>
快適だった「政府専用機」…・………・…………………………・……秋草政雄…41
ポケットコンピューターによる航法計算⑧………………………佐野浩樹…47
北九州空港の現状と問題,その将来…………………………………山野辺孝一も・・54
<医食同源>
手作り健康法のすすめ(28)………………………………キャプテン・マエネ…59
<エッセイ>
気層の底で(19)..…………………………………………・…………宮田豊昭…64
<部会・委員会活動>
座談会一地球環境問題を考える③−…………………………定期航空部会…74
<事務局だより>
年末調整について………………………………………………………………………86
新書紹介一航空気象一一航空六法一……………..………………………・87
<ATSシンポジウム>
第15回ATSシンポジウム研究発表………………………………………………88
<エアポートシリーズ>
東京国際空港………………………・…………………………………・…・……………102
PILOT,November1,1993
−1−
『・ロ『
一一
E に I N EE F S ロ 声 T … R E
“ S WN T S … F ◎ R 以 叫 A S
N A V C O M Ⅱ S c 吃 N T F 噂 c
l賂腿
一
同阿回回国図回田回回
琴,__I−−L−L÷v:一二一且一全
Q囚国回回回凹回回回
唾雌
Xディスタンスチェッカー
? :
倫国]面魂回恥回恥四目
AEI
雌雌抽圃四日田
議蕊鍵
CAI
H
f
Ⅲ
園縁回平田回回回嘩口
佐野浩樹
−
笛髄曲回回回国
箇箇由回四国回
ポケットコンピューターによる航法計算C
は地点入力の方法に工夫してみます。
今回は,地点名をつぎつぎと入力して
今回のプログラムは,以下の5つのブ
いき,各区間と出発点からの合計距離を
ロック(サブルーチン)に分けて構成し
計算する『ディスタンスチェッカー』
ています。
を紹介します。
INS装備機では,すべてのウエイが
イントを入力した後,入力ミスがない力
どうかをチェックする方法の一つに
「ディスタンスチェック』があります(
間違いなく入力されていれば,出発点力
ら到着点までの合計距離は,あらかじM
計算されている距離と一致するはずです
が,1ケ所でもミスがあれば,すべてα
ウエイポイントが一直線に並んでいな↓
限り合計距離にズレが生じ,間違いを勇
見しようというものです。
今回紹介するプログラムも原理は同上
で,各区間の大圏距離を足していくだけ
ですが,なかなか便利なものです。
単に足し算を繰り返すだけならばポケ
コンにやらせることもないので,ここて
PILOT,November1,199J
−47−
iポケコン内部に記憶させてある地点
名による入力
NE
↓↓
22
NE
→KCC,BOMAP,RJTTぐ」
今回のプログラムのメインの部分です。
E
s
(Na.Ea)
L
J
f
e
垂
皇
杢
f
/AIPに公示されているすべての位
位霞検索/計j
算 プログラム
置通報点と陸上飛行場の緯度・経度を
二而口
データ文で登録してあります。
日本における航法援助無線施設の識
大 圏 距 離 計算 プ ロ グ ラ ム
別符号は2文字または3文字,位置通
一ホーホ
易尋
離離
区間距離昌
合計距離ヨ
報点は,FDPのシステム処理上3文
字または5文字のアルファベットで構
RETURP
成されていますので,2文字,3文字
に記憶させてある地点名,緯度・経度を
または5文字以外のアルファベットを
検索します。
入力した場合には,このルーチンをス
キップして次の『ユーザー地点の検
③磁針偏差の計算
索』に移行させ検索時間を短縮してい
入力された地点の磁針偏差を比例配分
ます。
法により計算します。今回は,北緯25.
入力した地点が登録されていない場
から45.,東経125。から150の範
合には
囲では航空図からプロットしたデータ,
NOFILEDOO
この範囲外では近似式で計算しています‘
と表示します。
④p-6法による位置の計算
ある地点から,ラジアルと距離によ上
iiユーザー地点名による入力
表わされる地点の座標を計算します。
→JAPAぐ」
ユーザー地点登録用のファイルが作成
⑤ユーザー登録地点の検索
されている場合には,ユーザー地点を
ユーザー地点が登録されている場合¥l
検索します。
は,この地点を検索します。
ユーザー地点は100個所まで登録で
きます。(1993年Na4参照)
地点の入力方法としては,次の6つの
方法を用意し,どの方法で入力したかを
●●●
1皿
極座標による入力
ポケコン内部で判別させ,上記の各サブ
→3205.12ぐ」13127.36←
ルーチンに分岐させて処理しています。
→3205.2ぐ」13127.6←
−48−
PILOT,November1,1992
計算に必要な緯度・経度を直接入力し
左下に区間距離(LEGDIST),右下に
ます。秒の単位は,10進法でも60進
出発点からの合計距離(TTLDIST)が
法でも構いません。
表示されます。
入力メッセージに対して何も入力せず
ivジオレフによる入力
→MC2705J
に実行キーを押すと,プログラムが終了
します。
世界地理座標標記法による入力です。
米軍や自衛隊ではよく使われますが,
あまり一般的ではありません。
また,β−8法による入力では,次の2
‘通りを用意しました。
°基準地点が登録されている場合には,
vある地点からのラジアルと距離によ
る入力
→KMC12045J
地点名に続けてラジアル,距離を入力
します。→KMC12045J
・基準地点が登録されていない場合は,
SID^STARなどでよく見られる表
「丙引キーを押すとp-e入力モード
示法です。磁方位から真方位への変換
になりますので,緯度,経度,ラジア
を自動的に行います。
ル,距離の順で入力します。
プログラムを入力してから電源を入れ
ると自動的に立ち上がります。ただし,
ユーザー地点用のファイルが作成されて
いない場合は,このままですとエラーに
なりますので,53ページのリストのう
ち1940行から2040行を削除し,1930
行を〔リスト1〕のように変更します。
また.3000行以降の地点データは,
地点名の最初の文字がAで始まるグルー
プからZで始まるグループの順番で並べ
てありますが,今回は誌面の都合により,
それぞれ2箇所づつしか書いてありませ
んので,AIP等を参照して追加してく
ださい。
1888:K=100800
1890:FOR1=1TOK
1900:READp$
鱒10:IFP$=F$ロRP$="E"L
ETI=K
頚20:NEXT
Tp1罫75
2050:'
誼60:READ2$
2070:f1=<LENZ$)/2
2080:N$=MID*<Z*ili4>+”.
"+f1IH$CZ$i5fM-4>
2090:E$=T+MID$(Z*ヲM+l
>4)+¥"+MID$(Z$jM+
5’例−4》
2100:GOSUB*N:GOSUB*E
2119:IFLENN$=6LETN$=N
$+早叩
2120:IFLENE$=7LETE$=E
$+v“
2130:GOTO1320
入力メッセージのあとに,前述の6つ
のどれかの方法で地点を入力していくと.
PILOT,November1,1993
〔リスト1〕
−49−
#
I
登録地点名による入力
3
6
2
3
.
3
7
ぐ
」
13624.26J
1
2
0
篭
」
4
5
ぐ
」
極座標による入力
3000行以降が地点データで,航法援
助施設,位置通報点の座標を登録してあ
りますが,メモリーを節約するため,経
度は10度の位からとしています。
登録にあたっては,最初の文字がAで
プログラムのうち,10行から250行
始まるグループからZで始まるグループ
までがメインルーチンです。140行で大
でまとめてあり,入力した地点名がどの
圏距離を計算します。
グループに属するかを判定し,1600行
270行から310行は,方位表示のため
の処理です。たとえば,30を030に変
でそれぞれのグループへと振り分けます。
例えば,TAEを検索する場合には,
4900行から4920行まで,(最初の文字
換します。
340,350行は,同一地点入力の
チェックで,続けて同じ地点を入力する
がTで始まっているグループ)のみを検
索させ,検索時間を短縮しています。
各グループの最後に登録されているE
と
はストッパーで,これが検出された場合
SAMEPOSITION
と表示します。
370行から540行までが,緯度・経度
には入力された地点が登録されていない
ものと判断し,ユーザー地点登録の検索
へと移行します。
の入力チェックです。また,秒の位を
10進法で入力した場合には,ここで60
進法に変換します。
5600行以降に飛行場データを書き込
んでありますが,これもメモリーを節約
560行から870行で磁針偏差の計算を
するため,飛行場略号は最後の2文字の
行い,北緯25。から45.,東経125。
みを登録してあります。検索時間を短縮
から150・までのデータ(平成3年の
するため"RJ∼”で始まるものを
データ)を書き込んであります。範囲外
5600行から,"RO∼”で始まるものを
の場合は,580行で近似計算を行います。
5700行からと分けています。
−50−
PILOT,November1,1992
T口︾M叩Q二D●国。二t−.。.●一︾︽コワ全二40句名“q・一子.二一込巳.一コEJ﹄、●.巨剖②4..宮・︾・二4。冒畠︺・二q0ロム︺一E一J一F□ごJヲI−roラーー医︺ラロロニ侭︺一一口ロ|ヲ■白。。﹄・]I。。ヲ■。一q一宮一QQ一qニーーロロローウハ己一
二一M叩p0雷ゴワ士4,−コ4○一コ4○をゴ賃J4U置J40﹃。4。〆、一口R︾戸口〆、直﹄ラー〆bフ8〃bラー員︺。︺﹃rR︺ラーQ︺負︺qヴロ︺ハブ︽ぜ︽ソニソ
○4●●1凸ノク、〃︹ごフー00凸︽M︾列守寺、︾Q︺?’1▲n脚︺“今“今ラーヲーn画0■&丹守宮︺ラーハロ、UうふAT〆bつIny−Aズゴ刈守QUラーnU4.4言ゴA叶うIラー②U
●●かみUV二TU写ヘゴ句、一劉叶一公ざA叶一▲ヨpq04時宮J剖叶直J列守直J目︺Eu直︺戸口か崖︺〆寓︺〃。〃h︾〃h︺ラーラ0ラーヲーラL﹃〃I、冥哩︽哩凹ユ型︺。︺Q︺QU一旬づ︽uグ︽再ゲ︽ヨダ
便0■g︻時恥T■凸土や︽利︺141凸巨J凡守口︺フ0う壬︵M︶目﹄手gnフ戸bワー︹U虞︺ズゴ︽M召畠︺更ゴqザフー︹&nU頁U1斗qザヲー︵基1&目U測守n○口︺つ凸90の宮J丘J
TATIUn今f、、︽己Q︺1凸OL4○貢哩、。Q︺0■とう凸洲寺戸口ラー︽ソ、︺寺。4叶う,ラー︹り、︺刈叶守コヲーラー1凸、︶ん可一コQUフー1A仇匂弓︺一コQ︺ラーワ↑
vハク■、︵り一身う︽4○一コ4,−コ洲守胃一胃︶40目︺4。産。40R︾一口R︺一口少b〆b70戸口ラー門戸ラーヲーnoラーロリヲー、ロロ︺qダニ廿︽ソ、。qごqグ
︽KE﹄,T01▲ロ︺例︾1凸一コ40ラーQU︹り1凸4,一コラーラ0舎1&︹口巨J一.QU偶︺ワ色︽り目﹄一コ︵ソ〆bう垂qザクロ一コ14〃b一身qジブ1言ゴ︽り〃、一身
︽UN叩をマN叩夕日、や。旨︾4○一コ4.一コ4U4。貢J40宜J4.臣J宮﹄〆b一。少b一。〆b〆、﹃rヂ。ヲ0A︾﹃Iラー﹃rラーQUR︶︽UQ︺Q︺、。qヴqゴQグ、フ
︽Upm二F、?﹄一。︺一コ−&〃。40︽り70﹃。︽U﹃r茜ヨ、り〆b4p︽ソフーワ︽1凸巨U4o︽廿負U1今1今4。︽ロ︹5口︺1ムヮ﹄4oEJラー︽ソニリう今4・今b
〆屋︺mMU●●M叩︾︽一言ゴn号一︽ゴA守タキ4斗n斗目︺ん牛目︺回り直り賃︺ごJ医迎宏屋︺宏屋︾〆函︺〃h︺〆h︺涙h官?Oラー﹃fOラ0ラーラ0、ローH︺、。ハロ口︺、。ログ︵︺ヴ︵国ゴ︵uご
〆、復マニ、〃言7,4。︹Uヲ0一コ−.〆。乱丁QU︵己句ニーム巨凶匡型Q︺R︾1△?︽4○EJラーqザ︽りへ皇◇−.A︺畠︺Qゴ︹り﹃今﹃自負︾R︾︹りニソーコワ︽ラ0
,︾、型勺ニレ、一.言ゴ列守一コ4○4,釦守40404幹巨哩宮﹄宮J宮︾宮︺宮︾畠︺虞︺夕b〆、少b〆◎?0ラーヲ070つ1ラーQ︺oUQ︺n口QUq㎡R︼Qざqゴ︵ソ
ーヒハ同ロ0●今*,。デーA︾1A︵り︽ソ4.−コう全ラーR︾産﹄︵り員︺︹ううニー上う全戸、4・上b︵リラ8qザ一身例︶一コラー言己少bくりA︺R卓4△q切言ヨヲーうニラ−14宮JR︺4口、○4,二U1LラJ1△40︵U4.ラー4︲昼︺︹りう−4●L
nKE﹄M叩、,、グM叩一身言ゴう﹄4口亨身うふ4○4○へ星4.4.可−404口zゴ巨型宮J﹃。−3厘J一コごJFU4・デログb40R︶員︺目︺良︺7OEJグロラー目︺つIフー自一ラーロ︺クロフーロリ〆ロロUQU70QUQづうInoqゴ﹃r向う、フQU
nU︽KJ、■グ︽Kラ0ズ一︽U戸口﹃aqJR︶今︽ユリ宮﹄一.QUA︺1△ニリ︻。一コ、フヲ0ウー例口安b4。︵ソ勺l・﹃合00凸虞︺4。R︾ラー言二−︽ラー4.例宮二画4.
●p
●●
●●
●●
●●
●■
■■
■■
■■
●●
0●
●●
■●
■■
■●
●●
■■
●■
●■
、。D・ro
T0ooI﹄9凸p︲Ⅱ︺︿H一合う畠An4oへ丞八H4.つムハ向4.−ゴハH4︲︾コハH一口一コ︿H直J剃守︿H〆b4.AH〆b4.︽H員︺一己八Hラーニ司八同ラーーョハ同フー〆DAHQUR軍AHQUラーハH昼U﹃f︿HqゴヲIAQごno︿HQヴニ廿
︵ごU’八局+AT6T8704pTl例︾ラーTI﹃.nUTIラー4○一I︹りぅITI﹃コニりTlラー﹃当T0nUラーーl4o1LTIヲI40Tl1凸○UTl4ワー▲TIラー︻aT014QざT04︲ワ︽〒l負哩ヂbT01&qJT04q一コT0二廿畠︺
一上v0p0仇︾仁﹄AH寺。う一AH4○う一︿H4o﹃コハ両4○一△八両[ご寺an向医u4.八両ごU4oAH〃b知守八H質U一口内向月毎医J︿HヲIごJA向う−A︶白亜ラー〆bAnQU信一AHQUヲI八HニごラーハHQJ70︿、qゴー5A同qざn口
pmnU二心午qLnR飼JQ︺医J、型1上司。n型舟時40︽、型﹃1厘J、“、四八口、星4斗う︽、型ラー宮哩詞型品りqゴnuA守宮ヨ、“ラーゲbnJ00一品口輪U4守刈吟、型ラーラー洞uq444nu4守利叶、型ラーロリ荊型4L4Lnu舟守匡J、望。︺︹。
nJ
U仇哩
、凶
一M
︶企
口n
回n
回n
口仇
U、
卿曲
U﹄
品白
哩︾
口ラ
守ー
n。
画︺
n伺
口う
ロ晶
ロ凹
n1
U4
nう
U︽
ロ一
“コ
四型
曲予
乙
匡
F
D︽
歩b
、ラ
歩ー
、、
〆。
口Q
良ザ
︺n
守口
I9
フ二
0八
写ワ
Iー
ラ雷
ーゴ
ラ4
ー.
ラ臣ー
ラー
ラー
弓I
﹃I
ロリ
ロ︺
Cu
ロ︺
口︺
冠〃。。pハー.便﹄$ラーT八nUnU雪、グp恥$QUT4nUn︺二、ノ霊巨抄F匡刃ザノ、寺旦向以戸UAHI﹄言医Joof、pハー﹄V0pm
﹄一画UⅡ一一“’一MⅡⅡ︻Mn一一り一日一*一,一一一E一一日三一U−rE−岡一*l−U4.T,一亭上二一・一J三2二一UnK二一・J*.、口々・’一四一一一︾一Z|
I
︿
H
・
。
巨
J
O
L
M
N
n
U
千
I
宮
U
9
A
、
︲
宮
﹄
R
u
T
I
う
犀
﹄
N
叩
リ
0
1
4
マ
コ
ヘ
ム
M
U
V
O
−
1
F
宜
J
リ
0
へ〒
4
P
上F
n上
KP
午E
I︵
妙。
侭M
。H
P甜
上叶
N。
m/
q、
華グ
宜n
りU
Ⅷ+
問n
戸U
UM
N叩
叩刈
F守
﹄/
Pq
上ゲ
qバ
づ寺
戸十
上n
戸U
U一
MT
皿と
一n
、K
U−
や0
11
N〆
叩、
一手
PI
上尋
ニ当
レ,
瓜。
〃v
もn
一u
へ叩
基,
令垂
子仁
p砂
恥
二
。
。
A
H
O
L
N
m
O
L
︵
U
〃
§
q
診
ん
守
Q
ザ
p
恥
O
ゴ
M
叩
F
﹄
f
、
F
こ
面
野
p
肌
p
O
二
十
蝋
I
﹄
,
叩
Y
凹
叩
1
J
仇
〒n
IU
EM
J叩
m。
U︸
二L
や︹
Iリ
qグ
ザ、
〒q
Iづ
千n
1U
ごq
J
︲
L
T
J
〃
1
リ
0
︹
し
P
上
室曹
R︽
Uし
N子
”!
。︹
。し
Ⅱp
U恥
Mニ
叩マ
︹ー
Uq
千ジI
I
岡
叩
n
u
子
I
R
U
NT
叩I
o二
NM
mm
A0
HL
ノ*
、〃
直k
﹄叩
︹U
ご・
全・半
千
1
.
。
二
十
︸
I
+
︹己︲LT4UやI。.戸UN叩pハマーTlnU戸上oU戸UN叩p恥戸UTlnU7△。。罰IFこへLMUnUpmE﹄▼Jnりl﹄Mn穿戸上金マ叩N
︾M、仁﹄14p,nK一M叩、ノf、qザ戸UMnnU:E﹄、〃f、、フn口盾﹄n︺リーうふ〆。■G︺●、叩Vq㎡uMが、口“f、TI二ⅡU
八
同色︺ooMmo.M叩一宮J品U4亘凸MⅡ一目︺仇曹o014T0p限4.n口*nU+1人。。*、U︹ごMY会子TI
Ⅱ︺E﹄一Mm■.nU●●一M叩f、1凸凹間一筆N皿、U岡川、︺ⅡUp0:M叩f、1▲一一M川圃曹一MⅡ、哩仙Up恥一MnTLp型Mm/口QnUnK■CMU●■+o■品四M岬mYnUこい
.’﹄pInU1▲I﹄一M叩、〃、︺MmTlnJ二1﹄E﹄、〃n口E﹄T6洞凹仁﹄一MmnU1LF、4巳L1△い、〃nUp“、〃TI14f、p恥官﹄
ワ凸匡﹄P上TIT凸二︿Hロハ、グ口智E﹂﹄M胴戸。八同p晩、ひn画Fこ一邸叩仁﹄仁﹄T▲*一今ノ*リー医JⅡUuM−Mm/TIARnK
Mmn︺E﹄TLTIe︺叩Tn︾TI、ノ仇曹TOI﹂八両:Mv−一nUTI3J−LTlニー﹄八H二一匡JnRnU7D、〃Uゲロハロ一T凸、J生子Mn叩r●●
叩側雷直りp型内間TL●、二月学一Mm仇︺1八一Mm〆、ラー一Nm1LここJ帥胴n口、ノーMmラーn口MnF﹄TI仁﹄今fnu1Ln凶宮J二EInUI﹄二目智nuTL。●り
り限1凸与。COM隅国︺n口N叩/、TLユリ、JTp4雪毒p恥一上/、T凸垂U仁﹄T八二二nKooMmニノ、〃、、唖Oを寺T4p必戸Uf、⑪Y。T上こりu0MH
TlM叩nUG︺14p0T1︽り*Mn1上巨迎〒IE﹄ユリ*︹K盾﹄、凸目︺TI︿HMm二・。へ星TI画野十AHワ﹄負︺1LuⅢ冠、十二・一K十
:NEXT:KEYIj'R・妙+CHR
30:LOCATE10fl:PRINT"*
3
●●
40:CLS:DEFDBL:WAIT0
DISTANCECHECKER*'
50:LOCATE1.0:input"No.
1.;F$:IFF$=鯵.BEEP
60:JAN=l:GOSUB*PSN:IFS
1:CLS:END
70:F1$=F$:N1=HN:E1=EE:N1
=160TO49
f=NN$:El$=EE$:GOTO20
80:LOCATEl.UPRINT"No.
8
2,2)
U+I1ID$(STR$<LEG+2)>
90:F$='"':LOCATE4+LEN(S
F$:lFF$=りりBEEPi:CLS
TR$LE6),1:INPUT。¥:
”9:JRN=1:60SUB*PSN8IF
8END
110:F2$=F*:N2=NN:E2=EE:N
2$=NN$:E2$=EE$
S=160TO286
i20:6OSUB*SI1E:IF3=IG0T
130:A=N1:B=N2:C=E2-E1
O280
140:D=INT((ACS(SINA*S
INB+COSA*COSB*COS
ABSC))*600+0.5)/10
159:DT=、T+、:LE6=LE6+1
160:D$=STR$D:DT$=STR$D
170:IFD=IHTDLETD$=D*
T
180:IFDT=INTDTLETDT$
+U、9リ
190:F1*=F2$:N1=N2:E1=E2:
=DT$+叩.8’
200:CLS:WAIT0
N1$=N2I:E1$=E2$
210:LOCATE1.0:PRINT'No
●■
),292)+マリ+F1$+U
.り+i1ID$(STR$(LEG+1
220:LOCATE19.0:PRINTN1
V
230:LOCATE2,3:PRINT"LE
GDIST:TT
$+りり+E1$
240:LOCATE129ヨ:PRINTn$
LDIST:U
250:LOCATE32,3:PRINTDT
$:GOTO80
269:’
230:HDG*=I1ID*(STR*HDG,
299)
2798*HD6
290:IFHDG<10LETHDGfs"
−51−
PILOT,November1,1993
●●●■■■●●
8ワ+H、6$
nK9*TLnUnK︵し﹃自信﹄︿Hg.*G︺・硬寺T4TLnUnUnUTL戸口Tl。二尺二H1.*c︺金子T▲T4nU一UTL臣UTLnK,*Mn。。T△/、TL、〃、ノooMmp0E︺U0u皿、ノハHⅧY7▲+v○ヘム
8.+H、6$
便﹄昼UF、TINm1﹄,T上N叩二仁︲E0、JRK二信︲/仁14.盾﹄一上仁﹄二仁’一卜、〃、︺二仁リノF1舟吋仁﹄皿vこいnN叩盾814N叩十もグU?二nU十二*、ノ$F0勺AH寺.
$13:KEY5.""'+CHR$1
一.一コ一身一コ一コ言ヨ﹃。﹃。一身44040拘守4q4o4叶斗4口4555賃︺匡J555︷ご5歩ロ〃b〃b6〃b
300:IFHDG<100LETHDG$=
●●■■□■巳■■■■DB
●合●、●●
ゆ■■■GQ
●■■●●●●、●■
●■●.●●●●ロ句■●弓●●●●ワ●p
n
︾仇︾9998︽U
6︽り9一Ⅲ■.
︹固99,Uユリ︹U0具■り
89R︾R︺具騨99,︾8︹U
︵り89,
︶9
44へ皇一身405Pb﹃f︵罫q壷R︾’1,4言ざ4,5Pb寺1,口qザ、︶’八ワー一コ40−,〆b﹃f、。qゴ︵り4人へ4−コ4○
10:ARUN:CLS:WAIT58
20:FORI=2T010:KEYl,""
一
95993991
88689
890:*PSN
900:S=0:ID=0:A=ASCLEFT*
ETF$=MID$(F$,2j9):
60TO1959
940:IF64<AANDM=6G0T0
1喝9
950:IF64<AAND64<BGOT
NRTES−−v
100O:GOSUB1880:locate1
6.2:PRINTNSi'N"
1010:LOCATE153:PRINT"
.E妙
1020:LOCATE14.3:INPUT"
.;E$
1839860SUB*E:IFS=16OTO
1818
1040:E$=I1ID$(STRSE.2.9
):A=LEHE*
1050:IFA=5LETE$=E$+妙.9
9
妙
1060:IFA=7LETESsES+'O"
1679:6OTO喝26
9
“
1110:RETURN
1126:,
1138:A=ASCLEFTS(FS.l):
F=ASCMIDS(FS2j1>
):D=VALMIDS(FS.5.
6
)
11
:B=VALtllDS(FS,き『2
11
1100:IFA=6LETNSsNS+'O"
●●
1890:IFA=4LETNS=NS+ワ.9
1
1080:N$=MID$(STRSN.2.9
):A=LENNS
11111111111
li0:PRINTU−−COORDI
●●
990:CLS:WAIT0:LOCATE1
1
988:N$=FS:FSs'CDH":GOSUB
*N8IFS=iRETURN
●●
960:IF64<AGOTO1240
97989
−
O1558
●■g●
9目981F176<AGOTO1959
1&1と
929:IFF$=妙咽OTO1400
O。■、Ce
(F*,1):M=LENF$
910:IFLEFTS(F$,n=''>i"L
1上1&4“4
(Ff.l):B=ASCRIGHTS
匡一
・︺
二K
一じ
P〆
︹凶
10
一二
n.
|、
−口
。一
一。
一一
一・
一J
|二
|Ⅱ
’p
+Ⅱ
一I
R−
pⅡ
I一
’。
一一
一T
一一
コくn
1D▲
、一+
人J7
.0,
︲,L
。R・
盾’0
企|み
八一千
p−O
U一.
︹一。
lF。一秒一一H一U
71661851831821999988
pm守in︺、。FrQldL﹃11▲1▲ロロTJTO、J句&︿H八両4人虹ノTlF上仁﹄AHE﹄・DDI1△ワ.。。。︿H
︹
U
二
〃
、
一
一
ワ
﹄
一
一
n
U
n
U
,
F
こ
一
合
,
M
Y
p
八
二
−
▲
。
。
P
上
二
M
V
往
々
p
恥
仇
U
N
叩
‘
雫
I
M
n
ワ
.
p
恥
ク
ー
.
AH−ap恥OLN叩N叩1LPこP上OL〒I牟今OL,﹃。ニノ、︽。一N叩。。令寺*︹uoo17△、︺Fこ︹。かみf、口︾︽平
らり
守I二
nUN
QN
︾m
二F
二﹄二F二
*n
U眉
,目
﹄
戸
し,
+︽
︹し
ごaU
U。D
。︹Lし
﹄二
14
︹雪
44
4人
人I
︲﹄
L甲
pO一
vA
Hn
U
マ
コ
リ
。
〃
、
こ毎
F
〃矛
、,
〃。
、
I昼
p︺
0、
nノ
U眉
F
n千
吋1
盾︹
﹄し
n︺
“
ロ
“p
n曲
UFu
rご
リロ
ハ二。
、上
品匡
り﹄
〃F
、U今
.言
ゴ冠
かみ少
。*1n
U
。
。
皿
U
Nこ
叩届
便、
0企
便み︾
AH
Fこ
リ*
デIp
子ハ
。グ
fロ八
みDnUTI千I千−千IやIF﹄nUOL年才全寺宮0今幸金子p︲宮01今v︹ごp、。.便﹄Tl〒’千’二宙回即UOL0LmUuNiL
870:DATA100101103185106
18718716819818819819
pmnUp咽ぞ、Fこ戸こ仁﹄戸上F﹄。。︹己、U働竺〃lPrAHRKE﹄〃1面、/、JN叩nUMU子IaU〒InuAHMN牟孝叩UNmp0八HAHp八nUp0人HAH
nU〃、RUAH目︺OLOLI﹄OLILn〃品U︹UT4f、p八nUFこMUN即nUNmnU戸UマーE﹄賃﹄八H八脚r︺FこFr侭ごpmM”?←叩vnU千1Mm午lUv
n“〆、n画十.上T1MM戸し今斗nU曾竺今矛︹apmnoノーnUv回︶便﹄1﹄1△︽しnKnUn“N叩、U伽UTL面〃二nUnUTlハロー
n回Qグpパイ、っIE0宮0八HAHAH仇︺1凸ニハョ、型か等I﹄二nU〒I︹UⅡu4吋’1.十二p恥ズゴヘェnUI﹄T4FrpmFU〒1..八HAH二戸UoD?人︽ご
〃、ロハワlnUEU写○昼J〃、〃、例︶二〃、〃、nUnp二企みAHT4nuAHノ、二FrPUTlO上傍Uノー企み卸NOC二I﹄*蝋oOv▼八ⅡUooE﹄甲p恥p恥〃、。。リ詞″両型
Qづnu雪d八貿三へ皇n口守Iワ﹄局壬、。04叩U.▼J価画M叩1△叩Y︽H〃、N恥FE8Fこ盾﹄E﹄N叩︿HnUnUnD0。¥甲。。〒In画、屈甲ooAH4jリ。。
418319219”990979959
92899988
q6凸41丑qDLdR▲。J凸00︽40▲4日&
16318418419518419419
匡J︿HQゴp八﹃?0つI+フ0勺Iラ8.*︵。。、仁,〒I写側”二p恥︵ごp恥IL︵Up恥nUnJ〃、こり▽J二7.ⅡUリ千l︽砂信﹄雪。←二かみ屍K二余や
筑凹弓InUnUFr︿HM叩nUPmTJ1▲、︺Un︽矛二AH令矛nUMU二二44千1二k可FEN叩︽。ご︺〒lリ二叩U戸rp八N叩二七寺八HpO今才︽ご
d6d:DATA097098100101103
●●
”990989979956946929
89687884
T4qヴnu官OAH︵UN皿▼4▽l官﹄TLTllcum0o幻叶,Fr︹し、ノーN”P恥︵ごoonUT4p恥F上戸r八H︽ご戸U,uNFEuNリTlTJ夕7.戸Upm9︵し?上FrMNv−▲TJp恥・97.便﹄、″。,
1”18119118110119119
Pr/、nK二TO二便0戸r二仁0戸rF’二涙U仇︺、U二・oO4F上八局かみp恥︹○Fr千IFやMH電nUMH行UN師Fr︿同FrnUNmILuN*心幸p1o1ooAH︵ごく両p恥戸r眉﹄︵。nu
1
■●。■■■●■●、●●■●●●●●●●●●
●。■
●●●●
■●●●●●●●●●●●●9CG
︵
り
8
9︾
︽
りL
︹︽
り星
例﹃
︸身
︹4
U0
85
R6
一﹃
日r
98
仇9
︾例
例口
︾0
︹4
り●2
例
︾身
例4
︺.
︵
り
4
0R
5︾
69
壷9
r
89
9︽
RU
ロ︽
ーU
・R
へ︾
星6
﹃R
9宮
4同
0︺
59
多例
b︾
﹃皇
rり
、︵
。り
q︵ザりR
︲
一
5
.11今1今.L1凸ワ﹄う−2ワ﹄22︽42今坐ワ﹄一.↓。一身﹃今亨今﹃今一身一コ一コ一コ404,4口404.4.
1
850:DATA894895097098099
q
1460:IFDS<=0BEEPl:GOTO
1459
14708,
1480:DEFDBL:X=RA-VAR:H=
NN8E=EE
1490:IFX<180LETE=-E
1500:D=DS/60:A=ASN(COS
X*SIHD*COSN+SINN
*COSD〉
1518:B==ACS(〈COSD−SIN
N*SINA》/(COSN*COS
A))+E
1520:N=INT((DUSA*100)*
100)/100:E=INT(ABS
(DMSB*100)*100)/l
00:DEFSNG
1530:HDG=RA:GOSUB*HDG:F
$=F$+じり+HDG$+''VD
S$:ID=0:GOSUB1080:
GOTO1040
1549:9
1550:IFMO40RAO82G0T0
1606
15688ID=38Q$=F$:RESTORE
5699
1570:IFLEFT$(F$2)=''R0
"RESTORE5700
15898F$=N1,$(F$,3,2〉:GO
TO1889
159889
16”80NA−6460SUB16199
162991639,164991659
>'1660>167011680)169
9,17”,l710P1729J17
39,174991758,176991
77991789917”ゥ1899,
1818,182991839,1840
5l850ild60:GOTO188
6
1610:RESTORE3000:RETURN
16298RESTORE31988RETURN
1630:RESTORE3208:RETURN
1640:RESTORE3300:RETURN
1650:RESTORE3400:RETURN
1660:RESTORE3500:RETURN
1670:RESTORE3600:RETURN
1688:RESTOREヨ799:RETURN
1690:RESTORE3800:RETURN
1700:RESTORE3900:RETURN
1710:RESTORE4000:RETURN
1720:RESTORE4180:RETURN
1730:RESTORE4200:RETURN
1740:RESTORE4300:RETURN
1750:RESTORE4408:RETURN
1768:RESTORE4588:RETURN
1778:RESTORE4680:RETURN
1730:RESTORE4780:RETURN
17988RESTORE4888:RETURN
1888:RESTORE4988:RETURN
1818:REST0RE5888:RETURN
1820:RESTORE5108:RETURN
18ヨ88RESTORE52998RETURN
1848:RESTORE5388:RETURN
−52−
PILOT,November1,1993
一コ
4句
.一
日〆
一塚
一、
5|
Z0
−6
一q
一蚕
U細
一8
︸4
一︹
一1
4.
qへ
一・
R一
二ワ
画口
一宮
︶
4
入’
一4コ
&身
句一基
□一
匿●J
り’
4一号
4−
O1L
グ一
へ︽&
守−
n5U
斗U
句一壬
。目
﹃︺3
&4
ワ.ー
コー
宮を﹄
︺︺
﹃RI
う
&
6
4
一
身
n
U
直
り
n
口
4
幹
O
L
1
▲
口
︶
4
4
q
づ
0
人
例
︺
︹
&
q
ヴ
ズ
ゴ
ロ
リ
ワ
ー
n
口
ワ
ー
貢
︺
↓
。
到
今
Q
ざ
一
コ
q
“
−
4
晶
四
A
守
1
▲
一
コ
言
ジ
4
0
q
づ
へ
坐
劉
守
4
帝
q
ザ
一
身
一
コ
一
コ
例
萱
肉
守
ふ
り
勺
I
今
I
ヲ
−
−
9コ
入っ
宮’
︺ズ
︽ゴ
塁丹
〆吋
○舟
言叶
﹄〆
、ロ
野一
局コ
&n
同U
一守
直I
﹄局
言基
︺司
一星
身n
4U
弓q
Oジ
L︹
直。
﹄一
ラコ
ー0
一人
コご
4︺
斗幻
一等
コn
〆斗
、4
0。
44
a斗
U茜
ワゴ
ーっ
1全
△句
、壬
り
4
︲
局
星
つ
全
貢
﹄
n
口
n
口
n
U
一
コ
巨
J
〆
ロ
︵
四
〆
。
4
○
巨
J
n
口
?
﹄
Q
㎡
今
冬
R
︾
0
人
宮
︾
舟
守
一
コ
、
U
〆
4
斗
へ
&
ヘ
ム
狗
牛
0
1
喧
J
q
ゴ
0
4
一
コ
4b
帝0
QA
l一
一身
コ歩
勺、
と口
画U
萱晶
Q哩
U宮
4﹄
人4
寺1
a巨
一凹
コ一
Qコ
づ寺
・I
人9
44
0う
巨﹄
智勺
1△
︽0
41
弓刻
寺
宮
︺
n
U
へ
星
、
。
4
斗
n
口
O
L
4
斗
4コ
。手
。一
置コ
哩匡
J号
ハ﹃
ロ一
コ言一
,一
一9
コ.
一コ
一7
コ40
コ4,
守身
A守一
コ1
一身一
コ,
︹己一
コ一
EJ
〆b星
〆、
b
一
,
4
白
コ
7
コ一,
,刃一
,
コ
コ
今
局涙y
竺
9
NP
叩
1F
,
9型,
F
仁H
﹄
﹄脚
7︽一
F
Fレ,
﹄
IA
,H9
.
し、一
F
亡川一
﹄
U便局
,
,
Fr
上J
箔ロ
こ盾
㈲﹄
〃n
八こ
同A
価盾
、、
し﹄
Fし
ハ千
緬叩
A︹
H、
rこ
恥岡
Ny
“n
︿H
︲,
、同
便﹄
●巳●●●●●●■●●●●●●①■■■●■■■■●●■●●●■■■●巳●●●●●●●、0■■、■■ロ●●●●■巳●■■●●●●●■●e●●●■●●●●QQ0
nun凹置U、型一.輪〃詞J1人気J司竺掘り毎J40密Uzゴ私邸nJ今I価リワーnJnu医JnJ今.﹄、“洞型寺。、ul▲nUnu﹃当n母4Lnunごn哩帝UEJ価UnunU価UごJ、型hぎらり、〃︽名、型,詞U、。、″う﹄詞〃,、型ワ︽誼JR︺弱〃
AH︿H︽H〆bAHAH八同八HAH八H4八八HAHAH4LAH︿H4吋八H臣J︿H︽H︽HQグハ耐︿H4斗八H口廿AHAHAHnごAHへH毎基AH︾。︽HAHAH﹃コハ同︿HAHAHAH︿H・’八H
E﹄晶裡nuE﹄p恥p恥Fこ︵。GU便﹄〒I〒IF﹄MU叩UFこり0”vF﹄刑閃叩脚FこvnU八FヒリIUl贋﹄守延フ﹄FこAHハ同戸上全H毎J便﹄
︿H︿同︿H︿H八同︿同︽H八H八両AH八H︿同︿H︽H︽H︿H︿H八両︿Hハ向AH八H八脚AH︿H八HAH︿HAnAHAH八両AH八両AH︿H︿H
やIやI〒I千’千I千1︸ITI〒ITl干I千I︾l羊I〒I千ITO︸I千’千IT︲〒’千IT︲子ITO〒IT6TIやIやITO千I?’子I〒I千I
nUn口一n口一口UnU、りnU.nU、唖面野nUnUnunU品U一nUnU、巴n口一口︺nU一nUnUn口曲U品り品り口U、茸nU仇U品UnU一口U画UnUnUnUn口一
分4晶口一04今乙例凹1八︹星、凶1Aワ︽n画14へ一星、U一14︽&一口︺9入へ言名品口1人ワ﹄、理1人うムロU14へ−4口雪64句皇宮ゴー回哩9二J句二言ゴ、︺OLつる
EBliツヨ509503629
ETK,4305114321
E
FHTf3402063132
FO.33401330233
E
GBE,3354243506
GFT,3523173651
HCj3396冨739474
E
HFE,3421223224
E
10,24201724105
IJT,2447134119
E
JA.31211230510
JAT,3121333049
E
KAD,2621427461
KBE,3138263050
LHE,3444483741
E
LHT,3444393742
E
MBE,3689103755
HDi25502331143
E
NA,42595241391
NCy37565939121
OB,42391543154
E
OBE,4243544ヨ喝
PQ,34592439524
E
3220:DATAE
唾U畠︺一〃一コ、“︽Ⅱqづ毎U貢ゴーUn型戸口、“﹃f皇″毎U西ごn“4.,凹毎U1Ln“4.nご前型︻anご︽U−UnU﹃.n“戸口二Un型、“40一J稲凹例官n−4.,“一J?︽、ご﹃in︾nご臣︺nHqゴ、“垂〃40,狸ワ﹄n型飛U︽りnU4U
︽凹叩八同へ〃一AH叩AHd0C︿H、再U八H叩▲凹叩心4,︿H叩八H”︽H叩一ムゴ︿u叩︹グー︿H叩人H叩︿凹叩ラーハHA凹叩AH叩言︺八H︿凹即︽H”EU︿H叩くH叩くH叩O0LAum久凹皿00▲AH”ヲ0︿HmAHm︽〃︽︿同八H叩く︼叩︿同▲凹叩▲凹叩︽H叩品﹃ず︿︼叩八叩同︽H叩宮︺
TOTO−,0︾00−11TOTITI手10︸11や01−11↑00TITOTITOTOTITlTITI−II︾10幸’0TOTO−I,Tl−10−10TIやl・や81TO千I・TITI
PQE,3456363953
貢JfU皇UR︸ラーラーラーーロ︺月。QUq哉qづ、フ画口画UCU1上9人1人句生う壬う﹄一身一コ一.甜予舟守凡守匡J亡J匡剖臣J夕b〃。台盲EUラーラー守1
列守列帝4吋列叶A守列守4吋刈吋凋守︵子列守紺守列寺Eu昼﹄臣J医﹄EJ臣J宮﹄EJごJ直﹄巨J底叫匡JごJEJ医﹄ごり宮J医JごJごJ臣J宮JごJ貢︺宜J
E
△一H,一一R一二一H一▲︵H’○m△王H二口”一口叩▲H,on△一u、1,両・ロ”6局今回叩二口叩。︷凹叩・一⑪同▲曲同1m同on▲ハ同an・ハHAH・八同、︿H|︿H今︿H|︿H・nHAH一︿Hハ同八H叩︽H︿HAH叩
D6C933482ヨ3023
■●■■●●●●●●●●■●G■句●●●、。●●●●●●●●●●●●●■●■●■●■■Q●●●●■●、■■●go●●●凸●●□■■■●■●■●■●●■●
8
︽’
U2
︹9
り。
9’
R2
︺9
90
0人
62
6仇
負︶
琶︲
︹L
り2
88
具1
凶△
82
86
同1
す今
仇2
盲9
90
64
8っ
︽︽
U6
60
曲人
︺う
例﹄
︾9
9︲
6←
︹2
U6
︽0
り4
、2
︺9
︹1
U今
82
99
0’
例1
︾2
80
0’
84
9
9
。
18888K=189968
187889
1898:F0R1=1TOK
1988:READP$
19l8:lFPS=FSORPSs'E'L
1928:NEXT
ETI=K
1930:IFPSO'E妙GOTO2060
19498,
1950:WAIT0:LOCATE0.0:P
1960:OPEN''E:USR・DAT'FOR
RINT叩[USER]叩
1970:INPUT51.X
INPUTAS311
1980:FORI=1T0X
1990:lFEOF(l)LETS=l:l
=X:GOTO2020
2000:INPUTJtl.KS,順9E*
2010:IFKS=FSLETFS=・*。
2020:NEXT:CLOSE
+F$81=X
2030:LOCATE0.0:PRINT"
守
2040:IFS=1G0T01370ELSE
2188
2060:READ7$
2959:F
2080:N$=t1IDS(ZS,1,4)+ワ.
2070:n=(LENZS)/2
'+1110$(ZS.5.11-4)
128988E$=U1▽+NID$(Z$,N+1
.4)+"、.+NIDホ(Z$,N十
2100:GOSUB*N:GOSUB*E
5.11-4)
2110:IFLENNS=6LETNS=N
2120:IFLENES=7LETES=E
$+り妙
$+vu
2130:GOTO1320
21498,
2150:CLS:BEEP1:L0CATE
0FILED<'';Fs;">':C
LS:WAIT0:RETURN
13.l:WAIT:PRINT"N
2168:,
3000:DATAAD,35384939504
3810:DATAAG,43403742270
9
6
3108:DATABASHO.27834328
3020:DATAE
3110:DATAbeach*35332740
5847
3120:DATAE
3498
3200:DATACA,33003129112
3210:DATACH>42400441410
8
8
−53−
PILOT,November1,1993
DF,35343539224
1850:RESTORE5400:RETURN
3コ
33
5。
戸罫
b﹃
〃身
b罫
会き
b7
83
9寺
9.
Q3
ザ3
83
R︺
今0
14
う4
﹄4
ワ4
︽4
へ畠
44
44
戸4
口4
5
−
34
﹃4
コ4
ー5
コ5﹃
︾7
身7
一8
コ、
3。3
3例
3言
守4
当4
414
43
43
4−
4.
444
I860:RESTORE5588:RETURN