Tektr。nix PL。Tー0用曰本文字作描ル一チン古城久美子*ー

プログラムのページ
Tektronix PLOT10用日本文字作描ルーチン
古城久美子＊，松尾文碩＊
1．はじめに
NIHONルーチンE1，2，3コは， CalcompHCBS又は富士通PSPのもとで， JIS第1水準
漢字2，965字種とJIS非漢字453字種をプロッタに書くサブルーチンである．ここで紹介するN
HN￥TR， NHN￥TVルーチンは， NIHONルーチンをTektronix PLOT10ターミナルコントロー
ルシステム（TCS）［5］のもとで動作するように書き改めたものである．従って， NHN￥TR， N
HN￥T VはTektronix4010シ1）一ズ又はそれと互換性のある端末で使用できる．
2．NHN￥TRおよびNH￥TVの使用法
NHN￥TR及びNHN￥TVの機能は，いずれもTektronix4010シリーズ端末に日本文字をスト
ロークデータで出力するものである．NHN￥TRは，管面上の絶対アドレス又は相対アドレスによっ
て座標および文字の大きさを指定する場合に使用し，NHN￥TVは，仮想画面上においてそれらの
パラメータを指定する場合に使用する．両者は，いずれもFor tranサブルーチン副プログラムの形
式である．呼出し形式などは下記のとおりである．なお，ロードモジュールの大きさはいずれも
190Kバイトである．
（1）NHN￥TR（管面上のパラメータ指定）
（i）呼出し形式
CALL NHN￥TR （ix，iy， isize， itext，θ，n， icont）
（ii）引数
ix， iy 横書きのときは第1文字の左下すみの管面アドレス座標．縦書きのときは第1文
字の左上すみの管面アドレス座標．4バイトの整数型．
isize 文字の大きさ．4バイトの整数型．単位はラスタユニット．
itext 書きたい文字列を格納した変数名または配列名．血キ0のとき，型は任意． n＝0
のとき4バイトの整数型．
θ 横書きの場合は，X軸とのなす角度．縦書きの場合は一Y軸とのなす角度．4バ
イトの実数型．単位は度．
n 文字数 4バイトの整数型
n≧0の場合横書き．n＜0の場合縦書き．
icont 1の時，絶対アドレス指定．2の時、相対アドレス指定．
4バイトの整数型．
（2）NHN￥TV（仮想画面上のパラメータ指定）
（i）呼出し形式
CALL NHN￥TV （x，y，size， itext，θ，n，icont）
＊九州大学大型計算機センター研究開発部
襯大芸大欝機品ター広報一264一
プログラムのページ
㈲引数
x，y 横書きのときは第1文字の左下すみの仮想画面上アドレス座標．縦書きのときは第
1文字の左上すみの仮想画面上アドレス座標 4バイトの実数型．
size 文字の大きさ．4バイトの実数型．単位はラスタユニット．
itext 書きたい文字列を格納した変数名または配列名．且キ0のとき型は任意．
n＝0のとき4バイトの整数型．
θ 横書きの場合は，X軸とのなす角度・縦書きの場合は一Y軸とのなす角度．
4バイトの実数型．単位は度．
n 文字数．4バイトの整数型．
n≧0の場合横書き．n＜0の場合縦書き．
icont 1の時，絶対アドレス指定．2の時，相対アドレス指定．
4バイトの整数型．
f3）注意
（i）lnl≦256，この範囲を越えてnを指定すると，強制的にn＝256または一256にする．
（ii）n＝0のときは，1文字を表わす4バイトの整数1個だけをitextで指定できる．この整数
は，漢字コードを4バイトの整数とみたてたものである．このとき字形は，横書きのものが1
文字出力される．
（iiD itext，θ， nの意味はNIHONルーチンと同じである．参考文献［1］を参照のこと．
3．使用例
図1は，JEFで作ったファイルの内容を， Tektronixに出力するプログラムである． J EFで作
られたファイルは，日本語ディスプレイ（NDP）や日本語ラィンプリンタ（NLP）にEDITモードでリストすると，
図2のようになる．しかし，実際のファイルの内容は．図3のような可変長のファイルである．従って，このフ
ァイルの読み込みには，TAC／HBのサプルーチン［6］を使用している．又， JEFの制御コー
ドは多数あるが，このプログラムでは・よく使われる改行（⑧NL⑧），改頁（⑧NP⑤），字下げ
（⑤DN⑧）の制御だけを行っている．このプログラムによる出力結果は，図4のようになる．こ
れは，Textronix端末の1画面の出力である．この続きは， RETURNキー押下により表示される．
なお，図4の出力には，1，200b／s回線で約140秒かかる．
一
265一九州大学㍑計6機認竜『
プログラムのページ
00010 LOGICAL＊1 BUF（260），WORK（260），冒NUH（260），CO1，CO2，CO3
00020 1NTEGER＊4 LI∼，CHARL，BP，BCP，DATAL，LENGTH，CONTN，CONT（3，2）
00030 1NTEGER＊4 REC，CHN，COMP，BIN，SW，冒ORKA，1，CLUM，ROり，CONTI，RC
OOO40 1NTEGER京4 0PTBL（5）
00C50 1NTEGER＊2 JUDG
OOO60 DATA CONT《1，1），CONT（1，2》！・N．，．L・ノ
00070 DATA CONT（2，1），CONT（2，2）／・N．，．P．！
00080 DATA CONT（3，1），CONT（3，2》ノ・D・，．N・ノ
00090 DATA CO1，CO2，CO3！Z28，Z38，Z29ノ．
00100 DATA OPTBL／1，・V8 ．，2048，260，0／
00110 CONTN＝3
00120 LIN＝2
00130 CS＝28．
OO140 CLU柄＝35
00150 ROW＝25
00160 XHIN＝10．
00170 XHAX＝XHIN＋CS＊CLUH
OO180 YMIN＝20．
00190 YMAX＝YMIN＋CS＊（RO冒・−1）
00200 ×1＝XHIN
OO210 Y1＝YMAX
OO220 ㈲ORKA＝0
00230C
OO240 CALL INITT（240）
00250 CALL DWINDO（0・，1023．，0・，780・）
00260 CALL TWI∼DO（0，1023，0，780）
OO270 C
OO280 C FILE OPEN
OO290 C
OO300 CALL ￥OPEN（5，・FTO5FOO1．，1，0PTBL，RC）
00310C
OO320 C READ TEXT
OO330 C
OO340 30 CALL ￥READ（5，8UF，RC）
00350 1F（RC・EQ・16） GO TO 9999
00360 CALL SUBST（LENGTH，1，4，BUF，1，4）
00370C
OO380 JUDG＝．・
00390 CALL SUBST（JUDG，1，2，8UF，5，6）
OO400 1F（JUDG・NE．．1B．） GO TO 30
00410 SW31
00420 DATAL＝0
00430 CALL SUBST（DATAL，3，4，BUF，23，24）
00440 1F（COHP（BUF（25），CO1）・EQ・1・OR・COHP（BUF（25），CO2）．EQ・1） SW＝2
00450 BP＝26
00460 DATAL＝DATAL−1
00470C
OO480 80 1F（DATAL．LE．0） GO TO 30
00490 1F・（SW．EQ．1） GO TO 40
00500 ×0＝X1
00510 YO＝Y1
00520 1＝1
00530 BCP＝BP
OO540 1F（YO・GE・YHIN） GO TO 70
00550 CALL HOVEA（0・，0・）
00560 CALL AIIN（1，CONTI）
図1．JEFで作ったファイルをTektronix端末に出力するプログラム
（サブルーチンSUBSTに関しては，参考文献［4］を参照のこと）
襯大篭大《彗機66ター広報 266
プログラムのページ
00570 CALL ERASE
OO580 Y1＝YHAX
OO590 YO＝Y1
00600 70 1F（DATAL．LE・0） GO TO 50
00610 1F（COHP（BUF（BP），CO3）・EQ・1） GO TO 49
00620 1F（X1．GE．XMAX） GO TO 60
00630 ×1＝Xユ＋CS
OO640 CALL SUBST（ト∫ORKA，3，4，BUF，8P，BP＋1）
00650 1F（WORKA・EQ・16448》冒ORKA＝41377
00660 冒ORKA＝WORKA−32896
00670 CALL SUBST（WORK，1，1＋1，WORKA，3，4》
OO680 1＝1＋2
00690 BP＝BP＋2
00700 DATAL＝DATAL−2
00710 GO TO 70
00720C
OO730 49 SW＝1
00740 BP＝BP＋1
00750 DATAL＝DATAL−1
00760 C
OO770 50 CHARL＝（1−1）ノ2
00780 CALL NHN￥TV（XO，YO，CS，WORK，0・，CHARL，1）
00790 GO TO 80
00800C
OO810 60 Yユ＝Y1−CS＊LIN
OO820 ×1＝XMIN
OO830 CHARL＝（1−1）！2
00840 CALL NHN￥TV（XO，YO，CS，WORK，0・，CHARL，1）
OO850 GO TO 80
00860C
OO870 40 DO 110 J＝1，CONTN
OO880 1F（CO柄P（BUF（BP＋1），CONT（J，1））・EQ●1
00890 富 ●AND・COMP（BUF（BP＋2），CONT（J／2））．EQ．1）
OOgOO ＊ GO TO （900，910，920），J
OO910 110 CONTINUE
OO920 C
OO930 C PROC・ BY IGNORED CONTROLL CODES
OO940 C
OO950 BP＝BP＋1
00960 DATAL＝DATAL−1
00970 130 1F（COHP（BUF（BP），．＠・）・EQ・1） GO TO 120
00980 BP＝BP＋1
00990 DATAL＝DATAL−1
01000 GO TO ユ30
01010C
O1020 120 BP＝BP＋1
01030 DATAL＝DATAL−1
01040 GO TO 140
01050C
O1060 C PROC． FOR NEW LINE BY ＠NL＠
01070C
O1080 900 BP＝BP＋4
01090 DATAL＝DATAL−4
01100 ×1＝XMIN
O1110 Y1＝Y1−LIN＊CS
O1120 GO TO 140
図1．JEFで作ったファイルをTektronix端末に出力するプログラム（続き）
一
267一酬大学㍑計8機認一闘響
プログラムのページ
01130C
O1140 C PROC． FOR NEW PAGE BY ＠NP＠
01ユ50C
O1160 910 BP＝BP＋4
01170 DATAL＝DATAL−4
01180 Xユ＝XMIN
O1190 Y1＝Y1−LIN＊CS
O1200 GO TC 140
01210 C
O1220 C PROC． FOR INDENTATION BY ＠DN＠
Oユ230C
O1240 920 BP＝8P＋3
01250 DATAL＝DATAL−3
01260 CHN＝0
01270 1F（CO凹P（BUF（BP），．＝．）．EQ・2） GO TO 800
01280 BP＝BP＋1
01290 DATAL＝DATAL−1
01300 B工N＝O
O1310 820 工F（COMP（BUF（BP），．＠・）・EQ・1） GO TO 810
01320 B工N＝BIN＋1
01330 WNUM（BIN）＝BUF（BP）
01340 BP＝BP＋1
01350 DATAL＝DATAL−1
01360 GO TO 820
01370 C
O1380 810 BP＝BP＋1
01390 DATAL＝DATAL−1
01400 CALL CONB1（CHN，WNUM，BI∼）
Q1410 800 工F（X1・EQ．X凹工N） GO TO 880
01420 XMIN＝10・＋CS＊CHN
O1430 GO TO 140
01440 880 XMIN＝10・＋CS＊CHN
O1450 ×1＝XM工N
O1460 GO TO 140
01470C
O1480 140 1F（DATAL・LE・0） GO TO 30
01490 1F（COMP（BUF（BP），・＠，）．EQ・1） GO TO 40
01500 SW＝2
01510 BP＝BP＋1
01520 DATAL＝DATAL∼1
01530 GO TO 80
01540 C
O1550 9999 CALL ￥CLOSE（5，RC）
01560 CALL FINITT（0，0）
01570 STOP
O1580 END
O1590 C
O1600 C SUBROUTINE FOR CONVERSION
Oユ610 C FRO「》1 CHARACTER−TYPE NUMERIC TO BINARY INTEGER
O1620 C
O1630 SUBROUTINE CONBI（1NT，ARRAY，LEN）
01640 LOGICAL＊1 ARRAY（LEN）
01650 1NTEGER＊4 WORK
Oユ660 1NT＝O
O1670 ΨORKニ0
01680 DO 10 1＝1／LEN
図1．JEFで作ったファイルをTektronix端末に出力するプログラム（続き）
㌶桟大欝機品ター広報一268一
プログラムのページ
Oユ690 CALL SUBST（WORK，4，4，ARRAY，1，1）
Oi700 WORK＝・WORK−240
01710 工NT＝INT＊10＋WORK
O1720 10 CONT工NUE
Oユ730 RETURN
Oユ740 END
O1750 C
O1760 C COMPARE A CHARACTER ， OPユ＝OP2 −一＞ COMP＝1 ，0P1「＝OP2 −一＞ COMP＝2
01770C
O1780 1NTEGER FUNCTION COMP＊4（OP1，0P2）
Oユ790 LOGICAL OPユノOP2
01800 1NTEGER MOJI1，MOJ工2
01810 COMP＝2
01820 MOJI1＝．，
0ユ830 MOJI2＝．，
01840 CALL SUBST（MOJI1，4，4，0P1，1，1）
018／O CALL SUBST（MOJ12，4，4，0P2，1，1）
01860 1F（凹OJIユ．EQ．MOJI2） CO凹P＝1
0ユ870 RETURN
O1880 END
図1．JEFで作ったファイルをTektronix端末に出力するプログラム（続き）
日本語文章処理 FDMS保存データセットリスト
PAGE UN工T INS T E X T
OOO1．000LOOO＠DN＝O＠＠DN＝1＠国境の長いトンネルを抜けると雪国で
あった。夜の底が白くなった。信号所＠DN＝o＠に汽車
が止まった。＠NL＠
OOO1．OOO1．OO1＠DN＝1＠向1則の座席から娘が立って来て、島村の前の
ガラス窓を落した。雪の冷気＠DN＝0＠が流れこんだ。
娘は窓いっぱいに乗り出して、遠くへ叫ぷように、
000ユ・OOO2・OOO ＠NL＠
000LOOO2．OO1＠DN＝1＠「駅長さあん、駅長さあん」
0001・OOO3・OOO ＠NL＠
OOO1．0003．OO1明かりをさげてゆっくり雪を踏んで来た男は、襟巻
で鼻の上まで包み、耳に＠DN＝O＠帽子の毛皮を垂れて
いた。＠NL＠
OOOLOOO3．OO2＠DN＝1＠もうそんな寒さかと島村は外を眺めると、鉄
道の官舎らしいバラックが山裾＠DN＝0＠に寒々と散ら
ばっているだけで、
000ユ．0004．000雪の色はそこまで行かぬうちに闇に呑まれていた。
OOO1・OOO5・000 ＠NL＠
000ユ．OOO5．OO1＠DN＝ユ＠「駅長さん、私です、ご機嫌ようしゅうござ
います」
OOO1．OOO6．000 ＠NL＠
OOOユ．0006．OO1「ああ、葉子さんじゃないか。お帰りかい。また寒
くなったよ」＠NL＠
0001．0006．002 「弟が今度こちらに勤めさせていただいております
のですってね。お世話さ
図2 JEFで作ったファイル
九州大学大型計算機センター広報
269− Vo 1． 14 No．2 1981
一
プログラムのページ
H
ooooo ooooo oo 簡怖ひON lハ ℃o 》・山㊨ N 村寸
寸寸寸寸寸 ooooo oo L＜＜卜・＜口 o卜山L ＜＜＜＜
OOOOO OOOOO OO lハ村 u」ひ● 寸 NO いL 冒回 oo 由
寸寸寸寸寸 ooooo oo ＜＜ ON＜＜ L」 o口 o ＜＜口
uooooo ooooo oo ooL o寸Q ひ寸山 oコ椅寸（〉寸㊨
o寸寸寸㊨寸 ooooo oo ooj ＜＜o ロロ＜「＼ o口《 oo ＜＜
＜ooooo ooooo oo い曽寸い寸寸椅い寸o Q 寸寸 “
江寸寸寸寸寸 ooooo oo ＜＜＜oo＜ o u△ ＜oo ＜＜＜ぬ
ooooo ooooo oo 曽団 o寸卜・ oo o寸㊤o 寸卜、㊨寸
寸寸寸寸寸 ooooo oo ＜O OO山oコム oo ＜＜＜ o ＜＜
ooooo ooooo oo ㊨寸 ou㊨冒くo べ？寸 o 寸く目
寸寸寸寸寸 ooooo oo ＜＜ oりく oコ山← ＜＜ o ＜ o 山
ooooo ooooo oo ひくひ山o ∼ 寸ひ “匹寸㊨寸寸債
寸寸寸寸寸 ooooo oo OOo ］oo ＜＜N 口＜＜山＜＜僑
ooooo ooooo oo 寸寸寸・寸△ 回 L埠寸い㊤笛簡 oい
寸寸寸寸寸 OOOOO OO o＜＜＜口＜＜り＜＜＜ oo 山 ooo
OOOOO OOOOO OO 山W O】椅く椅寸寸 OO椅曽 ∼ 寸㊨寸
コ㊨寸寸寸 ooooo oo o＜＜山山 u．＜＜＜o ＜＜＜ o＜
←oooo ooooo oo ㊨寸寸o寸寸 n＜寸い寸栖口o ⑩n
込寸寸寸寸 ooooo oo ＜＜＜o＜＜ o＜㊤＜僑o 《 OO uo
oooooo ooooo oo △N ＜nOO N 寸o 〈ひN《〉椅㊨曽⊥
寸寸寸寸曽 ooooo oo ＜u．畳o＜山＜＜位 o田く● L ＜＜o
寸OOOO OOOOO OO ㊨卜OO■山寸 QN ㊨1ハdへ、3 椅ひ寸
」寸寸寸マ ooooo oo 口oトo＜⑩ ＜山く（＜＜o ＜込山く
養
OOOOO OOOOO OO r→oめNIL屯いべ「ピ団oト寸い寸o寸o
込寸寸寸寸 ooooo oo L＜△o但o ● ＜＜』△りく o ＜》、＜o
口αoooo ooooo oo ひ寸いく寸寸寸 Q匹寸m寸山寸ぬn目く
寸寸寸寸寸 ooooo oo o自くoω＜《＜ oo ＜＜＜△ ＜ OOoo＜
回OOOO OOOOO OO Gooouへ寸《》・寸寸 o寸栖㊨ひ寸m寸∨
』寸寸寸寸 ooooo oo ∼山トo口o＜ oo ＜＜口く口く oo ＜△＜＜
OOOOOO OOOOO OO o㊨ひ寸寸寸寸 ∼パ寸曽寸椅寸 NO椅n
」寸寸寸寸 ooooo oo 卜、ON＜＜＜ o 笛」＜＜＜O o △》●＜
OOOOO Ooooo oo 叶田椅◇山寧 oo 寸く Q卜・o曽 oo 口ひ曽H
寸寸寸㊨寸 OOOOO OO LO＜＜山O △ ＜O ＜OOりく △ 口∼＜＜
ooooo ooooo oo 山寸回∼△寸回硲卜寸寸寸o パいト」《》o
寸寸寸寸マ ooooo oo ト＜＜oo＜口o ooo鯖＜＜＜口 oo △o△o
OOOOO OOOOO LO 吟OO止山Nn ◇ 寸寸O∼ひ口寸㊨ O■い曽
寸寸㊨寸寸 ooooo oo △L」oo匹‘LO △ ＜＜卜山u山く o o＜o＜
団oooo ooooo oo 寸o寸oo㊨寸 r鴫 ∼u椅寸曽寸L 回 ∼oo椅つ
ω寸寸寸寸 ooooo oo oo＜α）＜＜＜匹◎o＜＜＜o ＜＜山くo
提
ひOOOO OOOOO OO o椅椅oo【口寸 oo 寸寸いoooo寸寸 oo卜 d寸く㊨
り寸寸寸寸 ooooo oo 卜・＜o∼山く N ＜＜o∼o＜＜ NO ＜＜⑩＜
寸OOOO OOOOO OO Oパ寸O村㊨ O ＜亀ハOOO寸》 OH NLり椅
o寸寸寸寸 ooooo oo ト＜＜卜o＜》山山》卜oo＜＜へ＜＜口くo
いoooo ooooo パo o」山♂ひ口 ● 寸山ひ回←℃L 肩ひ寸曽寸寸
⇔寸寸寸寸 ooooo oo L笛△匹OOUJ 祷L 誉くooへ」Looooo 誉匹In祈＜＜＜＜
いoooo ooooo oo u寸寸L」い回 ou」 oooun山寸㊨山 o」」寸oN酌Lひ
o寸寸寸寸 ooooo oo ト＜＜卜くo ●トト・＜o＜卜o口くo 卜、卜、＜ト＜o山oo
ooooo ooooo ●O いnLいひL 柏頃椅寸寸目い山吟寸椅“山門寸寸寸㊨
ピ寸㊨マ寸 oo◎oo oo △ooo山o o△ o＜＜＜△oo＜ △△oo＜＜o＜
ooつoo ooooo oo 曽㊨1泊寸い∨ 口寸 mOdL寸曽寸n 頃寸寸m℃＜㊨ト
o寸寸㊨マ ooooo oo o＜口o＜＜ △o oo＜oo＜＜山 oo（△△o△o
OOOOO OOOOO OO ONOOりO OO りりひ寸りOOOO OO㊨O回寸村寸
o寸寸寸寸 ooooo oo 卜・＜＜卜くのトト」トoo＜ト●△o 卜、へくs＜＜＜＜
ooooo ooooo oo ひ寸寸ひいo ひひひoo卜寸ひ㊨寸09 ひひ寸ひooLoo山
o寸曽寸寸 Ooooo oo ∼＜＜N＜り N∼ ∼∼o＜NO＜《M ∼「M＜∼N＜Nり
⇔oooo ooooo 寸o 回ト℃UJ山n いN いく寸寸N寸ひL “oo《⊃いo寸1ハ㊨
山寸寸寸寸山oooo いo 》・⇔oooりく oψM O㊨＜＜トロ山N畳o椅ooo寸く寸く
ooooo ooooo oo o寸oo寸d OO OOOQOm寸o椅oo寸OOoooo、
o寸㊨寸・＃ ooooo oo o＜ooo＜＜鯖oo oo＜oo⇔＜o＜oo＜oo＜o口
ooooo ooooo oo 口回いOOON国o ooo寸寸OfV◇口←ooo寸口oo寸o寸
o曽寸寸寸 ooooo oo L」L＜oooo＜山o 山Ooo＜o＜口山く山o〔D山Oooo＜
ooooo ooooo oo oouハo、→寸パoo oo」oo●口oLoo寸ooLo山
o寸寸寸寸 OOOOO OO Ooo口Oo《＜OO OOoL」o＜口o口oo＜oooコo△
祷祈
回OOOOONoooooLo o簡αコ回u」椅ooo● oピ㊨寸「“ooooo寸OH㊨Od寸N寸
o寸寸寸才寸oooooo“o oLIりooLOOO OOoa＜oりoo＜oo＜oo＜o＜
oooooooooooooo oo寸o寸寸寸OO OON∼o寸寸o曽oo寸oo山o＜
o寸寸寸寸寸OOOOOOOO Oo＜o＜＜＜oo oo＜山o＜＜o＜oo＜OOOOu
OOOOOOOOOOOOOO Hoooo】o椅㊨N∼ 門め←」ド｝o口ひ寸寸いいいく⊃《〕寸《》寸
o寸寸∨寸寸oooooooo o⇔∼o匝09＜oo oo＜口o山口o＜OOu」oo＜o＜
oooooooooooooo o寸OON寸寸oo oo」∼o寸dOつoo寸oo門o＜
o・ξ寸㊨寸寸oooooooo o＜卜oo＜＜oo ooり」o＜＜o⇔oo＜oo＜o＜
OOOOOOOooooooo 回口o目soOOdパ H［寸寸パパoo目寸村回卜Hd蝋パ寸
o寸∨「寸寸寸Oooooooo o山Lo山u1山oo oo＜＜o山くo＜oooaoo＜o＜
oooooooooooooo o寸山oい寸寸oo oolDひo寸寸oooo寸oo寸o＜）
o寸寸寸寸寸oooooooo o＜》oo＜＜OO OOo山o＜㊤o山oo＜oo＜Oo
OOOOOOOOCOOOOO Or→いONU」Qoo oo椅oooL㊤o寸OOooo寸o寸
o寸寸寸寸寸OOOOOOOO Ooo△o＜＜△OO OOooo＜oo＜OOu」oo＜o〈
OOOOOOOOOooooo ∼寸寸∼←u」寸r＞∼ ∼∼」怖N寸寸ou∼N寸へ」N⑩白寸
o寸寸寸寸寸oooooooo o＜oo＜o＜oo △⇔oo△oりくoo△o＜oo＜o＜
祷
ooooooooooooooom寸oいく）ooコ吟い 1n“寸oいNooい寸いいooいい寸ピ、寸
o寸寸寸寸寸ooooooooooo国トogo＜＜oooo ooo9＜oooL∼oo＜oooo山oooo＜oo＜
ooooooooooooooo山ooひ］寸寸Q山山山匂」oo山u」寸ou」△LuL1」寸国山く山o
o寸寸寸寸寸ooooooooo回oへh→＜＜口OdH誉祠目山oτ→＜＜←△回H＜HピコdO
oooooooooooooooo∼＜ooooコoooo尽oo△寸oooo《）ooひoo寸o寸
o寸寸寸寸寸ooooooooooLuo山01△OOOOOo＜o⑩」ooooLoo＜o＜
oooooooooooooooo寸oooo寸oodoo卜∼o椅山onOOONooへ」oL
o㊨㊨寸寸寸oooooooooo＜口oooト＜oo＜oo⇔△oooトOOOOoooo＜o口o
ooooooooooooooooα】℃o㊨owoo椅oo・ξo口oLいo㊨OOdooいo寸
O寸寸寸寸寸OOOOOOOOOO山山OりL＜OOLOO＜位OO△O＜OO＜OOΦO＜
OOOOOOOOOOOOOOOOmひo寸山寸oo寸oo衿o、o寸寸o卜ooいoo＜o寸
o寸寸寸寸寸oooooooooo＜｛コo＜卜くoo＜ooL⑩o＜ooooo口oo＜o〈
←ooooo《MoooooNooo」△u」∼岡い箇NヘパMNC＞寸⑩へloo∼oへ」N寸NN寸N寸
o寸寸寸寸寸oo’ooooooooo＜oooLoo＜oo＜りoooトリロリoα100＜o＜
OOOOOOOOOOOOOOO♂1ハL祠寸寸再←4】寸←詞へoo←へ」o、回口←d寸目H椅回Q
⊥寸寸寸寸寸tLoooooLooL＜《nLL＜o⑩LL＜u−u．＜N］ON、LOLL＜tL』＜LLo
図3 16進形式で出力した図2のファイル
九州大学大型計算機センター広報
Vo 1． 14 No．2 1981
一 270一
プログラムのページ
国境の長いトンネルを抜けると雪国であった。夜の底が白くなった。信号所
に汽車が止まった。
向側の座席から娘が立って来て、島村の前のガラス窓を落した。雪の冷気が
流れこんだ。娘は窓いっぱいに乗り出して、遠くへ叫ぶように、
「駅長さあん、駅長さあん」
明かりをさげてゆっくり雪を踏んで来た男は、襟巻で鼻の上まで包み、耳に
帽子の毛皮を垂れていた。
もうそんな寒さかと島村は外を眺めると、鉄道の官舎らしいバラックが山裾
に寒々と散らばっているだけで、雪の色はそこまで行かぬうちに闇に呑まれて
いた。
「駅長さん、私です、ご機嫌ようしゅうございます」
「ああ、葉子さんじゃないか。お帰りかい。また寒くなったよ」
「弟が今度こちらに勤めさせていただいておりますのですってね。お世話さ
図4．図2のファイルを図1のプログラムでTektronix端末へ出力した結果
4．おわりに
Tektronix 4010シリーズ端末に漢字をストロークデータで表現するプログラムを紹介した．一
般に，ストロークデータよりもドットデータによる文字の方が文字品位が高い．しかし，このプロ
グラムの文字品位は，文字の大きさを適当に選べば，それ程悪くもない．
参考文献
1．松尾，佐井日本文字作描ルーチンNIHON，九大大型計算機センター広報，15，2，1980，
189−200．
2．日本文字作描ルーチンNIHONのレベルアップについて，九大大型計算機センターニュース
No．217．
3．ALPH，NIHONルーチン仕様の訂正にっいて， ibid，223，1981．
4．松尾，古城 Fortran IV用文字処理ルーチン，九大大型計算機センター広報，12，4，
1979．
5．計算機マニュアル PLOTIO ターミナル・コントロール・システムプログラミングマニュア
ル，ソニー・テクトロニクス㈱
6．計算機マニュアル FACOM OS IV／F4 TAC／LIB 解説書，64AR−9500−1，
富士通㈱。
一 271一
九州大学㍑計警認一ぽ

Download Report