Calculates the number of calories burned in a given period of time for a wide variety of exercises.
Appears on
Capital Area Timex Sinclair User Group’s Library Tape.
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
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