Exercise and Calories

   1 REM EXERCISE AND CALORIES
   8 GOSUB 500
  10 GOSUB 1000
  15 DIM A$(20,12)
  17 DIM H(20)
  20 REM **USER INPUT**
  25 PRINT "HOW MANY ACTIVITIES?"
  30 INPUT X
  35 PRINT AT 0,22;X
  40 PRINT 
  45 FOR N=1 TO X
  50 PRINT "ACTIVITY?"
  60 INPUT A$(N)
  65 PRINT A$(N)
  70 PRINT "HOURS?"
  75 INPUT H(N)
  80 PRINT H(N)
  85 PRINT 
  90 NEXT N
  91 REM **MAIN PROGRAM**
  92 CLS 
  93 PRINT "ACTIVITY","CALORIES USED"
  94 PRINT "\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.."
  95 PRINT 
  96 LET T=24
 100 FOR N=1 TO X
 103 GOSUB 2000
 105 PRINT A$(N);TAB T-LEN X$;X$
 110 LET C=C+(VAL A$(N)*H(N))
 120 NEXT N
 125 PRINT 
 127 GOSUB 3000
 130 PRINT TAB 10;"TOTAL";TAB T-LEN Y$;Y$
 135 PRINT 
 140 PRINT "%W%E%I%G%H%T% %L%O%S%S = ";C/7000;" KG/";(C/7000)/2.2;" LBS"
 150 PRINT 
 160 PRINT 
 170 PRINT "GO AGAIN? (Y/N)"
 175 INPUT C$
 177 CLS 
 180 IF C$="Y" THEN GOTO 8
 190 IF C$="N" THEN STOP 
 200 IF C$<>"Y" AND C$<>"N" THEN GOTO 170
 500 REM **ASSIGN VALUES**
 505 LET C=0
 510 LET BADMINTON=300
 520 LET BASEBALL=360
 530 LET BASKETBALL=500
 540 LET BICYCLING=400
 550 LET BOWLING=400
 560 LET DANCING=300
 570 LET FOOTBALL=550
 580 LET GOLF=250
 590 LET HANDBALL=600
 600 LET JOGGING=560
 610 LET RACQUETBALL=600
 620 LET RUNNING=900
 630 LET SITTING=100
 640 LET SKATING=400
 650 LET SKIING=600
 660 LET SOCCER=550
 670 LET TABLE TENNIS=230
 680 LET TENNIS=440
 690 LET VOLLEYBALL=350
 700 LET WALKING=300
 800 RETURN 
\n1000 REM **ACTIVITIES LIST**
\n1010 PRINT TAB 5;"%E%X%E%R%C%I%S%E% %A%N%D% %C%A%L%O%R%I%E%S"
\n1020 PRINT 
\n1030 PRINT 
\n1040 PRINT "DO YOU EXERCISE?  BELOW IS A"
\n1050 PRINT "LIST OF SOME COMMON EXERCISE"
\n1060 PRINT "ACTIVITIES."
\n1080 PRINT "BADMINTON","RACQUETBALL"
\n1090 PRINT "BASEBALL","RUNNING"
\n1100 PRINT "BASKETBALL","SITTING"
\n1110 PRINT "BICYCLING","SKATING"
\n1120 PRINT "BOWLING","SKIING"
\n1130 PRINT "DANCING","SOCCER"
\n1140 PRINT "FOOTBALL","TABLE TENNIS"
\n1150 PRINT "GOLF","TENNIS"
\n1160 PRINT "HANDBALL","VOLLEYBALL"
\n1170 PRINT "JOGGING","WALKING"
\n1180 PRINT 
\n1190 PRINT "HIT <ENTER> TO CONTINUE"
\n1200 IF INKEY$="" THEN GOTO 1200
\n1210 CLS 
\n1220 RETURN 
\n2000 REM **LINE UP ROUTINE"
\n2005 LET Y=VAL A$(N)*H(N)
\n2010 LET X$=STR$ Y
\n2015 LET Y=0
\n2020 RETURN 
\n3000 LET Z=C
\n3010 LET Y$=STR$ Z
\n3020 LET Z=0
\n3030 RETURN 
\n4000 SAVE "1015%1"
\n5000 RUN