Operating instructions

& 2'75 ALLOW DETERMINATION OF BODY WATER IN WOMEN AND MEN.
RESPECTIVELY
165 WF. 1.48·QI-7: PRINT: PRINT "YOUR BODY FAT. " INT(WF·l0+.5)/10
" %"
170 BS. (.007185*WT".425*(H·l00)".725): PRINT: PRINT "YOUR
BODY SURFACE AREA IS CA. " INT(BS·l00 + .5)/100" SQ. METERS
(OR" INT «BS·l0.764)·10 + .5)/10" SQ. FT.)"
175 WW •• 183809·WT + 34.4547*H-35.270121
177 . PRINT: PRINT "YOUR TOTAL BODY WATER IS CA. " INT(WW*10 + .5)/10
" LITERS (CA. " INT «WW·l000/453.6)·10 + .5)/10" LBS. WATER
"
--..oR" INT«WW*IE02/WT)·10 + .5)/10 % BODY WT.)"
180 PRINT"- ": PRINT: GO'1'O 80
195 PRII,T: PRINT" --------------------------------------":
TV • VAL(MIDI(HS.l ,1))*12 + VAL(MIDS(HI.3))
1 97 IF F <. 1 AND TV < 64 THEN PRINT: PRINT "BECAUSE YOUR FRAME IS
ONLY 'SMALL' & YOUR HEIGHT IS LESS THAN 5-4. THIS PROGRAM
CAN OFFER YOU NO INFORMATION I": GOTO 280
198 IF F <. 1 AND TV> 95 THEN PRINT: PRINT "BECAUSE YOUR FRAME IS
ONLY 'SMALL' & YOUR HEIGHT IS MORE THAN 6 -3, THIS PROGRAM
CAN OFFER YOU NO INFORMATION!": GOTO 280
199 IF TV< 64 OR TV >75 THEN PRINT: PRINT"BECAUSE OF HEIGHT
LIMITATIONS. THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":
GOTO 240
200 FOR W • 12 TO 23 : HIM THIS IS FOR MALES ONLY
210 L.l
220 IF WS(W,L) • HS THEN PRINT: PRINT"YOUR IDEAL WEIGHT. ";
WI(W.F+l);1 GOrO 233
230 NEXT
233 SS. VAL (MIDI (WI (W.F+l ) .5)): IF SS( PW THEN PRINT"---YOU ARE"
INT«(PW-5S)·100/SS)·10 + .5)/10 " % ABOVE YOUR MAXIMUM IDEAL
WEIGHT ":
234 GG. INT«(PW-5S)·100/SS)·10 + .5)/10: IF GG >10 AND GG < 18
THEN PRINT" (YOU ARE CONSIDERED OVERWEIGHT)!"
23' PRINT
237 IF F <. 1 THEN PRINT: PRINT"BECAUSE YOUR FRAME IS ONLY 'SMALL'.
ADDITIONAL INFORMATION ON BODY WATER. ETC. DOES NOT APPLY
TO YOU I": GOTO 280
240 H. VAL(MIDII(HS.l.l))*12 + VAL(MIDS(HII.3)): H. H*.0254
WT • WT* .45359
245 QI • wTj(H*H)
250 IF F • 2 AND QI>27.5 THEN PRINT: PRINT"YOU ARE ALSO OVER
THE CRITICAL OBESITY INDEX---5TART DIETING!": GOTO 265
255 IF F • 3 AND QI >29.9 THEN PRINT: PRINT"YOU ARE ALSO OVER
THE CRITICAL OBESITY INDEX---5TART DIETING!": GOTO 265
260 PRINT: PRINT"YOU ARE UNDER THE CRITICAL OBESITY INDEX---
CONGRATULATIONS !"
265 MF. 1.281*QI-l0.13 : PRINT: PRINT"YOUR BODY FAT' • "
INT(MF*10 +
.5)/10 " %"
270 BS. (.007185*WTI\.425*(H·l00)"" .725): PRINT: PRINT"YOUR
BODY SURFACE AREA IS ABOUT "INT(BS*100 + .5)/100 " SQ.
METERS (OR" INT«BS*10.764)·10 + .5)/10 il SQ. FEET)"
275 MW •• 296785*WT + 19.4786*H-14.012934
277 PRINT: PRINT"YOUR TOTAL BODY WATER IS ABOUT "INT(MW*10 + .5)/10
" LITERS (ABOUT" INT«MW*1000/453.6)*10 + .5)/10 " LBS.
WATER--..oR" INT«MW*IE02/WT)·10 + .5)/10 " % BODY WEIGHT)"
280 PRINT"--------------------------------------": PRINT: GOTO 80
490 REM LINE #'S 500-600 CONTAIN HEIGHT-WEIGHT DATA FOR FEMALES
ONLY WHILE #'S 750-860 CONTAIN HEIGHT-WEIGHT DATA FOR MALES
ONLY
500
DATA
"5-0". "99-107". "104-116". "112-128"
510
DATA
"5-1". "102-110", "107-119". "115-131"
520
DATA
"5-2", "105-113". "110-123". "118-135"