メニューをスキップして本文へ


ここから本文

TINY STAR TREK

  • 2005年3月17日(木) 00:00 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


おまけ その3(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)

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誌に掲載され、原稿料とソフトの印税でパソコン(当時はマイコンと呼ばれていました)を買った記憶があります。

花がら

  • 2005年3月 9日(水) 00:00 JST
  • 投稿者:
    turbo
■■■■■2005.03.09(水)  晴れ 花がら

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

マーガレットが開き始めた

  • 2005年3月 3日(木) 09:43 JST
  • 投稿者:
    turbo
春はすぐそこまでやってきていますね。今年の桜の開花は、平年並みだとか。4月10日頃が満開だと思います。

シャボチカバ

  • 2005年2月24日(木) 00:41 JST
  • 投稿者:
    turbo
 シャボチカバの実は見たことがあるけど、花がこんなにきれいに咲くなんて、やっぱり本職はすごいなぁ。暖かい1日でしたが、田んぼのワラの始末はまだ終わらない。明日もワラの始末の予定です。

地震

  • 2005年2月16日(水) 12:53 JST
  • 投稿者:
    turbo
今朝の地震は、怖いぐらいに揺れました。幸いに被害はありませんでした。このところ我孫子でも地震が多いです。新潟の地震、スマトラの地震、次はこのあたりなのだろうか。怖い気がします。

地震

  • 2005年2月16日(水) 00:00 JST
  • 投稿者:
    turbo
■■■■■2005.02.16(水)  雨 地震

 明け方に強い地震があった。発表では震度4ということであったが、結構強かったように思う。
最近、水海道のあたりを震源とした地震が多いが、今回も同じあたりであった。それにしても、地震と雨には相関関係があるようだ。

ローズマリー

  • 2005年2月 5日(土) 00:00 JST
  • 投稿者:
    turbo
■■■■■2005.02.05(土)  晴れ ローズマリー


  </div>

<p class=

水仙開花

  • 2005年1月29日(土) 16:21 JST
  • 投稿者:
    turbo
匂いが伝えられなくて残念です。

かき餅

  • 2005年1月25日(火) 00:00 JST
  • 投稿者:
    turbo
■■■■■2005.01.25(火)  晴れ 

かきもち
 1/22に、かき餅、草餅を搗いた。1/14には昨年同様に餅花を作った。餅花は20日の風にあててはいけないという。6日間だけの花である。
 今年は、黒米を使ってのかき餅にも挑戦した。色合いがとてもきれいである。

 最近、ニフティの園芸ファーラムの設定作業に時間が取られていて、農作業も昨年の帳簿整理も進んでいない。こんなことでいいのだろうか。なんだかやることが多くて大変な毎日であります。おかけで、ここも更新が思うように進まないです。猫の手も借りたいのに、うちにいるのは犬でしたヽ(^。^)丿

サブメニューをスキップしてフッタへ

記事カテゴリ

ログイン

ログイン


オンラインユーザ

ゲストユーザ: 39

新着情報

記事

-

コメント (2日)

-

トラックバック (2日)

-

ページ (2週)

-

リンク (2週)

新しいリンクはありません

ここからフッタ