パソコンでのアンケート・データ分析の事例研究(上）－クロス集計の自動化の試み－: 沖縄地域学リポジトリ

(1)

Title

パソコンでのアンケート・データ分析の事例研究(上）−

_{クロス集計の自動化の試み−}

Author(s)

阿部, 亮一

Citation

沖大経済論叢 = OKIDAI KEIZAI RONSO, 12(1): 73-102

Issue Date

1987-09-30

URL

http://hdl.handle.net/20.500.12001/6764

(2)

パソコンでのアンケート・データ分析の事例研究(上）

－クロス集計の自動化の試み－阿部亮はじめにＩ分析の方法１分析の手段１．１使用システムーＭＳ－ＤＯＳとRAMlDiskの採用１．２データ等のコンバート２分析の対象と具体的方法２．１クロス集計の重要性２．２コンピュータによる一括処理化３３次元クロス集計プログラムの概要３．１プログラムの条件３．２プログラムの基本構成 Ⅱプログラム前半の内容と実行結果１Mainroutine部４集計部２原データ転送部５集計結果記録部３項目指定部６結果読み出し部【以下次号】 Ⅲプログラム後半の内容と実行結果１表示、主要部２クロス集計表２．１１行表示２．２２行表示３棒グラフ表示４原データ表示５割り込み処理 Ⅳ成果と残された課題－７３－

(3)

はじめに

筆者は、本誌前号（第11巻、１．２合併号）で、文部省科学研究費助成対象

研究「戦後沖縄における社会変動と家族問題に関する総合的研究」に協力して

おこなったアンケート調査のパーソナル・コンピュータ（以下、パソコンと略

称する）による処理作業のうち、全データをパソコン処理に適したFileに納め

るまでの過程と問題点、工夫点等を、「パソコンでのアンケート・データの入

力および修正方法の事例研究一表形式化とカーソノレ･キーによる入力・修正

作業の迅速正確化一」（文献１）と題して発表した。

そこで入力、作成されたデータＦｉｌｅ（このデータは原初の基礎データである

ため、以下原データと呼ぶことにする）を読み出して分析することが次の段階

の作業となる。この種のアンケート・データ処理では、単純集計分析に次いで、

クロス集計分析が、基本的な分析手法として重視され、多用されていろ。対象

の諸特性間の関連を表示するクロス集計表を作成するこの分析は、規定要因の

抽出や相関、因果関係の分析といった分析の深化に欠かせないものである。単

純集計に比べて、多段階の集計作業を要するうえ、対象の組合せは非常に多く

なるので、これに多くの時間と労力をとられることになる。

今回のパソコンによる分析資料の作成でも、このクロス集計表作成の効率化、

自動化が焦点となった。ここを中心に概要を発表することにする。ただ、プロ

グラムや分析事例がかなりの量となるため、今回は集計Fileの作成と読み込み

までを掲載し､クロス集計表やグラフに表示する部分は、次号に掲載することに

する。ｌ分析の方法１分析の手段１．１使用システムーＭＳ－ＤＯＳとＲＡＭDiskの採用

この処理に使用したパソコン・システムは、いわゆるハード面は、前研究と

基本的に同じで、ＮＥＣ社製16ビット機ＰＣ－９８０１Ｅに、２連の８インチFDD

FloppyDiskDriveと10インチ漢字プリンタを接続したものである（文献１参

－７４－

(4)

照）。しかし新たに、増設メモリ（容量１メガBytes)の一部を、プログラムによって疑似的にDiskとして扱うことにした。いわゆるＲＡＭＤｉｓｋを採用したのである。分析作業では、全データを読み込みながら分類・集計することを繰り返すので、処理の高速化とデータの入った磁気記録媒体のＦＤＦ１ｏｐｐｙＤｉｓｋ(単にDiskとも呼ぶ）やFDDの損耗防止とをはかる必要があるが、このRAM Diskならば、全データを一度読み込んで（転送して）おけば、以後はここからデータの読み書きをすることで、Diskを回転させることなく、電子的に処理でき、この要請に応えられるからである。油１１実際、後述するプログラムを一部変更して、全1Ｍ件を読み込むのに要する時間を測定したところ、Diskから取扱単位のSectorごとに直接読み出す従来の方法では56秒かかったのに対し、ＲＡＭＤｉｓｋではわずか７秒と８分の１に過ぎなかった。もっとも現実には、１件ごとに読み込みと分類集計とを連続しておこなうので、一括した作業時間は、機械的構成の違いからもっと縮まり３分の１強となる。由１２とれに対応して、ソフト面では大きな変更が生じた。プログラミング言語が、本体付属で自立型standaloneのN88-BASIC（PＣ－９８Ｈ８７（Ｋ））から、１６ビット・パソコンの標準OSOperatingSystem（パソコン界ではＯＳは磁気 Diskを中心に構成されているためＤＯＳと称されろ）となったＭＳ－ＤＯＳ上のインタープリタ、Ｎ88-日本語ＢＡＳＩＣ（VersionLO,PS98-311-HSF）に変更された。自立型のＢＡＳＩＣではＲＡＭＤｉｓｋを一般に利用できないし、また機能が制約されており、他のＯＳ上で動く多くの多機能な支援プログラムも利用できないから、それの可能なＭＳ－ＤＯＳ版に移行したのである。㈹１．３由ＵこのＲＡＭDiskを構成するためのプログラムは、単独でも市販されているが、増設メモリポードに付属していることが多い。本システムも同様で、メガソフト製のMX-1Plusを使用している。PC-98系では、ここ数年来、同社と１．０データ機器社のボードおよびソフトが有力である。曲1.2単純な構造の３項目（項目番号10,118,170．有効回答肢数はそれぞれ１０，１１，８と、回答肢のやや多い組合せである)を対象に、全件を読み込み、－７５－

(5)

３次元の配列|に集計を行い、その所要時間を1820および1840行での表示時間の差で求めたところ､ＦＤＤからの直接読みだしは56秒とまったく変わらず、ＲＡＭ Diskでは17秒に増加し（分類集計時間が10秒という計算になる）、差が縮まってしまう。前者で時間が増加しないのは、Ｉ／Ｏ用のbufferをDiskの1trackの

表裏16Sector分以上に設定しておいたため連続して読み込んでしまい、次の

ltmckに移動する間に集計が済んでしまうからと考えられろ。

|まMAMDisk使用の値には､冒頭でのそれへのﾃﾞｰﾀ転送時間は加えられ

'ていない。これは、1300行前後で計測して（1310行）６１６秒である。これを加

|えれば、所要時間比はさらに1.7分の1に縮まる。一度きりでは大差ないことに

なる。しかし、この記憶内容は一度転送しておけば、プログラムを何回実行・

Ｉ消去してもSystemre白etするまでは保存されているので、項目の組合せを換

|えて分析を繰り返しておこなえば、２回目以降は前記の高速性と静粛化、機械

的動作がなくなることによる機器寿命の延長が実現されるのである。

㈹1.3コンピュータ本体や周辺機器を操作する場合、直接しようとすると、

その機器の微細な構成に対応した操作を要し、煩雑なだけでなく、同一機種で

も改良等で操作を変更しなければならなくなる。そこで、これら機種による個

体差をならして、共通の環境を形成し、共通のルールと操作法で多方面のソフ

トウェアを使えるように作られた土台の役割をするもっとも基本的なプログラ

ムが、OperatingSystemCS)である６多くの機種で採用されているＯＳ上で

作成されたソフトウェアは多数の機種で動くので、生産者は個別に修正した商

品を小量づつ作らずにすみ規模の経済を享受でき、機能の向上等に力を集中で

きることになる。こうして価格の引き下げと機能の向上がもたらされるならば、

生産者消費者双方に利益を与えることになる。その地位を、１６ピット機では、

米国マイクロソフト社のＭＳ－ＤＯＳ系がほぼ独占した状態にある。

なお、国産のパソコンには慣例としてＢＡＳＩＣが付属されており、パソコン

の初期化や基本的な操作もこれを使って行うことになっていて、言語をこれで

学びはじめるのが普通になっていろ。ところが、この種のＢＡＳＩＣは、他機

種と共通のSystemをもたない孤立した専用の言語となっていろ。Standalone

といわれるゆえんである（汎用ＤＯＳ上のＢＡＳＩＣもあるが、安価でないこ

ともあってわが国では普及していない）。このためある程度習熟すると、他機

－７６－

(6)

種や他プログラムとの交流、相互利用ができない孤立性が、障害になって、本格的言語の普及や応用プログラムの充実を妨げているのが実状である。パソコンの利用拡大のためには、この点を改める必要がある。１．２データ等のコンバート他方、上記の利点をうろために、別な作業が避けられなくなった。データやプログラムを自立型ＢＡＳＩＣからＭＳ－ＤＯＳ上のＢＡＳＩＣの仕様にあわせた形態に転換するconvert作業である。この作業のために、転換プログラムが必要になる。ハード・メーカーのＮＥＣ社から「日本語Ｎ88／ＭＳ－ＤＯＳファイルコンバータ」（PS98-216-SF他）が提供されており、各種のFileを容易にＭＳ－ＤＯＳ形式に変換できるが、これを持たないため、雑誌等に掲載されたプログラムを利用して転送することにした。転換プログラムとしてはじめに使用したのは、「ＭＳ－ＤＯＳ－Ｎ８８ＤＩＳＫＢＡＳＩＣファイル転送プログラム」（文献２）であった。このプログラムは、ファイル名Filedescripterが一覧表示されカーソル移動で対象を確実に選択できる点ですぐれていたが、「単純にファイルを媒体変換するものですから、コード体系の異なるデータを転送した後の取り扱いには注意が必要です」とあるように、ＢＡＳＩＣはＭＳ－ＤＯＳ上で行毎に再登録をしなければならなかったし、漢字は全く転換されず、漢字モードへの出入を示すＫＩ、ＫＯマークをチェックする専用のutilityプログラムを作製し、チェックした箇所を原文を見ながら漢字で再入力せざるをえなかった。またメモリーの関係で転送サイ

ズは32キロBytesに限定されていたため、1192件、298キロBytesもの大きなデ

ータFileを10回に分けて別名でＭＳ－ＤＯＳ上のFileに転換・転送し、これらを機械語Fileとしてメモリ上に順次連続して展開して、１本のデータＦｉｌｅにまとめて復元するという煩雑な作業を要した。その後、ＭＳ－ＤＯＳ側から自立型Ｎ８８－ＢＡＳＩＣを読み込むプログラム「ファイル転送プログラムMrTRANSFER」（文献３，３８－４１頁）を見いだした。これにより、ＢＡＳＩＣで書かれたプログラムも一挙に転換できるようになった。ただ、漢字の転換だけは、漢字モードへの入出は簡単にチェックできるものの、自立型ＢＡＳＩＣで使われろ「ＪＩＳコード」をＭＳ－ＤＯＳで－７７－

(7)

使用されろ「シフトＪＩＳコード」へ転換する作業が多少煩雑なため、これま

でのところ漢字モードへの入出のある行をリスト・アップするにとどめ、転換

後にその行について漢字部分を書き直すようにした。曲1.4 樹Ｌ４ＰＣ－９８シリーズのＮ８８－ＢＡＳＩＣでは、漢字モードへの移行の記

号は、ＥＳＣＫ（機械語16進数で表示すれば、１Ｂ４Ｂ）、それからの脱出

は、ＥＳＣＩ（同じく、１Ｂ４８）である（ＮＥＣ方式とよばれろ）。この記

号の有無を、ＭＳ－ＤＯＳ上のＢＡＳＩＣとして書き込む際にチェックするこ

とは容易である。そして、前者が来れば次の文字からＭＳ－ＤＯＳ上の漢字コー

ド（SHIFTJISCode）に転換して書き込み、後者に会えば以後転換をやめる

ルーチンを作製すれば自動処理がほぼ可能となる（完全にといえないのは、上

記とは無関係にプログラムないしデータの内容が、ｌＢ４Ｂないし48と続く

場合がないとはいえないからである）。しかし二つの漢字コードの対応関係が

比較的単純な原理ではあるが、例外もあるため、漢字モード入りをチェックし

てその行番号を順次表示するプログラムにして、訂正しやすいようにしていろ。

なお、上記ファイルコンバータやメガソフト製の「ＩＮＴＥＲ－ＤＩＳＫ２」

は、このコード変換が可能である（文献４，９６頁）。また自作のコード変換

ルーチンについて触れた論文（文献５，５３－６８頁）もでているので、これを利

用すれば作成も容易になるであろう。２分析の対象と具体的方法２．１クロス集計の重要性

数量的な解析を意図したアンケート調査では、あらかじめ設定した回答肢を

選択回答させる形式（数値を書き込む場合も数列値を選択するという意味でこ

れに加えることができる）が多用され、自由回答形式の設問は、客観的数量化

が困難なため定性的なあるいは個別的な検討材料をうろため等に付随的に用い

られる。本アンケートは、すべて回答肢選択型であった。

この種の調査の分析は通常、まず①各設問の各選択数の累計を求める単純集

計を行い、できれば②それを視覚化するグラフ表示を行い、そして③クロジス集

－７８－

(8)

計（２次元、３次元、…）を展開し、さらに④相関、有意検定等の古典的分析や、⑤総合的な数量化分析等に進む。このうち、③のクロス集計が、前述のように､各設問範薦間の関係ないし関連を分析するのに最も基本的な手段となっていろ。数量化分析も多用されるようになったが、これもクロス集計を基礎に分析作業が展開されるのであり、各種分析手法の分析対象への適合性を検討するにも、このクロス分析が重要な基準となる。また、このクロス集計が対象としうる項目の組合せは、多元化すれば連乗算で指数的に増加するから、しばしば鹿大な作業になり、多くの時間をこれに費やすことになる。クロス集計・分析は、質的にも分析作業全体の中でもっとも基礎的で重要な部分といってさしつかえないであろう。さらに、この分析で十分な成果をえられる場合も、多いと考えられる。対象を概観したり、課題を発見しようとする段階ではとくに、そういえよう。本件でもこのクロス分析が中心であった。前稿で述べたように、対象となった「研 ,究」は、２０名もの研究者が集まって、社会学を中心に経済学、心理学、法律学、歴史学、宗教学など多方面から、戦後沖縄の社会、家族の変化、実態を総合的に分析しようとするおそらく初めての試みであった。そのため、上記のような第一次接近的な性格が強い研究となり、アンケートの質問項目も、きわめて多方面に分散され下個々の分野の質問は少数に制限されざるをえなかったようで、クロス集計・分析が主要な作業となったのであるｄ曲1.5 ・クロス集計の次元つぎに、クロス集計は、クロスさせる項目（変数）をいくつでもとりうるから、プログラム作成の都合上からも、自動的に処理する組合せ数（次元）を決めておく必要がある。クロス集計の基本は、当然のことながら、最小の組合せたる２項目の要素間の関連を示す２次元クロスにあり、多次元クロスも残りの次元の要素で規制された２次元クロスの集合にほかならない(数値を－グラフではなく数字列として－表示するのに紙面やDisplay画面等の２次元の表示手段を用いる限り２次元の表示しかできないという面もある）。そこで分析作業は、２次元クロスから出発することになるが、進展するにつれ、平面的把握から立体的把握へ、さ－７９－

(9)

らに多次元的分析へと進んで行く。たとえば、ある２項目間の関係をより詳しく分析するために、地域別や家族類型別、性別等の新たな分類軸を加えて、立体的な分析を試みることが常套的におこなわれていろ。さらに、４次元以上の集計も当然考えられるが、本件のような千件程度のアンケート調査では、性別のように選択肢が非常に少ない普遍的な区分で、それぞれの３次元クロス分析をおこなうような例を除けば、あまり有効ではなくなる。一般的な質問への回答のようないくつもの選択肢をもつ項目間で、４次元以上の集計を行えば、クロス表の要素すなわちCellが分散されてきわめて多くなり、したがってそこに入る数値が一般に小さくなってあまり意味のないものになってしまう可能性が高まるからである。そこで、本件のような分析においては、３次元クロスを処理でき、それ以下の場合は簡単な指示で対応するプログラムを作成することが、もっとも有効と判断されるのである。２．２コンピュータによる一括処理化ところで上記の手順は、手作業が主であった段階では必然的なプロセスであったが、パソコン等を利用して処理するようになると、必ずしも最適といえなくなる。それは、コンピュータは処理能力（速度や量）が人力と比較にならないほど高い反面、そのプログラム作成には多くの時間と手間を要すること、また、デー

タや処理結果の入出力InputPutput（Ｉ／Ｏと略称される）を担当するＫｅｙ

BoardやF1OppyDiskやPrinterといった機械的周辺機器の使用にも時間と手数を多く要することを考慮しなければならないからである。すなわち、プログラムはできるだけ汎用性をもたせ、Ｉ／Ｏ関係（特に人手による入力）はできるだけ少なくする必要があるのである。そこで処理過程を見直してみると、①の単純集計と②のそのグラフは、データが同一のため、グラフ表示用のルーチンを用意すれば、一括して処理できるし､その単純集計も、③のクロス集計の合計欄に出てくるから、クロス集計のいわばついでに算出しておき、必要に応じてこれを取り出して利用することも簡単にできることに気づく。以上を踏まえて、本件では、クロス集計を半自動的に効率よく行い、グラフ－８０－

(10)

も自動的に表示できるプログラムを作成して、上記の①単純集計《②そのグラフ表示、③クロス集計（３次元以内）を、ほぼ同時的に処理できるようにしたのである。・プログラム化の技術的問題点汎用プログラムを作るにあたって問題になるのは、１つには、集計作業に用いる記憶領域が使用可能なサイズを越えて処理不能にならないかということ、２つには、例外的な項目をどのように組みI込んで処理するかということである。第１の点については、選択肢が極端に多く、各欄（数値等が代入される個々の枠、通称にしたがって以下Cellとよぶ）の桁数が多いというような項目どうしの組合せの場合に、その可能性が出てくる。しかし、実際には選択肢数が30を越えて設定される例は少ないと思われる（あまりの多肢は回答者に選択上困難を与える点で好ましくない。本例ではすべて15以下であった）。また第３の軸（項目）には、性別、地域別、家族等の類型別での特徴を捉えようとすることが多いので、これもあまり多数の基準に分割されることはなく(あまり細分すると意味が薄れることもある）、数千件までの通常のアンケート調査の場合は、余裕を持って処理できろといえる。ただ出力桁数の多い項目があると、結果を表示する際に困難がでてくる。しかし､使用するSystemは､メモリをＰＣ９８シリーズの限度の640キロBytes以上に増設していて400キロBytes以上を,集計用の配列に使用できるから、すべての配列要素が倍精度実数型（各８ByteSを要する）の場合で、全次元の項目数の積が５万までは曲1.6,Ｎ88ＢＡＳＩＣで直接I処理できるのでほとんどの場合問題なく処理できよう。それを越える場合は、配列を分割するなりして、ＲＡＭDisk等にも置くようにすれば、事実上制限はなくなるのであまり問題にはなちないであろう。’ 第２点の例外的な項目としては、実数値を記入した項目やメモリ節約のため表現が圧縮されている項目があげられろ｡前者は、本来はデータFileに書き込む際に、常識的な数の回答肢に分類されているのが望ましいが、正確な平均値や相関係数をとりたい場合や、分析者側で有効な分類基準がつかめない場合などには、避けられない。それぞれ専用の処理routineを準備する必要がある。また、後者については、単純な構造の項目と無差別に組合わされるので、専用－８１－

(11)

の復元routineを別に作成しておき、この項目を他と組合わせるたびに呼び出してプログラム本体に結合し回答を復元して以後は自動的に処理できるようにすればより効率的になろう。曲1.5本件では、７０数件の単純集計と、筆者が再分類の必要上開発したグラフ表示を除けば、200件近い分析作業は、すべて、クロス集計であった。曲１．６５万の例を示せば､５０欄×40欄×25欄とない回答肢の非常に多いものを対象にしうることがわかる。番号で回答するような一般的な場合は、１要素に２Bytesを消費するだけなので、この枠はさらに４倍の20万Cellにまで広がる。もっとも､Ｎ８８ＢＡＳＩＣでは１つの配列の大きさに制限があるので、このままを実現できるわけではないが、複数の配列に分割すれば可能だから、実用上無制限に近いといえる。３３次元クロス集計プログラムの概要３．１プログラムの基本的仕様以上をふまえ、プログラムの基本的仕様を以下に箇条書したように定めた。 a、ＲＡＭＤｉｓｋの利用（原データの転送、結果Fileの一時記憶）・約1200件の大量データを、Diskからいちいち呼び出して処理する場合の、時間の消費と機器の損耗を防ぐために、処理の冒頭で原データをすべてＲＡＭＤｉｓｋに転送しておき、以後の原データ呼び出しは、このＲＡＭDiskからおこなう。（１．１．１参照）・集計結果も、ＲＡＭDiskにFileとして記憶しておき、表示形式の変更等においても繰り返し利用できるようにする。 b、処理の自動化・３項目がすべて、回答肢のうち１つのみを回答する項目（単純項目と呼ぶ）である場合（大多数がこれである）は、項目番号を打ち込むだけで、すべて自動的に処理できるようにする。（配列の大きさの指定、集計結果Fileの命名も自動化）・３次元の全方向の合計を同時に計算する。－８２－

(12)

・分母を選択して、各欄の百分率も同時に算出、表示する。、これらの集計結果は、多様な加工のため、File化しておく。 C，３種類の表示 ①クロス集計表：横方向第１元、縦方向第２元の、２次元表を、第３元の回答肢順に（無答、その他回答、合計欄も含め）、表示する。 ②棒グラフ：３つの次元のどの切口でもパーセントで表示する。百分率の分母は、集計結果全欄のうちから任意に選べるようにする。 ③原データ表示：特徴の把握や、誤記入のチェックのため、任意の原データを、ある程度整理して、一覧表示できるようにする。３．２プログラムの基本構成上記の仕様を満たすために、プログラムの基本構成を次のように定めた。 ①Mainroutine部（未ＭＡＩＮほか）全体を少数のブロックに分け、各ブロックをSubroutine群としてまとめ、冒頭のMainroutineで統括するようにした。油1.7 ②原データ転送部（米ＴＲＡＮＳ・ＤＴ）ＲＡＭＤｉｓｋに原データを転送済みか否かの確認。済みなら、次ブロックへ。否なら、転送作業を行って、次ブロックへ。 ③項目指定部（※ＤＥＴＭＩＮ）集計の対象とする項目の指定。Ｘ,Ｙ,Ｚの３次元について、項目番号で指定する。これで、各項目の日本語略称や回答肢数も読みだし､配列の大きさDIM-ensionの指定も行う。集計結果のFileがあるなら、表示部⑦に飛ぶ。 ④集計部（米ＣＡＬＣ）」原データを読み込み、上記で指定した項目の回答肢の番号の組合せに対応した配列のＣｅｌｌＣ（Ｘ，Ｙ，Ｚ）を加算していく。全対象を処理したのち、各軸の合計欄を計算し、各行列の末尾に書き込んでおく。 ⑤集計結果記録部（米ＲＥＳＵＬＴＭＥＭＯ）上記の結果を、ＲＡＭDiskにFileし、必要ならＦＤＤのＢ番のＦＤに記録し長期保存しておく。集計結果があるので、ここでは表示部⑦に移行する。－８３－

(13)

⑥結果読み出し部（米ＲＥＣＡＬＬ）

同じ項目を対象とし既に集計済みのFileがある場合、項目指定後、ここに飛

んでくる。ＲＡＭDiskかＢ番のＦＤＤから集計結果Fileを読み込む。

⑦表示部（米ＤＩＳＰ）

集計結果の配列を表ないしグラフで表示する。まず、どの形式で表示するか

を選択する。それに応じて、つぎの３つのSubroutineに分岐する。

⑧クロス集計表部（米ＣＲＯＳ）

クロス集計結果を、第３番の項目Ｚの回答肢番号順に、２次元の表形式で、

百分率も加えて、順次自動的に表示して行く。Printerへの切り替えも、￣挙

動で可能とする。

なお、百分率も表示することから、回答桁数との関係で、一行で表示でき

る場合（米ＳＮＧ）と２行にわたる場合（米ＤＢＬ）とがあり、それぞれを自

動的に切り替えろ。 ⑨棒グラフ部（未ＤＳＰ・ＢＡＲ）

２つの軸（次元）をあらかじめ指定し、その交線上の分布を、任意に指定し

たCellの数値に対する百分比として、単純な棒グラフで表示する。単純集計の

結果のみならず、他の２軸の回答肢番号を任意に選んで、表示できるようにす

る。Printerへの切り替えは前と同様。

⑩原データ一覧表部（米ＵＤＵＭＰ）

原データを、一応解読できるていどに、整頓して、一覧表示する。連続表示

も可能とする。Printerへの切り替えは前と同様。

閥Ｌ７このようにプログラムを機能ごとにブロック分けして、各ブロックを

Subroutineとしてある程度独立した小プログラムにまとめ、これらをそれ自

体としては短い部分プログラムであるMainroutineで一括して管理する方式

は、大規模なプログラム作成で、常套化されている。プログラムは大規模にな

るほど、全体の把握が難しくなり、論理的あるいは技術的な誤謬の発見や訂正

が加速度的に困難になる。逆に、小規模に分割すれば、目的や機能も明確にな

り、誤りの入り込む余地がそれだけ減少し、全体の完成度を高めることが期待

できろ。同時にプログラムの流れ、見通しも飛躍的によくなるので、第三者の

-８４－

(14)

理解を容易にし、後日の訂正やVersionupにも役立つといった利点がある。『プログラム書法』ではこれを、「たいていのプログラムは、全部いっぺんに理解するには大きすぎるものである。それらは、個別に征服できるような小部分に分割しなければならない。それが信頼できるプログラムを書くための唯一の方法である。それはまた、プログラムを読み、理解するための唯一の方法である。／サブルーチン、関数、および手続きは、大きなプログラムの機能単位（モジュールーmodule）となる｡」と表現していろ（文献６、訳書84頁)。 Ⅱプログラム前半の内容と実行結果上記に沿って、プログラムの前半部分の集計作業と記録までを、やや具体的にみていこう。１Mainroutine部（米ＭＡＩＮほか：5-1170行〔行番号５から同1170までの意。以下同じ〕）１．１初期値設定（5-1050行）プログラムの冒頭にあたって、一般的な書式にしたがって、まずタイトルの表示（10-50行）掴2.1と、機器の初期設定（1010行）閏2.2をおこなう．次に、 FuctionKeyとＨＥＬＰKeyを用いる下記の割り込み処理の定義をあたえる。リスト１前半５，SAVE”QNR-AM1･BAS'’ １０ＤＡＴＡ，,*****････････***･･･***･･***｡｡*･･***中･心･●**な*****･'’ ２０ＤＡＴＡ'，。■アンケート分析Ｉ」＊'’ ３０ＤＡＴＡ，,＊ _{Ｓ元クロス集計＜棒グラフ、原データ表示・'’} ４０ＤＡＴＡ”＊ｂｙＲｙｏｉｃｈｉＡｂｅ1987.10。、Ｄ５０ＤＡＴＡ,！*******わ******＄*･*****“な*･ゆ･**･*･･わ**な＄･*“本*･･･'’ 1000, 1010CLEAR＆'11000,,,&'12000：CONSOLEO,24,0,1,0 -８５－

(15)

1020,町ＩＮＴＡ－Ｚ１０３００ＮＫＥＹＧＯＳＵＢ＊F1KEY,*F2KEY,*F3KEY 10400NHELPGOSUB＊HEU〕.Ｄ 1050, ｂＯＮＫＥＹｒｏｕｔｉｎｅ〔1030行〕「ＯＮＫＥＹＧＯＳＵＢ」文は、FunctionKeyの１番から３番までを使って、表示部での処理の中断や変更を宣言するものである。「ＫＥＹＯＮ」を宣言した後は、「ＫＥＹＯＦＦ」が出てくるまで、指定されたKeyが押されろと、処理中に割り込みが発生し、そのＫＥＹに対応するリスト２〔7210-7520行〕に示したSubroutineが呼び出され､､実行される。まずｆ・１は、表示部冒頭のＭＥＮＵ画面に戻り、作業の種類を切り替えるのに用いろ。（米Ｆ１ＫＥＹ）ｆ・２は、各作業の冒頭へ戻るために用いる。（米Ｆ２ＫＥＹ）ｆ・３は、出力先を、ＣＲＴとＰＲＩＮＴＥＲに切り替えるためのものである。「ＣＭＤＯＮ」でＰＲＩＮＴＥＲ、「ＣＭＤＯＦＦ」でＣＲＴである。（米Ｆ３ＫＥＹ）・ＯＮＨＥＬＰｒｏｕｔｉｎｅ〔1040行〕上記FunctionKeyの説明を、ＨＥＬＰKeyに割り当てる宣言をする。具体的には、Subroutine米ＨＥＬＰ．，（7460-7520行）を随時呼び出し、説明文を表示させることになる。参照後、任意のKeyを押すことで、中断したプログラムの続きに復帰できろ。リスト２７２１０，．．***･**｡｡*･*●**ｳ･*･･な**･●*●*･*****･゛*****｡｡**準*な｡**・ SubPmgram 7220杉へ～＊ 7230,..**｡｡*･*●******･******･**●******●***｡｡*･*****･***が準＊ 7240,＝=============＝ＯＮＫＥＹｒｏｕｔｉｎｅ－－－－－－－－－－－７２５０．F1KEY 7260cmOFF：ＰＲT=O：cONsOLE,’’’０，－８６－

(16)

---~~---

---7270

INPUT

"ME N

un,,~t)

:li-

OK? (YoreR)

",AS

7280 IF

AS=""

OR

INSTR("Yy"

,A$) THEN BlSll RBTURN

7290

RETURN .DISP

7300

·F2KEY

7310

CMD OFF:

PRT=O: CONSOLE '" ,0

7320

INPUT

"C:(1)~J.I(1)~W>~;:~tJ~T

OK? (YarCR)

",AS

7330 IF

AS=""

OR

INSTR("Yy",AS)

THEN ELSE RHTURN

7340

ON INSTR("CBD",BR$) 6OTO

7360,7370,7380

7350

RETURN .DISP

7360

RETURN .CROS

7370

RETURN·BARG

'7380

RETURN

.D.DUMP

7390

.F3KEY

7400 eMD OFF: CONSOLE ",,0

7410

IF

PRT=O

THEN ELSE

74~O

7420

PRINT

·'f:l:thlc~PRINTER':.f'1ti;t

t

T"

7430

eMD ON : PRY=I: RETURN

7440

PRINT

"W1J9c~

CRT

':.~tit~T"

7450

CMD OFF: PRT=O: RETURN

7460 '===============

ON

HELP

7470

*HFJ.,P.D

7480

PRINT: PRINT "Function

Key

':J:

~'~hMQ).J1JJ"

7490

PRINT "(

f

-I)

MMENU

~~

(f·

2)MYI(1)Bjj"'~Q

( f ·

3)

CRT~ PRINTER(1)~1J t)

