Just BASIC Files Archive

Code: Select all

'     * * * * SPACE PROBES * * * *
'Written by Welo, 010705
'TIMER value updates display at one second intervals (real time).
'Decrease timer at end of program for faster display.

    nomainwin

    WindowWidth = 800
    WindowHeight = 695
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    statictext #main.statictext1, "The Space Probes", 325, 5, 225, 30
    statictext #main.statictext2, "Destination", 15, 35, 96, 30
    statictext #main.statictext3, "% Mission Complete", 215, 35, 185, 30
    statictext #main.statictext4, "Current Velocity", 415, 35, 150, 30
    statictext #main.statictext5, "Time to Destination", 615, 35, 175, 30
    statictext #main.statictext6, "Earth's Moon", 15, 65, 150, 30
    statictext #main.statictext7, "", 215, 65, 150, 30
    statictext #main.statictext8, "", 415, 65, 150, 30
    statictext #main.statictext9, "", 615, 65, 150, 30
    graphicbox #main.g1, 15, 95, 760, 10
    statictext #main.statictext10, "Mercury", 15, 116, 150, 30
    statictext #main.statictext11, "days", 215, 116, 150, 30
    statictext #main.statictext12, "vel", 415, 116, 150, 30
    statictext #main.statictext13, "toa", 615, 116, 150, 30
    graphicbox #main.g2, 15, 146, 760, 10
    statictext #main.statictext14, "Venus", 15, 168,150, 30
    statictext #main.statictext15, "days", 215, 168, 150, 30
    statictext #main.statictext16, "vel", 415, 168, 150, 30
    statictext #main.statictext17, "toa", 615, 168, 150, 30
    graphicbox #main.g3, 15, 198, 760, 10
    statictext #main.statictext18, "Mars", 15, 219, 150, 30
    statictext #main.statictext19, "days", 215, 219, 150, 30
    statictext #main.statictext20, "vel", 415, 219, 150, 30
    statictext #main.statictext21, "toa", 615, 219, 150, 30
    graphicbox #main.g4, 15, 249, 760, 10
    statictext #main.statictext22, "Jupiter", 15, 271, 150, 30
    statictext #main.statictext23, "days", 215, 271, 150, 30
    statictext #main.statictext24, "vel", 415, 271, 150, 30
    statictext #main.statictext25, "toa", 615, 271, 150, 30
    graphicbox #main.g5, 15, 301, 760, 10
    statictext #main.statictext26, "Saturn", 15, 322, 150, 30
    statictext #main.statictext27, "days", 215, 322, 150, 30
    statictext #main.statictext28, "vel", 415, 322, 150, 30
    statictext #main.statictext29, "toa", 615, 322, 150, 30
    graphicbox #main.g6, 15, 352, 760, 10
    statictext #main.statictext30, "Uranus", 15, 373, 150, 30
    statictext #main.statictext31, "days", 215, 373, 150, 30
    statictext #main.statictext32, "vel", 415, 373, 150, 30
    statictext #main.statictext33, "toa", 615, 373, 150, 30
    graphicbox #main.g7, 15, 403, 760, 10
    statictext #main.statictext34, "Neptune", 15, 425, 150, 30
    statictext #main.statictext35, "days", 215, 425, 150, 30
    statictext #main.statictext36, "vel", 415, 425, 150, 30
    statictext #main.statictext37, "toa", 615, 425, 150, 30
    graphicbox #main.g8, 15, 455, 760, 10
    statictext #main.statictext38, "Pluto", 15, 476, 150, 30
    statictext #main.statictext39, "days", 215, 476, 150, 30
    statictext #main.statictext40, "vel", 415, 476, 150, 30
    statictext #main.statictext41, "toa", 615, 476, 150, 30
    graphicbox #main.g9, 15, 506, 760, 10
    statictext #main.statictext42, "Proxima Centauri", 15, 528, 150, 30
    statictext #main.statictext43, "days", 215, 528, 150, 30
    statictext #main.statictext44, "vel", 415, 528, 150, 30
    statictext #main.statictext45, "toa", 615, 528, 175, 30
    graphicbox #main.g10, 15, 558, 760, 10

    statictext #main.statictext46, summary$, 15, 585, 700, 30
    button #main.button1, "Launch", [start], UL, 275, 625, 90, 30
    button #main.button2, "QUIT", [quit], UL, 450, 625, 90, 30
    open "Mission to Space" for window as #main
    print #main, "trapclose [quit]"
    print #main, "font arial 0 20"

wait

[start]
                          'Constants
