30  REM EINDIS, HP 36716A, 6/74
40  REM  PROGRAM PRODUCED BY A SSN 151-30-8827
50  PRINT "ENTER YOUR HEIGHT IN INCHES,YOUR WEIGHT IN LBS.,AND~"
60  PRINT "YOUR AGE IN YEARS."
70  INPUT H,W,A
80  IF H <= 0 OR W <= 0 OR A <= 0 THEN 50
90  PRINT "YOUR IDENTICAL TWIN FLIES PAST IN A ROCKET SHIP. CHOOSE"
100  PRINT "HIS SPEED AS A % OF THE SPEED OF LIGHT(BETWEEN 0 AND 100)."
110  INPUT V
120  IF V >= 100 OR V <= 0 THEN 90
130  V=V/100
140  V1=V*299.792
150  V2=V*659
160  G=1/SQR(1-V*V)
170  H1=H/G
180  M=W/2.2
190  M1=M*G
200  A1=A/G
210  R=792/(V1*V1)
220  N=6.378/R
230  F=ATN(V)
240  D=57.2*F
250  V3=200*V/(1+V*V)
260  E=M*.09
270  L=G*(1+V)*4000
280  L1=G*4000
290  E1=E/.0038
300  E3=E1/50
310  PRINT 
320  PRINT "FOR A SPEED OF";V*100;"% OF LIGHT,WHICH IS ";V1;"MILLION"
330  PRINT "METERS/SEC AND ";V2;"MILLION MPH, "
340  PRINT 
350  PRINT " YOU            TWIN'S APPEARANCE"
360  PRINT 
370  PRINT H;"INCHES       ";H1;"INCHES      - LENGTH CONTRACTION"
380  PRINT M;"KGMS.  ";M1;"KGMS.       - MASS-ENERGY INCREASE"
390  PRINT A;"YEARS        ";A1;"YEARS       - TIME DILATION"
400  PRINT "YOUR TWIN IS ALSO TILTED BY ";D;"DEGREES,DUE TO DEPTH-"
410  PRINT "OF-FIELD ROTATION "
420  PRINT 
430  PRINT "FOR EARTH'S GRAVITY FIELD TO PRODUCE AN EQUIVALENT SPACE-"
440  PRINT "TIME DISTORTION WOULD REQUIRE THE EARTH'S DIAMETER TO BE "
450  PRINT N;"MILLION TIMES SMALLER THAN IT IS,OR THE MASS";N;"MILLION"
460  PRINT "TIMES BIGGER THAN ACTUAL."
470  PRINT 
480  PRINT "YOUR ANTI-MATTER TWIN COULD BE CREATED BY THE COLLISION OF"
490  PRINT "2 GAMMA-RAYS EACH HAVING ";E;" BILLION BILLION JOULES OF"
500  PRINT "ENERGY,WHICH EQUALS ";E1;"MILLION TONS OF TNT OR "
510  PRINT E3;" H-BOMBS (PAIR PRODUCTION)."
520  PRINT 
530  PRINT "IF YOU FLY OFF IN THE ROCKET'S OPPOSITE DIRECTION AT THE"
540  PRINT "SAME SPEED,";V*100;" % OF C,YOU BOTH WILL SEPARATE AT"
550  PRINT V3;" % OF C (RELATIVISTIC VELOCITY ADDITION)."
560  PRINT 
570  PRINT "WHEN THE PURPLE ROCKET IS MOVING AWAY, IT APPEARS "
580  IF L<4500 THEN 650
590  IF L<5000 THEN 670
600  IF L<5500 THEN 690
610  IF L<6000 THEN 710
620  IF L<6500 THEN 730
630  IF L<7000 THEN 750
640  GOTO 770
650  PRINT "PURPLE                (SMALL RED SHIFT)"
660  GOTO 780
670  PRINT "BLUE                    (RED SHIFT)  "
680  GOTO 780
690  PRINT "GREEN                   (RED SHIFT)  "
700  GOTO 780
710  PRINT "YELLOW                  (RED SHIFT)  "
720  GOTO 780
730  PRINT "ORANGE                  (RED SHIFT)  "
740  GOTO 780
750  PRINT "RED                     (RED SHIFT)  "
760  GOTO 780
770  PRINT "INVISIBLE-INFRARED!  (LARGE RED SHIFT)  "
780  IF L=L1 THEN 830
790  L=L1
800  PRINT "WHEN THE PURPLE ROCKET IS PASSING YOU, IT APPEARS"
810  GOTO 580
820  PRINT 
830  PRINT "OF COURSE YOU APPEAR THE SAME WAY TO YOUR TWIN; AFTER"
840  PRINT "ALL, HE IS A RELATIVE !!"
850  END 