tit.

If

7500

INPUT

"7. L

t~

I?

~tlfJ)~-~jtp

L

t

T

",8$

7510

RETURN

7520 '

~1.2 ~-1 l--)V~.~O)~~~j:, R EMtcCV'v '~~~l:':Jttt:~~fjO)~rJij3t

(R E M)() O)1fgJ:tl:~iFT~O):!J), iiI&~~~:O:!Jj, L. L.-e,;~j:D A TA)(~_

(17)

-いてある。ＲＥＭ文ではプログラムの実行の際に、表示されないので）別に表示用のroutineを設ける必要があり、また、後に変更する際にも、複数箇所を一斉に訂正しないとどれが正しいのか不明になってしまうといった欠点があるので、ここでのようにＤＡＴＡ文としてもプログラム実行時の表示用にも使えるようにする方がよいであろう。陶2.2メモリー領域の配分を定めるｃＬＥＡＲ文と画面表示関係を定めるＣＯＮＳＯＬＥ文は、同じ企業が発売した同名のＮ８８ＢＡＳＩＣでも、いわゆるStandalone版（本体に付属）と、ＭＳ－ＤＯＳ版とで大きく異なっている。ＭＳ－ＤＯＳ版の方が、機能が拡張している分、指定が複雑になっている｡とくに、ＣＯＮＳＯＬＥの第５項は、目だたない位置にあるが、日本版ＡＳＣＩＩＣＯＤＥのCharacterを表示するか〔１〕、ＳｈｉｆｔＪＩＳＣＯＤＥとして日本語表示をするか〔Ｏ〕、の選択を行う重要なスイッチとなっており、これを間違えると、漢字がおかしな模様になったい疑似グラフィクのつもりが漢字になった bと、出力に大きな影響を与える。したがって十分な注意が必要である。本プログラムでも両者を使いたいために苦心しており、指定をいくども切り替えることも試したが、listの一部が漢字に化けて公表するには見苦しくなるため、断念した経緯がある。１．２MAINroutine（米ＭＡＩＮ;1060-1150行）プログラム全体を、いくつかのブロック分けているが、ここでそれらを統合して操作する。1120行で1140行に飛んでいるのは、1110行を実行していれば、

集計結果が既に作られているからである（ここを以下、ＭＡＩＮＲと略称す

る）。一一一一一一一一一一一一一一一一一一一一【】【｜】印印四一ｍ》■■一一市・日巳側【凹胆皿印一四町、虹】四阿胆一一可●０△ 一一（叩叩）＆Ⅲ Ｐ一一Ｎ耐皿一一

剛脆Ｍ

一一半宰 ●＊＊（四ｍ】（】【｜）（四【】後一一ｍＮ０００

Ｈ－－肌朋伽脱

７＊スー００》《一Ｕ０》０》リⅢＷⅡⅡ、一勺日日（●一口■（●■ロ■△□一日■（●Ⅱ■二－８８－

(18)

００００００１２３４５６１１１１１１１１１１１１ GOSUB＊RESULTHEN0 GOTOll40／ GOSUB中RECALL GOSUB＊DISP END p-,_ニーーニーーニーーーーユーニーーーーニー＿＝＝－－－＝＝－－－－－－-－二二＝＝－－－－－－－二一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一二二----－＿２原データ転送部（米ＴＲＡＮＳ・ＤＴ;1170-1380行）ＲＡＭDiskに原データを転送済みか否かを確認。済みなら、次のブロックへ。否なら、転送作業を行って、次のブロックへ。〔1190〕初期設定していたら（ＴＲＡＮＳＥＤ＝１）、ＭＡＩＮＲ・へ戻り、次のブロックに進む。〔1200-1250〕次回のために、上記のF1ag役の変数を１としたのち、タイトルの表示を行う。〔1260-1310〕原データ（File名、ＦＡＭＦＬ`ＤＡＴ)閥２．３をＲＡＭＤｉｓｋに転送済みなら、そのDrive番号を聞いて（米ＤＲＶ、ＮＯ;1330-1380行）、ＭＡＩＮＲ、にもどる。未転送なら､‘同じように転送先のDrive番号を聞いてから、「ＣＨＩＬＤ」機能由２４をつかって、一括転送する。リスト３１１７０，ニニーーーニ＝二二二二＝＝原データ転送二=＝二二二二＝二===＝=＝ 1180＊TRANS・DT 11901FTRANSEDTHENRETURN 1200ＴＭＮSED=1 1205ＤＩＭＰ$(170） 1210GOSUB･PRNCllG 1220RESTORE10～，TitleDisp1ay l230FORI二１ＴＯ５１２４０ＲＥＡＤＡ$：PRINTSPC(12);A＄－８９－

(19)

1250NEXT：PRINT

12601NPUT',原データは、ＲＡＭＤＩＳＫに転送済ですか？〔Y

orCR/rests〕”,A＄

1270ⅣＡ$=''''0ＲＩＮｓｍ('，Yy,,,A$）THENGOsUB・DRV・NC:RETuRN

1280PRINT，,原データ・ファイルFAHFL・DATを”；

，,DriveBにセットしてください'’

1290α)SUB＊DIW・NO

1295，START$=TIME＄

1300CHILD”COPYB:FAWL・DAT,,+DRV$+,':”￣

1305,PRINT,，START－－，，START$:PRINT，，END----,'TIHE＄

l310RETURN

1320’---RAllDiskDriveNumber

l330＊ＤＩＷ･NO

13401NPUT,，輪差先ＲＡＭＤＩＳＫ〔>310kB〕のDriveNo.は？

〔ＣｏｒＤ，不使用二N〕,，,ＤＭ

1350IFINSTR('，N､，',DIW$）THENDRV$=''８"：REmN

1360ＩＦＩＮＳｍ(，，cc，',DHV$）TIlENDRV$=,℃":REmRN

1370ＩＦＩＮｓｍ(，，,｡,',DRv$）TIlENDRv$=''D'，：RETuRN

1380GOTO1340 、㈱2.3本誌前号で作成したアンケート調査の原データFileである。元は、拡張子にＤＡＴ」はついていなかったが、多数のFileが並存するＤＯＳ上での取扱いのため、慣例にしたがって付与した。㈱2.4ＣＨＩＬＤ機能は、企業が生産過程の一部を他企業に下請けさせるように、現在実行中のプログラムから、別のプログラムを起動し実行したのち、

復帰する機能で、Ｎ８８ＢＡＳＩＣでは、ＭＳ－ＤＯＳ版のみにある高度な機能

で、そのプロセス領域をＣＬＥＡＲ文で確保しておく必要がある。ここでは、ＤＯＳのＣＯＰＹ命令を呼び出して、原データFileのＲＡＭＤｉｓｋへの転送を実行させている。－９０－

(20)

３項目指定部（米ＤＥＴＭＩＮ;1400-1700行）〔1400-1570〕クロス集計表に出力する際の、横軸としたい項目をＸ、縦軸をＹ、第３の軸とする項目をＺとおく。そのとき、各項目の情報（日本語名称や英字略称、集計用配列の大きさを定める回答肢数など）をSubroutine 米ＩＴＥＭ（リスト５;7850-8410行）から読み出す。リスト４

１３９０，＝=======二二===＝項目指定一---1400＊DETIIIN 1410ClS

1420PRINT，，単純なｓ重クロスまで自動的に処理します。”:PRINT

1430PRINT”Ｚ（第Ｓ元）に従って、Ｘ（横）、Ｙ（縦）の''；

，'クロス表を出力します。'’

1440, 1450ＸＸ$=，,,'：ＹＹ$=,,'，：ＺＺ$=,,，，：PRINT

1460PRmT,'項目番号(ITElINo.)を入力してください｡'’

1470INPUT,,Ｘ＝,，,N 1480GOSUB＊DETM：ＩＦＢＡＤＴＨＥＮ１４７０１４９０ＸＮ=N:XN$=N$:X1$二W1$:X2$=U2$:XS=S

15001NPUT，,Ｙ＝,，,N

1510GOSUB①DETM：ＩＦＢＡＤＴＨＥＮ１５００１５２０ＹＮ=MYN$=N$:Y1$二W1$:Y2$二W2$:YS=S 15301NPUT，，Ｚ＝,,,N 1540GOSUB＊DETIl：ＩＦＢＡＤＴＨＥＮ１５３０１５５０ＺＮ二N:ZN$=N$:Z1$=W1$:Z2$二W2$:ZS=S 15601NPUT''０Ｋ？〔YorCR〕''’0K＄ 15701Ｆ０K$=,'Y''０ＲＯＫ$=,,，，THENELSE1450 1580，ｌ５９０Ｄｍｃ(xs+1,Ys+LZS+1） -９１－

(21)

ｌ６００ＰＲｍＴｘａＹＳ,ZS

16101NPUT”計算鰭果のＦｉｌｅがありますか？〔YorCR〕",A＄

16201ＦＡ$=''''0RINSTR("Yy,',A$）THENRETURN1130，*RmAIL

1630RETURN ，●DETNIN 1640’ 1650＊DETll

l670BAD=0：ＩＦＮ=Ｏ０ＲＮ>170ＴＨＥＮBAD=1:RET1jRN

1680GOSUB・ITEIl l690RETUM 1700，

〔1590-1700〕３つの軸の項目の回答肢数を基づく配列Ｃ（Ｘ，Ｙ，Ｚ）

DIMensionを指定したのち、計算結果Fileの存否を問い､あるならＭＡＩＮ

のRECALLroutineへ飛び、なければ米ＣＡＬＣへ移行する。のＲリスト5

7850,..本なな･･･“わ**･･｡｡゛･**･*掌･*****＊

7860,＊ＭＴＡＰｏｏｌ＊

7870,･中*な**･戦･心･･**********“*な｡**.＊

7880,

7890,====二==＝＝＝Spec・ｏｆｌｔｅｍｇ＝===＝====＝===＝

7900＊D1:DATA／01,AREA,,,地点No.'1,79,/02,OBJ,，,対釧。.",1200

7910ＤＡＴＡ／03,FS’'1家族数''Ｊ1

7920傘D2:DATA／04,NF,，,家族内No.''’11,/05,ZK,,,続柄''’90

7930ＤＡＴＡ／06,sX’''性Ｗ,2，／07,AG,"年齢''’19

7935ＤＡＴＡ／08,BP,,，出生地'''59,／09,LT,，，剛据P'’6

7940ＤＡＴＡ／10,GR,,,学歴'''10,／11,V０，，，職種''’14

7950ＤＡＴＡ／12,EⅡ,,，雇用形態''’９，／13,CV,,，転lMi経験''’6

7960.,3:DATA／14,Q1,''住宅形態",８，／15,Q1-1,"住宅面積''’13

7970ＤＡＴＡ／16,Q1-2,,,部l室1M【''’13,／17,Q2,，,親鯛丘住''’７

－９２－

(22)

7980ＤＡＴＡ／18,Q3,"生計費''’11,／19,Q4,,,家計収支''’7

7990.,4:DATA／20,Q5-1,',収入源1''’８，／21,Q5-2,,,収入源2''’8

8000ＤＡＴＡ／22,Q5-3,,'収入源3''’８，／23,Q5-4,"収入源4,,,8

8010ＤＡＴＡ／24,Q6,',朝食",5

8020＊D5:DATA／25,Q7ml,，'食準備､''’11,/26,Q7sl,"食準備s''’11

8030ＤＡＴＡ／27,Q7,2,'，食片付図''’11,/28,Q7s2,，，食片付s''’11

8040ＤＡＴＡ／29,Q7m3,"買物､",11,／30,Q7s3,''買物s",11

8050ＤＡＴＡ／31,Q7m4,，,掃除､''’11,／32,Q7s4,''掃除s",11

8060ＤＡＴＡ／33,Q7m5,''ごみ処理､''’11,／34,Q7s5,'，ごみ処理s''’11

8070ＤＡＴＡ／35,Q7,6,,,洗濯､''’11,／36,Q7s6,"洗濯s''’11

8080ＤＡＴＡ／37,07,7,'，近所交際､''’11,/38,Q7s7,'，近所交際s''’11

8090ＤＡＴＡ／39,07,8,W,親戚交際､'''’11,/40,Q7s8,,,親戚交際s''’11

8100.,6:DATA／41,Q8,,'女・就職観''’6

8110ＤＡＴＡ／42,Q9,"位牌有無",３，／43,Q10,''位牌礼拝''’4

8120ＤＡＴＡ／44,011,''墓有無''’３，／45,Q11-1,"墓種類''’4

8130ＤＡＴＡ／46,Q12,,，ユタ経験''’３，／47,Q12a,'，ユタ回数''’3

8140ＤＡＴＡ／48,Q12b,'，ユタ目的''’10,/49,Q12c,，，ユタ効用''’5

8150傘D7:DATA／50,Q13,',位WiL相続'''５，／51,Q14,''宅fUl相続",5

8160ＤＡＴＡ／52,Q15,'，宅地外相続''’7,/53,Q16,''不相続理由，',5

8170ＤＡＴＡ／54,Q17,"親扶養者''’5

8180.,8:DATA／55,CL,',共働き者',,11,／56,Q18a,''働く理由a''’4

8190ＤＡＴＡ／57,Q18b,'，働く理由b''’4,/58,010a,"職選択a''’8

8200ＤＡＴＡ／59,Ql9b,''職選択b''’８，／601Q20,''経歴'9,5

8210ＤＡＴＡ／61,Q21,',共働き感想''’14

8220＊D9:DATA／62,CK,',CheckBit",３，／63,FT,'，家族類型１''’57

8230ＤＡＴＡ／64,FG,,'世代類型''’７，／65,FM,，,家族類型２''’36

8240ＤＡＴＡ／66,FD,"家族10類型",10,/67,LA,'，地域分類”,26

8250ＤＡＴＡ／68,AG,"戸主年階層''’5,/69,CT,"市溜螂別",2

8260ＤＡＴＡ／70,A8,,Ｗ戎８分類",８

－９３－

(23)

８２７０，－－－－－－－－GettingSpec、－－－－－－－－－－－－－８２８０＊ITEN 82901FN>ｌ６１ｍＥＮＮ１二N-161:REsToREなD9:GoTo＊Ｍ１８３００１ＦＮ>ｌ５４ｍＥＮＮ１=N-154:REsIoRE・D8:GOTｏ＊Ｎｘ１８３１０１ＦＮ>149TllENN1二N-149:RESTORE＊D7:GOTO・ＮＸ１８３２０１ＦＮ>140T1IENN1二N-140:RESTORE＊D6:GOTO傘ＮＸ１８３３０１ＦＮ>124ＴｌⅢＮＮ１二N-124:REsmRE＊D5:GOＴｏ＊Ｎｘ１８３４０１ＦＮ>l19mIENN1二N-119:BESTORE＊D4:GOTＯ＊ＮＸ１８３５０１ＦＮ>113Ｉ１ＩＥＮＭ=N-113:RESTURE＊D3:GOTO・ＮＸ１８３６０１ＦＮ>３１nIlENN1=N－３：REsmRE＊D2:GoTo・Ｎｘ１８ＷＯＮ１=Ｎ：RESTORE＊D1 8380＊NX1：ＦＯＲＮＱ=ｌＴＯＮ１：ＲＥＡＤＷＯ$,１１１$,U2$,W3：NEXT 8390H$='，”+w1$+”，'+U2$+,,,,：ｓ二V3+1：Ｎ$=RmllT$(w0$,2）ＭＯＯＲＥＴＵＲＮＭ１０，４菓計部（米ＣＡＬＣ;1710-3200行）４．１原データFileのＯＰＥＮ〔1740-1770〕原データのFile、ＦＡＭＦＬ･ＤＡＴの置かれたＦＤＤの番号を確定した後、それをＯＰＥＮする。〔1780-1800〕読み込まれる原データの変数列を、ＦＩＥＬＤ文でランダムファイル・バッファ内に割り当てろ。変数列は、170項目に及び、各変数の使用メモリサイズも不同であるため、Subroutine米ＢＴ（リスト７；8420-8450 行）に、その全情報を集中して書き込んでおき、これを１項目毎に呼び出し、それまでの項目分をdummyに繰り込み、位置を積算しながら、正確に割り当てていく（1790行）。－９４－

(24)

IJ A ~ 6

1710

'=====================================================

1720

'=============

Jjj{::r-

?

ift~;Ah...

#Cit

==============

1730

.CALC

1740

IF

DRV$

<> ''''

THBN GDRV$=DRV$: GOTO 1770

1750

PRINT ".r-?Q)~~Drive (J) No. (B~D)

C;J:?

.~,

1760

INPUT ''''

,WHV$:

IF INSTR("BCD" ,GDRV$) THEN ELSE

1760

1770

OPEN

GDRV$+":FAMFL.DAT"

AS

#1

1780 FOR 1=1 TO 170

1790

GOSUB .BT:FIELD

#1,U

AS DUM$,BT AS P$(I):U=U+BT

1800

1820 PRINT "Started Reading data on "TIME$

1830

GOSUB *NORML.RD

'###

point

to improve

1840 PRINT "Ended above ,and Started

SUllUDing

on "TIMBS

1850 GOTO -SUM

1860 '

1870

*NORML.RD

1880

FOR 1=1 TO

1192

1890 GET #1,1

1900

XA=VAL("&H"+P$(XN»

1910

YA=VAL("&H"+P$(YN»

1920 ZA=VAL("&H"+P$(ZN»

1930 C(XA,YA,ZA)=C(XA,YA,ZA)+l

1940

CLOSB

#1

1960 RETURN

1970 ,.

(25)

-95-リスト７８４２０，=======＝ＢｙｔｅｓｆｏｒｅａｃｈｌＴＥＭｏｆＲａｗＤＡＴＡ＝=＝==＝ 8430．BT 8440BT=VAL(111,$(''341121221111112122111111212211111121221111 112122111111212211111121221111112122111111212211111121221111 112122111111322111111133333333333333331111111311121111111141 21212111"’1,1)），sum253Bytes,l701tems M50RETURN 8460，４．２集計実行（1810-1970行）〔1820-1840〕設定された回答肢の中から１つだけ選択する通常の単純な形式の項目だけからなる場合のみを、ここでは対象にしている。そのときには、 Subroutine米ＮＯＲＭＡＬ・ＲＤ（1870-1960行）をＣＡＬＬして、Ｘ，Ｙ，Ｚの値を数値化して陶2.5配列の番号として、それで指定されるＣｅｌｌＣ（ＸＡ，ＹＡ，ＺＡ）の値を１づつ加算していく。これが集計の作業に外ならない。現実には、この場合がほとんどであるが、複数回答などでデータを圧縮した場合など、特殊な場合は、別に専用の復元・処理のプログラムをSUbroutine の形で作成しておき、これをＣＨＡＩＮＭＥＲＧＥ㈱2.6文で呼び出すことで対応するようにしている。今回は複雑になりすぎるため発表を控えたが、次の機会にプログラムの拡張として発表したい（続く未ＳＵＭの行番号が、約 100O飛んでいるのは、その処理routineを組み込むためである）｡㈱2.5Ｎ88ＢＡＳＩＣのランダムFile形式ではく数値は特殊な関数処理によって記録書き出し用のbufferに転送することになっていろ。整数値'であれば

ＭＫＩ＄（）を用いて、２Byteの文字列にするのである。これを読み出すと

きには、上の例ではＣＶＩ（）というやはり専用の関数で整数値に復元する

ことになっていろ（文献7,257,231頁)。これは10進で絶対値32767以下の多桁の整数値を記録するときには桁数の節約になるが、このアンケート調査デー

タのように、ほとんどの項目が１桁で済む場合などでは、かえって２Byteも消費

－９６－

(26)

してしまう点でもまた手続きが面倒な点でも、好ましくない。ここでは、文字として扱い、１Byteで済ましてメモリの大幅な節約を実現していろ。また、1900行から３行で、各軸の回答肢番号の復元を、読みだした該当項目

のデータＰ＄（）に。＆Ｈ"を付加（＋）して、数値化（ＶＡＬ関数）し

ているのは､Record内部で、１０以上15以下の回答肢をＡからＦまで割り当てて 16進数で表示しているので、１６進データとして処理するためである･圏2.6ＣＨＡＩＮ命令は、別個のＢＡＳＩＣ系プロラムを実行させる命令で、

ＭＥＲＧＥｏｐｔｉｏｎをつけると、現在lordされているプログラムとこれを混合

させ、指定した行番号から実行させることができる。付加するプログラムは、ＡＳＣＩＩsaveされていなければならない面倒はあるが、プログラムの資産

化、Library化がむずかしいＢＡＳＩＣの難点を克服すべ<拡張された機能

として、そのメリットは非常に大きなものがある。これを活用することによって、共通の本体部分は、１本のプログラムで済ませ、個別的な処理を要する部分だけ小さなroutine群を作成しておけば、簡潔かつ統一的に、全体を処理できるようになる。４．３合計算出（未ＳＵＭ;3000-3200行）３次元の合計欄の算出は、２次元の場合と異なりかなり複雑になる。３方向について、立体的なイメージを描いてから、ＦＯＲ～ＮＥＸＴ文の、estを形成し、計算式をたてる。３方向の合計面の計算は、一括してできるが、その合計面の重なり部分（合計の合計）と３つの合計面の重なり（総合計）は、それぞれ別に式をたてて求める必要がある。ここでは、基本的計算式の中にその計

算式をできるだけ取り込んで（3090-3100行）、計算時間の短い簡潔な表現形

式を心がけた。リスト8 3000,---Summing 3010＊SUN 3020FURZ=OＴＯＺＳ３０３０ＦＯＲＹ=ＯＴＯＹＳ￣￣￣－－－－－■■■ －９７－

(27)

3040ＦＯＲＸ=ＯＴＯＸＳ

３０５０Ｃ(XS+1,Y,Z)=C(XS+1,Y,Z)+C<X,Y,Z）

3060Ｃ(X,YS+1,Z)=C(X,YS+1,Z)+C(Ｍ,Z）

3070Ｃ(X,Y,ZS+1)=C(X,Y,２Ｓ+1)+C(Ｍ,Z）

3080ＮＥＸＴ，Ｘ

3090Ｃ(XS+1,YS+1,Z>=C(XS+1,YS+1,Z)+C(XS+1,Y,Z）

3100Ｃ(XS+1,Y,ZS+1)=C(XS+1,YbZS+1)+C(XS+1,Y,Z）

3110ＮＥＸＴ，Y 3120NEXT，Ｚ３１３０ＦＵＲＸ=ＯＴＯＸＳ+1 3140ＦＯＲＺ=ＯＴＯＺＳ

３１５０Ｃ(X,YS+1,ZS+1)=C(X,YS+1,ZS+1)+C(X,YS+1,Z）

3160ＮＥＸＴ，Z 31701vEXT’X

3180PRINT,，ＥｎｄｅｄＳｕｍｍｎｇｏｎ，，TIME＄

3190ＲＥTURN，Calc．＆summing

3200，５集計結果記録部（米ＲＥＳＵＬＴＭＥＭＯ;3210-3500行）、リスト９

上記の結果を、ＲＡＭDiskにFileし、集計結果があるので、表示部⑦に移

行する｡〔3230-3280〕上記の結果を、ＲＡＭＤｉｓｋをつかっているなら、そこに “ＲＳＬＴＦ”という名のsequentialfileをＯＰＥＮして、Subroutine 米ＷＲＩＴＥＯＵＴにおいて書き込む。Ｆｉｌｅのサイズは、３つの項目の肢数十

３を累乗した数値の２倍程度である。４キロByte余りという例が多い。

〔3300-3370〕別な機会に再び利用する可能性のある項目の組合せである場

合には、ＦＤＤ（F1oppyDiskDrive）のＢ番上のFloppyDisk（原データの

Fileが入っているものでよい）に、各項目の番号の下２桁を順に綴ったFile名を自動的につけて（3320行）、上記と同じ内容を記録しておく。自動的な名称－９８－

(28)

の付与は、再利用する際に、記憶やメモ類の確認や打ち込みなどの煩雑で誤り易い操作を省いて、確実迅速に取り出せるようにするためである。〔3390-3480〕米ＷＲＩＴＥＯＵＴ：次の順に、Fileに書き込む｡

まずＸ軸の項目から順に、項目番号ＸＮ、日本語名称Ｘ１＄、英字略号Ｘ２

＄、回答肢数（＋１）ＸＳ（3400行）。次に、集計結果配列Ｃの合計欄を含む

Cellを、Ｘ，Ｙ，Ｚの番号を順次増加させながら、書き込む。なお、このroutineではすでに関係変数群や配列Ｃが与えられているから、ＭＡＩＮＲ・に戻ったのちは、1120行により、直ちに表示routineに飛ぶことになる。リスト９

３２１０，===ニニニーーニー=二二二＝集計結果記録二二＝===＝=二二二二＝

3220＊RESULTHE1IO 3230PRINT'､結果を、''； 32401FINsTR('，CD,,,DRV$）THENmsE3300

3250PRmT”まずＲＡＭＤＩＳＫＮｏ.，'DRV$,'に記録します'’

32600PENDRV$+，':RSLTF”ＦＯＲＯＵＴＰＵＴＡＳ＃2 3270GOSUB・WRITEOUT 3280CLOSE＃2 3290,

3300INPUT，'Ｆ・ＤＩＳＫ(B:）に記録しますか？〔YorCR/〕，，,A＄

33101ＦＡ$=''''0RINSTR("Yy，，,A$）THENElSE3370

3320FmE$=，，B:''十xN$+YN$+zN＄

3330PRINT，，FileDescrpt=',FILE＄

33400PENFILE＄ＦＯＲＯＵＴＰＵＴＡＳ＃2 3350GOSUBなWRITEOUT 3360ClDSE＃2 3370ＲＥTURN’･RESULTMEIlO －９９－

(29)

００００００００００００８９０１２３４５６７８０

羽羽弧弧弧弧弧弧弧弧弧弼

*WRITEOUT

NRITE＃2,川,X1$,X2$,XS,YN,Y1$,Y2$,YS､ZN,Z1$,Z2$,ＺＳ

ＦＯＲｚ=Ｏｍｚｓ+ｌＦＯＲＹ=ＯＴＯＹＳＨＦＯＲＸ=ＯＴＯＸＳｍＷＲＩＴＥ＃2,C(X,Y,Z）ＮＥＸＴ，ＸＮＥＸＴ，ＹＮＥＸＴ，Z RETURN ，６結果読み出し部（米ＲＥＣＡＬＬ;3510-3820行）このroutineは、既に集計結果のFileがある同じ項目の組合せをあらためて分析するような場合に、再計算や結果Ｆｉｌｅの作成といった作業の重複を避けるために使うもので、項目指定後、ここに飛んでくるようにしていろ。〔3530-3580〕集計結果Fileの種類を、ＤｉｓｋDriveの番号で確認し（ＢならFloppyDisk、ＣまたはＤならＲＡＭDisk)、そのFile名をつける。〔3600-3620〕上記のFileをＯＰＥＮし、米ＲＥＡＤＩＮを呼び出して、元の順序通りに変数群と配列Ｃを書き込む。〔3630-3680〕ＦＤＤから読み込んだ場合は、今後の処理の便のため、ＲＡＭ Disk上に前の米ＲＥＳＵＬＴＭＥＭＯと同様の結果Fileを形成する。〔3700-3800〕米ＲＥＡＤＩＮ：上記の米ＷＲＩＴＥＯＵＴとまったく同じ変数、配列を同じ順に、メモリ上に読み込む。〔以下次号に続く〕－１００－

(30)

I)~ " 10

'3510 '

===============

&8tM:Mt

.~W

L.

.================

3520

·RECALL

3530

PRINT

".,tM:Mt~H~t~l;lT"

3540

INPUT

"Source

Disk No.

1:1?

(B~DJ ",RDRV$:

3550 ON INSTR("BCD",RDRV$) GOTO 3570,3580,3580

3560

OOTO

3540

3570

FD.D=!: FILES="B:"+XN$+YN$+ZN$ : GOTO

3600

3580

FD.B=O: FILE$=RDRV$+":RSLTF"

3590· '

3600

OPEN FILES FOR INPUT AS

#2

3610

.

GOSUB .RBADIN

3620

CLOSE #2

3630 ._

IF

FD.8 AND DRVS(>

"8" THEN ELSE RETURN

3640 .

TRFI~=DRV$+":RSLTF"

:.PRINT

"TR$="TRFIL$

3650

OPEN TRFIL$ FOR OUTPUT AS #2

3660

GOSUB .WRITBOUT

3670

CLOSE #2

3680

RETURN

3690 '

3700

*READIN

3710 INPUT #2,XN,X!S,X2$,XS,YN,Yl$,Y2S,YS,ZN,ZI$,Z2$,ZS

3720 FOR Z=O

]Q

ZS+l

3730

FOR

Y=O TO YS+l

3740

FOR X=O TO X8+1

3750

INPUT #2,C(X,Y,Z)

3760

NEXT' X

3770

3780

NEXT 'Z·

3790

RETURN

(31)

-101-参照文献（本編で引用したもの）〔１〕阿部亮一「パソコンでのアンケート・データの入力および修正方法の事例研究一表形式化とカーソル・キーによる入力･修正作業の迅速正確化一」、『沖大経済論叢』第11巻、１．２合併号、1987年３月〔２〕森塚慎治「ＭＳ－ＤＯＳ－Ｎ８８ＤＩＳＫＢＡＳＩＣファイル転送プログラム」、『ＴｈｅBasic』１９８４年８月号。なお、プログラムは「ナンパーソフト98」Ｖｏｌ、１，技術評論社刊の Diskに、また説明文は同マニュアルに納められており、筆者はこれを利用した。〔３〕ＧＩＮ「ファイル転送プログラムＭｒ･ＴＲＡＮＳＦＥＲ」、『Ｔｈｅ Basic』1986年１月号〔４〕村瀬康治『応用ＭＳ－ＤＯＳ』アスキー出版局、1986年７月〔５〕小紫成吾「プリンタドライバの作成」『ＴｈｅＢＡＳＩＣ』1987年11月号

〔６〕Ｂ、Ｗ，KernighanandPJ，P1anger,ｗＴｈｅＥ１ｅｍｅｎｔｓｏｆＰｒｏｇｒａ－

ｍｍｉｎｇStyle”’2ｎｄｅｄ.,McGraw-HillBookCo.,198（木村泉訳、『プログラム書法』第２版、共立出版、1982）〔７〕ＮＥＣ『ＰＣ－９８０１ＥＢＡＳＩＣＲＥＦＥＲＥＮＣＥＭＡＮＵＡＬ』〔８〕ＮＥＣ『ＰＣ－９８０１ＥＵＳＥＲ，ＳＭＡＮＵＡＬ』－１０２－