農園『花囲夢』　一百姓のつぶやき

半殺しにしようか皆殺しにしようか

2005年3月21日(月) 01:16 JST
投稿者:

turbo

　昔むかし、おばあさんが近所に遊びに行ったんだと。そうしたら、中からひそひそ話が聞こえてきた。ばあさん「じいさんや、今度は半殺しにしようか、それとも皆殺しにすんべか」じいさん「わしゃ、半殺しはどうも気に入らん。皆殺しにすんべぇな」おばあさんは怖くなって逃げて返ってきたと。

　…こんな話を小さい頃うちの祖母がしていた。なんとも物騒な話ですが、彼岸に作る牡丹餅（ぼたもち）の餡を粒あんにするのか漉しあんにするのかという話なんです。正直最初は怖かったぁ。お萩は秋の彼岸、牡丹餅は春の彼岸という使い分けもあるようですが、春と秋で漉しあんと粒あんを分けていたとも言いますから、結構な贅沢だったのでしょうね。

　春はもうそこまで来ているようで、サクラと似た花を付けるアーモンドの花が咲き始めています。

■■■■■2005.03.17（木）　　くもり時々雨　TINY STAR TREK

　昨日の日記に書いた本を見ていて、思い立ったようにPC-1261のソースを探してみました。
そしたら、ありましたよ、Macintoshの中に。なんとかTEXTファイルに出来たので、ここに書いてみましょう。

Sharp Pocket Computer PC-1261 PROGRAM LIBRARY by T.Noguchi (turbo@kaimu.jp) 1991/07/14 ======================================================================================== "S":TINY STAR TREK 10:"S":CLEAR:RANDOM:CLS:WAIT 50:PRINT "*** TINY STAR TREK ***" 20:CURSOR 24:INPUT "TEKI NO KAZU=";K," KICHI NO KAZU=";L:IF L>5 THEN LET L=5 25:IF K0 THEN FOR A(38)=1 TO L:GOSUB 500:D=INT(16*C)+19:A(D)=A(D)+1:NEXT A(38) 50:E=5000:F=5:G=365:M=K 60:GOSUB 500:H=INT(16*C)+19 70:BEEP 1:WAIT 50:PRINT "***** GAME START *****" 80:CLS:GOSUB 380 90:CURSOR 24:INPUT "COMMAND-";P$ 100:IF P$="W" THEN GOSUB 330:GOTO 150 110:IF P$="R" THEN GOSUB 400:GOTO 150 120:IF P$="T" THEN GOSUB 420:GOTO 150 130:IF P$="P" THEN GOSUB 450:GOTO 150 140:IF P$="E" THEN LET E=E+100:G=G-9 150:G=G-1:BEEP 1:CLS:PAUSE USING "#######";"E";E;USING "####";":T";F;":DAYS";G 160:IF E<=0 THEN 230 170:IF M=0 THEN 240 180:IF G<=0 THEN 230 190:N=INT(A(H)/10):GOSUB 500:D=INT(100*C)+100:E=E-D*N 200:IF N>0 THEN PAUSE "RED ! TEKI" 210:IF E34 THEN LET H=34 370:E=E-ABS N*100:G=G-6-ABS N 380:IF A(H)-INT(A(H)/10)*10=0 THEN 400 390:E=E+5000:F=F+5:A(H)=A(H)-1:PAUSE "ENERGY HOJUU !" 400:I=H-2:J=H-1:N=H+1:O=H+2 410:WAIT 25:CLS:CURSOR 0:PRINT USING "###";H-18;")";USING "####";A(I);A(J);A(H);A(N);A(O):RETURN 420:IF F=0 THEN CURSOR 24:PAUSE " TAMAGILE !":RETURN 430:BEEP 2:F=F-1:IF A(H)=E THEN 5060 5080:X=X/E:X=INT(X+.99999):S=S+X:L=L+1 5090:S=S+L+3:T=(S+1SINT(R*N/M+.99999))/INT((M-1)/256+.99999)*M/N 5100:USING:WAIT 0:CURSOR 0:PRINT "IDX SECSZ = ";S:CURSOR 24:WAIT:PRINT "TOTAL SIZ = ";S+O;"SEC ";T;"REC" 5110:GOTO 5010 おまけ　その３（CIF ファイル　RSZ=80/BSZ=240で、フロッピー3,848セクタに何ステップまで入るかの計算プログラム） "N":HOW MANY SECTORS OF CARD IMAGE STEPS 6000:"N":CLEAR 6010:INPUT "STEPS = ";S:X=X+S:M=M+1:GOTO 6010 6020:Y=3848-M:Y=Y*3-X 6030:PRINT "REST = ";Y;"RECORDS" 6040:GOTO 6010 ともかくいろいろな設定を消すプログラム " ":CLEAR VARIABLE & PRINT INFORMATION 9999:" ":CLS:CLEAR:USING:END Copyright (C) 1981-2005 by T.Noguchi(turbo)

コメント (0件)

PC-1211 / PC-1261 / FM-8

2005年3月16日(水) 00:00 JST
投稿者:

turbo

■■■■■2005.03.16（水）　　晴れ　PC-1211 / PC-1261 / FM-8

　本屋さんに寄ったら、「みんながコレで燃えた！　PC-8001・PC-6001」なる本が出てきた。芸夢狂人さんとかBug太郎さんとか、懐かしい名前が出てきた。
　かくいう私も、シャープのポケコンPC-1211とかPC-1261はプログラミングしたお金で買ったわけで、富士通のFM-8もその口であります。最初に作ったプログラムは今でも覚えています。今でこそHello Worldが常道ですが、作ったのは三三七拍子のプログラム。
　10:FOR I=1 TO 2:FOR J=1 TO 2:BEEP 3:NEXT J:BEEP 7:NEXT I:END
マルチステートメントになっているし、二重入れ子構造だし、結構先端的(^^;;だったかも。

　その後作ったPC-1211版TINY STARTREKが1981年の7月頃のラジオの製作誌に掲載され、FM-8版のワープロ「文華秀麗」がI/O誌に掲載され、原稿料とソフトの印税でパソコン（当時はマイコンと呼ばれていました）を買った記憶があります。

コメント (0件)

花がら

2005年3月 9日(水) 00:00 JST
投稿者:

turbo

■■■■■2005.03.09（水）　　晴れ　花がら

　久しぶりにスーツ姿で通勤電車に乗っている。以前いた会社から応援を頼まれ、昔開発したシステムの改造作業をしている。
　スーツと言えばネクタイなんだけど、うちのあるネクタイのうち、90％ぐらいは花がらのネクタイである。最近はあまり見かけなくなったけど結構探せば売っているようです。昔たまたま出かけた先で、私のネクタイと同じ生地で作ったワンピースを来た人に会いました。確かにワンピースの裁断は斜めに生地の残りが出るからネクタイになってもおかしくはないのですが、お互いにちょっとバツが悪かったです。街中で同じ服の人とすれ違った感じというか…。
　季節は着実に春に向かっているようで、今日はとても暖かでした。ブルーベリーの剪定もまだ終わっていないので、今日はスーツ姿はお休みして野良仕事の予定です。