FOR I=1 TO I .MAX
K=VAL("&H"+MIO$(PAT$(VPAT),3*1,2» 'piece of pat.
TILE$=TILE$'+CH'R$(K AND BLU)+CHR$(K AND RED)
+CHR$(K AND GRN) 'select colors NEXT
"- - draw patterns
PAINT (WX,WV-T-l),O,C 'top color IF' T<2 THEN RETURN
PAINT STEP(-2, O),COL,C 'side color PAINT (WX+2,WY-l),TILES,C 'front ti Ie RETURN
'---<#7-3~ Height Scale 2
----*H.SCALE2
FOR K=l TO 10 : SC=I: IF K MOO 5 THEN ELSE SC=5 POINT (XO+SX,YO+SY-K*lO)
- 30
-4210ＬＩＮＥ‐STEP（SCX，Ｏ),SC,,&H8888 4220ＬｌＮＥ‐STEP(-SX,-sY),SC,,&HAAAA 4230ＮＥＸＴ
4240RETURN
4250’－－<#7-4＞Ｔａｌｌｂａｒ‐‐‐‐－－－‐‐
4260＊TALL
4270、=Ｔ￥100：Ｒ=TN0DlOO
4280ＦＯＲＴ１＝ｌＴＯＤ,ｄｒａｗｌｏｎｇｂａｒｓｉｎａｒｏｗ ４２９０Ｔ＝100：ＣＯL=２：GOSU8＊BAR・ＳＥＴ’
4３００ＷＸ＝ＶＸ＋ＳＭＷ＝Ｗ＋SＨ,ｔｏｗａｒｄｓｆｏｒｅ８ｒｏｕｎｄ ４３１０ＮＥＸＴ
4320Ｔ=Ｒ：ＣＯL=２：GOSU8＊BAR・ＳＥＴ，ｄｒａＨｒｅｓｉｄｕａＩｂａｒ ４３３０RETURN
4340’
4350,＊******＊Ｔａｉｌｏｆ３Ｄ８ａｒＤｒａＨｉｎ８＊*********＊
4360,
１０＃８ファンクション・キー設定＊INlTFKEY（リスト8,4370-5460）
諸設定変更のSubroutine群をFunctionkeyにも割り当てる。
ＢＡＳＩＣでのFunctionkeyによる割り込みはく１行分の処理が終了すること
にチェックされ、そのキーに割り当てられたRoutineにとんでその機能が実行 されるので、頻緊にあるいは不時に使用される機能群を割り付ければ、プログラムを簡潔にして見通しをよくすると同時に決りきった入力を減らすなど操作 性と融通性も向上できる性質を持っていろ。本件のように設定事項が多くその 変更機会も多い場合には、きわめて高い効果をあげうる。途中の段階から抜け 出て最初から設定しなおすことも前に戻ることもできるなど分析上の使い勝手
も大幅に向上する。本プログラムでは、この機能を広く活用している。
〔4410-4480〕＊INITFKEY本体各キーに割り当てた機能の名称を表示し
た後、ＯＮＫＥＹＧＯＳＵＢ．､で各機能のSubroutine名を指定し〔4460〕、この 割り込みを有効にして、キー指定変更'のflagＫＥＹ・ＣＨＧＫをたてろ〔4460〕。
またＳＴＯＰkeyで、既定の機能に戻すSubroutine＊ＦＫＲＥＳＥＴ〔＃8-0〕に
飛ぶようにしておく（これはf･10で復旧する）。3１
１０．１＃８－ｏｆ・ＫＥＹリセット＊ＦＫ・RESET（4500-4530）
＊ＫＥＹＣＨＧ〔＃8-10〕を呼んでFunctionkeyへの機能の割り付けを本来の ものに戻し、ＳＴＯＰｋｅｙｔｒａｐも外して、終了処理をしやすくする。
１０．２＃８－１簡易説明文＊HELP・ＭＥＳ〔キー：ｆ・１表示，Help，〕
〔4550-4700〕Ｈｅｌｐというにはあまりに簡単であるが、Ｘ、Ｙ、Ｚの項目数、
棒の正面幅、高さスケールの現在の値を表示し変更時の参考に供する〔＃８－１－
１〕･確認するまで時間を稼ぎ〔＃8-1-2〕、確認後はもう一度表示して、復 帰する。
１０．３＃８－２棒幅＊ＢＡＲＷＩＤＴＨ〔同ｆ・２BarWid'〕
〔4710-4800〕棒の正面幅をＸ軸の成分間隔INTERVALの何分の１とするか を決定する（既定値は３分の１）。ＣＲキーのみをうてば、それまでの値が残 る（この前数値再利用は以下多くの機能においても用いられていろ）。
１０．４＃８－３棒高さ＊ＢＡＲＨＩＧＨＴ〔同ｆ・３BarHt，〕
〔4810-4890〕棒の高さの尺度を変更する。最長の表示棒高さに設定された 100dotsにデータ数値単位のどれだけを割り当てるかを決定する（既定値は 200dots）。
１０．５＃８－４棒間隔＊ＩＮＴＲＶＬ〔同ｆ・４，Intrvl,〕
〔4900-5010〕画面幅を最大限に使う値を自動的に行う,ＡＵＴＯ'か、使用者の 指定値かを選択し、後者のときはその値をdot数で入力する。
１０．６＃８－５棒色彩＊ＢＡＲＣＯＬ〔同ｆ・５，BarCol，〕
〔5020-5160〕棒の色は大きい順に，赤黄緑水青，としてあるが、それらの境 界値は、一応＃１で既定値を与えてあるが、対象や分析法などで変更したいこ
とがある。それを可能にするのがこのRoutineである。
１０．７＃８－６項目順〔同ｆ・６，ItmOdr，〕
〔5170-5180〕＊ＰＯＳＬＳＷ〔＃3,既出〕を呼んで、項目すなわち変数の軸へ の割り当てを変更する。ＭＡＩＮ部においてもcallされており、種々の局面でこ の視点の大転換ができることになる。
１０．８＃８－７行消去＊ＣＬＲＬＩＮＥｘ〔同ｆ・７℃lrLnl，〕
〔5190-5310〕表示画面x行目（ｘ＝Ｏ、１，２）のCharacter文字を消去し、
カーソルをその行頭に戻す。これは、グラフを見ながらさまざまな設定を変更
3２
することが多く、画面上端の３行を表示や入力などさまざまな作業に繰り返し 使用することにしたため、これら行の清掃を行いただちにつぎの表示を行う必 要がでたことによる。これにより、操作手順が簡略化され、操作性が向上した。
１０．９＃８－８テキスト画面消去＊CLSＲ〔同ｆ・８，cls，〕
〔5320-5340〕テキスト画面を消去する'CLS，命令が実行されろ。
１０．１０＃８－９グラフィック画面消去＊CLS2R〔同ｆ・９，ｃｌｓ２，〕
〔5350-5370〕グラフィック画面を消去する，ＣＬＳ２，命令が実行される。上記 とともに単純な機能であるがプログラムを中断せずに任意の時点でこれらの操 作を行えるように割り当ててある。
１０．１１＃８－１０ファンクション･キー設定変更＊ＫＥＹＣＨＧ〔同ｆ･１０
，ＫｅｙＣｈｇ，〕
〔5380-5460〕このキーがおされるたびに、通常のFunctionkey〔5400に格 納〕の機能と本プログラムの上に述べてきた機能とが切りかわる。そのチェッ
クにflag変数ＫＥＹＣＨＧＫが使われていろ。
なお既に指摘したように、上記で割り当てられたSubroutineはFunction
key専用ではなく、プログラム中からも呼び出されるものが多い。使用頻度の
高いものが割り当てられているのだから当然といえよう。リスト８
，－，－－－－－－：-＿＝－－＝－－＝二一一一一一一一一一一ニーーーー－＝－Ｄ－－－－－－－
－－－－－Ｑ■－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
，〈〈＃８〉〉 ＦｕｎｃｔｉｏｎＫｅｙｓ
ｌ－－－＝＝＿一一一＝－－－－－－－＿ﾆーニーニーーニ一一一一一一一一一一ニーーーー－－－－－－－￣-＝二一一一一一一一一ロー■_~~ニー＿--－－=￣￣￣￣－－－－－－－－￣－－－－－－－－－－－－－－－
4370 4380 4390 4400 4410 4420
*|ＮＩＴ・ＦＫＥＹ
ＤＡＴＡＨｅｌｐ,ＢａｒＶｉｄ,8ａｒＨｔ，ｌｎｔｒｖＩ，8arCo1，
ＩｔｍＯｄｎＣ１ｒＬｎｌ，ｃｌｓ,ｃｌｓ２,KeyChg RESTORE＊|ＮＩＴ・ＦＫＥＹ
ＦＯＲｌ＝ｌＴＯ１０：ＲＥＡＤＯ$：ＫＥＹ１，０$：ＮＥＸＴ
ＯＮＫＥＹＧＯＳＵ８＊HELPJvlES,＊BAR・Ｖ１ＤＴＨ,＊BAR・ＨＥＩＧＨＴ,＊ＩＮＴＲＶＬ，
4430 4440 4450
3３
'---<#8-0>---*F'K.RESET
GOSUB *KEY.CHG: KEY OFF: STOP OFF: FK=l RETURN
., ---<#8-1>- -~-- -- - --- ---
----*HELP.MES GOSUB *OSP.MES GOSUB *HIT.F'K
GOSUB *OSP.MES: F'K=l RETURN
'---<#8-1-1>---*OSP .MES
GOSUB *CLR.LINEO
PRINT "X:"NX;" Y:"NV;" Z«="NZO;"):"NZ;
" Bar-Width="F'W;" -Height="HS"deg. at full-height"
RETURN
'---<#8-1-2>---*HIT.FK GOSUB *CLR.LINEI
PRINT "Hit rune.Key to change conditions,";
"and [R] to retu rn to prog. ";
INPUT TMP$: IF TMP$<>"R" THEN *H IT. F'K GOSUB *CLR.LINEl: F'K=l
RETURN
'---<#8-2>---*BAR.WIOTH
GOSUB *CLR.LINEO
PRINT "Input Bar Width scale. ";
"(interval X)I N fat=l -3- 1=thin ";
PRINT "Now N=":B.WIO.O;: B.WIO=ASC(INPUT$(1~)-48
IF' B.W10=- 35 THEN B. WI D=B. W1·0 ..0: GOTO 4780 'CR?
IF B.WI0<1 OR B. WI0>8 THEN *BAR. WIDTH '.too fatfth i n B.WID.O=B.WIO: GOSUB *CLR.LINEO
FW=INT(XPfB.WIO): FK=1 RETURN
4680 4690 4700 4710 4720 4730 4740 4750 4760 4770 4780 4790 4800
tBAR.COL.*POSI.SW ,*CLR.LINEl,*CLS.R,*CLS2.R~*KEY_CHG
4460 KEY ON: KEY.CHG.K=l
4470 ON STOP GOSUB *FK.RESET: STOP ON 4480 RETURN '
4490 ' 4500 4510 4520 4530 4540 4550 4560 4570 4580 4590 4600 4610 4620 4630 4640 4650 4660 4670
- 34
-4810 4820 4830 4840 4850 4860 4870 4880 4890 4900 4910 4920 4930 4940 4950 4960 4970 4980 4990 5000 5010 5020 5030 5040 5050 5060 5070
>##";
5080 5090 5100 5110 5120 5130 5140 5150
'---<#8-3>---*BAR.HEIGHT GOSUB *CLR.LINEO
PRINT "Input Bar Height Scale ";
"(degrees at fu 11- he ight; def I. =200 ) ";
PRINT "Now HS=";HS.O;: INPUT HS
IF HS THEN ELSE HS=HS.O
IF HS<l THEN *SAR.HEIGHT ELSE HS~O=HS
GOSUB *CLR.LINEO: FK~l
RETURN
, - - - <#.8 -4> - - - ..
*INTRVL
GOSUB *CLR.LINEO
PR INT "1ntervaI of X: now=";XP:"(max": XP.D;") ";
"H itA to use <auto>, C~ to redo, C to change";' INPUT" ",OS
IF OS="A" THEN XP=XP.O IF' 0$="" THEN RETURN IF' O$="C" THEN ELSE *INTRVL GOSUB *CLR.LINEO:
PRINT "Input intervals(dots) within ";XP.O;
Q=VAL(INPUT$(l»: IF' 0<3 OR Q~XP.~ THEN *INTRVL PRINT 0: XP=Q: FK=l
RETURN
'---<#8-5>---~-- ..
-~--*BAR. COL'
GOSUB *CLR.LINEO
PRINT "Set border deg rees(dots) of. da ta for Bar co 19r."
GOSUB *CLR.LINEI ' • , I
PRINT USING "Color>init:~>## Jl>## ~>##. 71<>##.. W WB(1),WB(2),WB(3),WB(4),WB(5)
FOR 1=1 TO 5
LOCATE 1*8+9,1: INPUT "",AS: IF A$="" THEN 5120 IF VAL(A$)=O THEN 5090
WB(I)=VAL(A$) NEXT
LOCATE 55,1: PRINT "OK ?";
IF FNYES THEN ELSE 5060
GOSUB *CLR.LINEl: GOSUB *CLR.LINEO: FK=l
- 35
-5160 5170 5180 5190 5200 5210 5220 5230 5240 5250 5260 5270 5280 5290 5300 5310 5320 5330 5340 5350 5360 5370 5380 5390 5400 5410 5420 5430 5440 5450 5460 5470 '
RETURN
'---<#8-6>---, =
#3 [Switch Positions of Items]'---<#8-7>---'--<#8-7:.0>
*CLR.LINEO
LOCATE 0,0: PRINT STRING$(79," "): LOCATE 0,0: FK=l RETURN
'--<#8-7-1>
*CLR.LINEI
LOCATE 0,1: PRINT STRING$(79," "): LOCATE 0,1: FK=l RETURN
'--<#8-7-2>
*CLR.LINE2
LOCATE 0,2: PRINT STRING$(79," "): LOCATE 0,2: FK::;I RETURN
'---<#8-8>---*CLS.R
CLS : FK=I: RETURN
'---<#8-9>---*CLS2.R
CLS 2: FK=l: RETURN
'---<#8-10>---*KEV.CHG
DATA "load ",34,auto,32,go to,32,1 ist,32,"run ",13,
"save ",34,key,32,print,32,"edit .",13,cont,13 KEV.CHG.K=-KEY.CHG.K
IF KEV.CHG.K <0 THEN ELSE *INIT.rKEY RESTORE *KEV.CHG
fOR I=i TO 10: READ 0$,0: KEY I,O$+CH~$(Q): NEXT fK=1
RETURN
- 36
-11＃９初期化作業（リスト9,5480-5680）
冒頭、タイトル表示と棒模様の設定を行う。
１１．１＃９－１タイトル表示＊ＴＩＴＬＥＤＳＰ
〔5520-5580〕プログラムの表題となっていろ＃Ｏの1040行から４行分を画面 にも、タイトルとしてそのまま流用し、合理化していろ。
１１．２＃９－２棒模様データ＊ＴＩＬＥＳＴＲ
〔5590-5680〕グラフの棒の所属成分（ここではＹ軸のそれ）を識別するため に模様（タイル・パターン）を正側面に描くために、６種類のパターン（図
表２）を用意しそれらを指定するSTmNGを配列PAT$()に転送しておく。
図表２ T11gPatterns
:ZItrlrl員トに,、１ 「・０ ４ ．Ｉ戸 ﾋﾞ’
凝讓懇llll鰯薑
リスト９
ワーーーーーロ－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＝ニーーーニニニ￣￣▲￣￣￣二－－－℃－．，－－－－－－－－－－－．－．－－－－．.．－－－－．..－－－．.■－－－－－
，〈〈＃９〉〉 Ｉｎｉｔｉａｌｉｚｉｎｇｓｕｂ‐ｒｏｕｔｉｎｅｓ
ｌ－,－＝－－－－－．－－－＿＿＝－．－－－－－－－－－－－－－－－－－－，－－－－－－－－－－－－－－－－－ニニーニーー６－．＝＝＝－－～－－－－－－．－－－－－－．－－．．.■－－－－－口.■D－－－－．.■－－－－－－－－－－
5480 5490 5500 5510 5520 5530 5540 5550 5560 5570 5580 5590 5600 ５６１０ ５６２０ ５６３０ ５６４０
，‐‐‐<#9‐1〉ｄｉｓｐｌａｙＴｉｔｌｅ‐－－
*ＴｌＴＬＢＤＳＰ
ＣＬＳ３：L0CATEO,０：RESTORE＊Ｄ３Ｄ ＦＯＲＩ＝ｌＴＯ４
ＲＥＡＤＤｌＳＰ$：PRlNTSPC(12);、ＩＳＰ＄
NEXT RETURN
’一一く#9-2〉ｄｅｆｉｎｅＴｉＩｅｓｔｒｉｎｇｓ
*ＴｌＬＥ・ＳＴＲ，ＴｉｌｅＰａｔｔｅｒｎｌｉｓｔ ＰＡＴ$(O)=''4#11+22+44+８８，，
PAT$(1)=''4#22+22+22+FF，，
PAT$(2)二''4#88+44+22+１１，，
PAT$(3)=''1#5５，，’2A'，
3７
，ｇｒｉｌｌ
'--6ｐａｔｔｅｒｎｓ
，PAT$(4)=''3#88+02+20”
PAT$(4)二''8#81+42+24+18+18+24+42+８１，，
PAT$(5)二''3#00+００+FF，,
RETURN 5650
5660 5670 5680 5690,
１２＃１０原データ入力＊DATＡＩＮ（リスト10,5700-6040）
MAINroutineの最初のSUbroutineで、原データをfileから読み込み、原 データ配列に転送する作業を行う｡（注）
〔5740-5880〕３次元データfileのあるdrive番号を入力させ、確認後＊ＮＡ ＭＥＩＮに飛んでそのfile名を入力させる。
１２．１＃１０－１データ格納＊ＴＲＡＮＳＡＲＲＡＹ
〔5890-6040〕原データfileをＯＰＥＮし、項目名等が記されているHeader部
をそれぞれの配列に読み込む。項目番号を示すＮ()、英字略号のＷ1$()、日本
語項目名のＷ2＄（)、最終項目番号のＳ（)が、３つの項目ごとに記入されてい る。そこで得た各項目のサイズｓｏに合計用の欄を１つ加えた原データ格納用 の３次元配列，（Ｘ，Ｙ，Ｚ）を宣言し〔５９６０〕、file中での順序にしたがって原 データを転送する。リスト１０
，－－－‐－－－－‐＝－－二-－－－－－ミニーニーーー－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－-－－－－－－－－－－－－－－－－－－－－－－－－￣－－－－－
，〈〈’１１０〉〉 ＧｅｔＤａｔａ
ｌ－－－＝＝‐＝－－－－＝－－－－－－－－－－=－－－－－－ニーーーーニーーーーーーーーーニーーーー
5700 5710 5720 5730
5740 *DATA、１Ｎ
（注）元のversionには、ＲＡＭＤｉｓｋに原データを転送するRoutineがあっ たが、プログラム完成後は原データを一旦配列にいれてしまえばfileから読み 込む必要がなくなるため、ここでは省いた。
3８
Ｒ0$=''8,,：ＰＲＩＮＴ
ＰＲｌＮＴ，，InputDriveNo・ｏｆＤａｔａｆｉｌｅ［B(defl）-E]．，，；
ＩＮＰＵＴＡ＄
PRlNT’’０K？［Yy,CR/］,,；
ＩＦＦＮＹＥＳＴＨＥＮＥＬＳＥ＊DATA・ＩＮ ｌＦＡ$=，,,，ＴＨＥＮ＊NANE･ＩＮ
Ａ二lNSTR(，，BbCcDdEe，，,A$)：ｌＦＡＴＨＥＮＥＬＳＥ＊DATA.lＮ ＲＤ$=CHR$(&Ｍ２+((A-1)\2)）
，
＊NAME、１Ｎ’：QQ$=''101870,'：ＧＯＴＯ５７６０，#####＃
ＰＲｌＮＴ：ＩＮＰＵＴ,，ｌｎｐｕｔｔｈｅｆｉｌｅ，sname．,，;Ｑ0＄
ＰＲＩＮＴ’’０K？,，；
ｌＦＦＮＹＥＳＴＨＥＮＥＬＳＥ＊DATA・ｌＮ ＦｌＬＥ$=R0$+”:”+q0＄
'－－<#10-1〉・TransferDatatoArray
*TRANS・ARRAY
PRINT：PRlNT，，Nowtransferrin8datatoArrayD(X,Ｖ,Z)，，
OPENFlLE＄ＦＯＲ１ＮＰＵＴＡＳ＃１ ＦＯＲＪ＝１ＴＯ３
INPUT＃1,N(J）,Ｖ1$(｣),M2$(J）,S(J）
ＮＥＸＴ
ＤＩＮＤ(S(1)+1,s(2)+1,s(3)+1），
ＮＸ=S(1)+1:NY二s(2)+1:NZ二s(3)+１
ＦＯＲＺ=ＯＴＯＮＺ ＦＯＲＶ=ＯＴＯＮＶ
ＦＯＲＸ=OＴＯＮＸ INPUT＃1,,(X,Ｙ,Z）
ＮＥＸＴ:ＮＥＸＴ:NEXT CLOSE＃1：CLS RETURN
5750 5760 5770 5780 5790 5800 5810 5820 5830 5840 5850 5860 5870 5880 5890 5900 5910 5920 5930 5940 5950 5960 5970 ５９８０ ５９９０ ６０００ ６０１０ ６０２０ ６０３０ ６０４０ ６０５０
１３＃１１終端処理＊ＥＮＤＯＲＲＥＤＯ（リスト11,6060-6190）
終了か再実行かを指定する。グラフを描き終ると、図表８に見るように
上端行に、やめるか（Ｅ）、もう一度見るか（RorReturn）をきいてくる。3９
Ｅの場合は、＊ＴＯＥＸＴへ飛んで、Functionkeyを元に戻し、ＳＴＯＰｋｅｙ のトラップを外して、MAINroutineの＊ＥＸＩＴへ戻って終了する。
ＲまたはReturnの場合は、MAINroutineの＊ＲＥＤＯに戻って、各軸の表 示成分の選択から、作業を繰り返すことになる。
なおこのとき、Functionkeyを押すことで、それらに割り付けられた諸パラ
メータ変更機能を使うことができる。むろん、割り込みはいつでも行末で実行 できるのだが、項目の順序を取り替えろ（f゜６）など大きな変更は、一段落つ いたこの時点で行うのが、使用者の思考の整理のためにも好ましいといえる。リスト１１
，－－－－＝‐＝＝－－－＝ニーニーーーニーーニニ-．－－－．－．＝＿＝---－－－主＝---＿ニーーーニーー－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
，〈〈＃１１〉〉 ＥｎｄｉｎｇＯｐｅｒａｔｉｏｎ
ｌ－－－ニーニー－－－－－－－圭一＝‐＝－－－－＞－－ニーーーー＿＿－－－－－－－－二一一－---＝＝＿ニーーーーーニ
6060 6070 6080 6090 ６１００ ６１１０ ６１２０ ６１３０ ６１４０ ６１５０ ６１６０ ６１７０ ６１８０ 6190 6200 6210 6220
*ＥＮＵＯＲ・REDO GOSU8＊CLRLlNEO
PRlNT，，Push［E］ｔｏＥｘｉｔ，［ＣＲｏｒＲ］ｔｏＲｅｄｏ，，；
ＩＮＰＵＴl〕$：lPlNSTR(，，Rrｽ，，+CHR$(13),0$）ＴＨＥＮ＊T０.REDO IFlNSTR(，，Eeｲ''’0$）ＴＨＥＮ＊T0.EXT
GOTO＊END・ＯＲ・ＲＥＤＯ,ｅｌｓｅｉｎｐｕｔａ８ａｉｎ
＊TＯＥＸＴ，ｅｎｄ
ＣＬＳ２：ＧＯＳＵＢ＊ＰＫ・RESET：ＳＴＯＰＯＦＰ：ＲＥＴＵＲＮ＊ＥＸ１Ｔ
＊TｑＲＥＤＯ，ｒｅｄｏ
ＧＯＳＵＢ＊CLR・ＬｌＮＥＯ：ＲＥＴＵＲＮ＊ＲＥＤ０
，＊*********＊ＴａｉｌｏｆＰｒｏ８ｒａｍ ＊****＊******＊
4０
Ⅲ実行例
つぎに、このプログラムを実際に動かした例をまとめて示そう。
１初期画面（図表３）
プログラムをたちあげろと、図の上４行のタイトルがまず表示され、ついで 処理対象のデータfileが入っているDrive番号をきいてくる。ＩＮＰＵＴ＄（）関数 を使っているため、入力は表示されないが、入力直後なので忘れる危険は少な
い。不安があれば､確認の際に，Ｙ，とＲＥＴＵＲＮキーを除くキーを押して入ノルな
おせばよい。
’０Ｋ'ならつぎにそのfile名をきいてくる。ここでは、冒頭で述べたアンケート分
析で作成したfileの一つ、101870,（アンケート項目番号10,118,170クロス集計 の意）を選択している。確認の後、同fileの読み込みと原データ配列Ｄ(X,Ｙ,Z）
への転送が行われつつあることが表示されろ。それは通常数秒で終了し、この
画面は消去され、つぎに移行する。図表３初期画面
仁･●＊中中◆し中中中や＋＊中中◆+十十ｎｐＯｐ中◆◇･仁１ケCOO中か中中中中中中中中中中中中中中中中＊
３－ＤＢａｒＧｒａｐｈＤｉ=ｐｌａｙ゛
▲
・Ｉ:ｂｐｙｒｉｇｈｔ（Ｃ）１９８１〕１)ｙＲ､ＦＩＩ，ｌｅ噸
4･･し巧｡＊中中9●＊中中＊＊中＊＊中中*＊＊木曾+･bt100中本＊＊中中＊十十*1＊･占中＊＊**中中ｏｆ＊
Illpl｣ｔ［ｌｒｉｖｅ卜１０．ｏｆＤａｔａｆｉｌｅ［Ｂ<<ｌｅｆｌ）－E］．？
〔１k？【Yy,ＣＲ,'ｌ
Ｉｎ[ｕｔｔｈｅｆｉｌＥＰ，sname．？lQlj917Q 11,1.jtrallsferriI1q（:ＩａｔａｔｏＲ｢ｒａｕ［l(Ｘ､.I｢'.Ｚ）l】《？
２諸事項設定
２．１項目変更（図表４）
３つの項目の軸・項への既定の割り当てが,ｆされ、割り当て変更の意思をた ずねる。変更するときは℃,を、それ以外は他のキーを押す。ここではＲＥTURN キーで変j更せずに進む。この作業は画面をふくめ、ｆｏ６に割り当てﾌﾟこｓｕｂ
４１