Calculates the number of calories burned in a given period of time for a wide variety of exercises.
Content
Image Gallery
Source Code
1 REM from CTM FOR JUNE '85 BY JOE SMITH JR.,BEGINS P.21.
2 BORDER 0: PAPER 6: INK 0: BEEP .05,20: BEEP .05,30: BEEP .05,40
3 POKE 23658,8: POKE 23609,30: PRINT AT 7,3;"C A L O R I E "
4 PRINT AT 10,7;"C O U N T E R ";AT 15,1;"BURNED BY EXERCISE,NOT SPURNED"
5 PAUSE 240: CLS : LET C$=" CALORIES USED"
9 GO SUB 100
10 INPUT "INPUT ACTIVITY # & TIME EXERCIS-ING. EXPRESS PARTS OF AN HOUR AS DECIMAL FRACTIONS. EX.:15 MIN.=.25 ";"ACTIVITY # ";A;" TIME ";B
12 IF A>20 THEN GO TO 10
20 GO SUB A+500
24 INPUT "GO AGAIN? Y/N?",A$
30 IF A$="Y" THEN PRINT AT 14,0;" ": GO TO 10
35 IF A$="N" THEN PRINT ''"BYE,DOWNHEARTED.": STOP
100 PRINT "BELOW IS A LIST OF SOME COMMNON EXERCISE ACTIVITIES: "
103 PRINT "1-BADMINTON","11-RACKETBALL"
104 PRINT "2-BASEBALL","12-RUNNING"
105 PRINT "3-BASKETBALL","13-SITTING"
106 PRINT "4-BICYCLING","14-SKATING"
107 PRINT "5-BOWLING","15-SKIING"
108 PRINT "6-DANCING","16-SOCCER"
109 PRINT "7-FOOTBALL","17-TABLE TENNIS"
110 PRINT "8-GOLF","18-TENNIS"
111 PRINT "9-HANDBALL","19-VOLLEYBALL"
112 PRINT "10-JOGGING","20-WALKING"
115 PRINT : PRINT
198 LET F=230: LET G=250: LET H=300: LET I=350: LET J=360: LET K=400: LET L=440: LET M=500
199 LET R=550: LET O=560: LET P=600: LET Q=900: LET E=100
200 RETURN
501 PRINT AT 14,0;"BADMINTON ";B*H;C$: GO TO 1000
502 PRINT AT 14,0;"BASEBALL ";B*J;C$: GO TO 1005
503 PRINT AT 14,0;"BASKETBALL ";B*M;C$: GO TO 1010
504 PRINT AT 14,0;"BICYCLING ";B*K;C$: GO TO 1015
505 PRINT AT 14,0;"BOWLING ";B*K;C$: GO TO 1015
506 PRINT AT 14,0;"DANCING ";B*H;C$: GO TO 1000
507 PRINT AT 14,0;"FOOTBALL ";B*R;C$: GO TO 1020
508 PRINT AT 14,0;"GOLF ";B*G;C$: GO TO 1025
509 PRINT AT 14,0;"HANDBALL ";B*P;C$: GO TO 1030
510 PRINT AT 14,0;"JOGGING ";B*O;C$: GO TO 1035
511 PRINT AT 14,0;"RACKETBALL ";B*P;C$: GO TO 1030
512 PRINT AT 14,0;"RUNNING ";B*Q;C$: GO TO 1040
513 PRINT AT 14,0;"SITTING ";B*E;C$: GO TO 1045
514 PRINT AT 14,0;"SKATING ";B*K;C$: GO TO 1015
515 PRINT AT 14,0;"SKIING ";B*P;C$: GO TO 1030
516 PRINT AT 14,0;"SOCCER ";B*R;C$: GO TO 1020
517 PRINT AT 14,0;"TABLE TENNIS ";B*F;C$: GO TO 1050
518 PRINT AT 14,0;"TENNIS ";B*L;C$: GO TO 1055
519 PRINT AT 14,0;"VOLLEYBALL ";B*I;C$: GO TO 1060
520 PRINT AT 14,0;"WALKING ";B*H;C$: GO TO 1000
1000 LET C=B*H/7000: GO SUB 1900: GO SUB 2000
1002 LET Z=(B*H/7000)/2.2: GO SUB 1910: GO TO 2050
1005 LET C=B*J/7000: GO SUB 1900: GO SUB 2000
1007 LET Z=(B*J/7000)/2.2: GO SUB 1910: GO TO 2050
1010 LET C=B*M/7000: GO SUB 1900: GO SUB 2000
1011 LET Z=(B*M/7000)/2.2: GO SUB 1910: GO TO 2050
1015 LET C=B*K/7000: GO SUB 1900: GO SUB 2000
1017 LET Z=(B*K/7000)/2.2: GO SUB 1910: GO TO 2050
1020 LET C=B*R/7000: GO TO 1062: GO SUB 2000
1022 LET Z=(B*R/7000)/2.2: GO SUB 1910: GO TO 2050
1025 LET C=B*G/7000: GO SUB 1900: GO SUB 2000
1027 LET Z=(B*G/7000)/2.2: GO SUB 1910: GO TO 2050
1030 LET C=B*P/7000: GO SUB 1900: GO SUB 2000
1032 LET Z=(B*P/7000)/2.2: GO SUB 1910: GO TO 2050
1035 LET C=B*O/7000: GO SUB 1900: GO SUB 2000
1037 LET Z=(B*O/7000)/2.2: GO SUB 1910: GO TO 2050
1040 LET C=B*Q/7000: GO SUB 1900: GO SUB 2000
1042 LET Z=(B*Q/7000)/2.2: GO SUB 1910: GO TO 2050
1045 LET C=B*E/7000: GO SUB 1900: GO SUB 2000
1047 LET Z=(B*E/7000)/2.2: GO SUB 1910: GO TO 2050
1050 LET C=B*F/7000: GO SUB 1900: GO SUB 2000
1052 LET Z=(B*F/7000)/2.2: GO SUB 1910: GO TO 2050
1055 LET C=B*L/7000: GO SUB 1900: GO SUB 2000
1057 LET Z=(B*L/7000)/2.2: GO SUB 1910: GO TO 2050
1060 LET C=B*I/7000: GO SUB 1900: GO SUB 2000
1062 LET Z=(B*I/7000)/2.2: GO SUB 1910: GO TO 2050
1900 LET D=INT (100*C+.5)/100: RETURN
1910 LET D=INT (100*Z+.5)/100: RETURN
2000 PRINT "WEIGHT LOSS= ";D;" KG": RETURN
2050 PRINT D;" LB": RETURN
2080 STOP
9998 CLEAR : SAVE "CALORIBURN" LINE 1