Exercise and Calories

MANY PEOPLE today are health and fitness conscious and have exercise programs to keep in shape. Exercise and calories by Robert D. Teague is a program that allows the person who wishes to remain fit and trim a way of keeping track of the calories burned up during exercise. Twenty common exercises are provided for in the program. All the user must do is enter the activities and time involved. The T/S1000 does the rest, summarizing the activities and giving calories used as well as a total. This can be done daily, weekly, or monthly. The program will also determine weight loss assuming the user has stayed away from those “extra” calories.

For the beginning programmer, the program provides a look at arrays, FOR-NEXT loops, conditional statements, INKEY$, TAB, and PRINT AT. Subroutine 2000 shows how to line up columns of numbers using STR$ and the line 110 shows how a string (lines 510-700) can be given a numeric value by using VAL.

America is shaping up and the T/S1000, thin and trim itself, can help.

Sample run

     EXERCISE AND CALORIES

DO YOU EXERCISE?  BELOW IS A
LIST OF SOME COMMON EXERCISE
ACTIVITIES.

BADMINTON       RACQUETBALL
BASEBALL        RUNNING
BASKETBALL      SITTING
BICYCLING       SKATING
BOWLING         SKIING
DANCING         SOCCER
FOOTBALL        TABLE TENNIS
GOLF            TENNIS
HANDBALL        VOLLEYBALL
JOGGING         WALKING

HIT <ENTER> TO CONTINUE


ACTIVITY        CALORIES USED
==============================

GOLF                     1250
RUNNING                   450
SITTING                   800
BICYCLING                 800
BOWLING                  1200
HANDBALL                  900
BASEBALL                 1080
DANCING                   900
BASKETBALL               1000
VOLLEYBALL                525

Program listing

   1 REM ************************
   2 REM *PROGRAM BY BOB TEAGUE*
   3 REM *  [address omitted]
   4 REM *  [address omitted]
   5 REM *  [address omitted]
   6 REM ************************
   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 "[illegible]"
  95 PRINT
  98 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 "(inverse WEIGHT LOSS) = ";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
1000 REM ***ACTIVITIES LIST***
1010 PRINT TAB 5;"(inverse EXERCISE AND CALORIES)"
1020 PRINT
1030 PRINT
1040 PRINT "DO YOU EXERCISE?  BELOW IS A"
1050 PRINT "LIST OF SOME COMMON EXERCISE"
1060 PRINT "ACTIVITIES."
1070 PRINT
1080 PRINT "BADMINTON","RACQUETBALL"
1090 PRINT "BASEBALL","RUNNING"
1100 PRINT "BASKETBALL","SITTING"
1110 PRINT "BICYCLING","SKATING"
1120 PRINT "BOWLING","SKIING"
1130 PRINT "DANCING","SOCCER"
1140 PRINT "FOOTBALL","TABLE TENNIS"
1150 PRINT "GOLF","TENNIS"
1160 PRINT "HANDBALL","VOLLEYBALL"
1170 PRINT "JOGGING","WALKING"
1180 PRINT
1185 PRINT
1190 PRINT "HIT <ENTER> TO CONTINUE"
1200 IF INKEY$="" THEN GOTO 1200
1210 CLS
1220 RETURN
2000 REM ***LINE UP ROUTINE***
2005 LET Y=VAL A$(N)*H(N)
2010 LET X$=STR$ Y
2015 LET Y=0
2020 RETURN
3000 LET Z=C
3010 LET Y$=STR$ Z
3020 LET Z=0
3030 RETURN