Operating instructions
13
PRINT:
PRINT
"PRESS
'CONT'
TO
CONTINUE!";
:PRINT:
STOP
14
PRINT:
PRINT
20
DIM
WS(30,5):
REM
THIS
IS
AN
ARRAY
FOR
HEIGHT
&
WEIGHTS
CORRESPONDING
TO
SMALL,
MEDIUM,
&
LARGE
BODY
FRAMES
30
FOR
J-l
TO
30
40
FOR
K-l
TO
4
50
READ
WS(J,K)
60
IF
WS(J
,1)
-"ZERO"
THEN
J-J
-1:
GOTO
80
70
NEXT
K
,J
80
PRINT
"LIST
YOUR
SEX
(FEMALE-l;
MALE-2)
ACCORDING
TO
NUMBERS;
YOUR
HEIGHT
(NO
SHOES)
TO
NEAREST
INCH
";
81
PRINT
"(E.G.,
5-10);
YOUR
BODY
FRAME(SMALL-l;
MEDIUM-2;
LARGE-3);
&
FINALLY
YOUR
WEIGHT
(IN
POUNDS,
WITH
BED
CLOTHING):";
83
INPUT
S,
HS,
F,
WT
85
PW-WT
90
ON
S
GOTO
95,195
95
PRINT:
PRINT
,,--------------------------------------":
TV-VAL(MIDS(HS
,I
,1»
*12+VAL(MIDS(
HS
,3»
96
REM
LINE
#'S
97-99 & 137
EXPRESS
THE
PROGRAM
LIMITATIONS
FOR
FEMALES
WHILE
LINE
#'S
197-199 & 237
EXPRESS
THE
PROGRAM
LIMITATIONS
FOR
MALES
97
IF F <
-I
AND
TV
<60
THEN
PRINT:
PRINT
"BECAUSE
YOUR
FRAME
IS
ONLY
'SMALL'
AND
YOUR
HEIGHT
IS
LESS
THAN
5-0,
THIS
PROGRAM
CAN
OFFER
YOU
NO
INFORMATION!":
GOTO
180
98
IF F <
-I
AND
TV>
70
THEN
PRINT:
PRINT
"BECAUSE
YOUR
FRAME
IS
ONLY
'SMALL'
AND
YOUR
HEIGHT
IS
MORE
THAN
5-10,
THIS
PROGRAM
CAN
OFFER
YOU
NO
INFORMA
TI
ON
!
":
GOTO
180
99
IF
TV
<60
OR
TV> 70
THEN
PRINT:
PRINT
"BECAUSE
OF
HEIGHT
LIMITATIONS,
TlIIS
PROGRAM
CANNOT
GIVE
YOU
YOUR
IDEAL
WEIGHT!":
GOTO
140
100
FOR
W
-I
TO
11:
REM
THIS
IS
FOR
FEMALES
ONLY
110
L-l
120
IF
WS(W,L)
-HS
THEN
PRINT:
PRINT
"YOUR
IDEAL
WEIGHT
_";
WS(W,F+l);:
GOTO
133
130
NEXT
132
REM
LINE
#'S
133&
233
DETERMINE
THE
%
THAT
YOUR
WEIGHT
EXCEEDS
YOUR
MAXIMUM
IDEAL
WEIGHT
133
SS
-VAL(MIDS(WS(W~F+l),
5»:
IF
SS(PW
THEN
PRINT
"---YOU
ARE
"
INT«(PW-SS)*100/SS)*10+.5)/10"
%
ABOVE
YOUR
MAXIMUM
IDEAL
WEIGHT.,,;
134
GG
-INT«(PW-SS)*100/SS)*10+.5)/10:
IF
GG>
10
AND
GG<
18
THEN
PRINT
"(YOU
ARE
CONSIDERED
OVERWEIGHT)!"
136
PRINT
137
IF
F<:
-I
THEN
PRINT:
PRINT
"BECAUSE
YOUR
FRAME
IS
ONLY
'SMALL'
,
ADDITIONAL
INFORMATION
ON
BODY
WATER,
ETC.
DOES
NOT
APPLY
TO
YOU!":
GOTO
180
138
REM
IN
LINE
#'S
140 &
240,
'H'
DENOTES
HEIGHT
IN
METERS
&
'WT'
V~IGHT
IN
KILOGRAMS
OF
FEMALES
&
MALES,
RESPECTIVELY
140 H -VAL(MIDS(HS,l,l»*12 + VAL(MIDS(HS,3»: H -H*.0254:
WT
-
WT*
.45359
143
REM
IN
LINE
#'S
145 &
245,
'QI'
DENOTES
'QUETELET'S
INDEX'
WHICH
IS
USED
FOR
FEMALES
&
MALES
RESPECTIVELY,
TO
DETERMINE
BODY
FAT
AND
WHETHER
A
PERSON
IS
OBESE
145
QI
-
WT/(H*H)
148
REM
LINE
#'S
150-160 & 250-260
DETERMINE
WHETHER
OBESITY
EXISTS
FOR
FEMALES
&
MALES,
RESPECTIVELY
1
~
IF
F-i
AND
QI»
27.0
THEN
PRINT:
PRINT
"YOU
ARE
ALSO
OVER
THE
CRITICAL
OBESITY
INDEX-_
...
TART
DIETING!":
GOTO
165
155
IF
F-3
AND
QI
>
29.5
THEN
PRINT:
PRINT
"YOU
ARE
ALSO
OVER
THE
CRITICAL
OBESITY
INDEX---START
DIETING!":
GOTO
165
160
PRINT:
PRINT
"YOU
ARE
UNDER
THE
CRITICAL
OBESITY
INDEX---
CONGRATULATIONS!"
162
REM
LINE
#'S
165 & 265
ALLOW;DETERMINATION
OF
BODY
FAT
IN
WOMEN
&
MEN,
RESPECTIVELY;
#'S
170 & 270
ALLOW
DETERMINATION
OF
BODY
SURFACE
AREAS
FOR
WOMEN
&
MEN,
RESPECTIVELY;
#'S
175