Content
Image Gallery
Exercise and Calories
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
People
No people associated with this content.