Caloriburn

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