'===========================================================================
' Subject: YOUR WEIGHT ON OTHER PLANETS      Date: 11-16-99 (16:55)       
' Author:  Scott Bishop                      Code: QB, QBasic, PDS        
' Origin:  Vbprogmr999@aol.com             Packet: MISC.ABC
'===========================================================================
'* * * * * * * * * * * *
'* Your Weight In Space*
'* * * * * * * * * * * *
'A BASIC Program
'By Scott Bishop
'For use with Apple and IBM Compatible computers


10     REM:THIS PROGRAM CALCULATES YOUR WEIGHT ON OTHER PLANETS
20     PRINT "THIS PROGRAM WILL TELL YOU HOW MUCH YOU WILL WEIGH ON OTHER PLANETS"
25     CLS
30     INPUT "WHAT IS YOUR WEIGHT?"; WEIGHT
40     INPUT "WHAT PLANET ARE YOU ON?"; PLANET$
45     PRINT
50     IF PLANET$ = "MOON" GOTO 140
60     IF PLANET$ = "MERCURY" GOTO 170
70     IF PLANET$ = "VENUS" GOTO 200
80     IF PLANET$ = "MARS" GOTO 230
90     IF PLANET$ = "JUPITER" GOTO 260
100    IF PLANET$ = "SATURN" GOTO 290
110    IF PLANET$ = "URANUS" GOTO 320
120    IF PLANET$ = "NEPTUNE" GOTO 350
130    IF PLANET$ = "PLUTO" GOTO 380
135    PRINT
140    LET MOON = WEIGHT * .16
150    PRINT "ON THE MOON YOU WOULD WEIGH "; MOON
155    PRINT
160    GOTO 40
170    LET MERCURY = WEIGHT * .39
180    PRINT "ON MERCURY YOU WOULD WEIGH "; MERCURY
185    PRINT
190    GOTO 40
200    LET VENUS = WEIGHT * .91
210    PRINT "ON VENUS YOU WOULD WEIGH "; VENUS
215    PRINT
220    GOTO 40
230    LET MARS = WEIGHT * .38
240    PRINT "ON MARS YOU WOULD WEIGH "; MARS
245    PRINT
250    GOTO 40
260    LET JUPITER = WEIGHT * 2.6
270    PRINT "ON JUPITER YOU WOULD WEIGH "; JUPITER
275    PRINT
280    GOTO 40
290    LET SATURN = WEIGHT * 1.07
300    PRINT "ON SATURN YOU WOULD WEIGH "; SATURN
305    PRINT
310    GOTO 40
320    LET URANUS = WEIGHT * .9
330    PRINT "ON URANUS YOU WOULD WEIGH "; URANUS
335    PRINT
340    GOTO 40
350    LET NEPTUNE = WEIGHT * 1.15
360    PRINT "ON NEPTUNE YOU WOULD WEIGH "; NEPTUNE
365    PRINT
370    GOTO 40
380    LET PLUTO = WEIGHT * .5
390    PRINT "ON PLUTO YOU WOULD WEIGH "; PLUTO