Astronomy Conversions

Gallery

Source Code

   5 REM **ASTRONOMY**
  10 CLEAR 
  20 LET M=0
  30 LET K=0
  40 PRINT "CONVERSIONS"
  50 FOR P=1 TO 11
  60 PRINT "*";
  70 NEXT P
  80 PRINT 
  90 PRINT "1/LTYRS TO MILES"
 100 PRINT "2/KM TO LTYRS"
 110 PRINT "3/MILES TO LTYRS"
 120 LET C$=INKEY$
 130 IF C$="" THEN GOTO 120
 140 IF C$>"1" THEN GOTO 400
 300 CLS 
 310 PRINT "LTYRS: ";
 320 INPUT L
 330 PRINT L
 340 LET K=L*(9.4830912*10**12)
 350 LET M=L*(5.892792872*10**12)
 360 PRINT "KM: ";K
 370 PRINT "MILES: ";M
 400 CLS 
 410 IF C$="3" THEN GOTO 500
 420 PRINT "KM: ";
 430 INPUT K
 440 PRINT K
 450 LET L=K/(9.4830912*(10**12))
 460 GOTO 540
 500 PRINT "MILES: ";
 510 INPUT M
 520 PRINT M
 530 LET L=M/(5.892792872*(10**12))
 540 PRINT "LTYRS: ";L
 550 PRINT 
 560 GOTO 10
 600 SAVE "1006%3"
 700 RUN