Compucolor.org – Virtual Media

Listing of file='RELAI.BAS;01' on disk='vmedia/mixed-sector.ccvf'

100 REM  "RELAI.BAS"; INSTRUCTIONS FOR "RELA.BAS" SPACE PROGRAM
110 REM  COPYRIGHT (C) 1986 BY WALLACE R. RUST
120 REM  523 BRITTON ROAD, GREECE, NY 14616
130 REM  VERSION 11/86
140 REM
200 REM  --- TITLE PAGE 1
210 PLOT 6,3,12:PRINT TAB( 8);:PLOT 14,6,11
220 PRINT " INSTRUCTIONS FOR A RELATIVISTIC SPACE FLIGHT "
225 PRINT :PLOT 6,4:PRINT TAB( 24);"WALLACE R. RUST"
230 PRINT :PLOT 6,3,15
240 PRINT "   THIS PROGRAM SIMULATES A SPACE FLIGHT FROM EARTH TO THE"
250 PRINT "SMALL PLANET NEMO ('NEMO' IS LATIN FOR 'NO NAME').  IT TAKES"
260 PRINT "INTO ACCOUNT THE SPECIAL AND GENERAL THEORIES OF RELATIVITY"
270 PRINT "AS FORMULATED BY LORENTZ, MINKOWSKI, EINSTEIN, AND OTHERS."
300 PRINT :PLOT 6,2
310 PRINT "   THE PURPOSE OF THE PROGRAM IS NOT TO TEST YOUR SKILL AS AN"
320 PRINT "ASTRONAUT, BUT TO ILLUSTRATE HOW ACCELERATED SPACE FLIGHT"
330 PRINT "AFFECTS VELOCITIES, DISTANCES, AND CLOCKS."
400 PRINT :PLOT 6,7
410 PRINT "   YOU WILL FIND THE PROGRAM VERY EASY TO USE!"
420 GOSUB 9000
500 REM  --- PAGE 2
510 PLOT 6,2
520 PRINT "   YOU WILL BEGIN YOUR TRIP BY CHOOSING THE DISTANCE TO NEMO"
530 PRINT "IN LIGHT-YEARS.  YOUR JOURNEY HAS THE FOLLOWING PHASES:"
540 PRINT :PLOT 6,7
550 PRINT "   LIFTOFF FROM EARTH":PRINT
560 PRINT "    ATTAINING EARTH ORBIT":PRINT
570 PRINT "     JOURNEY TO NEMO":PRINT
580 PRINT "      LANDING ON NEMO":PRINT
590 PRINT "       LIFTOFF FROM NEMO":PRINT
600 PRINT "        JOURNEY TO EARTH":PRINT
610 PRINT "         LANDING ON EARTH"
650 PRINT :PRINT :PLOT 6,3
660 PRINT "   TO MAKE IT SIMPLE FOR YOU, ALL LIFTOFFS ARE EASY, AND ALL"
670 PRINT "LANDINGS ARE AUTOMATIC!"
680 GOSUB 9000
700 REM  --- PAGE 3
710 PLOT 6,2
720 PRINT "   FOR LIFTOFF FROM EARTH, YOU WILL CHOOSE THE LAUNCH"
730 PRINT "ACCELERATION.  THE HIGHER THE VALUE, THE SOONER YOU REACH"
740 PRINT "EARTH ORBIT - BUT THE HIGHER THE G-FORCE YOU MUST WITHSTAND!"
750 PRINT :PLOT 6,3
760 PRINT "   THEN THE FUN BEGINS!  YOU WILL CHOOSE THE ACCELERATION FOR"
770 PRINT "LEAVING ORBIT AND HEADING FOR NEMO.  AS YOU TRAVEL, YOU CAN"
780 PRINT "CHANGE YOUR ACCELERATION AT ANY TIME."
790 PRINT :PLOT 6,7
800 PRINT "   POSITIVE VALUES WILL SPEED YOU UP; NEGATIVE VALUES WILL"
810 PRINT "SLOW YOU DOWN; ZERO WILL LET YOU COAST AT YOUR PRESENT VELOCITY."
880 GOSUB 9000
900 REM  --- PAGE 4
910 PLOT 6,2
920 PRINT "   AS YOU TRAVEL, A DIAGRAM PLOTS YOUR PROGRESS TOWARD NEMO,"
930 PRINT "AND A STATUS BOARD KEEPS YOU POSTED ON THE FOLLOWING:"
940 PRINT :PLOT 6,3
950 PRINT "   YOUR ACCELERATION"
960 PRINT
970 PRINT "   SPACE SHIP CLOCK TIME"
980 PRINT "   EARTH CLOCK TIME"
985 PRINT
990 PRINT "   YOUR VELOCITY RELATIVE TO EARTH"
1000 PRINT "   YOUR DISTANCE FROM EARTH"
1010 PRINT
1020 PRINT "   YOUR AGE"
1030 PRINT "   YOUR EARTH-BOUND TWIN'S AGE"
1050 GOSUB 9000
1100 REM  --- PAGE 5
1110 PLOT 6,2
1120 PRINT "   THE STATUS BOARD SHOWS ONE MORE IMPORTANT VALUE: THE"
1130 PRINT "DECELERATION NEEDED AT THE PRESENT MOMENT IN ORDER TO REACH"
1140 PRINT "YOUR DESTINATION, SHOULD YOU DECIDE TO BEGIN DECELERATING AT"
1145 PRINT "THAT POINT."
1150 PRINT :PLOT 6,7
1160 PRINT "   AS YOU MOVE THROUGH SPACE, THIS VALUE WILL KEEP CHANGING"
1170 PRINT "IN ACCORDANCE WITH YOUR VELOCITY AND DISTANCE-TO-GO."
1180 PRINT "KEEP IN MIND THAT YOUR ENGINES AT MAXIMUM THRUST LIMIT YOUR"
1190 PRINT "ACCELERATION AND DECELERATION TO 30 M/S/S."
1200 PRINT :PLOT 6,3
1210 PRINT "   THEREFORE, REMEMBER TO BEGIN DECELERATING BEFORE THE"
1220 PRINT "DISPLAYED VALUE REACHES 30!  (IF YOU BLOW IT, YOUR ON-BOARD"
1230 PRINT "COMPUTER WILL LAND YOU SAFELY ANYWAY!)"
1250 PRINT :PLOT 6,5
1260 PRINT "   EXAMPLE: IF THE 'NEEDED DECELERATION' IS SHOWN AS 17.8834,"
1270 PRINT "YOU WOULD ENTER AN ACCELERATION OF -17.8834 IN ORDER TO ARRIVE"
1280 PRINT "AT YOUR DESTINATION AT ZERO VELOCITY."
1300 GOSUB 9000
1310 REM  --- PAGE 6
1320 PLOT 6,2
1330 PRINT "   THAT'S ABOUT ALL THERE IS TO IT.  AS YOU TRAVEL, YOU SHOULD"
1340 PRINT "WATCH THE CLOCKS, THE VELOCITY, THE AGES OF YOU AND YOUR TWIN,"
1350 PRINT "AND THE 'NEEDED DECELERATION.'"
1360 PRINT :PLOT 6,3
1370 PRINT "   LAUNCH FROM EARTH PROCEDES IN 2-SECOND STEPS BY THE CLOCK."
1380 PRINT "TRAVEL IN DEEP SPACE PROCEDES IN 0.05-YEAR STEPS, ROCKET TIME."
1390 PRINT :PLOT 6,7
1400 PRINT "   WHEN YOU RETURN TO EARTH, YOU WILL RECEIVE A SPECIAL"
1410 PRINT "MESSAGE ABOUT YOUR TWIN!"
8010 PRINT :PLOT 6,2
8020 PRINT "YOUR CHOICES NOW ARE:"
8030 PRINT
8040 PRINT "  1.  READ THESE INSTRUCTIONS AGAIN":PRINT
8050 PRINT "  2.  START THE SPACE FLIGHT":PRINT
8060 PRINT "  3.  FORGET THE WHOLE THING":PRINT
8100 PRINT :PLOT 6,1
8110 INPUT "ENTER YOUR CHOICE (1, 2, 3): ";X
8120 IF X< 1OR X> 3THEN 8110
8150 ON XGOTO 8200,8300,8400
8200 GOTO 200
8300 LOAD "RELA":RUN
8400 PLOT 6,3:END
9000 REM  --- NEXT-PAGE SUBROUTINE
9010 PLOT 6,1,3,0,31
9020 INPUT "PRESS <RETURN> FOR THE NEXT PAGE ";Q$
9030 PLOT 6,3,12:RETURN
9040 END