平成24年2月18日(土)月歴1月27日 2011年日記
平成24年壬辰(みずのえたつ) 睦月・正月27日
節気:立春 第三候:魚上氷(うおこおりをいずる)
写真は僕の部屋兼会社事務所です。会社事務所はマンションの一室から
ついに自分の部屋まで撤退し、毎日ここで仕事をしてBlogを書いてます。
さて、赤い枠は分かりますか?NEC PC9801はいまもって現役なのです!
song4uさんが「DELLを5年も使っちゃいけませんよ」なんて書いてますが
5年なんてものではないのですよ!DOSが今も現役なんですから!(笑)
DOSで使っているのは、会計ソフトと自分が
dBASEコンパイラで書いた
請求書発行システムと同じく自分で書いたソフトがいくつか動いてます。
僕のパソコン歴はNEC PC8801からです。すぐにPC9801になりました。
今では考えられない世界です。外部記憶装置どころか何もないのです。
PC-9800シリーズ
外部記憶装置つまりフロッピーディスクドライブさえ実装されてないのです。
8インチフロッピーディスクドライブを買ったのも、しばらくしてからでした。
この8インチのドライブって30cmくらいの大きさですが、大きい音がする。
アクセスする度にぶっぶっと音がする。度々エラーしてデータが消える。
苦労しました。そこでその次5インチのフロッピーディスクが出るとすぐに
8インチドライブを売って、アスキーのマルチプランという表計算ソフトを
買いました。いまのMS Excel。そこでマクロ使って給与計算をしました。
一ヶ月を1シートで計算していました。年末調整で串刺計算するのですが
社員が退社するとその串刺計算が大変。困ってPCショップに相談すると
ここまでマクロを書けるなら、そろそろdBASEでプログラムしたらと言われ
アシュトンテイトのdBASE IIを買って、プログラムして給与計算しました。
話が長そうですね。(笑) そこからプログラミングにはまりました。いかに
ステップ数を少なく、いかに分かりやすく、洒落たプログラムにするか。
トイレに入ってもずっと考えてましたね。そのロジックを思いついた時は
それは「こうだ!」とコンピューターにかじりつきプログラミングしました。
その頃「何も専務」で時間あったんです。ITNと知り合った時と重なります。
給与計算、請求書発行、店舗システム、ほとんど自分のシステムでした。
自分でプログラムするので、本当に使いやすいシステムでした。ですから
今も便利で使っているのです。現役でDOSマシーンが生きているのです。
いまはWindowsになりプログラミングしません。懐かしく開いてみました。
こんな文章を書いてEXEの実行ファイルするのです。このくらいの文章を
100以上書いて、やっと1つのシステムになるのです。懐かしいです~(笑)
***********************
* CM110.PRG *
*受注票入力・営業員コード*
***********************
set color to G
@ 3, 6 say "外交受注票 入力・・・・・・・・・・・[11]"
set color to
select 1
use TRAN
copy structure to &TEMP.TRAN_A
use &TEMP.TRAN_A alias TRAN
select 2
use TRAN index TR_CS_CD alias TRAN_O
select 3
use TRAN_BP
select 4
use EIGYO index EI_EI_CD
select 5
use CUS index CS_CS_CD
select 6
use ITEM index IT_IT_CD
select 7
use NIPO index NP_NP_DT
store " " to CS_CODE
store " " to CS_SIME
store " " to CS_NO
store " " to IT_CODE
store 0 to CM110CT
store " " to CM110PLUS
store 0 to NP_BPKYA
store " " to NP_BP
do CM110_DS
do while .T.
store YY to CM110YY
store MM to CM110MM
store DD to CM110DD
@ 5,46 say WEEK
@ 7, 4
set color to G
@ 7, 4 say "入力日付 [ ]戻る"
set color to
@ 7,14 say "ESC"
?? chr(BELL)
if TYPE="CLEAR"
clear typeahead
endif
@ 5,33 get CM110YY picture "99"
@ 5,37 get CM110MM picture "99"
@ 5,41 get CM110DD picture "99"
read
clear gets
if readkey()=0.or.readkey()=12
close databases
return
endif
if val(CM110MM) <=0 .or. val(CM110MM) >=13 .or. ;
val(CM110DD) <=0 .or. val(CM110DD) >=32
?? chr(7)
loop
endif
store CM110YY+CM110MM+CM110DD to TR_DATE
store left(cdow(ctod(str(val(CM110YY)+1988,4)+"/"+CM110MM+"/"+CM110DD)),2) to WEEK2
@ 5,46 say WEEK2
do while .T.
store 0 to NP_KYAKU
select EIGYO
@ 7, 4
set color to G
@ 7, 4 say "[ ]日付 [ ]終了"
set color to
@ 7, 5 say "ESC"
@ 7,16 say "."
do while .T.
*******LP100(営業員コード)**********
?? chr(BELL)
if TYPE="CLEAR"
clear typeahead
endif
store " " to EI_CODE
@ 3,67 get EI_CODE picture "!"
read
clear gets
if EI_CODE="."
close databases
return to master
endif
if val(EI_CODE)<>0
?? chr(7)
loop
endif
if readkey()=0.or.readkey()=12.or.EI_CODE="\"
@ 3,68 say " "
exit
endif
goto top
seek EI_CODE
if eof()
?? chr(7)
if HELP="HELP"
?? chr(BELL)
?? chr(BELL)
locate for left(EIGYO_CODE,1)=EI_CODE.or.val(EIGYO_CODE)=0
store 0 to CP_CT
do while CP_CT<13.and..not.eof()
store CP_CT+1 to CP_CT
@ 8+CP_CT,62 say EIGYO_CODE+" "+EIGYO_NAME
continu
enddo
endif
loop
endif
exit
enddo &&(******LP110********)
if readkey()=0.or.readkey()=12
exit
endif
store EIGYO_NAME to EI_NAME
store EIGYO_BUTU to EI_BUTU
@ 5,67 say EI_NAME
@ 9,62 clear to 21,77
do CM110_1
enddo
if readkey()=0.or.readkey()=12
loop
endif
enddo
|
・・・・・わけわからん(笑)
でもなんかいでちゃんらしい(*^_^*)
by paula (2012-02-18 08:19)
あはは。
paulaさんはいつからPCを使い始めたのでしょう?
Windows95から?
真っ黒いDOSの画面は知りませんよね?
何でも自分で出来て楽しい時代でした。
Windowsになったら手も足も出ません。(笑)
by いであ (2012-02-18 12:28)
こんにちは。
PC98シリーズだったら、そこそこのコストが掛かっていますから、
5年ぐらいでリタイアされたら大変です。だからOKですよ!^^
今のDELLとは成り立ちが違いますから。
ぼくは仕事柄、業務用のミニコンからスタートしました。
TTYやさん孔テープの時代です。さすがにカードではありません。(笑)
遊び用に買ったPCはMZ-80Bが最初でしたが、それ以前にはTK80で
半年ぐらい遊んでおりました。
あの頃は文字通り「計算機」という位置づけでしたからね、今のような
正体不明の存在ではない代わりに、間口も狭かったと思います。
通信は300bpsのモデムという時代です。
まだコアメモリ(磁気コア)、1枚で16KBなんてのが業務用でありました。
外部記憶は、もっぱら紙テープ。その後、磁気テープから8'FD、HDD。
HDDの初期バージョン(ラックマウント)は、容量20MBで重量が約20kgも
ありました。今は10万倍の2TBが数百グラムですもんね。(笑)
プログラムで気にしたのは・・・
1.メモリ使用量
2.実行速度
3.見易さ(メンテ性)
4.美しさ(自己満足と言われましたが・・・。笑)
今は圧倒的な速さのハードと、無尽蔵な低価格メモリ(記憶装置)があり、
コスト(開発期間)だけを気にする経営者と、テクニックのない低脳プログラマ
たちが「ただ動きさえすればいいアプリを作ってる」という惨状です。
何だか寂しいさいっぱいですけどね。
by song4u (2012-02-18 14:49)
song4uさん、コメントありがとうございます!
さすがです。song4uさんのような専門家に幼稚なカキコミのようでした。(笑)
僕は美大出のデザイナーだったので、コンピューターは素人です。
ミニコンも、MZ-80BやTK80の型番聞いてもぜんぜん分からないです。(笑)
PC9801とDELLがどこがどう違うのか??
ただ、なんとなく言わんとするとこは分かります。
すごいです。外部記憶は紙テープに磁気テープですか?!
紙テープに打ち込む様子は映画のニュースか何かで見たことあります。
通信は300bpsのモデムですか!
見たことあります。
パソコン通信してましたから、友達のとこで文字がゆっくり流れてきました。
僕は1200bpsからです。すぐ2400になりました。
アスキーネット、そして個人で運営するBBSへ移り、
そして僕も自宅に2回線引いてBBSを運営してました。懐かしい時代です。
またお話聞かせて下さい。
by いであ (2012-02-18 17:21)