■■■■■
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)
コメントは投稿者の責任においてなされるものであり、サイト管理者は責任を負いません。