10 CLS
20 GOTO 90
30 CLS
70 PRINT "press return"
80 INPUT Q$
90 CLS
100 PRINT "Trip into future"
110 RANDOMIZE TIMER
120 T=INT(RND*100)+25
130 PRINT "You wish to return";T;
140 PRINT "years in the future"
150 PRINT
160 PRINT "Speed of ship (0.01 to 1.00)"
170 INPUT V
180 IF V> =1 OR V< =0 THEN GOTO 160
190 PRINT "Distance of trip"
200 INPUT D
210 T1=D/V
220 T2=T1/SQR(1-V*V)
230 PRINT "You took ";T1;"years"
240 PRINT "and arrived ";T2;"years"
250 PRINT "in the future"
260 IF T1>50 THEN GOTO 300
270 IF ABS(T-T2) <=5 THEN PRINT "You arrived on time"
280 IF ABS(T-T2) >5 THEN PRINT "Not even close"
290 END
300 PRINT "You died on the way"
310 END