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

(1)

Title

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

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

Author(s)

阿部, 亮一

Citation

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

Issue Date

1988-03-31

URL

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

(2)

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

－クロス集計の自動化の試み－阿部亮【前号】はじめにＩ分析の方法ｌ分析の手段２分析の対象と具体的方法３３次元クロス集計プログラムの概要 Ⅱプログラム前半の内容と実行結果１Mainroutin6部２原データ転送部３項目指定部４集計部５集計結果記録部６結果読み出し部【以下本号】 Ⅱ補足 Ⅲプログラム後半の内容と実行結果１表示、主要部２クロス集計表２．１１行表示２．２２行表示３棒グラフ表示４原データ表示５割り込み処理 Ⅳ成果と残された課題１

(3)

〔承前〕との（下）では、（上）で算出、記録した３次元までのクロス集計結

果や原データを表やグラフで表示する部分の内容説明と実行結果の例示をおこな

う。 Ⅱ補足

前号掲載の前編〔文献９〕では、プログラムの説明に終始し、実行時のＣＲＴ

画面を例示しなかった。これは実行の各段階を連続して示さなければ理解しにく

いためで、前段が終ったとの段階で後編へのつなぎの意味もこめて、ここに表示

例を一括して掲載しておこう。

図１初期画面Ｉ（出力先切り替え機能設定、原データのRamDisk転送）