D1=235000                 'Miles to Moon
D2=57000000               'Miles to Mercury
D3=26000000               'Miles to Venus
D4=35000000               'Miles to Mars
D5=370000000              'Miles to Jupiter
D6=744000000              'Miles to Saturn
D7=1607000000             'Miles to Uranus
D8=2680000000             'Miles to Neptune
D9=2067000000             'Miles to Pluto
D10=(4.2*(5.87812*10^12)) 'Miles to Proxima Centauri
a=32.2                    'Accelleration at 32.2 Feet/Per Second
launchDate$=DATE$()
launchTime$=TIME$()

[update]
TIMER 0
t=t+1                     'Seconds since launch
v=(a*t)                   'Current velocity in FPS


'Moon Mission
msn1Dist=D1/2
msn1T0=SQR((msn1Dist*5280)/(a/2))  'Time for first half of trip
msn1T0=msn1T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn1)>1 THEN [moonDone]  'If mission complete, goto next mission
    IF (complmsn1)<.5 THEN
    msn1V=v  'Current velocity of moon probe in FPS
    msn1Color$=" green"

    ELSE
    msn1dec=msndec+1  'Begin deceleration counter
    vdecel1=a*msn1dec
    msn1V=(msn1V-vdecel1)  'Deceleration velocity in FPS
    msn1Color$=" red"
    END IF
    ETA1=msn1T0-(msn1T0*complmsn1)
    complmsn1=(t/msn1T0)  'Percentage of mission complete
    IF (complmsn1)>1 THEN msn1V=0: ETA1=0
    print #main.statictext7, INT(t/(msn1T0)*100)
    print #main.statictext8, INT(msn1V*.681818); " MPH"
    print #main.statictext9, INT(ETA1/60); " MIN"
    print #main.g1, "discard"
    print #main.g1, "cls"
    print #main.g1, "locate 0 0"
    print #main.g1, "backcolor "; msn1Color$
    print #main.g1, "down"
    print #main.g1, "boxfilled "; INT((t/msn1T0)*760); " 10"

[moonDone]

'Mercury Mission
msn2Dist=D2/2
msn2T0=SQR((msn2Dist*5280)/(a/2))  'Time for first half of trip
msn2T0=msn2T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn2)>1 THEN [mercDone]  'If mission complete, goto next mission
    IF (complmsn2)<.5 THEN
    msn2V=v  'Current velocity of Mercury probe in FPS
    msn2Color$=" green"

    ELSE
    msn2dec=msndec2+1  'Begin deceleration counter
    vdecel2=a*msn2dec
    msn2V=(msn2V-vdecel2)  'Deceleration velocity in FPS
    msn2Color$=" red"
    END IF

    complmsn2=(t/msn2T0)  'Percentage of mission complete
    ETA2=msn2T0-(msn2T0*complmsn2)
    IF (complmsn2)>1 THEN msn2V=0: ETA2=0
    print #main.statictext11, INT(t/(msn2T0)*100)
    print #main.statictext12, INT(msn2V*.681818); " MPH"
    print #main.statictext13, INT(ETA2/3600); " Hrs"
    print #main.g2, "discard"
    print #main.g2, "cls"
    print #main.g2, "locate 0 0"
    print #main.g2, "backcolor "; msn2Color$
    print #main.g2, "down"
    print #main.g2, "boxfilled "; INT((t/msn2T0)*760); " 10"

[mercDone]


'Venus Mission
msn3Dist=D3/2
msn3T0=SQR((msn3Dist*5280)/(a/2))  'Time for first half of trip
msn3T0=msn3T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn3)>1 THEN [venuDone]  'If mission complete, goto next mission
    IF (complmsn3)<.5 THEN
    msn3V=v  'Current velocity of Venus probe in FPS
    msn3Color$=" green"

    ELSE
    msn3dec=msndec3+1  'Begin deceleration counter
    vdecel3=a*msn3dec
    msn3V=(msn3V-vdecel3)  'Deceleration velocity in FPS
    msn3Color$=" red"
    END IF

    complmsn3=(t/msn3T0)  'Percentage of mission complete
    ETA3=msn3T0-(msn3T0*complmsn3)
    IF (complmsn3)>1 THEN msn3V=0: ETA3=0
    print #main.statictext15, INT(t/(msn3T0)*100)
    print #main.statictext16, INT(msn3V*.681818); " MPH"
    print #main.statictext17, INT(ETA3/3600); " Hrs"
    print #main.g3, "discard"
    print #main.g3, "cls"
    print #main.g3, "locate 0 0"
    print #main.g3, "backcolor "; msn3Color$
    print #main.g3, "down"
    print #main.g3, "boxfilled "; INT((t/msn3T0)*760); " 10"

[venuDone]

'Mars Mission
msn4Dist=D4/2
msn4T0=SQR((msn4Dist*5280)/(a/2))  'Time for first half of trip
msn4T0=msn4T0*2            'Time for complete trip
                           'Do calculations for display

