カシオペアA-60/A-55V/A-51 PART2
349 :
1:2014/10/26(日) 22:59:38.86 ID:CHk5SQID0
たまには1らしいことをしてみるか・・・
手書きPDF入門
http://www.kobu.com/docs/pdf/pdfxhand.htm テキストファイルからPDF文書の変換プログラムをつくったので貼り付けるかな。
1000 '
1010 ' text->pdf file converter ver 0.1
1020 ' (テキストファイルはshift-jis形式)
1030 '
1040 ' 参考資料:横浜工文社 (www.kobu.com)
1050 '
http://www.kobu.com/docs/pdf/pdfxhand.htm 1060 '
1070 wid=595 '用紙の幅
1080 hei=842 '用紙の高さ
1090 mtop=780 '印刷開始位置(上)
1100 mbottom=60 '印刷終了位置(下)
1110 mleft=60 '印刷開始位置(左)
1120 mright=535 '印刷終了位置(右)
1130 fontsize=12'フォントサイズ
1140 '
1150 offset0=19
1160 offset1=21
1170 hex0$="0123456789ABCDEF"
1175 nn=int((mtop-mbottom)/fontsize)+5
1180 dim lin$(nn)
1190 '
350 :
1:2014/10/26(日) 23:02:10.12 ID:CHk5SQID0
1200 input "入力ファイル(txt)",ipath$
1210 input "出力ファイル(pdf)",opath$
1220 open ipath$ for input as #1
1230 open opath$ for output as #2
1240 '
1250 'new_page
1260 print #2,"%PDF-1.2"
1270 exit0=0
1280 page=1
1290 li=1
1295 lin$(li)=""
1300 length=offset0
1310 xpos=mleft
1320 ypos=mtop
1330 '
1340 'loop0
1350 if eof(1) then exit0=1:goto 1670 'print_page
1360 c1=asc(input$(1,#1))
1365 if c1<0 then c1=c1+256
1370 if c1=10 then 1600 'next_line
1380 if c1<32 then 1340 'loop0
1390 if eof(1) then exit0=1:goto 1670 'print_page
1400 c2=asc(input$(1,#1))
1405 if c2<0 then c2=c2+256
1410 '
351 :
1:2014/10/26(日) 23:03:47.03 ID:CHk5SQID0
1420 if c1>=&h81 and c1<=&h9f then if c2>=&h40 and c2<=&hfc then 1530 'case_zenkaku
1430 if c1>=&he0 and c1<=&hfc then if c2>=&h40 and c2<=&hfc then 1530 'case_zenkaku
1440 '
1450 'case_hankaku
1460 lin$(li)=lin$(li)+"00"+mid$(hex0$,c1/16+1,1)+mid$(hex0$,(c1 mod 16)+1,1)
1470 lin$(li)=lin$(li)+"00"+mid$(hex0$,c2/16+1,1)+mid$(hex0$,(c2 mod 16)+1,1)
1480 length=length+8
1490 xpos=xpos+fontsize/2
1500 if xpos<mright then 1340 'loop0
1510 goto 1600 'next_line
1520 '
1530 'case_zenkaku
1540 lin$(li)=lin$(li)+mid$(hex0$,c1/16+1,1)+mid$(hex0$,(c1 mod 16)+1,1)
1550 lin$(li)=lin$(li)+mid$(hex0$,c2/16+1,1)+mid$(hex0$,(c2 mod 16)+1,1)
1560 length=length+4
1570 xpos=xpos+fontsize
1580 if xpos<mright then 1340 'loop0
1590 '
1600 'next_line
1610 length=length+len(str$(mleft))+len(str$(ypos))+offset1
1620 li=li+1
1625 lin$(li)=""
1630 xpos=mleft
1640 ypos=ypos-fontsize
1650 if ypos>mbottom then 1340 'loop0
1660 '
352 :
1:2014/10/26(日) 23:05:28.85 ID:CHk5SQID0
1670 'print_page
1680 print #2,page;"1 0 obj % page object"
1690 print #2,"<<"
1700 print #2," /Type /Page"
1710 print #2," /Parent 7 0 R"
1720 print #2," /Resources 3 0 R"
1730 print #2," /Contents ";page;"2 0 R"
1740 print #2,">>"
1750 print #2,"endobj"
1760 print #2,page;"2 0 obj"
1770 print #2,"<<"
1780 print #2," /Length ";length;"
1790 print #2,">>"
1800 '
1810 ypos=mtop
1820 print #2,"stream"
1830 print #2,"BT" ' 4bytes
1840 print #2,"/F1 12 Tf" ' 11bytes
1850 ypos=mtop
1860 for i=1 to li
1870 print #2,"1 0 0 1 ";mleft;" ";ypos; " Tm" ' 14bytes
1880 print #2,"<";lin$(i);"> Tj" ' 7bytes+α
1890 ypos=ypos-fontsize
1900 next
1910 print #2,"ET" ' 4bytes
1920 print #2,"endstream"
1930 print #2,"endobj"
1932 '
1935 if exit0=1 then 2040 'build_up
1940 '
353 :
1:2014/10/26(日) 23:06:49.09 ID:CHk5SQID0
1950 'next_page
1960 page=page+1
1970 li=1
1975 lin$(li)=""
1980 length=0
1990 xpos=mleft
2000 ypos=mtop
2020 goto 1340 'loop0
2030 '
2035 'build_up
2040 print #2,"3 0 obj"
2050 print #2,"<<"
2060 print #2," /ProcSet [ /PDF /Text ]"
2070 print #2," /Font << /F1 4 0 R >>"
2080 print #2,">>"
2090 print #2,"endobj"
2100 print #2,"4 0 obj"
2110 print #2,"<<"
2120 print #2," /Type /Font"
2130 print #2," /Subtype /Type0"
2140 print #2," /BaseFont /#82l#82r#83S#83V#83b#83N"
2150 print #2," /DescendantFonts [ 5 0 R ]"
2160 print #2," /Encoding /90ms-RKSJ-H"
2170 print #2,">>"
2180 print #2,"endobj"
2190 print #2,"5 0 obj"
2200 print #2,"<<"
2210 print #2," /Type /Font"
2220 print #2," /Subtype /CIDFontType2"
2230 print #2," /BaseFont /#82l#82r#83S#83V#83b#83N"
354 :
1:2014/10/26(日) 23:07:54.28 ID:CHk5SQID0
2240 print #2," /WinCharSet 128"
2250 print #2," /FontDescriptor 6 0 R"
2260 print #2," /CIDSystemInfo"
2270 print #2," <<"
2280 print #2," /Registry(Adobe)"
2290 print #2," /Ordering(Japan1)"
2300 print #2," /Supplement 2"
2310 print #2," >>"
2320 print #2," /DW 1000"
2330 print #2," /W ["
2340 print #2," 231 389 500"
2350 print #2," 631 631 500"
2360 print #2," ]"
2370 print #2,">>"
2380 print #2,"endobj"
2390 print #2,"6 0 obj"
2400 print #2,"<<"
2410 print #2," /Type /FontDescriptor"
2420 print #2," /FontName /#82l#82r#83S#83V#83b#83N"
2430 print #2," /Flags 39"
2440 print #2," /FontBBox [ -150 -147 1100 853 ]"
2450 print #2," /MissingWidth 507"
2460 print #2," /StemV 92"
2470 print #2," /StemH 92"
2480 print #2," /ItalicAngle 0"
2490 print #2," /CapHeight 853"
2500 print #2," /XHeight 597"
2510 print #2," /Ascent 853"
2520 print #2," /Descent -147"
355 :
1:2014/10/26(日) 23:09:33.45 ID:CHk5SQID0
2530 print #2," /Leading 0"
2540 print #2," /MaxWidth 1000"
2550 print #2," /AvgWidth 507"
2560 print #2," /Style << /Panose <0805020B0609000000000000> >>"
2570 print #2,">>"
2580 print #2,"endobj"
2590 print #2,"7 0 obj"
2600 print #2,"<<"
2610 print #2," /Type /Pages"
2620 '
2630 print #2," /Kids ["
2640 for i=1 to page
2650 print #2," ";i;"1 0 R"
2660 next
2670 print #2," ]"
2680 '
2690 print #2," /Count ";page
2700 print #2," /MediaBox [ 0 0 ";wid;" ";hei;" ]"
2710 print #2,">>"
2720 print #2,"endobj"
2730 print #2,"8 0 obj"
2740 print #2,"<<"
2750 print #2," /Type /Catalog"
2760 print #2," /Pages 7 0 R"
2770 print #2,">>"
2780 print #2,"endobj"
356 :
1:2014/10/26(日) 23:10:30.02 ID:CHk5SQID0
2790 print #2,"9 0 obj"
2800 print #2,"<<"
2810 print #2," /CreationDate (20141026)"
2820 print #2," /Title (txt-pdf converted file)"
2830 print #2," /Author (???)"
2840 print #2,">>"
2850 print #2,"endobj"
2860 print #2,"xref"
2870 print #2,"0 10"
2880 print #2,"0000000000 65535 f"
2890 print #2,"0000000012 00000 n"
2900 print #2,"0000000184 00000 n"
2910 print #2,"0000001672 00000 n"
2920 print #2,"0000001888 00000 n"
2930 print #2,"0000002185 00000 n"
2940 print #2,"0000002569 00000 n"
2950 print #2,"0000002992 00000 n"
2960 print #2,"0000003218 00000 n"
2970 print #2,"0000003324 00000 n"
2980 print #2,"trailer"
2990 print #2,"<<"
3000 print #2," /Root 8 0 R"
3010 print #2," /Info 9 0 R"
3020 print #2," /Size 10"
3030 print #2,">>"
3040 print #2,"startxref"
3050 print #2,"3475"
3060 print #2,"%%EOF"
3070 '
3080 close
357 :
1:2014/10/26(日) 23:35:27.88 ID:CHk5SQID0
明日から夜勤なんでもう少し起きていられそうだわ。
俺らが若いころはカシオペアのスペックのマシンはEWSとか呼ばれていてン百万するのが当たり前だったんだがな。
DOSマシンが当然のようにあって、大量のデータを食らわせるとすぐにおかしくなるわ
大学で寝泊りして実験データの処理するのが嫌で鬱になって
家のMSXパソコンを魔改造して何週間もかけてデータ処理したのはいい思い出さ
358 :
1:2014/10/27(月) 09:13:20.99 ID:f2v8xoZJ0
バグ修正
1490 xpos=xpos+fontsize/2
↓
1490 xpos=xpos+fontsize
まだあるかも
359 :
1:2014/10/27(月) 11:42:23.30 ID:f2v8xoZJ0
バグ修正2
上記プログラムの行番号1350〜1580の部分を削除して以下を挿入(これで終わればいいな)
1350 c1=asc(input$(1,#1))
1355 if c1<0 then c1=c1+256
1360 if c1=10 then 1600 'next_line
1365 if c1<32 then 1340 'loop0
1370 if c1>=&h81 and c1<=&h9f then 1420 'next_char
1375 if c1>=&he0 and c1<=&hfc then 1420 'next_char
1380 '
1385 'case_hankaku1
1390 lin$(li)=lin$(li)+"00"+mid$(hex0$,c1/16+1,1)+mid$(hex0$,(c1 mod 16)+1,1)
1395 length=length+4
1400 xpos=xpos+fontsize/2
1405 if xpos<mright then 1340 'loop0
1410 goto 1600 'next_line
1415 '
1420 'next_char
1425 if eof(1) then exit0=1:goto 1670 'print_page
1430 c2=asc(input$(1,#1))
1435 if c2<0 then c2=c2+256
1440 if c2>=&h40 and c2<=&hfc then 1490 'case_zenkaku
360 :
1:2014/10/27(月) 11:42:53.36 ID:f2v8xoZJ0
1445 '
1450 'case_hankaku2
1455 lin$(li)=lin$(li)+"00"+mid$(hex0$,c1/16+1,1)+mid$(hex0$,(c1 mod 16)+1,1)
1460 lin$(li)=lin$(li)+"00"+mid$(hex0$,c2/16+1,1)+mid$(hex0$,(c2 mod 16)+1,1)
1465 length=length+8
1470 xpos=xpos+fontsize
1475 if xpos<mright then 1340 'loop0
1480 goto 1600 'next_line
1485 '
1490 'case_zenkaku
1495 lin$(li)=lin$(li)+mid$(hex0$,c1/16+1,1)+mid$(hex0$,(c1 mod 16)+1,1)
1500 lin$(li)=lin$(li)+mid$(hex0$,c2/16+1,1)+mid$(hex0$,(c2 mod 16)+1,1)
1505 length=length+4
1510 xpos=xpos+fontsize
1515 if xpos<mright then 1340 'loop0
361 :
1:2014/10/27(月) 11:54:56.71 ID:f2v8xoZJ0
特に著作権とか主張しないのでご自由に使って下さい。
でも営利目的で使うときは参考資料の提供元に問い合わせてくださいね。
横浜工文社 (www.kobu.com)
362 :
1:2014/10/27(月) 12:25:50.55 ID:f2v8xoZJ0
バグ修正3
1980 length=0
↓
1980 length=offset0
疲れた・・・
363 :
いつでもどこでも名無しさん:2014/10/27(月) 15:03:13.36 ID:PilEQq/20
これは、BASICっぽいね。A51BASICでうごかすの?
それとも、コンパイルするの?
364 :
いつでもどこでも名無しさん:2014/10/28(火) 21:06:48.01 ID:wXODD6y50
N88互換BASIC for WINDOWS
ActiveBasic v.2
Free Basic -lang qb
A51BASIC
でエラります。1350行
>>341 確か、OpenOffice.orgの2.0以降でPocketwordとPocketExcelのファイルが開けたはず。
1回開いてPDFとかで保存すれば大丈夫かと。
366 :
1:2014/10/29(水) 09:25:40.79 ID:gFOsLWzv0
>>363 A51Basicでテストしました。
>>364 わざわざ検証ありがとうございます。
以下の行が抜けていました。
バグ修正4
1345 if eof(1) then exit0=1:goto 1670 'print_page
367 :
いつでもどこでも名無しさん:2014/10/29(水) 18:32:53.75 ID:8T30BWm/0
364です。ありがとうございます!!!走りました!
CASSIOPEIAでPDFって読めないんでしょうか。
ん
PDFはむかしPrimer PDF Viewerってのがあったらしい(日本語フォント無し)
Maple for CASSIOPEIAってのも気になる。数式処理ソフトで海外版のA-21SやA-22Tにバンドルされてたそうな
370 :
いつでもどこでも名無しさん:2014/11/11(火) 11:45:14.00 ID:3xkrFx6r0
>>370 これはさすがに見過ごすことはできんな。
著作権をどう考えているのか知らないが
readmeを外して配布するのは一体何のつもりかな?
これでは作者も使用方法もライセンス形態も分からない。
作者に対する侮辱がひどい。
372 :
いつでもどこでも名無しさん:2014/11/12(水) 11:52:38.72 ID:Pqb7810B0
なるほどたしかに。たしか、こうだったかな。
A-60を現役復帰させて使用してる。
単3電池の安心感は異常。
CFソケットはアプリインストール用にしてPCカードはSDアダプター専用でデータ写し専門で使ってる。
キーボードはやっぱりモバギかペルソナがいいけど、バッテリーへたってるのと大きさがデカすぎなのでA-60が良い。
まだまだ使い続けるぞ
A-55Vだともッとバランスよくて良いぞ
A-60のバランスは重めのPCカード挿すようになると少しはマシになるよ
376 :
373:2014/11/29(土) 14:55:21.90 ID:EqikOjdQ0
A-55Vは最近オクで出品見ないね。
一回手に取って見てみたい。
A-60は若干解像度高いからWzMEMO使うにはいい感じ、と言うかメインがWzMEMOなので、A-55Vでどの様に見えるのかは興味あります。
SDアダプターは重いの無いので、アレですが、裏にゴム足貼ってるので割と安定しますよ。
両方持ってるけど、55Vで問題ないよ。
重心バランス良いし、絶対的に軽いし、本来のバランスなんだなと思う。
378 :
373:2014/12/01(月) 01:34:15.99 ID:7r+t2jNO0
そこまで推されるとA-55Vに興味が出ますね。
Aシリーズはサイズ的にちょうどい大きさで軽くていい。
確かにA-60は液晶重いですが、気に入ってます。
あけましておめでとう
ことよろ
382 :
1:2015/01/01(木) 06:23:37.92 ID:onACne8g0
みなさん、あけましておめでとうございます
今年もよい年になりますように。
383 :
いつでもどこでも名無しさん:2015/01/07(水) 15:54:20.49 ID:mCX6aMz20
あ
おけ 今年はEVCをはじめようと思います。(EXE作りたいー)
ごめま
ざでし CE2.0用のSDKをおみおこね氏のやり方で差し込めばいいの?
いとて なんかこつあったら教えてください。
まう ちなみにN88-BASICは上級者ですがC++は初心者です。
す
384 :
いつでもどこでも名無しさん:2015/01/08(木) 13:03:22.23 ID:/xWE4sGp0
?
386 :
いつでもどこでも名無しさん:2015/02/14(土) 19:03:40.54 ID:jXPMySpp0
??
387 :
いつでもどこでも名無しさん:2015/02/14(土) 22:19:37.33 ID:cvSKUF4O0
(メ・ん・)?
388 :
sage:2015/02/25(水) 17:55:11.59 ID:yRE7UTnd0
A60のバックライトが脂肪してるのだが、なんか上手いてない?
あると思う?
お〜、バックライトが有ることを思い出した。
あの独特のみどりっぽい色と、独特のうなり音と、あの電池の消耗の早さ。
高輝度LEDなら既に存在していたけど、なぜ採用しなかったのかな?
インバータのコストや消費電力を考えると絶対有利なはずなんだが・・・
当時はまだ高輝度の白(青)LEDは存在しなかったからなあ。
モノクロ表示なんで、照明色は白にこだわらなくていいかも・・
それに、白色LEDは5V近い電圧が必要なんで、インバータが必要になるな。
でも、赤やオレンジのLEDならインバータは必要ないね。
インバータの有無で消費電流が1桁違ってくるとか笑ってしまうよ。
バックライトが死ぬパターンもあるのか
青緑にピカー!が基本のモノクロ反射型にそういうの入れたら見たことない光り方しそうだな。
15年前位のdocomoの携帯がそんな感じだったな