Exercise and Calories

Gallery

Source Code

   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 
1000 REM **ACTIVITIES LIST**
1010 PRINT TAB 5;"%E%X%E%R%C%I%S%E% %A%N%D% %C%A%L%O%R%I%E%S"
1020 PRINT 
1030 PRINT 
1040 PRINT "DO YOU EXERCISE?  BELOW IS A"
1050 PRINT "LIST OF SOME COMMON EXERCISE"
1060 PRINT "ACTIVITIES."
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 
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 
4000 SAVE "1015%1"
5000 RUN