IF (complmsn4)>1 THEN [marsDone]  'If mission complete, goto next mission
    IF (complmsn4)<.5 THEN
    msn4V=v  'Current velocity of Mars probe in FPS
    msn4Color$=" green"

    ELSE
    msn4dec=msndec4+1  'Begin deceleration counter
    vdecel4=a*msn4dec
    msn4V=(msn4V-vdecel4)  'Deceleration velocity in FPS
    msn4Color$=" red"
    END IF

    complmsn4=(t/msn4T0)  'Percentage of mission complete
    ETA4=msn4T0-(msn4T0*complmsn4)
    IF (complmsn4)>1 THEN msn4V=0: ETA4=0
    print #main.statictext19, INT(t/(msn4T0)*100)
    print #main.statictext20, INT(msn4V*.681818); " MPH"
    print #main.statictext21, INT(ETA4/3600); " Hrs"
    print #main.g4, "discard"
    print #main.g4, "cls"
    print #main.g4, "locate 0 0"
    print #main.g4, "backcolor "; msn4Color$
    print #main.g4, "down"
    print #main.g4, "boxfilled "; INT((t/msn4T0)*760); " 10"

[marsDone]

'Jupiter Mission
msn5Dist=D5/2
msn5T0=SQR((msn5Dist*5280)/(a/2))  'Time for first half of trip
msn5T0=msn5T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn5)>1 THEN [jupiDone]  'If mission complete, goto next mission
    IF (complmsn5)<.5 THEN
    msn5V=v  'Current velocity of Jupiter probe in FPS
    msn5Color$=" green"

    ELSE
    msn5dec=msndec5+1  'Begin deceleration counter
    vdecel5=a*msn5dec
    msn5V=(msn5V-vdecel5)  'Deceleration velocity in FPS
    msn5Color$=" red"
    END IF

    complmsn5=(t/msn5T0)  'Percentage of mission complete
    ETA5=msn5T0-(msn5T0*complmsn5)
    IF (complmsn5)>1 THEN msn5V=0: ETA5=0
    print #main.statictext23, INT(t/(msn5T0)*100)
    print #main.statictext24, INT(msn5V*.681818); " MPH"
    print #main.statictext25, INT(ETA5/3600); " Hrs"
    print #main.g5, "discard"
    print #main.g5, "cls"
    print #main.g5, "locate 0 0"
    print #main.g5, "backcolor "; msn5Color$
    print #main.g5, "down"
    print #main.g5, "boxfilled "; INT((t/msn5T0)*760); " 10"

[jupiDone]

'Saturn Mission
msn6Dist=D6/2
msn6T0=SQR((msn6Dist*5280)/(a/2))  'Time for first half of trip
msn6T0=msn6T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn6)>1 THEN [satuDone]  'If mission complete, goto next mission
    IF (complmsn6)<.5 THEN
    msn6V=v  'Current velocity of Saturn probe in FPS
    msn6Color$=" green"

    ELSE
    msn6dec=msndec6+1  'Begin deceleration counter
    vdecel6=a*msn6dec
    msn6V=(msn6V-vdecel6)  'Deceleration velocity in FPS
    msn6Color$=" red"
    END IF

    complmsn6=(t/msn6T0)  'Percentage of mission complete
    ETA6=msn6T0-(msn6T0*complmsn6)
IF (complmsn6)>1 THEN msn6V=0: ETA6=0
    print #main.statictext27, INT(t/(msn6T0)*100)
    print #main.statictext28, INT(msn6V*.681818); " MPH"
    print #main.statictext29, INT(ETA6/3600); " Hrs"
    print #main.g6, "discard"
    print #main.g6, "cls"
    print #main.g6, "locate 0 0"
    print #main.g6, "backcolor "; msn6Color$
    print #main.g6, "down"
    print #main.g6, "boxfilled "; INT((t/msn6T0)*760); " 10"

[satuDone]

'Uranus Mission
msn7Dist=D7/2
msn7T0=SQR((msn7Dist*5280)/(a/2))  'Time for first half of trip
msn7T0=msn7T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn7)>1 THEN [uranDone]  'If mission complete, goto next mission
    IF (complmsn7)<.5 THEN
    msn7V=v  'Current velocity of Uranus probe in FPS
    msn7Color$=" green"

    ELSE
    msn7dec=msndec7+1  'Begin deceleration counter
    vdecel7=a*msn7dec
    msn7V=(msn7V-vdecel7)  'Deceleration velocity in FPS
    msn7Color$=" red"
    END IF

    complmsn7=(t/msn7T0)  'Percentage of mission complete
    ETA7=msn7T0-(msn7T0*complmsn7)
    IF (complmsn7)>1 THEN msn7V=0: ETA7=0
    print #main.statictext31, INT(t/(msn7T0)*100)
    print #main.statictext32, INT(msn7V*.681818); " MPH"
    print #main.statictext33, INT(ETA7/3600); " Hrs"
    print #main.g7, "discard"
    print #main.g7, "cls"
    print #main.g7, "locate 0 0"
    print #main.g7, "backcolor "; msn7Color$
    print #main.g7, "down"
    print #main.g7, "boxfilled "; INT((t/msn7T0)*760); " 10"

