はじめに

本ゲームはPB-100シリーズ(拡張メモリ不要)またはPB-SIM(normal)に対応します。

PokecomGOには対応しません。プログラム・サイズは544stepsです。

注意点

・[1][2][3]以外のキーを押すとエラーになります。（高速化のためエラー回避せず）その場合はshift+[1]で再開できます。

・実際のReEntryは切り離し後の高度約85,000mから始まりますが、しばらくは大気圏再突入の複雑なプロセスが続くので、本ゲームでは簡単のため再突入離脱後（ランディング・バーン）の想定です。

・実際の機体は、エンジン推力だけではなく機体自身やグリッドフィンによる大気制動も利用しますが、本ゲームはエンジン推力だけで減速します。大気の影響は終端速度(-250m/s)の設定だけです。

・水平方向の位置・速度・加速度成分は考慮しません。垂直方向のみです。

・燃料の減少とともに機体の重量が軽くなるので、同じエンジン出力でも加速度が大きくなります。

・着陸成功後に表示される速度は、±0.0m/sに近い方がより滑らかな着陸です。また変数Fを表示すると残燃料量が分かりますが、残量が多いほど余裕のあるReEntryだったことになります。

[P0]

1 VAC

3 $="=-\DT\DT\DT":SET F0

5 F=35EX3:M=19EX3:I=283:W=854EX3:X=W*.7:Y=W*.39

7 H=8EX3:V=-250:G=9.8:T=.2:N=1/G/I*T

9 PRINT "S P A C E  Y":GOSUB #3:GOTO #1

[P1]

2 C=H*.1:S=1

4 IF C>10;C=C*.1:S=S+1:GOTO 4

6 PRINT:PRINT V*.1;CSR 12-C;MID(S,1);B$;

8 MODE 6.34-F/15EX3:B$="":A=0

10 K$=KEY:IF K$<>"";IF F>0;GOSUB #2:A=Z/(F+M):F=F-Z*N

12 V=V+(A-G)*T:IF V<-250;V=-250

14 H=H+V*T:IF H>10 THEN #1

16 SET F1:PRINT:IF ABS V>=10;PRINT "  FAIL.  ((*":END

18 PRINT "Landing!   =","v=";V;"m/s":END

[P2]

1 GOTO VAL(K$)+1

2 Z=Y:B$="-":RETURN 

3 Z=X:B$="\LA":RETURN

4 Z=W:B$="E":RETURN

[P3]

1 FOR P=0 TO 11:PRINT:PRINT CSR 11-P;"\DT";

2 IF P=0;FOR Q=0 TO 9:GOSUB 6:PRINT CSR4;9-Q;:NEXT Q

3 IF P>0;PRINT "\LA";

4 IF P>7;PRINT CSR4;"\DT";

5 GOSUB 6:NEXT P:PRINT:PRINT "ReEntry";

6 FOR R=0 TO 99:NEXT R:RETURN

ゲーム集に戻る　ホームに戻る