10 DIM SP AS DOUBLE: CLS: COLOR 2: PRINT "TIME DILATION 1997 BY MICK BARTRAM / micktbart@yahoo.co.uk"
15 PRINT
20 COLOR 15: PRINT "AN ASTRONAUT GOES OFF IN A ROCKET AT .X THE SPEED OFF LIGHT RELATIVE TO THE     EARTH, HOW MUCH TIME HAS ELAPSED ON EARTH."
40 PRINT: PRINT " BY USING EINSTEIN'S FOLLOWING EQUATION WE CAN WORK IT OUT."
42 PRINT: PRINT "                 T1   ": PRINT "              ========="
44 PRINT "            /      V2 ": PRINT "      T2= \/ 1-  ------   OR  SP=SP*SP:SP=1-SP:SP=SQR(SP):TD=T1/SP": PRINT "                   C2"
70 PRINT: PRINT "  T1 = TIME ELAPSED ON THE ROCKET, IE.  30 YEARS."
80 PRINT "  V  = SPEED OF ROCKET, IE.  .8 C, OR 148994 MPS."
85 PRINT "  T2 = TIME ELAPSED ON EARTH. ": PRINT
90 INPUT "ENTER T1 "; T1: INPUT "ENTER V"; SP: PER = SP
95 IF SP = 1 THEN 500
100 SP = SP * SP: SP = 1 - SP: SP = SQR(SP): TD = T1 / SP
103 REM PRINT "SP = "; SP

105 MPS = 186243 * PER: MPH = MPS * 60 * 60: LOCATE 18, 25: PRINT "ACTUAL SPEED ="; MPS; "MPS. OR "; MPH; " MPH"
108 DIST = MPS * T1: PRINT: PRINT "DISTANCE OF SHIP = "; DIST; "MILES"
110 FOR T = 1 TO 5000: NEXT T
120 tms = TD / T1: PRINT "TIME DILATION IS "; tms; " TIMES T1 /"; " ELAPSED TIME ON EARTH =";T1*tms; "Units"
200 APP = DIST / TD: PRINT "VIEWED FROM EARTH, THE APPARENT SPEED OF ROCKET DUE TO TIME DILATION = "; APP; "MPS"
210 INPUT "Another go (Y\N)"; go$
220 IF go$ = "y" THEN GOTO 10 ELSE END

500 CLS: PRINT: PRINT: PRINT: PRINT
505 COLOR 4: COLOR 20: PRINT TAB(25); "*** DIVISION BY ZERO ERROR ***"
508 COLOR 2: PRINT: PRINT: PRINT " OH SHIT !!!!!!. WE HAVE DIVIDED T1 WITH ZERO (DIVISION BY ZERO ERROR)"
510 PRINT "A MATHEMATICAL ODDITY RESULTING IN AN INFINITLEY HUGE NUMBER, IT ALSO MEANS THE  ELAPSED TIME ON EARTH HAS BECOME INFINATE."
520 PRINT "OH YES, THE ASTRONAUTS HAVE AQUIRED IFINITE MASS, SLIPPING INTO A PARALLEL      UNIVERSE !!!!!"
530 PRINT: COLOR 20: PRINT TAB(30); "SPOOKY !!!!!!!!": COLOR 2
540 INPUT "Another go (Y\N)"; go$
550 IF go$ = "y" THEN GOTO 10 ELSE END