[uranDone]

'Neptune Mission
msn8Dist=D8/2
msn8T0=SQR((msn8Dist*5280)/(a/2))  'Time for first half of trip
msn8T0=msn8T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn8)>1 THEN [neptDone]  'If mission complete, goto next mission
    IF (complmsn8)<.5 THEN
    msn8V=v  'Current velocity of Neptune probe in FPS
    msn8Color$=" green"

    ELSE
    msn8dec=msndec8+1  'Begin deceleration counter
    vdecel8=a*msn8dec
    msn8V=(msn8V-vdecel8)  'Deceleration velocity in FPS
    msn8Color$=" red"
    END IF

    complmsn8=(t/msn8T0)  'Percentage of mission complete
    ETA8=msn8T0-(msn8T0*complmsn8)
    IF (complmsn8)>1 THEN msn8V=0: ETA8=0
    print #main.statictext35, INT(t/(msn8T0)*100)
    print #main.statictext36, INT(msn8V*.681818); " MPH"
    print #main.statictext37, INT(ETA8/3600); " Hrs"
    print #main.g8, "discard"
    print #main.g8, "cls"
    print #main.g8, "locate 0 0"
    print #main.g8, "backcolor "; msn8Color$
    print #main.g8, "down"
    print #main.g8, "boxfilled "; INT((t/msn8T0)*760); " 10"

[neptDone]

'Pluto Mission
msn9Dist=D9/2
msn9T0=SQR((msn9Dist*5280)/(a/2))  'Time for first half of trip
msn9T0=msn9T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn9)>1 THEN [plutDone]  'If mission complete, goto next mission
    IF (complmsn9)<.5 THEN
    msn9V=v  'Current velocity of Pluto probe in FPS
    msn9Color$=" green"

    ELSE
    msn9dec=msndec9+1  'Begin deceleration counter
    vdecel9=a*msn9dec
    msn9V=(msn9V-vdecel9)  'Deceleration velocity in FPS
    msn9Color$=" red"
    END IF

    complmsn9=(t/msn9T0)  'Percentage of mission complete
    ETA9=msn9T0-(msn9T0*complmsn9)
    IF (complmsn9)>1 THEN msn9V=0: ETA9=0
    print #main.statictext39, INT(t/(msn9T0)*100)
    print #main.statictext40, INT(msn9V*.681818); " MPH"
    print #main.statictext41, INT(ETA9/3600); " Hrs"
    print #main.g9, "discard"
    print #main.g9, "cls"
    print #main.g9, "locate 0 0"
    print #main.g9, "backcolor "; msn9Color$
    print #main.g9, "down"
    print #main.g9, "boxfilled "; INT((t/msn9T0)*760); " 10"

[plutDone]

'Proxima Centauri Mission
msn10Dist=D10/2
msn10T0=SQR((msn10Dist*5280)/(a/2))  'Time for first half of trip
msn10T0=msn10T0*2            'Time for complete trip
                           'Do calculations for display
IF (complmsn10)>1 THEN [proxDone]  'If mission complete, goto next mission
    IF (complmsn10)<.5 THEN
    msn10V=v  'Current velocity of Proxima probe in FPS
    msn10Color$=" green"

    ELSE
    msn10dec=msndec10+1  'Begin deceleration counter
    vdecel10=a*msn10dec
    msn10V=(msn10V-vdecel10)  'Deceleration velocity in FPS
    msn10Color$=" red"
    END IF

    complmsn10=(t/msn10T0)  'Percentage of mission complete
    ETA10=msn10T0-(msn10T0*complmsn10)
    IF (complmsn10)>1 THEN msn10V=0: ETA10=0
    print #main.statictext43, INT(t/(msn10T0)*100)
    print #main.statictext44, INT(msn10V*.681818); " MPH"
    print #main.statictext45, INT(ETA10/3600); " Hrs"
    print #main.g10, "discard"
    print #main.g10, "cls"
    print #main.g10, "locate 0 0"
    print #main.g10, "backcolor "; msn10Color$
    print #main.g10, "down"
    print #main.g10, "boxfilled "; INT((t/msn10T0)*760); " 10"

[proxDone]

summary$="It has been ";INT(t/60); " minutes since the probes were launched on "; _
launchDate$; " at "; launchTime$;"."
print #main.statictext46, summary$
TIMER 1000, [update]


wait
[quit]
    close #main
    end