Ｏ　ＯＣＲソフトでダンプリストを読み取る

ｂｙ　ｆｊｋ

　Bugfireさんお勧めのOCRソフトであるProgramListOCR（808Midwayさん）を使って、ダンプリストやBASICプログラムリストの取り込みを試みる。
　ProgramListOCRはOCRエンジンとしてTesseract、GUIフロントエンジンとしてgImageReaderを組み合わせ、さらに808Midwayさんが（PC6001-）BASICおよび16進ダンプをOCR学習させたもので、PCxx01系のBASICやダンプリストの読み込みが強化されている。
　ダウンロードしたProgramListOCRsetup.exeファイルをクリックするとインストールが開始される。その後、［スタート/PronramListOCR/gImageReader］を選択するとソフトが起動する。

【使い方（の一例）】

① スキャン画像ファイルの画像をコピーし、PronramListOCRの画像表示画面にペーストする。

② 認識させたいエリアをマウスでドラッグして選択する。

③ RecocnizeSelectionボタンをクリックすると、認識され、Output画面に認識結果が表示される。

④ Outputをクリックするとファイルに認識結果を出力できる（レイアウトが乱れる？）。

＊画像エリア上でマウスの右クリックし、「clipboadに出力」を選んで認識させ、認識結果をエディタにペーストする方がレイアウトが乱れない（かも・・）。

ProgramListOCR起動画面

　最初は、マニュアルが詳しくなくチョット戸惑ったが、少し使ってみると、以外と簡単にダンプリストやBASICプログラムリストがほぼ正しく認識・取り込めた。さらに、画像補正や様々な設定が可能で、OCRで〈ダンプ）リストの取り込みツールとしては申し分ない（最良）。


ダンプリストの認識例	認識結果

BASICリストの認識例
(誤認識が幾つかあるが修正は容易)


DumpListEditorで修正中［ダンプリスト］（「8」を「B」と認識、1カ所）	DumpListEditorで修正中［BASICリスト］（改行位置、カタカナ、・・）

＊さらに画像補正の実施や取り込み条件を変更すすれば、認識率が向上するかもしれない。

Ｐ　PasoconMiniPC8001（6）～データの記録・読込

ｂｙ　ｆｊｋ

　PasoconminiPC8001では本物のPC8001と異なり、プリンタや外部メディアへの書き出しが行えないが、内蔵SDカードの疑似テープにのみ、データの記録・読み込みができる。なお、ファイルの形式は「シーケンシャルファイル」のみである。データーファイルを使用するには、

① 使用するテープ・ファイル名は「ｆ9」／「MEDIA」で設定する。

② 読み書きする変数名はデータ型および並びが一致している必要がある。

③ シーケンシャルファイルの記録・読み込み時にはファイル名は不要である（指定できない）。

④ 通常は上書きモード（OVERWRITE）となる。データを追加したいときはMEDIAのATTRIBでAPPENDに設定する。

　OVERWITEモードでは書込み後のPOSISIONは常に0％（先頭）となるが、APPENDモードでは常に100％（末尾）となる。テストプログラムを実行してみると判るように、OVERWITEモードでは常に新しいデータのみが記録され、APPENDモードを使うと入力データが順に記録される。
　データの読み込みは、OVERWITE時は常に「先頭」に設定しておく必要があり（「末尾」では読み込めない）、APPENDモード時はデータがあるだけ読み出しが可能である。しかし、テープが末尾の状態で読み出しを行うと、フリーズ状態（ずーっと読出中。エラーとならない）となる（STOPで解除できるが・・）。残念ながら、N-BASICではこの状態を見つけることができないようなので、注意が必要（MEDIAの画面には0％とか100％と表示されているのだが・・）。
　これに対応するには、以下の方法が考えられる。

① あらかじめ決め（られ）たデータ数とする。

② ファイルの先頭にデータ数を記録し、その後にデータを順に記録する。

③ 別のファイルにデータ数を記録しておく。

④ 正常に読み込まれたデータ数を画面に表示し、フリーズした時はｆ9でPOSISTIONを先頭に戻すことで、フリーズを解除できる。そして、次回からは正しいデータ数まで読み出す。

⑤ CMTプログラムを機械語で改良・強化する（I/O-1982.8など)。

※ ファイル読み出し時のフリーズはcloadコマンドでも起こるが、ｆ9で再度ファイルを選択するとPOSISIONが0％に巻き戻され（Rewind）、読み込むことができる。データの読み出し時も同様で、ｆ9で巻き戻しすと、フリーズが解除され、データの先頭から読み込みが継続される。
※ データとしてカンマなども使いたい場合はLINEINPUT文を利用し、文字入力データは「”」（ダブルクォーテーション）で囲んで入力しないと、読み込み時にエラーとなる。

10  ' Data File R/W Test
100 INPUT"1:load.2:save";K
110 ON K GOTO 200,300
120 GOTO 100
200 '-- datq load
210 INPUT#-1,A,B$
220 PRINT A,B$
230 GOTO 100
300 '-- data save
310 INPUT"Num,Str";C,D$
320 PRINT#-1,C,D$
330 GOTO 1000

10  ' Data File R/W Test(2)
100 INPUT"1:load.2:save";K
110 ON K GOTO 200,300
120 GOTO 100
200 '-- datq load
210 INPUT#-1,A,B$
220 PRINT A,B$
230 GOTO 100
300 '-- data save
310 INPUT"Num";C
320 LINEINPUT"Str? ";D$
330 PRINT#-1,C,D$
340 GOTO 100

記録・読み出しテスト（1）
mashn1.cmt(zip)

記録・読み出しテスト（2）
mashn2.cmt(zip)