Ｂｕｉｌｔ－ｉｎＰＲＩＮＴ－＞ＬＰＲＩＮＴＣｈａｒｌｇｅＲｃＬＩｔｉｎｅ？（ＣｒＩ[１１．Ｎ）［Ｙ,．］？ＹＹｏｕｃａｎｕｓｅｔｈｅｆｏｌｌｏ↓ｊｉｎｇｃｏｍｍａｎｄｓ、Ｃ１ｖｉＤＯＮ：ＰＲＩＮＴ－＞ＬＰＲＩＮＴＣＩｖｌＤＯＦＦ：Ｃａｎｃｅｌ中中＊＊中小Ｉや＊中中中小小１供＊●＊＊＊＊＊:小小中＊＊Ｏ:＊＋,,い＊小才Ｏｑ:＋ｏｆ小．小?０４０．ＯｑＯｄ中中＊・0.0：ＯｑＯ

黙ア邑莞石合妻藁言+｣棒ｸﾞﾗﾌ<原ﾃﾞｰ噺＄

_{ｂｙＲりっｉｃｈｉＦｌｂｅｌｇＳ７、１０。} ＊中中中中中中＊中中中中中中中中＊や中中中中＊中中中中中中＊中中中中中中ＯＯｑ＊中中*＊＊＊＋：い＊中

震堯嚇:\鐡二籍H濡鮮縫鵬雰灘脚，

（１）図１は、リスト３にある本プログラム開始時の画面である。

先頭の噸Ｂｕｉｌｔ－ｉｎＰＲＩＮＴ－＞ＬＰＲＩＮＴＣｈａｎｇｅＲｏｕｔｉｎｅ？”から３行目ま

では、文献１０から借用した画面表示とプリンタ出力とを簡単に切り替えるRoutine

の組み込みに関する部分である。その詳細はｍ５で述べるが、図では組み込みを

指示していろ。

プログラムのタイトル表示に続くブロックは、原データのＲＡＭＤｉｓｋへの転

送関係の指示をあたえる部分である。図は、まだ転送していない場合で、原デー

タ・ファイルのFloppyDiskへのセットを指示し、ＲＡＭＤｉｓｋのDrive

numberを尋ねていろ。これは、ＲＡＭＤｉｓｋのDrivenumberが、ＤｉｓｋＤｒｉｖｅ

－２－

(4)

中最後の番号を与えられることになっていて、接続されるFloppyぞHardDisk

Driveの台数に応じて変動するのに対応するためである。現実のDriveが２台であればその次の番号としてＣを選択する。図２初期画面Ⅱ（再起動時、原データＲａｍＤｉｓｋ転送済の場合）（２）図２は、リセット（システム全体の初期化、再起動）をせずに、プログラム

を再び動作させたときの画面で、出力切り替えRoutineや転送等の作業が省略さ

れていろ。図３項目番号の入力、分類集計および記録Ｚ（第Ｓ元）に従って、Ｘ（横）、Ｙ（縦）のクロス表を出力します。

項目糞曼{dTEnNoJを入力してください。

_{Ｙ＝１１８} Ｚ＝１７００Ｋ？[YorCR］Ｙ計算結果のＦｉｌｅがあります力、？［YorCR】ＮＳｔａｒｔｅｄＲｅａｄｉｎｇｄａｔａｏｎｌ７:Ｇ７:２１ Endedabove，ａｎｄＳｔａｒｔｅｄＳｕｍｍｉｎｇｏｎｌ７:０７:３ｇＥｎｄｅｄＳｕｎｗｎｉｎｇｏｎｌ７:Ｂ８:ＢＧ

繧詳｢鋪長ＩＷ鐡,三’11餃鰡繍誌芹亨

ＦｉｌｅＤｅｓｃｒｐｔ=Ｂ：19187曰

（３）図３の前半は、リスト４において処理対象とする３つの項目を、項目番号

で順次指定する画面である。

指定後、計算結果Fileが既にあるかどうかを尋ね、集計作業をパスするかどう

－３－

(5)

力>を決定する。同Fileがない場合（図の場合）は、Subroutine＊ＣＡＬＣ（リスト６）に移り、原データＦｉｌｅのはいっているDrive番号を指定させてから、データの読み

出しと集計の作業にはいる。作業開始と終了の時間を表示する（図では読み出し

に１８秒、,集計に２７秒を要している）。ついで、集計結果を記録する

・ＲＥＳＵＬＴＭＥＭＯ（リスト９）に移って、ＲＡＭＤｉｓｋへの書き込みをおこなう。ついでFloppyDiskへの記録の必要を尋ね、Ｙ〔es〕のときは、項目番号

の下２桁を機械的に書き連ねたＦｉｌｅ名（１０１８７０個２a､１）で自動的に書き込み

を行ったのちに、それ以外のキーが押されたときは直ちに、以下説明する表示部

に移行する（本例の続きは図９）。図４図３下段よりの分岐、集計結果の読みだし集計結果を読みだします SourceDiskIIb・は？［B~ｍＢＢ:412B６８

１筆蹟－，鑪露

１６８ＰＤＴＲＰＩＶＳＦＥＲＴＯＲＦＩｖｌＤＩＳＫＴＲ$=D:RSLTF

'晶篭－１蝋：

１６８Ｐ函７９６７９６（４）図４は、前図３の中段で、これから処理しようとする３項目の集計結果が既にあったため（ＹまたはＣＲキーを押して）、リスト１０に分岐した場合である。集計結果ＦｉｌｅのはいっているDrive番号（読み出し元、図ではＢ）を指定すれば、すでに指定されている項目番号（ここでは１行表示のクロス集計表を見るため図３とは異なる組み合せの場合を載せていろ）から自動的にＦｉｌｅ名（412068）

が再生され、集計結果がＭｅｍｏｒｙ上の配列に読み出されろ。もしFloppyDisk

からの読み込みであれば、再使用に備えて図のようにＲａｍＤｉｓｋにＲＳＬＴＦとい

う臨時名称で転送されろ。

その後、上図の場合と同様、つぎの表示部に移行する（本例の続きは図６）。

－４－

(6)

曲２ａ、１このプログラムに使用したＮ８８ＢＡＳＩＣ（８６）では、Ｆｉｌｅの名称として、このような数字の羅列も許されている。使月]が禁じられているのは、コロンとCharactercodeOおよび２５５のみである。〔文献７，４２頁参照〕しかし、Ｆｉｌｅ名による並び替えsort等に支障が出るのであまり奇抜な名称は避けるべきであろう。 Ⅲプログラム後半の内容と実行結果１表示、主要部（＊ＤＩＳＰ；３８１０－４２３０行他）プログラム後半の役割は、集計結果の配列をクロス集計表ないし棒グラフの形で、また原データを一覧表の形で、表示することである。その冒頭部分がこの routineで、どの形式で表示するかを選択する。それに応じて、Ⅲ。２および３にある３つのSubroutineに分岐し、表示後はここに戻って、項目の組合せが変わらない限りさまざまな表示を繰り返し見ることができるようにな~っていろ。〔３８５０〕表示部では、図６のはじめにⅦ対象項目'，とあるように、表示に日本語を使うが、他方で表示routine内では罫線や棒等の表示にグラフィック。キャラクタも使っているため、同モードと日本語モードとをそのつど確実に切り替える必要がある。この切り替えは、ＣＯＮＳＯＬＥ文の第５Parameterで行うが、ここではこれを０にｓｅｔして、日本語モードにしておく。以下の主要routineでも頻繁にこの切り替えが行われろ。由３．１図５ＨＥＬＰＫｅｙによるFunctionKeyの説明、Function表示窓

／

_､

FuilctionKeリによる割込み処理の説明 [ｆ､i］処理l1ENuへ戻蜀［ｆ･2］名処理の冒頭へ戻る［ｆ･3］〔RTとPRINTERの切り換易了解したらどれかキーを押します W同11,雷ｌＥ肩i稲RHI１回iW寵i鯛ｐ…とｑＤ－餌。トー日トーヨトー㈲０，－詞ｂ自白￣

‐丑

、

５

(7)

〔３８６０－３９００〕FunctionKeyの機能と表示を本プログラム用に切り替えろ〔図５最下行の反転表示部参照〕。それらの簡単な説明文を表示するＨＥＬＰ Keyも切り替える〔図５上半部は同キーを押した画面〕。（3860,3870行、１１．１．１のＯＮＫＥＹ、ＯＮＨＥＬＰｒｏｕｔｉｎｅの説明、及びⅢ。５を参照のこと）図６処理の決定、クロス集計表（1行表示）

辮患姿'1繍繍)欄蜑|…-,J,;i入漁,…《,…戸主年階勵）

ChangetheOrderofSubjects？［Y/］Ｎ

ど溜欝i生霊ii窯[割1鵬雲團の辮祷Lﾋﾞｶﾞﾆ曇あ繍与了？ｃ

★クロス集計表★（割り込み処理の説明は肥LPキー） ChangetheOrderofSubjects？［Y/］Ｎ３(168,19G,戸主年階層,6）別Ｘ＝ｌ(141,08,女・就職観､7）：Ｙ＝２(128.95-1,収入源１，９

１織鯛鱗織鱗震垂澪二Ⅷ

表示するのは、Ｚ軸の全値【Z】，特定値[P］？ＰＺの値【〈８］は？３〔３９２０〕ＣＭＤＯＦＦで、ＣＲＴへの表示を指定した（Ⅲ。５参照）のち、対象項目の番号、名称、欄数等の諸元を図６のように表示させる。〔３９４０〕表示対象の３項目の順序（表やグラフの位置にかかわる）を必要なら変更するroutine＊ＣＨＧＯＲＤＲ〔４０７０－４２３０〕を呼ぶ。〔３９５０－４０５０〕図６の上記に続く部分に見るように、表示部での処理ブロ

ックの選択を記号の入力で行わせろ。Ｃでクロス集計表、Ｂで棒グラフ、Ｒで原

データー覧、Ｅで終了である。終了Ｅを選択すると、。ＣＬＯＳ〔リスト１２；７１７０－７１９０行〕へ飛んで、 FunctionKeyに割り当てた機能を終了（ＫＥＹＯＦＦ）させた後、プログラム全体を単純に終了する。

なお、各ブロック内での分析作業途中でも、FunctionKeyの１を押すと、こ

のroutineに戻って、他ブロックの作業に切り替えられるようになっている。

６

(8)

。項目11項序変更subroutine 〔4070-4230〕察ＣＨＯＯＲＤＲこの表示部では、３つの対象項目は、その指定された'I項序にしたがって、表示の位置が、クロス集計でいえば横軸、縦軸、垂直軸（集計表の切り口）と、固定されている。これは各軸と項目との関係を自由とすると、各作業routine中で、処理の繰り返し回数や表示件数の指定などの点で項目の扱いが複雑になりすぎて混乱し、第３者の解読が困難になるばかりか、誤謬bugが入り込みやすくなるからである。しかしこれでは位置を入れ換えた表やグラフを見ることができない。そこで自由に繰り返し変更できるようにするため、２つのデータ配列を設けることにした。まず前編で作成された初めの（したがって元配列と以後呼ぶことにする）データ配列Ｃ（ｘ，Ｙ，Ｚ）がすでにある。その項目11頂序〔Ｘ、Ｙ、Ｚ〕を任意に入れ替えて新順序〔Ｎ１，Ｎ２，Ｎ３〕を定め、これにしたがって新たな作業用配列，（Ｘ，Ｙ，Ｚ）を設定し、これに配列Ｃからデータを組み替えながら転送する。表示はこの作業用配列Ｄを対象に行うことにするのである〔４１２０－４２２０〕。つまり表示は、配列Ｄを対象に軸を固定して行われるが、配列Ｄが元配列Ｃから自由に組み替えて再編成されるようになっているために、極めて柔軟な表示が可能になったのである。だが、この多機能化のために、単一の配列を論理的にだけ組み替える場合よりも容易とはいえ、多少の構成の複雑化や見通しの低下は避けられなかった。㈱３．２㈱３．１ＭＳ－ＤＯＳ上のＢＡＳＩＣでは、漢字ｃｏｄｅにＳＨＩＦＴＪＩＳｃｏｄｅを使い、モード切り替えにＥＳＣＫ等の特別のcode列（㈱1.4参照)を用いないため、１６進で８０番以降のキャラクタｃｏｄｅは、漢字系とグラフィック系が重なって同時に使うことができない。このため使用したＮ８８－ＢＡＳＩＣでは、ＣＯＮＳＯＬＥ文に第５Parameterを設け、他の系統のキャラクタを使うたびに、この文を書いて切り替えるという、面倒な手続きが必要になったのである。曲３.２まず配列の表現が２重化して複雑になった。またおのおののDimmension も変更する必要が能じ、４１４０行で、ＥＲＡＺＥＤで元の作業用配列Ｄを消去してから、ＤＩＭ文で新たな11項序とそのもとでの回答肢数に応じた次元を指定して再定義するなど、若干処理が複雑化した。７

(9)

リスト１１ 3810,...**･******｡｡*｡｡*****･゛･*･**な*･*****゛**************＊ 3815,＊

集計結果および原データの表示＊

3820,****************************･*･･**･*＊

3825,

3830’二二====＝二二二二二二＝表示、主要部＝ニニニニーニニ＝＝ニーニーー

3840＊DISP

3850CONSOLEO,24,1,1,0：KEY７，',CONSOLE,’’’０，，+CHR$(13）

pp91

3860DATAMENU,sameRt,chg･PR,，，,…

3870REsToRE3860：ＦＯＲ’二１ＴｏｌＯ：ＲＥＡＤｏ$:KEYＩ,o$:NExT

38800NKEYGOSUB＊F1KEY,F2KEY,F3KEY

38900NHELPGOSUB＊HELP・Ｄ３９００ＫＥＹＯＮ：HELPOMPRINT：PRINT

39100BJ.H$=,'対象項目（N､,略号,名称,欄数）'’

3920ＣＭＤOFF：PRINTOBJ.H$：ＰＲＭＯＢ$(1);０８$(2);０８$(3)

3930ⅣＢＲ$二,,R,，THENCLOSE＃1

3940GOSUB＊CHG・ORDR

3950PRINT：PRINT，'どの処理をしますか？”

，，割I)込み処理の説明は、HELPキーにあl')ます’’

3960PRINT,，〔Ｃ〕クロス集計表，'；

3970PRINT，,〔Ｂ〕棒グラフ，,；

3980ＰＲｍＴ，，〔Ｒ〕原データ一覧',；

3990PRINT，,〔Ｅ〕終了，，；

4000INPUTBR$：ＩＦＢＲ$=',，，THEＮＢＲ$=BR・MEM＄

40101ＦＢＲ$="C,,THENGOSUB＊CROS

4020ⅣＢＲ$二''８，，THENCDSUB・ＭＲＧ

4030ＦＢＲ$=,,R”THENCDSUB＊D・DUNP

4040IFBR$=,，E，,THENmTO・CLOS

4050BR・MEN$=BR$：GOTO3950

4060，

８

(10)

4070＊CHGoORDR

40801NPUT''ChangetheOrderofSubjects？〔Y/〕,',C､ORD＄

4090ⅣINSTR("，，+，'Yy",CoORD$）THENELSERETURlI

4100PRmlT''0riginalOrder〔X(ﾖｺ),Y<ﾀﾃ),Z(ｳｴ)〕：,P

4110PRIllTOB$(1);OB$(2);OB$(3)

4120PRINT''1NPUTNewOrder〔ｳｴﾉｘ,y,ｚヲ1,2,3ﾄｼﾃ〕，'；

4125INPUT，，，，,N1,N2,N3

41301NPUT''0Ｋ〔YorCR〕,,;A＄

4135ⅣＡ$=,，,'ｏＲＩＮｓｍ(，'Yy'，,A$）THENELsE4120

4140ERASED：DIMＤ(S(N1)+1,s(N2)+1,s(Ｍ)+1）

4150ＸＳ毛(1):YS二s(2):ZS=S(3)

4160ＦＯＲＺ=ＯＴＯＺＳ+１：E(3)=Ｚ

４１７０ＦＤＲＹ=ＯＴＯＹＳ+１：Ｅ(2)=Ｙ

4180ＦＯＲＸ=ＯＴＯＸＳ+１：Ｅ(1)=Ｘ

4190Ｄ(E(N1),E(N2),E(N3))=C(Ｍ,Z）

4200ＮＥＸＴ，X 4210NEXT，Y 4220NEXT，Z 4230RETURN リスト１２

７１７０，=ニーーニニ＝=＝==二二二二＝Ending

7180率CLOS：ＫＥＹＯＦＦ，ＫＩ１Ｌ”C:FII1,,

7190剛，一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一２クロス集計表（・ＣＲＯＳ；４２５０－４３４０行）クロス集計結果を、３番目の項目Ｚの回答肢番号順に、２次元の表形式(横軸：

第１項目Ｘ、縦軸：第２項目Ｙ）で、百分率も加えて、順次自動的に表示して行

くroutineのメイン部分である。作業名を表示した〔図６，３段目〕のち、項目順序の変更routineをへて－９－

(11)

〔４３００行、図、上記次行〕、Ｚ、Ｘ、Ｙ各軸の要素を表示する〔同、次行〕。

さらに、集計実数と百分率を同一行で表示するか（＊ＳＮＧ）、２行に分けるか

（＊ＤＢＬ）を自動的に決定し、分岐する〔４３３０行〕。これは、Printerが１０インチ幅と狭く、英数字をElitemodeで詰めて印字しても、実数と百分率を１行で表示できるのは、無答。その他。合計の３つの欄が加わるので横軸Ｘにおかれた項目の回答肢数が７以下のときに限定され、これを

越えると％を別行で表示するほかなくなるためである。しかも、それぞれ書式が

異なるので、・ＳＮＧと＊ＤＢＬの２つの独立したroutineをもうけ、自動的に切

り替えるようにしていろ。リスト１３４２５０’二二====＝======＝===二二==二=＝====＝====＝====＝=ニーーニーー

4255,＝二二＝＝＝ニニニニCROSSTABLE

4260＊CROS

4270CONSOloE，…O

4280PRINT：PRmTSPC<10），,★クロス集計表★”；

4290PRINT，，(割り込み処理の説明は、HELPキー)'’

4300GOSUB＊CHqORDR

4310PRINTOB$<Ｍ）’'別Ｘ二''０B$(N1）”：Ｙ=''０B$(N2）：PRINT

４３２０，－－－－－横肢数による表示変更８>SingleelseDouble

43301FXS<８THENGOSUB＊SNGELSEGOSUB＊DBL

4340RETURN ２．１１行表示（＊ＳＮＧ；４３５０－４８７０，６０６０－６５３０行他）横軸Ｘにおかれた項目の設定回答肢数（ＸＳ－１）が７以下、無答。その他回答・合計の欄を加えて１０以下のとき、縦軸Ｙの回答肢の番号に応じた実数と百分率を１行に順次表示するroutineで、具体的には次のようなプロセスをへる。〔図６～８、表１～２参照〕〔４３８０－４３９０〕Subroutine＊ＳＥＬＢＡＳ〔リスト１５〕㈱３３を呼び－１０－

(12)

出し、図６の４段目を表示して、百分率の母数を選択あるいは入力.させる（母数

にする変数ＢＡＳＥのPointerとなる変数ＢＡを決定)。次に＊Ｚ､ＳＥＬＣＴ〔同〕

曲３．４を呼び出し、図６の５段目のように、第３項目Ｚのどの回答肢に対応する

集計表を表示するのかを指示させる。特定回答肢に対応する集計表を表示するのかを指示させる。特定回答肢の場合（ZSEL＄＝蝋P,，,ＺＤに回答肢番号)と、全肢を連続して表示する場合（ＺSEL＄＝碗Ｚ''）とで処理が若干異なる。〔４４００〕ＰＲＮ＝１でPrinterへの出力が指示されていれば、ＰＲＩＮＴ命令をＬＰＲＩＮＴ命令に切り替える役割を与えられたＣＭＤの機能〔リスト２２参照〕をＯＮにし、さらに＊ＥＬＩＴＥ〔リスト１７，７１５０行〕により、Elite字体を指定して、印字数を増加させる措置をとる。

〔４４１０－４４４０〕上記の表示対象選択で、全部を選んだ場合は、ここで項目

Ｚの全回答肢に対するクロス集計表を。ＳＮＧ.Ｄを呼び出しながら順次表示する。

〔４４５０〕同様に特定回答肢を指定したときは、その番号ＺＤのクロス集計表

を表示する。図６の下段では回答肢番号３を指定していろ。図７がその実行画面の一部である。

図７１行表示クロス集計表Display表示

｡〔rossTabl唇ヨコニ糞・就職観ﾀﾞﾃｰlliJlM;il 2o:411「,.a、２，．１．Ｅｕ｢１１ under戸王年階層＝３３４５０１へ「β● １（０．３）－２４（６．１）３ゴ（３．４）３７（９．４）１０５(2鷹.６）と（０．５）－３（０．９）！（０．３）３（０．８）１１３（と.５）､ａ．’－１（0.3 １１１（０．３９．３〉３２３(８１．３ｇｌ－ＩＵＥ》(とｅ､El）３（０．２）１２（３．０） 1６（４．１）Ｉ（０．３） 1（０．３）９（２．３。0 （０．３ｊ３ｌＥＩ５（ＩＤＤ）

蝋辮掌''::'臘繍犀雷:叩

，Ｘ軸項の解答肢数が多いためその他と合計欄が折り返して表示されて、見にく－１１－

(13)

いものとなってしまったが、Printerに打ち出して検討するのが主であるため、 Display上では見当をつける程度の目的で使うので、差し支えないであろう。表１が、Printerに打ち出した例である。見やすい表示になっていろ。表１１行表示クロス集計表Printer表示 *ＣｒｏｓｓＴａｂｌｅヨコ=女・就職観タテ=収入源１ｕｎｄｅｒ戸主年階圏 ’ロ．ａ．２３４５６２ａ２０：４ｓｕｍ D０ａＯ１２３４５６７８ａ１．８Ｕ■ 1（０．３）２６ｌ６．５）３０（７．５１（０．３１（０．３１－２（０５）－１（０．３１１（０．３Ｍ0.3）－１（０．３１３１（７．８）３２（８．０３３（８．３２（０．５Ｍ０．３１（０．３ 0212;.６４（1,0 ２（０．５Ｍ０．３２（０．５ -5（３．８－３６２(90,7） 1１（２．８）３（０．８）４（１．０）〕（０．８）６１１．５）８１２．０）２（０．５） 399（100） ”(３８．８５（１，３Ｍ０．３１｛０．３１（０．３４（1.0 ２（０，５１（０．３ 1１０．３６ 1（０．３－ -３８（９．５ 1（27.8 －７０(４２．６－１６（４．０項目入れ換え例図８？こ'X)処理のﾈ鵬に戻ります〔'}ﾐ？［Y□｢[R］ ★クロス集計表★（割(〕iﾑみMIJ里iZI説明は}|ELPキー） Cl1anqPthEP〔ｌｒｄＢｒｏｆｌ３Ｉ｣ｂｉＦｉごｌｓ？［Ｙ］Ｙ〔I「ｉｑｉｎａｌ〔lri｣今「［》<(ヨコ），,,,(，テルこ(ゥl）］８１(i41,99,女・就職観,7）２('2121.1215-1,IMJliiiI.`〕）〕(l〔,3,Hq戸主年階層,〔,）ＩＮＰＵＴＮＥＰＩＡｌ〔l｢(l色ｒ［ｳｪﾉ、，ｕ,こヲ１，２，３にIﾃ］３．１．２〔１Ｋ［YOrl:.Ｒ]？Ｙ２(120,95-1,1Ｍ、源I.Ｅ}）別；《＝３(IIE,Ｅ,H〔】､戸王年階層,6）：Ｙ＝ｌ('4い：ＩＭＬ7.jiilllill観.７

i鍵世祷i澱奮|鑿學騨凄鯉:lご川

壽聯椚霊BIB圭値に肌特定値[FｗＰ

なお、前述のように、項目１１項序変更subroutineを使うと、切り口を替えて

データを検討しなおすことができる。図８は、FunctionKeyの２を押して、こ

の処理の冒頭に戻り、､OChangetheOrderofSubjects？”の問に'９Ｙ”と答

えて変更を行った例である。ここでは、Ｚ軸として表面に出ていなかった１６８項が横軸に、横軸だった１４１項が縦軸に変更されている。表２は、そのＰｒｉｎｔｏｕｔ

であるが、前図と全く異なった角度からの検討を容易にしていることが伺えよう。

〔４４６０－４４７０〕＊ＯＵＴＣＨＧ〔リスト１６，７５３０－７５８０行〕を呼んで－１２－

(14)

必要に応じてFunctionKey3の切り替えroutineを呼び出して切り替えたのちに、このブロックの冒頭に戻る。この結果、無限ループが形成されるので、このブロックからの脱出は、ｆｏ１キーを押す以外にない。表２図８による１行表示クロス集計表Printer表示＊CrossTableﾖｺｰ戸主年階圏タテ=女・就職観ｕｎｄｅｒ４１：６８１、,ａ． ’２３４収入源１＝ｓｕｍ５ａＬｇｕｍ４（０．３）８８（７．４）９８（８．２） 1２０（10.1）３６４(30.5） 447(37.5）６９（５．８）２（０，２） 1９２（１００）ｌ（０．１）ｌ（０．１）２（０，２９（０．８）３１（２．６）２９（２．４１４（１．２）〕２（２．７）３８（３，２１９（1.6）３８（３．２）４３（３．６４３（３．６）1１１（９３）１３１（１１．０８１（６．８）１７０(１４．３）１３０(10.9 4(0.3)16(1.3)21(1.8 １（０．１７１（１４３）３９９（］３．５）３０５(３３．１ＯＧ■■且ｎＪｕへ＆■シｎ尺“岳ＰｈＤ〃〃生、ｕ ■（』Ｃｈｕ７（０，６）７（０，６）８１０．７） 2６（２．２） 2３（１９） 1６（１３）Ｉ（０．１１８８（７．４） 1２（１．０）７（０，６） 1２（１．０） 5３（４，４）４３１３．６） 1２（10）３９（１１７）ａＬＳｕ目車ＳＮＧＬＤ〔４４９０４６３０〕 Sｕｂ rｏｕｔｉｎｅ 4760行〕を呼んで表題〔４６８０まじめに、Ｓｕｂｒ *ＣＲＳＨＤ〔４６５０行〕と横軸の見出し〔４７００－４７３０行〕を見やすく表示し㈱3.5、区画線を引く〔４７５０行〕㈱３．６゜ついで、Ｙ軸の値を順次増加させ行替えしながら〔４５１０－４６１０行〕、以下の操作を繰り返して目的の表を描きだす。まず傘ＬＮＯ〔４７８０－４８１０行〕を呼んで、縦軸の見出しとして行番号あるいはsum等の記号を書き縦罫線をひく。次にＹ軸の値に対応したＸ軸の各数値Ｗと、（）に入れた百分率を続けて表示していき、Ｘ軸合計欄を表示後改行する〔4530-4590行〕・数値Ｗが０の欄は多くあり表が見にくくなるので、区別しやすいように彩欄と一括して↑'一”のみを表示していろ〔４５７０行〕・百分率は、前記察ＳＥＬ・ＢＡＳで選定した形基準ＢＡに基づき、＊ＰＯＢＡＳ〔リスト１５，６３１０－６３７０行〕で基準数ＢＡＳＥを復元したのち、＊ＰＣ・ＤＳＰ〔同、６３９０－６４５０行〕で計算し、整形表示する。燭３．７㈱３３準ＳＥＬＢＡＳ〔リスト１５，６０７０－６２２０行〕では、百分率％の基準を簡単に指定できるように、総計、合計、横計、縦計、その他、さらに耐前回に同じ,，（ＣＲキーのみを押す。変数ＦＢＡＳＥに記憶させておく）のメニューの中か－１３－

(15)

ら番号で選択するようにしていろ。その他の場合、＊ＳＥＬ､ＩＮＰ〔６２３０－６２９０行〕を呼んで手入力する（変数ＳＬ.Ｘほかとして）。これら変数は、ｐｏｉｎｔｅｒの役割を果たし、後に。ＰＣ・ＢＡＳで現実の変数ＢＡＳＥに変換される。閏３．４．Ｚ,ＳＥＬＣＴ〔リスト１５，６４７０－６５３０行〕は、表示の軸になっているｚ軸の項目について、全部を表示するのか、特定の値の断面を表示するのかを選択させ、特定値の場合はその値ＺＤをｉｎｐｕｔさせるroutineである。曲３５各行列の内容を指示する見出し部分は、番号のみでは解りにくいので、

無答を表す数０番の回答肢は｡n.ａ.”と表示させ、規定外のその他回答の欄は

ｗａｌ．，，、合計欄（ＸＳ＋１番）は伽ｓｕｍ，，と表示するようにしていろ〔*ＡＮＳ・ＩＤＸ、４８３０－４８７０行、その他は番号が表示される〕。これは、縦軸の見出しについても同様に行われろ。樹３．６本リストは、漢字平仮名が使われているため、日本語・キャラクタ・モードで印字されているが、罫線には使いやすさからいわゆるＡＮＫモードのグラフィック・キャラクタを使っている。本章冒頭で指摘したように、両モードは同時使用できず、罫線用キャラクタを嘘，，に入れたプログラムにすると、それ自体は有効な処理であるが、日本語モードでリストをとるとその部分が意味不明の漢字や記号に化けてしまい、リストとしての機能を損なってしまうので、４７５０行ではキャラクタｃｏｄｅで入力していろ。１４９が横線部分を、１４３が縦線とのクロス部分を意味する（文献８，１９－１４０ほか参照）。㈱３．７＊ＰＣ・ＤＳＰで、百分率影は、表示可能桁数が少ないことと、分析上の必要を勘案し小数点以下１位まで小数点を含め４桁で表示することにした〔６４５０行〕･表示範囲が狭いために、１００を越える場合の対策が必要となるが、ここでは合計欄にしばしば出現する１００％の表示を、単に鰊１００，，と表して他数値と区別しやすくし〔６４１０行〕、それ以上は小数点以上４桁の％で表し〔６４４０行〕、範囲をはみ出す１００倍以上は％で示す意味が薄くもなるの

で､､＊＊，，と目だたせて別扱いとした〔６４２０行〕。

リスト１４４３５０，=＝＝ 4360＊SNG

DispinSingleLine（Elite,Conds）

－１４－

(16)

4370

CONSOLE ,.,,0

4380

GOSUB *SEL.BAS

4390 GOSUB .Z.SELCT

4400

IF PRT THEN CMD ON:

GOSUB *ELITE

•printer=elite

4410

IF ZSEL$="Z" THEN ELSE

4450

4420

FOR

Z=O TO S(N3)+1

' All

of

Z

4430

GOSUB .SNG.D

4440

NEXT: 6010

4460

4450

Z=ZD: GOSUB

.SNGaD

'

Random Z

4460

GOSUB ••OUT.CHG

4470 0010

-SNG

4480

,---4490

.SNG.D

4500

GOSUB *CRS.HD

4510 FOR Y=O TO S(N2)+1

4520

GOSUB

*LNQ

4530

FOR X=O TO

S(Nl)+l

4540

W=D(X,Y,Z)

4550

GOSUB .PC.BAS

4560

IF W=O THEN ELSE 4580

4570

PRINT

"

: OOTO

4590

4580

PRINT USING "####(";W: :GOSUB .PC.DSP: PRINT ")";

4590

'X

4600

PRINT

4610

'V

4620

PRINT

4630

RETURN

4640 '---

Head

l.ine

4650

.CRS.HD

4660

CONSOLE ",,0

-

(17)

15-4670

A=Z:

VS=S(N3):

GOSUB -ANS.IDX

.

4680

PRINT

"-Cross Table

3J="

;W2$(Nl);"

tf=";W2$(N2);

"

under ";W2$(N3);"=";ANX$:PRINT

4690 CONSOLE ",,1 : VS=S(Nl)

4695

IF PRT THEN PRINT: GOSUB -ELITE

4700

PRINT FNC$(N2)":"fNC$(Nl);CHR$(150);

4710

FOR

A=O

TO S(Nl)+l : GOSUB *ANS.IDX

4720

IF VS(8 THEN PRINT"

"ANX$"

ELSE

PRINT "

"ANX$ ;

4730 NEXT : PRINT

4740

IF VS<8 THEN

XLEN=(S(Nl)+2)10 ELSE XLEN=(S(Nl)+2)5

4750

PRINT STRING$(5,CHR$(149»;CHR$(143);

STRING$(XLEN,CHR$(149»

4760

RETURN

4770

'---4780

*LNO : IF PRT THEN GOSUB -ELITE

4790 A=Y: VS=S(N2): GOSUB *ANS.IDX

4800

PRINT "

"ANX$;CHR$(150);

4810

RETURN

4820 '

4830

*ANS.IDX

4840

IF A=O

THEN

ANX$="n.a." :RETURN

4850

IF

A=VS

THEN ANX$="

al."

:RETURN

'others

4860

IF A=VS+1 THEN ANX$="

sum"

:RETURN

4870

ANX$=RIGHT$("

·'+STR$(A)

,4) : RETURN

I)~,..

15 6060

'=======

Sub-sub routine

========

6065 '---

Base for

%---6070 .SEL.BAS :CMD OFF

(18)

-6080

PRINT OB$(NI);OB$(N2);OB$(N3)

6090

PRINT "

%~.~.~1:~m~L·-c

<

t!..~ ~\o

6100

PRINT " Dfj(:"FBASE")

t

fRJ

t.'d:'

t:,

CR~-"

6110

PRINT

tt

(1)

~~

:C(Xsum,Ysum,ZsUDl) ";

6120

PRINT"

(2)

~it

:C(Xsum,'lsum,Z)

"

6130

PRINT"

(3)

Mit

:C(XsuIB,Y,2)

"

6140

PRINT"

(4).it

:C(X,YsUII,Z)

6150

PRINT"

(9)

~~flf!"

6160 INPUT BA$

6170

IF BA$:"" THEN BA=FBASE:RETURN

6180

BA=INSTR("1~349",BA$)

6190

IF BA=O THEN

6160

6200

IF

BA=5 THEN GOSUB *SEL.INP

6210

FBASE=BA

6220

RETURN

6230

'---6240

*SEL.INP

6250

INPUT"

~.tT~I1~

X,Y,Z

-r:'AtJ

",SL.X,SL.Y,SL.Z

6260

IF

D(SL.X,SL.

V

,SL.Z)=O

THEN

PRINT

.to

DATA! ":GOTO

6250

6270

INPUT "OK

";A$

6280

IF

A$=""

OR

INSTR("Yy"

,A$) THEN ELSE 6250

6290

RETURN

6300

,---6310

*PC.BAS

6320

IF BA=] THEN

BASE=D(S(Nl)+1,S(NZ)+1,S(N3)+1):

RETURN·

6330 IF BA=2 THEN BASE=D(S(Nl)+l,S(NZ)+l,Z): RETURN

6340

IF

BA=3

THh~

BASE=D(S(Nl)+l,Y

.Z):

RETURN

6350

IF BA=4 THEN BASE=D(X

,S(N2)+I,Z): RETURN

6360 IF BA=5 THEN BASE=D(SL.X,SL.Y,SL.Z)

6370

RETURN

(19)

17-6380

'---6390

*PC.DSP

6410

IF W=BASE THEN PRINT" 100"; :RETURN

6420

IF W}100*BASE THEN PRINT" ** "; :RETURN

6430

IF W>BASE THEN ELSE

6450

6440

PRINT USING "####";W*100/BASE; :RETURN

6450

PR1NT

USING"##.#";W*100/BASE;

:RETURN

(..4()O .. --- ---

Select.ion for

Z

---6470

*Z.SELCT : CMu OFF

f.480

PHINT

"1(iJ~'~-

{)

\l.>ti,

Z

,mO)

~lIftLZJ

•

~~JEfllr.p.l C)".

h!l'-JO

IN1·tLJ

I

" I f.1.~EL$:

It·

ZSEt~$="Z"

THEN RETURN

6500

JF /.SEL$="P" THEN ELSE

6490

6,10

PRINT

If

ZV>1I«C

<"S(Ni)+2"']tt?

tt;:

INPUT

t i f t

.ZD

(~5~O

iF ZD> S(N) +

1 THEN

6510

(Jij.)(J KETUH~

I)

~

"

16 7530 '---

Changing of

Output

devices

---7540

*

.OUT•

ClUJ

7550 CMD OFF: UlNSOLE ".,0

7560

PRINT

"llijJ9G~tJJW!i.;! i-j;~?

(Y/)

tt;

7570

IF INSTR ( "Yy" ,INPUT$

(1

»

THEN GOSUB *F3KEY

7580

PRINT: RETURN

I) ~ "

17 7140

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

Printer chr Size

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

7150

*ELITH :

LPRINT

CHR$(27);"E":CHR$(27);CHR$(1);:RETURN

7160

*CONDS : LPRINT CHR$(27);

"Q":: RETURN

(20)

-２．２２行表示（＊ＤＢＬ；４７４０－５１５０行）

Ｘ軸の有効回答肢数が８以上のときに、Ｘ軸の各数値を、１行目に実数、２行

目に百分率と、２行に分けて表示するルーチンである。〔図９～１０、表３参照〕。

〔４９００－５０１０〕＊ＤＢＬここのメインルーチンで、Ｚ軸項の表示対象選択をはじめ２゜１と同じであるが、表示routineが＊ＤＢＬ.Ｄとなっている点だけが異なる。図９処理の決定、クロス集計表（２行表示）

ﾎﾟ1需具畿蠕'重iiW蝋)生計費に)３(I7aM域s分類,，）

ChangetheOrderofSubjects？［Y/］

ど溜雪;；鵠潔[割鰐蝶の辮原季LE妻二塁あ艦謹了？ｃ

★クロス集計表★（割り込み処理の説明は、HELPキー） ChangetheOrderofSubjects？［Y/】

３(170,Ａ8,地域８分類,9）別ｘ＝ｌ(12,GR,学歴,11）：Ｙ＝２(118,03,生計費,12）

艤繍辮繍:騨騨…

？ｌ

誘繍|まi,霊由牙全値[z山特定値[川Ｐ

図９は、図３に続くもので、Display上では１行表示の図６と同じである。

図１０２行表示クロス集計表（Display表示）

･CrossTableﾖｺｰ学歴タテ=生計費under地域８分類＝３－１９－

(21)

〔５０３０－５３００”ＤＢＬ.，２．１での＊ＳＮＧ.Ｄと同様な構成であるが、

縦軸項Ｙの各解答肢ごとに、Ｘ軸項の各解答肢の数値を表示するのに、まず

実数値だけを１行に打ってしまい〔５０８０－５１３０行〕、次の行に百分率のみを表

示する〔５１５０－５２６０行〕ことを繰り返す構成になっていろ。図１０がDisplay

に表示した例である。

ここでは、元来有効回答肢数が多いものを２行表示にしたため、表示上の工夫

が必要となった。Printerに打ち出して検討するのが主であるため、これを優先

し、ElitemodeとCondensemodeとをうまく組み合せて、実数欄と幅をそろ

えながら字体に変化を持たせた。曲3.8この結果、表３に見るように実数、百分

率の区別が明瞭で、見やすい表になった。他方、Displyへの出力は､Character

の大きさを選べず表示の区別がつきにくいこともあり曲３．９，１行表示のさいと

同様の見にくさが生じ得るが、同様の理由で差し支えないであろう（図１０でわか

るように、有効回答肢が１１までは折り返さずに表示されろ）。

表３２行表示クロス集計表Printey表示＊Cro83TabIeヨコ=学歴タテ=生計費ｕｎｄｅｒ地域８分類＝ｓｕｍｌ８：１０１，ａ．1２３４５６７８９１０ａ１．８ｕ田ﾛ．ａ．Ｉ１２３１２－１（2.6）（０.]）（0.8）（2.2）（1.7）１１１２］６８１１－１（31.6）（６」）（2.2）（22）（0.8）２１７１０５３８２７４１（10.4）（17,7）（10.6）（４.]）（5.8）（12.1）〕１１２１５８８５１０１１１１１（31.6）（26,7）（23.7）（21.7）（9.2）（33.3）４１４１;０９９１０３０１１１（10.5）（25.3）（27.7）（21.7）（25.0）（33.3）５１２７４６４９２７１１（5.3）（12.5）（17.9）（19.6）（22.5）（］０）６１－４１３０5１９〕（6.9）（8.4）（10.9）（15.0）（9.1）７１－１５９３１２２（2.5）（2.5）（6.5）（10.0）（６．１）８１－５１０３１（0.0）（２．８）（2.2）（２．５）（］０）９１－４７１２－（0.7）（２．０）（2.2）（1.7）１０１－１３２５－（0.2）（０．８）（４.]）（4.2）１１１－１２１１－（0.2）（０．６）（2.2）（０，８）ａ１．１－９（０．０）５８（4.9）１６４ (１１８）２８９ (24.2）３０６ (25.7）１７７ (14.0）９８（８．２）４１（1.4）２０（１．７）１４（1.2）１１（0.9）５（０．４）（’00）２ (66.7） (]].]）（100）３８５９２３５８００）（100）（１００）００）（100）４６１２０３３００） 00）］Ｓｕ■ ₁ 00） 1 00）１１９２（100） 2０

(22)

㈱３．８Printerへの出力では、実数にＥｌｉｔｅｍｏｄｅ（linchあたり１２字）で５字分、百分率には同じ長さにするため同ｍｏｄｅで１字分の空白とCondense mode（linchあたり１８字）で（）を入れて６字分を加えたものとしている〔＊ＤＢＬ・ＰＲＮ、５２３０－５２５０行〕。この空白と（）と字サイズの相違によって、実数と百分率とが混同される可能性が低くなっている。… 油a9Display上でも、２００からＤＯＯ番台のcodeに半角文字が指定されているので、使えないことはないが、Printer出力用とｃｏｄｅが異なり２重の指定が必要になるなど不便でもあるので、全角文字で表示した。実数には５字分、百分率は小数点1位までに影記号をつけて同じく５字分としている〔５２１０行〕。リスト１８

４８９０’二＝＝＝Ｔｗｏｌｉｎｅｓ：E1ite＃##＃／Condense(##.#）

4900＊DBL

4910CONSOLE…,O

49ZOGOSUB＊SELoBAS 49〕ＯＧＯＳＵＢ＊ZoSELCT 4940IFPRTTIlENCHDON：GOSUB＊ELITE

49501FZSEL$=,，Z”ＴＨＥＮ497(）

4960Ｚ=ZD：GOSUB＊DBL.Ｄ：GOTO5000，RamdomZ 4970FORZ二ＯＴＯＳ〈N3)+１，Ａ１１ｏｆＺ４９８０GOSUB＊DBLoD 4990NEXT 5000GOSUB…OUT・CHG 5010GOTO＊DBL 5020,----5030＊DBLD 5040GOSUB＊CRS･ＨＤ

５０５０ＦＯＲＹ二ＯＴＯＳ(Ｍ)+1

5060GOSUB＊LJlIO 5070FURX=()ＴＤＳ(N1)+1 －２１

(23)

5080ｖ=D(X,Y,Z〉

5090ＩＦＰＲＴＴＨＥＮＧＯＳＵＢ＊ELITEprn=elite

5100ＩＦＷ=ＯＴＨＥＮＰＲＩＮＴ’’－，，;：GOTO5120

5110PRINTUSmIiG,'＃###，';111；

5120ＮＥＸＴ，X 5BOPRINT

5140’－－－－ｆｏｒ％

5150PRINT,，，，;CHR$(150>；

5160ＦＤＲＸ=ＯＴＤＳ(Ｍ)+1

5170ｗ=､(x,Y,z）

5180GOSUB＊PC・BAS 5190ＩＦＰＲＴＴＨＥＮ＊DBL・PRN 5200ＩＦＷ=ＯＴＨＥＮＰＲｍｌＴ，,

”;：Gom5260

5210GOSUB・PC・DSP：PRINT，，%,，;：GOTO5260

5220＊DBLPRN：

5230LPRINTCHR$(27);，,E,,;'，，';CHR$(27);''０１'；，condense

5240ＩＦＷ=ＯＴＨＥＮＰＲＩＮＴ,，

”；：GOTO5260

5250PRnlT,'(，,；：GOSUB・PC・DSP：PRINT，，)，'；

5260ＮＥＸＴ，X 5270PRINT 5280NEXT，Y 5290PRINT 5300RETURN ３棒グラフ表示（＊ＢＡＲＧ；５３２０－５８６０行他）

対象３項目のうち、任意の項目の各回答肢の数値分布を、

呵家３項曰のつら、仕恵の唄曰の各回答肢の数値分布を、任意に指定した母数

に対する百分率の形で、棒グラフで表示する。そのさい他の２項目（軸）は、合

計値（単純集計の結果）のみならず、回答肢番号を自由に選んで、多角的に繰り

返し表示できるようにする。Printerへの切り替えは前と同様である。

－２２－

(24)

〔５３２０－５４１０〕屯ＢＡＲＧ棒グラフ表示routineのメイン部であるが、ここでは平面上の棒グラフ（＊ＢＡＲ２）のみが組み込まれているため、なんの操作も行わずに次につないでいろ。しかし、現在、二次元のクロス集計表をそのまま立体化する立体棒グラフ表示 routine（＊ＢＡＲ３）を開発中である。のちほど、これを直接組み込むか、別のプログラムとして作成しておき必要な時にＣＨＡＩＮＭＥＲＧＥ文で組み込むかして機能する予定であるが、その時にはこれら２種の棒グラフ表示を選択する routineがここにはいることになる。〔5420-5590〕＊ＢＡＲ２（平面棒グラフ表示）表示したい軸（項目）を決めるroutine＊ＢＡＲ・ＯＢＪ〔５６１０－５６９０〕油３．１０から始まって、百分率の基準を定める既出〔リスト１５〕の＊ＳＥＬ､ＢＡＳおよび

＊ＰＣ､ＢＡＳをへて、棒の長さを定める＊ＳＣＡＬＥ〔５８００－５８６０行、ＡＮＫ文

字８０字という画面横サイズから、６０字分を１行のfullscaleとし、既定値は１％を１字分としている〕を呼んで、棒を表示するroutine＊ＤＰＳ・ＢＡＲを呼びながら、対象項目の全回答肢の百分率を連続して表示する。〔５８７０－６０５０〕＊ＤＳＲ、ＢＡＲ〔リスト２０〕指定された回答肢の実数の母数ＢＡＳＥに対する百分比を横棒の長さで表示するが、使用パソコンに固有のグラフィック・キャラクタのうち、各字桝の左端からｎｄｏｔ目まで縦全幅で塗りつぶすものが８種類あるので（１６進character codeで８７から８Ｅまで）、これを利用して、連続した棒を描いていろ。まず、見出し部分と数値、百分率と区画線を描いた〔５９１０－５９４０行〕後、比率に応じて字桝全体を途りつぶすcodeを重ねて出力し〔６０２０行〕、端数部分は、最も近い８分位数を算定し〔５９００行〕㈱３．１１これに対応するｃｏｄｅの部分塗りつぶし模様を出力する〔６０３０行〕。これにより、図１１～１２に見るように疋確な横棒を表示できるのである。このグラフィック・キャラクタを用いた手法は、棒の幅を選べないほかは、 doｔ単位で細かく表示するいわゆるグラフィック表示と全く同じ精度を持ち、グラフィック表示では複雑になる文'j三等のキャラクタ表示との連動（クロス集計表等との混用や画面の同時移動、消去等）の配慮が無用であることから、実用性の高い方法といえよう。－２３－

(25)

平面棒グラフDisplay表示図１１＝平面棒グラフ表示＝

蝋議瀞i黙二二誉ｌＷ｡…戸主年階剛

鑪繍i謹鋳震耆職繍騨雷:Ⅷ

１（１４

霜ii}ｉ

_［２]＝［３】＝１（１４％の【ｌ【３？２ I1IPUT ﾄｂ・Ｍｎ･ａ．：１：２：３：４：５：６：ａＬｓｕｍ出力＝平面樺グラフ表示＝

衾艶綴目鱗iMI…一山収入源''9)`('…,戸主年階鳳6）

平面棒グラフPrinter表示図１２ No.１４１女・就職観､．ａ、：ｌ（０．３）ｌ：２４（６．１）２：”（８．４）３：３７（９．４）４：１０５（２６．６）５：１０６（２６．８）６：1６（４．１）ａI．：１（０．３） Bum：３２３（８１．８） No.１６８戸主年贈囲ﾛ.ａ．：－（－）１：７６（６．４）２：１５５（１３．０）３：１０６（８．９）４：１２（１．０）５：２（０．２）ａ1．８－（－）８ｍ：３５１（２９．４）Ｎｏ．１６８〕

一コ

／Ｎｏ．１４１＝￣

ﾖ■■■■■■■■■■

５Ｎｏ．１２０＝

’

二コ一一

2４

(26)

また、図１２の上のグラフは、表示項目を替え、こｵlを規定する他項目の回答肢を変更した例である。さらに､百分率の母数を総数に替えたため、棒が短くなるので、上述の＊ＳＣＡＬＥｒｏｕｔｉｎｅで２を指定して、棒を２倍に拡大していろ。このように、この棒グラフ表示は、簡単な指示で多角的な分析ができるようになっている。糊３．１０表示したい軸は、inputで簡単に定められるが、他の軸については、合計欄をｓと入力させると、こオlを解析してそれらの値を定めるのは若干面倒になる。このため、さらに下位のSubroutine＊SEL､ＢＯＢ〔5700-5790行〕を設け、処理に当らせている。曲３．１１５９００行の前半で、ＢＯを算出するのに、、６２５を加えて切捨て型の整数化関数ＩＮＴで処理しているのは、１／８に対するいわば４捨５入を行うためであり、次にＢ２をＳＣＡＬＥ倍した百分比とＢＯの差を８倍して今度は４捨５入型の関数ＣＩＮＴで出しているのは、最後の桝の幅を定めるためである。リスト１９５３１０，＝====＝====＝＝==＝========＝＝====＝===ニーニニーーニ===＝

5315’二=＝=＝=＝==二二＝ＢａｒＧｒａｐｈ＝==二二二二二==＝=＝=====＝

5320＊BARG

5330’－－－－Graphtypeswitchroutine＊BARO、ａｎｄ

5340,EnterancetoB-Ddisproutine＊MRj，

5410,---ｂｅｂｅｒｅ．（９１inesormoreareavailablehere.）

5420＊BAR2 5430SCALE.M=1：Ｋ=O 5440CONSOLE，，，,Ｏ：PRINT

5450PRINTSPC(26);，'＝平面棒グラフ表示＝''：PRINT

5460GOSUB＊BAR・OBJ 5470GOSUB＊SEL・BAS 5480GOSUB＊PCBAS 5490GOSUB＊SＣＡｌＥ－２５－

(27)

~SO()

114 PRT THEN CMD ON

5510

PRINT BHD1$;" //"; BHD2$: IF PRN THEN PRINT

'Heading

5520

~'OR

DW=O

TO OS

5530

IF AXS=l THEN W=D(DW. Y. Z)

5540

IF AXS=2 THEN

W=I)( X~DW.

Z)

5550

IF

AXS=3

THEN W=D( X, Y.DW)

S5bO

OOSlJB

*DSP.BAR

5570

5580 GOSUB *·OUT.CHG

5590

CMD OFF:GOTO

5440

5600 •

:::::'"~'.=:':==

5610

*BAR .OBJ

'

for

Heading

5620

PRINT OR$(Nl);OB$(N2);OB$(N3)

5f)"iO INPUT ...

~j~

tJ'

t--:

~

'JQ

§

'j:

C?

C

1 .2,

3J ",

AXS

S640

I~

AXS<l

OR AXSJ4 THEN 5630

5650

PRINT

"$7)41

~

(1)«IJNo

-'-1?

(f1~IJ'j:

s

.~~wnj: 0)u

5660

K

=

1:

L=N

1:

(DSUB

*SEL.

BOA : X=A

5670

K=2:L=N2: GOSUB *SEL.BOA

:¥=A

56MO

K=··~:L=N3:

(X)SlJB

*SEI,.BOB

:Z=A

5690

RETL!HN

S/UO *SEL.BOB

5710

IFAXS~K 'n~EN

ELSE

5730

'J720 nS=S(L)+ 1: A=O:

BHD]$="No.

"+~~NN$(L)+"

"+W2$(L):

mTO fJ790

5730

PRINT

CHR$(87+K);

u=";:

INPUT

BD$: VS=S(L)

5740

1f AD$="S" THEN

A=S(L)

+

1: OOTO 5770

5750 IF BO$="O" THEN A=O

: 0010 5770

CJ7bO

A=VAL(BD$): IF A=O

OR

A>S(L)+j

THEN

GOTO

5730

5770 GOSUB *ANS.IDX

S7tiO

BHD2$=BHD2$+"

No."+FNN$(L)+"="+ANX$

(28)

-26-5790 RBTURN

5800 '--- Scale of %-Bar

5810

*SCALE

5820

PRINT "INPUT Devider

(n)

for % Scale a line ";

5830

INPUT "(full scale=60%

In )

(ditto=CR)

",GA$

5840

IF GA$="" THEN SCALE=SCALE.M ELSE SCALE=VAL(GA$)

5850 IF SCALE=O THEN *SCALE

5860

SCALE.M=SCALE: RETURN

IJ~1'20

5870

'======= disp Bar ========

5880

*OSP.BAR : CONSOLE

",,1 .

5890

W.PC!=W*100/BASE

5900

BO=INT(W.PC!SCALE+.0625): B2=CINT«W.PC!SCALE-BO)*8)

5<)10

A=DW:

VS=DS-l:

GOSUB

*ANS.IDX: PRINT ANX$;":";

5920

IF W=O THEN PRINT"

-

( -) ";:

OOTO

5940

5930

PRINT USING

"#### ("

:W:: GOSUB

*PC.DSP:

PRINT ")

"~

5940

PRINT

CHR$(224);

5950 FULLB=BO

¥

60: RESB=BO MOD 60

5960

IF FULLB THEN ELSE

6020

5970

FOR

1=1 TO

FULLB

5980

PRINT STRING$(60,135)

5990

IF

J=Fm~LB

AND RESB=O AND B2=0

THRN

6010

6000

PRINT

I t " :

CHR$ (224); '2nd

1 ine

6010

6020

IF RESB THEN PRINT STRING$(RESB,135);

6030

IF

82 THEN PRINT CHR$(135+B2);

6040

PRINT: CONSOLE

",,0

6050 RETURN

(29)

-Z1-４原データ表示（＊Ｄ・ＤＵＭＰ；６５３５－７１１０行）

アンケート回答のＦｉｌｅ、ＦＡＭＦＬＤＡＴにはいっている原データを、一件

ごとに、なんとかチェックできる程度に加工して、一覧表示する。連続表示も可能とする。異常なデータの内容を確認して（誤りが集中していることもある）訂正に役立てたり､全体の傾向をざっと見渡すのにも使用される。Printerへの切り替えは前と同様である〔図１３参照〕。〔６５８０－６６００〕初めてこのroutineに入ると、原データのＦｉｌｅのあるDrive 番号を尋ね、ＦｉｌｅをＯＰＥＮして、データ列を項目に割り付けろ〔6590-6640 行〕。２回目以降は、変数ＤＲＶ＄にその番号が入っているためここはパスされろ〔６５８０行〕。〔６６６０－６７８０〕表示するRecord番号を尋ね、次の＊Ｄ・ＬＩＳＴを呼んで家族人数に応じて５ないし１０行でその内容を表示する。操作を簡単にするため次の番号を見るときは、単にＣＲキーを、直前の番号を見るときはＢＳ（Ｂａｃｋ Space）キーを押せばよいようにしてある。ｗＥ，，を入力すればこのダンプ routineを終了し、表示部メニュー＊ＤＩＳＰ〔リスト11〕に戻る〔６６８０－６７３０行〕・図１３は、５００番のデータをDisplayへダンプした図である。表４はその次の５０１番の:データをPrinterへ打ち出したものである。図１３原データ・ダンプDisplay表示 ★原データ・ダンプ`★ 表示するRecordNo・は？［次=CR,前=BS,終了=E］ＳＵＤ５、少１１８－一Ｒ８０く一－１ＢＣ－－２１３－－１１１６－一一－９９０４ＧＢ｜シ｜’０，４２へｄＦＮＦうぐ＊心Ｒ》Ｉ２２ＩＤ一一ｆ、’ ６５１４３５２００一一一一一日０１９１１０４８｝１，４一一一５’ ’１０００，１ｌ０Ｂ３Ｊｇｌ４１ＫＬ（埋○昨亜、、／０２２－５００１４Ｑｌ０｜－ ’く－－１０／３４００〒、“Ｙ５ｌ０ＵｌｌⅢ ０４４４’２

辿醒稻轌》宰必勵

叩沙旧烟剣且変一Ｊ１⑲ｕｕＪ氾先ｎｓｐ馴犯姻宅旧力臥ｐＪｑ②。Ⅱ昨出・２２４０２く一ＰｌｌＢ００ｌ２ｌ１ｌ’１０一ン０－－１一一６８８９９，日０，１５００１００８く一一Ｑ４４Ｑ０。 ”ぬ師く、富・く中叱５＊＊１１１１１６１ａ１ｄ・一一一ｐ・Ｉｒｏ０６２７一ａｏＮ０４ＱＱＳＴＣ一一・・・一ｅＣ１１２２２４Ｒ舵、巴巾印印、前－２８－

(30)

表４原データ・ダンプPrinter表示 RECＮｏ．５０１［Ｐ､０－１１－０４〕-1054-2-[Cl-00-2oP4-14-1-1-1-1－１［2]＿l2-1DI7-O9-1-2-9-3-1 [ｐ2.oz－６】くＱ１＞1-132-08<Q2＞80-2-3<０５＞4-3-0-0-1 【ｐ２.Ｑ７ｊ①800-002②800-002③800-002④８００－００２ ⑤８００－００２⑥８００－００２⑦８００－４００⑧８００－４００ [ｐ２．８－Ｐ３】<Q8＞6-1く１１＞2-1<１２＞３－１－１－２５０<１３＞2-2-4く１６＞６０－０－３ [ｐ４－Ｔａｌｌ］●０く１８＞0-0<１９＞0-0-0<21＞０<CK＞1-15-4-,2<FD＞4-6-4-1〈A8＞５〔６８００－７１１０〕＊Ｄ・ＬＩＳＴ指定されたRecord番号のデータを読み出し〔６８２０行〕、まず１行目に、その番号と、作業用ｃｏｄｅや家族数など４項目を書き出す〔６８３０行〕。

２行目からは、家族の基礎データ（各１０項目）が、6850行の書式(各項目の

境界は、おもに髄－，，で示す）にしたがって、１行に２人づつの割で表示されろ

〔6840-6900行〕･家族人数分を表示すれば、この部分の作業を終えて次に移る

ので、行数は変動する。

その後、６９２０，７０２０，７０７０行の各書式にしたがって、質問項目への回答

が順次表示されていく。各書式の諸処に、鰊＜Ｑ５＞，，、『!＜１８＞，'、碗＜ＦＤ＞,，

等の記号があるが、これらは質問項目番号やその略称で、前後の質問項目の番号

を割り出す指標に入れてある。

こうして1件の表示が済むと、このSubroutineは終わって、６７６０行に移

り、Printer等への切り替えをするかを聞いたのち、２段目の冒頭６６６０行に戻

って、表示を続けられるようになっていろ。リスト２１

６５３５，==============＝＝=二二＝ニーーニーーニ=＝＝ニニーニニニニ＝＝＝

6540,=ニーーーーーＤｕｍｐｏｆＲａｗＤａｔａｉｎＤａｔａＦｉｌｅ二二二==＝＝

6550＊DDUMP 6560ClIDOFF：CONSOLE，，，,０：Ｕ二O

6570PRINT：ＰＲⅢＴＳＰC(30），'★原データ・ダンプ★'’

6580ＩＦＤＲＶ$<>"，，THENGDRV$=DRV$：GOTO6610

6590PRINT'，原データのあるＤＲＩＶＥのＮｏ．〔B~D〕は？，，；

6600INPUT，，,,,GDRV$：IFINSTR(,'BCD，，,GDRV$）ＴＨＥＮＥＬＳＥ６６００

－２９－

(31)

661.0 OPEN GDRV$+" :FAMFL.DAT'· AS

#1

6620

FOR 1=1 TO

170 6630

GOSUB *BT:FIELD #1,U AS DUM$,BT AS P$(I):U=U+BT

6640

6650

,---6660

eND OFF:

CONSOLE

",.0

6670

PRINT

"~~TQRecord

No.'j:'"!

(<X=CR,fiij=BS,~7=EJ

u;

6680

DMP$=INPUT$(l)' :

DMPT=VAL(DMP$)

6690

IF DMP$="E"

THEN RETURN

6700

IF DMP$=CHR$(13) THEN DMP=DMP+l: 6OTO 6730

6710

IF DMP$=CHR$(S) THEN

DMP=DMP-l:

GOTD 6730

6720

PRINT DMP$;: INPUT ,,,, ,FOLLOW$: DMP=VAL(DMP$+FOLLOW$)

6730

IF DMP<l OR DMP)

1192

THEN

6680

6740

IF PRT THEN CMD ON

6750

PRINT: GOSUB *O.LIST

6760

CMD OFF:

PRINT

"RfjRec.No. "DMP"

m1J~J!?

(v/) ";

6770 IF INSTR("Yy",INPUT$(l»

THEN GOSUB *F3KEY

6780 G010 6660

6790

,---6800

*D.LIST

'Listing Raw Data

6810

PRINT

6820

GET #l,DMP

6830

PRINT "REC

No.

"DMP"

(p.a-I)

_"P$(1)"_"P$(Z)"_"P$(3)"_":

6840

'***face

sheet

'?

USING"(!)_&&_!_*&&_& &_!_!_!_!_!_ "

6850

DATA (,J_,_,*,_,_,_,_,_,_,_

6860

NF=VAL("&H"+P$(3»)

6870

FOR

M=O

TO NF-I :

RESTORE

6850

6880

IF MMOD 2 THEN PRINT TAR(40); ELSE

PRTNT

6890

FOR

L=O TO

9:

READ M$: PRINT M$;P$(lO*M+L+4);: NEXT

6900

NEXT M: PRINT

(32)

-6910,***p2.Q1-Q6

6920DATA，，〔p2.Q2-6〕〈Q1>''’-,-,<Q2>,-,-,<Q5>,-,-,-,-,-6930Ｒ鴎TORE6920

6940FoRM=114,124：ＲＥＡＤｃＱ$：PRINTcQ$;P$(Ⅱ);：NExT

6950PRINT

6960，***p2Q7

6970PRINT,'〔p2.Ｑ７〕，';：ＦＯＲＭ二lＴＯ８

６９８０ⅣＭ=５ＴＨＥＮPRINT：PRINT,， m

6990PRINTKNJ$<MEX$(&H2D抑Ⅱ)>;P$(123+M2)"_''P$(124+M2)；

7000NEXＴＩＩ：PRINT

7010,･p2.Q8-p3

7020DATA，，〔p2.8-P3〕〈Q8>''’-,-,<11>,_,<12>,-,-,-,〈13>,－，－，

〈16>,-,-7030RESTORE7020

7040FORN=ｌ４１ＴＯ１５４：ＲＥＡＤＤＱ$：PRINTDQ$;P$(M);：NEXT

7050PRINT

7060・***P4-tail

7070DATA，，〔p4-Tail〕＊圏,,<18>,-,<19>,-,-,<２１>､<CK>,-,-,-,

〈FD>、-.-,-,<A8〉

7080RESTORE7070

7090FORN=ｌ５５ＴＯ１７０：ＲＥＡＤＥＱ$：PRINTEQ$;P$(M)；：NEXT

7100PRINT：PRINT 7110RETURN ５割り込み処理（＊ＰＲＮＣＨＧ；７５９０－７８３０行）出力をDisplayとPrinterとに任意に切り椿えるためのroutineである。 ↑ＣＭＤＯＮ，と入力すればPrinterに切り替わり、℃ＭＤＯＦＦ，とすｵlばりisplayに切り替わる。迅速かつ簡単に出力が切り替えられるこのroutineは、文献１０の２２３頁に掲載されていたもので、用途にあうため、メモリーへの書き込み場所を変更しただけで借用した。閥３．１２－３１－

(33)

しかし、入力待ちの状態で上記の特殊な命令を打ち込ませるのは一般向けには好ましくないので、本プログラムでは、入力待ちの状態でｆ・３キーを押せば、この＊ＰＲＮＣＨＧｒｏｕｔｉｎｅが呼び出され、出力先を交互に切り替えるようにしたいＦ３ＫＥＹ、リスト２）。さらに、この切り替えをするか否かを尋ね実行するroutine＊ＯＵＴ,ＣＨＧ（リスト１６〔７５３０－７５８０行〕）を用意し、各表示ｒｏｕｔｉｎｅ（集計表、棒グラフ）の末尾でＣＡＬＬしていろ〔４４６０，５０００，５５８０行〕ｏｆ・２キー（ｆ・１

も）で同じ作業を繰り返せるようになっているため、Display上で確認した表示

をこの間に答えるだけで簡単にPrinterに打ち出すことができるのである。㈱３．１２文献１０の８章５節は、「ＰＲＩＮＴ／LＰＲＩＮＴあれこれ」と題して

ＣＡＬＬ文で呼ぶ専用routineをつくる例等が、ここで採用した「未使用コマン

ドでの切り替え」とともに紹介されていろ。随時呼び出して、切り替え可能なの

は、最後のものだけであった。（２１９－２２３頁）

Ⅲ

一一一一・Ｓｃ

士鴎

Ｑｌ－－－

ｌＪｄｒ二二１ノ２Ａｄ

一一二３

。ｄ９．６ ⅢＡ二ニリ』ｅ４ｏ二ニワとｎＣｅ二二Ｐ・Ｉｅｎ－－ｔＮⅢ

Ⅲ位

０

Ⅲ記

ｕ

二ｅ８

０ｏ

℃ｍ

Ｒ

二・ｍｗ

Ｅ，ＲｅＲ０ｃ

幸乢、

９００ｇｒｎＥＦ５ｅ

二ｍＭ

肥風

ａＩ１ｓｈ＋

柵Ｏ

ｌｌｒｅ

ｃｃＤｒｌ二ｔ

二蛇川

ＴＮＣＤｅＥ７刑ＥＡＳ

二・ｍＧ

Ⅱ Ⅱ ＲＴ０

二片中

Ｐ０Ｐ３Ｌ１５９

二’１，

＄７５１Ａ７二一・１＄ Ⅱ

一一く

”Ｅ０３ＴｙＲ十一一二ｙｄＮＹＯＬ

一山画

Ｉ”Ｔ

柵

Ｆ

冊爪盛

一一・四ｍ

ＴＲくＩＳＬ７

二Ｄｃ

ｎＮ．．０Ａ・１１０５ＶＲ

ｌ－

００Ⅱ二Ｔ

二二側

Ⅳ湖６０

ｔ

卿

７１・１ Ⅱ０．．

ｓ０ｍ

二三，～ｕ．．８７＄

一一一一

８＄二０－－９６” ＡＧ０ＧＬ０ｌ－一一 Ⅱ Ｅ二ＤＥＦ二

２二一

ＣＴ”ＴＳＩＡＳＩ

剛川ＭＭ即侃肥棚卿剛Ｍ

Ｅ２二ニト二二，，，＊ＰＬＩ０Ｆ

ス０００００１００００００００

リ印Ⅲ日塊田川Ｍ防侃切開的、汀

７７７７７７７７７７７７７－３２－

(34)

7715Ｚ$=MID$(''00,00,00,7A,3E,00,00,7A''’1*3+1,2）

77ＺＯＰＯＫＥＡＤ+LVAL("&H"+Z$）

7730ＮＥＸＴ，seg7AOO＊2

7740ＰＯＫＥＦＬ,１’－－Ｆ１ａｇＯｎ

７７５０ＤＡＴＡ３Ｃ,E8,F8,75,39,E8,0,,00,80,FB,BD,74,18,80,FBBF

7760DATA74,ZC,E9,0A,00,89,36,EA,06,BF,0,,00,CD,C4C3,BF

7770DATAO1,00,CD,C4CB,B8,9C,15,B8,40,00,89,07,E9,07,00

7780DATＡＢＢ,9C,15,33,CO,89,07,ALEA,06,A3,E8,06,F9,CB,O0

7790DATA3C,CO,74,07,釦,E8,74,07,E9,02,00,B0,AD,F8,C８.E8

7800DATAC3,FF,80,FB,BF,74,,9,80,FB,BD,74,F1,EB,Cl,90,90

7810PRINT，，Youcanusethefollowingcommands･'’

7820PRINT,，ＣＭＤＯＮ：PRINT－〉ＬPRINT'，：

PRINT,，ＣＭＤＯＦＦ：Cancel，,：PRINT

7830RETURN ，＊**＊ＥｎｄｏｆＣＭＤＲｏｕｔｉｎｅ Ⅳ成果と残された課題１成果以上の結果、１．３．１で定めたプログラムの基本的仕様をすべて実現することができた。すなわち、

ａ．ＲＡＭＤｉｓｋを原データおよび集計結果をともに扱うことで全面的に利用

し、読み出し等に要する時間を大幅に短縮し、Ｄｉｓｋと機器の損耗を防ぐことができた。

ｂ、当初から限定した単純項目（回答肢のうち１つだけ選択させる項

目）については、３つの項目番号を入力するだけで、当然人が行なわなければならない選択指示する場面を除いて、自動的に処理できるようになった〔３t）((元全方向の合計の算出、百分率の同時計算表示、集計結果のＦｉｌｅ化を含む〕。ｃ、３種類の表示を実現した。

まず、クロス集計表は、第３元の任意の数値および全数値について、実数と百

一３３－

(35)

分率を並べて連続して表示できるようにした。印字幅の制限があるので、横軸に定めた項目の回答肢の数が７以下のときは自動的に１行に、これを超過すると２行に分けて表示するようにした。さらに文字サイズに変化を付けるなどして多くの情報を見やすく整理して表示することができた。

棒グラフでは、仕様どおりの項目でも表示可能で､百分率の母数には、集計結果

配列中の任意のCellを選択できろ。これにより､視覚によるチェックが容易になった。原データ表示は、簡単ながら項目グループごとに表示するようにしたため、原データ中の誤記をチェックするのに幾度か役立ち、全体をざっと眺めながら特徴の把握を試みるのにも多少は役立った。このように、基本的な仕様を満たしたほかに、次のような個別的な成果を上げている。 ①項目順序の反復変更を可能にした。 Subroutine＊ＣＨＧＯＲＤＲを設けて、項目の１１項序を自由に変更して繰り返し表示できるようにしたことは、分析の視座を増設する効果をもたらした。これは、メモリ上の配列を当初書き込んだあるいは読み込んだ配列（元配列）と実際の表示作業に使う作業用配列と２種類設け～プログラムの指示に従ってＸＹＺ各軸にあてる項目を任意に指定すれば、これに応じて項目を入れ換えて元配列から作業用配列にデータが転送されるようにしたことで、この作業用配列を対象に固定した項目11頂序で処理をする表示用の各routineを多様に機能させることができたのである。そして元配列はそのままなので、これを元に繰り返し多様な順序で表示させることもできた。項目の順序を自由に変更し、さまざまな切り口の集計結果を表示させて多角的にデータを眺めることを可能にして、新たな発見の機会を増加させたのである。またこれにより、一度人力された元配列中のデータは、徹底的に活用され、分析作業の効率を高めることになった。 ②表示先の変更を随時可能にした。表示先をDisplayとPrinterに切り替えるか否かは、各処理の冒頭で尋ねていろ。これは一とおりDisplayに表示して検討し必要ならPrinterに打ち出して記録を残すという手|頂が多いためである。さらに、FunctionKey3番を押せば随時切一３４－

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

Title

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

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

Author(s)

阿部, 亮一

Citation

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

Issue Date

1988-03-31

URL

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

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

〔承前〕との（下）では、（上）で算出、記録した３次元までのクロス集計結

果や原データを表やグラフで表示する部分の内容説明と実行結果の例示をおこな

前号掲載の前編〔文献９〕では、プログラムの説明に終始し、実行時のＣＲＴ

いためで、前段が終ったとの段階で後編へのつなぎの意味もこめて、ここに表示

図１初期画面Ｉ（出力先切り替え機能設定、原データのRamDisk転送）

黙ア邑莞石合妻藁言+｣棒ｸﾞﾗﾌ<原ﾃﾞｰ噺＄

震堯嚇:\鐡二籍H濡鮮縫鵬雰灘脚，

（１）図１は、リスト３にある本プログラム開始時の画面である。

先頭の噸Ｂｕｉｌｔ－ｉｎＰＲＩＮＴ－＞ＬＰＲＩＮＴＣｈａｎｇｅＲｏｕｔｉｎｅ？”から３行目ま

では、文献１０から借用した画面表示とプリンタ出力とを簡単に切り替えるRoutine

の組み込みに関する部分である。その詳細はｍ５で述べるが、図では組み込みを

プログラムのタイトル表示に続くブロックは、原データのＲＡＭＤｉｓｋへの転

送関係の指示をあたえる部分である。図は、まだ転送していない場合で、原デー

タ・ファイルのFloppyDiskへのセットを指示し、ＲＡＭＤｉｓｋのDrive

numberを尋ねていろ。これは、ＲＡＭＤｉｓｋのDrivenumberが、ＤｉｓｋＤｒｉｖｅ

中最後の番号を与えられることになっていて、接続されるFloppyぞHardDisk

を再び動作させたときの画面で、出力切り替えRoutineや転送等の作業が省略さ

項目糞曼{dTEnNoJを入力してください。

繧詳｢鋪長ＩＷ鐡,三’11餃鰡繍誌芹亨

（３）図３の前半は、リスト４において処理対象とする３つの項目を、項目番号

指定後、計算結果Fileが既にあるかどうかを尋ね、集計作業をパスするかどう

出しと集計の作業にはいる。作業開始と終了の時間を表示する（図では読み出し

に１８秒、,集計に２７秒を要している）。ついで、集計結果を記録する

の下２桁を機械的に書き連ねたＦｉｌｅ名（１０１８７０個２a､１）で自動的に書き込み

を行ったのちに、それ以外のキーが押されたときは直ちに、以下説明する表示部

１筆蹟－，鑪露

'晶篭－１蝋：

が再生され、集計結果がＭｅｍｏｒｙ上の配列に読み出されろ。もしFloppyDisk

からの読み込みであれば、再使用に備えて図のようにＲａｍＤｉｓｋにＲＳＬＴＦとい

その後、上図の場合と同様、つぎの表示部に移行する（本例の続きは図６）。

／

､

‐丑

、

辮患姿'1繍繍)欄蜑|…-,J,;i入漁,…《,…戸主年階勵）

ど溜欝i生霊ii窯[割1鵬雲團の辮祷Lﾋﾞｶﾞﾆ曇あ繍与了？ｃ

１織鯛鱗織鱗震垂澪二Ⅷ

ックの選択を記号の入力で行わせろ。Ｃでクロス集計表、Ｂで棒グラフ、Ｒで原

なお、各ブロック内での分析作業途中でも、FunctionKeyの１を押すと、こ

のroutineに戻って、他ブロックの作業に切り替えられるようになっている。

集計結果および原データの表示＊

3820,****************************･*･********･**********･*＊

3830’二二====＝二二二二二二＝表示、主要部＝ニニニニーニニ＝＝ニーニーー

3850CONSOLEO,24,1,1,0：KEY７，',CONSOLE,’’’０，，+CHR$(13）

3860DATAMENU,sameRt,chg･PR,，，,…

3870REsToRE3860：ＦＯＲ’二１ＴｏｌＯ：ＲＥＡＤｏ$:KEYＩ,o$:NExT

38800NKEYGOSUB＊F1KEY,*F2KEY,*F3KEY

39100BJ.H$=,'対象項目（N､,略号,名称,欄数）'’

3920ＣＭＤOFF：PRINTOBJ.H$：ＰＲＭＯＢ$(1);０８$(2);０８$(3)

3930ⅣＢＲ$二,,R,，THENCLOSE＃1

3950PRINT：PRINT，'どの処理をしますか？”

，，割I)込み処理の説明は、HELPキーにあl')ます’’

3960PRINT,，〔Ｃ〕クロス集計表，'；

3970PRINT，,〔Ｂ〕棒グラフ，,；

3980ＰＲｍＴ，，〔Ｒ〕原データ一覧',；

3990PRINT，,〔Ｅ〕終了，，；

4000INPUTBR$：ＩＦＢＲ$=',，，THEＮＢＲ$=BR・MEM＄

40101ＦＢＲ$="C,,THENGOSUB＊CROS

4020ⅣＢＲ$二''８，，THENCDSUB・ＭＲＧ

4030ＦＢＲ$=,,R”THENCDSUB＊D・DUNP

4040IFBR$=,，E，,THENmTO・CLOS

4050BR・MEN$=BR$：GOTO3950

4060，

40801NPUT''ChangetheOrderofSubjects？〔Y/〕,',C､ORD＄

4090ⅣINSTR("，，+，'Yy",CoORD$）THENELSERETURlI

4100PRmlT''0riginalOrder〔X(ﾖｺ),Y<ﾀﾃ),Z(ｳｴ)〕：,P

4110PRIllTOB$(1);OB$(2);OB$(3)

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

_､

3820,****************************･*･･**･*＊

38800NKEYGOSUB＊F1KEY,F2KEY,F3KEY