IDEAL MASS.Z
FILE INFORMATION
FILENAME(S): IDEAL MASS.Z
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
a8d50aee9f90241e09079caea9cafef2a7beeb4a9b94f0101401b0e0b79cd73b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | IDEAL MASS.Z | PRG | DuncanTwain | 10 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 00 00 99 20 22 93 49 44 45 41 4C 20 |....... ".IDEAL |
00000010: 42 4F 44 59 20 4D 41 53 53 22 20 3A 99 00 62 08 |BODY MASS" :..b.|
00000020: 01 00 99 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 |... "DO YOU WANT|
00000030: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 52 45 47 | INFORMATION REG|
00000040: 41 52 44 49 4E 47 20 54 48 49 53 20 20 50 52 4F |ARDING THIS PRO|
00000050: 47 52 41 4D 20 28 59 2F 4E 29 3F 20 22 3A 85 46 |GRAM (Y/N)? ":.F|
00000060: 46 24 00 7A 08 02 00 8B 20 46 46 24 20 B2 20 22 |F$.z.... FF$ . "|
00000070: 4E 22 20 A7 20 20 89 20 34 37 00 AB 08 03 00 99 |N" . . 47......|
00000080: 20 3A 99 20 22 54 48 49 53 20 50 52 4F 47 52 41 | :. "THIS PROGRA|
00000090: 4D 20 54 45 4C 4C 53 20 59 4F 55 20 57 48 41 54 |M TELLS YOU WHAT|
000000A0: 20 59 4F 55 52 20 4D 41 53 53 22 00 DC 08 04 00 | YOUR MASS".....|
000000B0: 99 20 22 53 48 4F 55 4C 44 20 42 45 20 42 41 53 |. "SHOULD BE BAS|
000000C0: 45 44 20 4F 4E 20 44 41 54 41 20 41 44 41 50 54 |ED ON DATA ADAPT|
000000D0: 45 44 20 46 52 4F 4D 20 54 48 45 22 00 08 09 05 |ED FROM THE"....|
000000E0: 00 99 20 22 42 4F 4F 4B 20 28 4D 41 53 53 45 53 |.. "BOOK (MASSES|
000000F0: 20 49 4E 20 54 48 49 53 20 42 4F 4F 4B 20 57 45 | IN THIS BOOK WE|
00000100: 52 45 20 53 55 42 2D 22 00 33 09 06 00 99 20 22 |RE SUB-".3.... "|
00000110: 54 52 41 43 54 45 44 20 42 59 20 33 20 54 4F 20 |TRACTED BY 3 TO |
00000120: 47 49 56 45 20 4D 41 53 53 45 53 20 49 4E 20 42 |GIVE MASSES IN B|
00000130: 45 44 22 00 5D 09 07 00 99 20 22 43 4C 4F 54 48 |ED".].... "CLOTH|
00000140: 49 4E 47 2C 20 57 48 49 43 48 20 57 45 52 45 20 |ING, WHICH WERE |
00000150: 55 53 45 44 20 49 4E 20 54 48 49 53 22 00 8B 09 |USED IN THIS"...|
00000160: 08 00 99 20 22 50 52 4F 47 52 41 4D 29 2C 20 27 |... "PROGRAM), '|
00000170: 4E 4F 52 4D 41 4C 20 26 20 54 48 45 52 41 50 45 |NORMAL & THERAPE|
00000180: 55 54 49 43 20 4E 55 54 52 49 2D 00 BB 09 09 00 |UTIC NUTRI-.....|
00000190: 99 20 22 54 49 4F 4E 27 2C 20 28 31 33 54 48 20 |. "TION', (13TH |
000001A0: 45 44 49 54 49 4F 4E 29 2C 20 42 59 20 43 2E 48 |EDITION), BY C.H|
000001B0: 2E 52 4F 42 49 4E 53 4F 4E 2C 22 00 EA 09 0A 00 |.ROBINSON,".....|
000001C0: 99 20 22 31 39 37 32 2C 20 50 2E 38 34 38 20 28 |. "1972, P.848 (|
000001D0: 4D 41 43 4D 49 4C 4C 41 4E 29 2E 20 48 45 49 47 |MACMILLAN). HEIG|
000001E0: 48 54 20 4C 49 4D 49 54 2D 22 00 16 0A 0B 00 99 |HT LIMIT-"......|
000001F0: 20 22 41 54 49 4F 4E 53 20 41 52 45 2C 20 46 4F | "ATIONS ARE, FO|
00000200: 52 20 57 4F 4D 45 4E 3A 20 35 2D 30 20 54 4F 20 |R WOMEN: 5-0 TO |
00000210: 35 2D 31 30 3B 22 00 44 0A 0C 00 99 20 22 46 4F |5-10;".D.... "FO|
00000220: 52 20 4D 45 4E 3A 20 35 2D 34 20 54 4F 20 36 2D |R MEN: 5-4 TO 6-|
00000230: 33 20 28 4E 4F 20 53 48 4F 45 53 29 2E 20 49 44 |3 (NO SHOES). ID|
00000240: 45 41 4C 22 00 72 0A 0D 00 99 20 22 4D 41 53 53 |EAL".r.... "MASS|
00000250: 45 53 20 47 49 56 45 4E 20 41 52 45 20 46 4F 52 |ES GIVEN ARE FOR|
00000260: 20 42 45 44 20 43 4C 4F 54 48 49 4E 47 20 41 4E | BED CLOTHING AN|
00000270: 44 22 00 97 0A 0E 00 99 20 22 41 52 45 20 46 4F |D"...... "ARE FO|
00000280: 52 20 4D 45 4E 20 41 4E 44 20 57 4F 4D 45 4E 20 |R MEN AND WOMEN |
00000290: 4F 46 20 41 47 45 53 00 C6 0A 0F 00 99 20 22 32 |OF AGES...... "2|
000002A0: 35 20 41 4E 44 20 4F 56 45 52 20 28 46 4F 52 20 |5 AND OVER (FOR |
000002B0: 47 49 52 4C 53 20 31 38 2D 32 35 2C 20 53 55 42 |GIRLS 18-25, SUB|
000002C0: 54 52 41 43 54 22 00 EF 0A 10 00 99 20 22 31 20 |TRACT"...... "1 |
000002D0: 50 4F 55 4E 44 20 46 4F 52 20 45 41 43 48 20 59 |POUND FOR EACH Y|
000002E0: 45 41 52 20 55 4E 44 45 52 20 32 35 29 2E 22 00 |EAR UNDER 25).".|
000002F0: 2F 0B 11 00 99 20 3A 20 99 20 3A 20 85 20 22 50 |/.... : . : . "P|
00000300: 52 45 53 53 20 27 41 4E 59 20 4C 45 54 54 45 52 |RESS 'ANY LETTER|
00000310: 2C 20 54 48 45 4E 20 52 45 54 55 52 4E 27 20 54 |, THEN RETURN' T|
00000320: 4F 20 43 4F 4E 54 49 4E 55 45 21 22 3B 41 24 00 |O CONTINUE!";A$.|
00000330: 61 0B 12 00 99 20 22 49 4E 20 41 44 44 49 54 49 |a.... "IN ADDITI|
00000340: 4F 4E 20 54 4F 20 49 44 45 41 4C 20 4D 41 53 53 |ON TO IDEAL MASS|
00000350: 45 53 2C 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ES, THIS PROGRAM|
00000360: 22 00 93 0B 13 00 99 20 22 45 53 54 49 4D 41 54 |"...... "ESTIMAT|
00000370: 45 53 20 4F 42 45 53 49 54 59 2C 20 42 4F 44 59 |ES OBESITY, BODY|
00000380: 20 46 41 54 2C 20 42 4F 44 59 20 53 55 52 46 41 | FAT, BODY SURFA|
00000390: 43 45 22 00 C1 0B 14 00 99 20 22 41 52 45 41 2C |CE"...... "AREA,|
000003A0: 20 41 4E 44 20 54 4F 54 41 4C 20 42 4F 44 59 20 | AND TOTAL BODY |
000003B0: 57 41 54 45 52 2E 20 54 48 45 53 45 20 41 52 45 |WATER. THESE ARE|
000003C0: 22 00 F1 0B 15 00 99 20 22 41 50 50 4C 49 43 41 |"...... "APPLICA|
000003D0: 42 4C 45 20 54 4F 20 54 48 4F 53 45 20 4F 56 45 |BLE TO THOSE OVE|
000003E0: 52 20 54 48 45 20 41 47 45 20 4F 46 20 31 36 2E |R THE AGE OF 16.|
000003F0: 22 00 1A 0C 16 00 99 20 22 47 45 4E 45 52 41 4C |"...... "GENERAL|
00000400: 4C 59 2C 20 54 48 45 20 25 20 54 4F 54 41 4C 20 |LY, THE % TOTAL |
00000410: 42 4F 44 59 20 57 41 54 45 52 00 66 0C 17 00 99 |BODY WATER.f....|
00000420: 20 22 49 53 20 4C 4F 57 45 52 20 49 4E 20 46 45 | "IS LOWER IN FE|
00000430: 4D 41 4C 45 53 20 54 48 41 4E 20 49 4E 20 4D 41 |MALES THAN IN MA|
00000440: 4C 45 53 2E 20 20 46 55 52 54 48 45 52 2C 20 54 |LES. FURTHER, T|
00000450: 48 45 20 25 20 4F 46 20 57 41 54 45 52 20 49 4E |HE % OF WATER IN|
00000460: 20 4C 45 41 4E 22 00 9D 0C 18 00 99 20 22 50 45 | LEAN"...... "PE|
00000470: 52 53 4F 4E 53 20 49 53 20 48 49 47 48 45 52 20 |RSONS IS HIGHER |
00000480: 54 48 41 4E 20 49 4E 20 4F 42 45 53 45 20 50 45 |THAN IN OBESE PE|
00000490: 52 53 4F 4E 53 2E 20 41 42 4F 55 54 22 00 C7 0C |RSONS. ABOUT"...|
000004A0: 19 00 99 20 22 35 35 2D 36 30 25 20 4F 46 20 54 |... "55-60% OF T|
000004B0: 48 45 20 42 4F 44 59 20 4D 41 53 53 20 49 53 20 |HE BODY MASS IS |
000004C0: 57 41 54 45 52 2E 22 00 F6 0C 1A 00 99 20 22 41 |WATER."...... "A|
000004D0: 20 44 45 56 49 41 54 49 4F 4E 20 4F 46 20 4E 4F | DEVIATION OF NO|
000004E0: 54 20 4D 4F 52 45 20 54 48 41 4E 20 31 30 25 20 |T MORE THAN 10% |
000004F0: 41 42 4F 56 45 22 00 21 0D 1B 00 99 20 22 4F 52 |ABOVE".!.... "OR|
00000500: 20 42 45 4C 4F 57 20 54 48 45 20 44 45 53 49 52 | BELOW THE DESIR|
00000510: 41 42 4C 45 20 4D 41 53 53 20 46 4F 52 20 41 4E |ABLE MASS FOR AN|
00000520: 22 00 4F 0D 1C 00 99 20 22 49 4E 44 49 56 49 44 |".O.... "INDIVID|
00000530: 55 41 4C 20 49 53 20 4E 4F 54 20 43 4F 4E 53 49 |UAL IS NOT CONSI|
00000540: 44 45 52 45 44 20 53 49 47 4E 49 46 49 2D 22 00 |DERED SIGNIFI-".|
00000550: 7F 0D 1D 00 99 20 22 43 41 4E 54 2E 20 54 48 45 |..... "CANT. THE|
00000560: 20 54 45 52 4D 20 27 4F 56 45 52 57 45 49 47 48 | TERM 'OVERWEIGH|
00000570: 54 27 20 49 53 20 47 45 4E 45 52 41 4C 2D 22 00 |T' IS GENERAL-".|
00000580: C6 0D 1E 00 99 20 22 4C 59 20 41 50 50 4C 49 45 |..... "LY APPLIE|
00000590: 44 20 54 4F 20 50 45 52 53 4F 4E 53 20 57 48 4F |D TO PERSONS WHO|
000005A0: 20 41 52 45 20 31 30 2D 32 30 25 20 41 42 4F 56 | ARE 10-20% ABOV|
000005B0: 45 20 54 48 45 20 44 45 53 49 52 41 42 4C 45 20 |E THE DESIRABLE |
000005C0: 4D 41 53 53 2E 22 00 13 0E 1F 00 99 22 27 4F 42 |MASS."......"'OB|
000005D0: 45 53 49 54 59 27 20 49 53 20 41 50 50 4C 49 45 |ESITY' IS APPLIE|
000005E0: 44 20 54 4F 20 50 45 52 53 4F 4E 53 20 57 48 4F |D TO PERSONS WHO|
000005F0: 20 41 52 45 20 41 42 4F 55 54 20 32 30 25 20 4F | ARE ABOUT 20% O|
00000600: 52 20 4D 4F 52 45 20 4F 56 45 52 57 45 49 47 48 |R MORE OVERWEIGH|
00000610: 54 2E 22 00 53 0E 20 00 99 20 3A 20 99 20 3A 20 |T.".S. .. : . : |
00000620: 85 20 22 50 52 45 53 53 20 27 41 4E 59 20 4C 45 |. "PRESS 'ANY LE|
00000630: 54 54 45 52 2C 20 54 48 45 4E 20 52 45 54 55 52 |TTER, THEN RETUR|
00000640: 4E 27 20 54 4F 20 43 4F 4E 54 49 4E 55 45 21 22 |N' TO CONTINUE!"|
00000650: 3B 41 24 00 82 0E 21 00 99 20 22 49 4E 20 54 48 |;A$...!.. "IN TH|
00000660: 49 53 20 50 52 4F 47 52 41 4D 2C 20 4F 42 45 53 |IS PROGRAM, OBES|
00000670: 49 54 59 20 49 53 20 44 45 54 45 52 4D 49 4E 45 |ITY IS DETERMINE|
00000680: 44 22 00 B1 0E 22 00 99 20 22 42 59 20 41 20 43 |D"...".. "BY A C|
00000690: 52 49 54 49 43 41 4C 20 4F 42 45 53 49 54 59 20 |RITICAL OBESITY |
000006A0: 49 4E 44 45 58 20 42 41 53 45 44 20 55 50 4F 4E |INDEX BASED UPON|
000006B0: 22 00 E0 0E 23 00 99 20 22 27 51 55 45 54 45 4C |"...#.. "'QUETEL|
000006C0: 45 54 27 53 20 49 4E 44 45 58 27 20 28 51 49 29 |ET'S INDEX' (QI)|
000006D0: 2E 20 54 48 49 53 20 43 52 49 54 49 43 41 4C 22 |. THIS CRITICAL"|
000006E0: 00 0B 0F 24 00 99 20 22 49 4E 44 45 58 20 49 53 |...$.. "INDEX IS|
000006F0: 20 52 45 41 43 48 45 44 20 57 48 45 4E 20 54 48 | REACHED WHEN TH|
00000700: 45 20 50 45 52 53 4F 4E 27 53 22 00 37 0F 25 00 |E PERSON'S".7.%.|
00000710: 99 20 22 4D 41 53 53 20 49 53 20 41 42 4F 55 54 |. "MASS IS ABOUT|
00000720: 20 31 38 25 20 41 42 4F 56 45 20 54 48 45 20 4D | 18% ABOVE THE M|
00000730: 41 58 49 4D 55 4D 22 00 7F 0F 26 00 99 20 22 49 |AXIMUM"...&.. "I|
00000740: 44 45 41 4C 20 4D 41 53 53 2E 20 20 51 49 20 49 |DEAL MASS. QI I|
00000750: 53 20 41 4C 53 4F 20 55 53 45 44 20 54 4F 20 45 |S ALSO USED TO E|
00000760: 53 54 49 4D 41 54 45 20 42 4F 44 59 20 46 41 54 |STIMATE BODY FAT|
00000770: 20 28 42 46 29 2E 20 20 54 48 45 20 42 46 22 00 | (BF). THE BF".|
00000780: B6 0F 27 00 99 22 56 49 41 20 51 49 20 49 53 20 |..'.."VIA QI IS |
00000790: 49 4E 20 47 4F 4F 44 20 41 47 52 45 45 4D 45 4E |IN GOOD AGREEMEN|
000007A0: 54 20 57 49 54 48 20 54 48 45 20 56 41 4C 55 45 |T WITH THE VALUE|
000007B0: 20 46 52 4F 4D 22 00 FA 0F 28 00 99 20 22 54 4F | FROM"...(.. "TO|
000007C0: 54 41 4C 20 42 4F 44 59 20 57 41 54 45 52 20 55 |TAL BODY WATER U|
000007D0: 53 49 4E 47 3A 20 25 42 46 3D 31 30 30 2D 28 31 |SING: %BF=100-(1|
000007E0: 33 37 2A 4D 41 53 53 20 57 41 54 45 52 2F 42 4F |37*MASS WATER/BO|
000007F0: 44 59 20 4D 41 53 53 29 2E 22 00 29 10 29 00 99 |DY MASS).".).)..|
00000800: 20 3A 20 99 3A 99 22 4D 4F 52 45 20 52 45 46 45 | : .:."MORE REFE|
00000810: 52 45 4E 43 45 53 3A 20 20 48 55 4D 45 20 26 20 |RENCES: HUME & |
00000820: 57 45 59 45 52 53 2C 20 22 00 5F 10 2A 00 99 22 |WEYERS, "._.*.."|
00000830: 4A 2E 43 4C 49 4E 2E 20 50 41 54 48 2E 2C 56 4F |J.CLIN. PATH.,VO|
00000840: 4C 2E 32 34 2C 50 50 2E 32 33 34 2D 32 33 38 20 |L.24,PP.234-238 |
00000850: 28 31 39 37 31 29 3B 20 4A 41 4D 45 53 2C 22 00 |(1971); JAMES,".|
00000860: 89 10 2B 00 99 20 22 28 41 20 44 48 53 53 2F 4D |..+.. "(A DHSS/M|
00000870: 52 43 20 52 45 50 4F 52 54 29 20 48 45 52 20 4D |RC REPORT) HER M|
00000880: 41 4A 45 53 54 59 27 53 22 00 C7 10 2C 00 99 20 |AJESTY'S"...,.. |
00000890: 22 53 54 41 54 49 4F 4E 45 52 59 20 4F 46 46 49 |"STATIONERY OFFI|
000008A0: 43 45 2C 20 4C 4F 4E 44 4F 4E 2C 20 31 39 37 36 |CE, LONDON, 1976|
000008B0: 20 28 49 53 42 4E 20 30 20 31 31 20 34 35 30 30 | (ISBN 0 11 4500|
000008C0: 33 34 20 37 29 2E 22 00 FF 10 2D 00 99 20 22 52 |34 7)."...-.. "R|
000008D0: 45 4D 41 52 4B 53 20 41 52 45 20 54 4F 20 42 45 |EMARKS ARE TO BE|
000008E0: 20 46 4F 55 4E 44 20 49 4E 20 54 48 45 20 50 52 | FOUND IN THE PR|
000008F0: 4F 47 52 41 4D 20 4C 49 53 54 49 4E 47 2E 22 00 |OGRAM LISTING.".|
00000900: 3F 11 2E 00 99 20 3A 20 99 20 3A 20 85 20 22 50 |?.... : . : . "P|
00000910: 52 45 53 53 20 27 41 4E 59 20 4C 45 54 54 45 52 |RESS 'ANY LETTER|
00000920: 2C 20 54 48 45 4E 20 52 45 54 55 52 4E 27 20 54 |, THEN RETURN' T|
00000930: 4F 20 43 4F 4E 54 49 4E 55 45 21 22 3B 41 24 00 |O CONTINUE!";A$.|
00000940: 49 11 2F 00 99 20 3A 20 99 00 91 11 30 00 86 20 |I./.. : ....0.. |
00000950: 57 24 28 33 30 2C 35 29 3A 8F 20 48 45 49 47 48 |W$(30,5):. HEIGH|
00000960: 54 20 26 20 4D 41 53 53 45 53 20 46 4F 52 20 53 |T & MASSES FOR S|
00000970: 4D 41 4C 4C 2C 20 4D 45 44 49 55 4D 2C 20 26 20 |MALL, MEDIUM, & |
00000980: 4C 41 52 47 45 20 42 4F 44 59 20 46 52 41 4D 45 |LARGE BODY FRAME|
00000990: 53 00 A2 11 31 00 81 20 4A 20 B2 20 31 20 A4 20 |S...1.. J . 1 . |
000009A0: 33 30 00 B2 11 32 00 81 20 4B 20 B2 20 31 20 A4 |30...2.. K . 1 .|
000009B0: 20 34 00 C0 11 33 00 87 20 57 24 28 4A 2C 4B 29 | 4...3.. W$(J,K)|
000009C0: 00 E9 11 3C 00 8B 20 57 24 28 4A 2C 31 29 20 B2 |...<.. W$(J,1) .|
000009D0: 20 22 5A 45 52 4F 22 20 A7 20 4A 20 B2 20 4A 20 | "ZERO" . J . J |
000009E0: AB 20 31 3A 20 89 20 38 30 00 F3 11 46 00 82 20 |. 1: . 80...F.. |
000009F0: 4B 2C 4A 00 1F 12 50 00 85 20 22 4C 49 53 54 20 |K,J...P.. "LIST |
00000A00: 59 4F 55 52 20 53 45 58 20 28 46 45 4D 41 4C 45 |YOUR SEX (FEMALE|
00000A10: 3D 31 3B 20 4D 41 4C 45 3D 32 29 20 22 3B 53 00 |=1; MALE=2) ";S.|
00000A20: 67 12 51 00 99 20 22 57 48 41 54 20 49 53 20 59 |g.Q.. "WHAT IS Y|
00000A30: 4F 55 52 20 48 45 49 47 48 54 20 54 4F 20 4E 45 |OUR HEIGHT TO NE|
00000A40: 41 52 45 53 54 20 49 4E 43 48 20 28 45 2E 47 2E |AREST INCH (E.G.|
00000A50: 20 35 2D 31 30 29 20 28 4E 4F 20 53 48 4F 45 53 | 5-10) (NO SHOES|
00000A60: 29 20 22 3A 85 48 24 00 AE 12 52 00 99 20 22 57 |) ":.H$...R.. "W|
00000A70: 48 41 54 20 49 53 20 59 4F 55 52 20 42 4F 44 59 |HAT IS YOUR BODY|
00000A80: 20 46 52 41 4D 45 20 53 49 5A 45 3F 20 28 53 4D | FRAME SIZE? (SM|
00000A90: 41 4C 4C 3D 31 3B 20 4D 45 44 49 55 4D 3D 32 3B |ALL=1; MEDIUM=2;|
00000AA0: 20 4C 41 52 47 45 3D 33 29 20 22 3A 85 46 00 EC | LARGE=3) ":.F..|
00000AB0: 12 53 00 99 20 22 57 48 41 54 20 49 53 20 59 4F |.S.. "WHAT IS YO|
00000AC0: 55 52 20 4D 41 53 53 20 28 49 4E 20 50 4F 55 4E |UR MASS (IN POUN|
00000AD0: 44 53 20 57 49 54 48 20 42 45 44 20 43 4C 4F 54 |DS WITH BED CLOT|
00000AE0: 48 49 4E 47 29 3F 20 22 3A 85 57 54 00 F8 12 55 |HING)? ":.WT...U|
00000AF0: 00 50 57 20 B2 20 57 54 00 09 13 5A 00 91 20 53 |.PW . WT...Z.. S|
00000B00: 20 89 20 39 31 2C 31 39 35 00 3C 13 5B 00 99 20 | . 91,195.<.[.. |
00000B10: 3A 20 99 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |: . "-----------|
00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 6C 13 5C |-----------".l.\|
00000B40: 00 54 56 20 B2 20 20 C5 20 28 20 CA 20 28 48 24 |.TV . . ( . (H$|
00000B50: 2C 31 2C 31 29 29 20 AC 20 31 32 20 AA 20 20 C5 |,1,1)) . 12 . .|
00000B60: 20 28 20 CA 20 28 48 24 2C 33 29 29 00 AE 13 5D | ( . (H$,3))...]|
00000B70: 00 8B 20 46 B3 B2 31 20 AF 20 54 56 B3 36 30 20 |.. F..1 . TV.60 |
00000B80: A7 20 99 3A 99 22 42 45 43 41 55 53 45 20 59 4F |. .:."BECAUSE YO|
00000B90: 55 52 20 46 52 41 4D 45 20 49 53 20 27 53 4D 41 |UR FRAME IS 'SMA|
00000BA0: 4C 4C 27 20 41 4E 44 20 59 4F 55 52 22 3B 00 F1 |LL' AND YOUR";..|
00000BB0: 13 5E 00 8B 20 46 B3 B2 31 20 AF 20 54 56 B3 36 |.^.. F..1 . TV.6|
00000BC0: 30 20 A7 20 99 22 48 45 49 47 48 54 20 49 53 20 |0 . ."HEIGHT IS |
00000BD0: 4C 45 53 53 20 54 48 41 4E 20 35 2D 30 2C 20 54 |LESS THAN 5-0, T|
00000BE0: 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 4E 22 |HIS PROGRAM CAN"|
00000BF0: 3B 00 29 14 5F 00 8B 20 46 B3 B2 31 20 AF 20 54 |;.)._.. F..1 . T|
00000C00: 56 B3 36 30 20 A7 20 99 22 4F 46 46 45 52 20 59 |V.60 . ."OFFER Y|
00000C10: 4F 55 20 4E 4F 20 49 4E 46 4F 52 4D 41 54 49 4F |OU NO INFORMATIO|
00000C20: 4E 21 22 3A 89 20 31 38 30 00 6C 14 60 00 8B 20 |N!":. 180.l.`.. |
00000C30: 46 B3 B2 31 20 AF 20 54 56 B1 37 30 20 A7 20 99 |F..1 . TV.70 . .|
00000C40: 3A 20 99 22 42 45 43 41 55 53 45 20 59 4F 55 52 |: ."BECAUSE YOUR|
00000C50: 20 46 52 41 4D 45 20 49 53 20 27 53 4D 41 4C 4C | FRAME IS 'SMALL|
00000C60: 27 20 41 4E 44 20 59 4F 55 52 22 3B 00 B0 14 61 |' AND YOUR";...a|
00000C70: 00 8B 20 46 B3 B2 31 20 AF 20 54 56 B1 37 30 20 |.. F..1 . TV.70 |
00000C80: A7 20 99 22 48 45 49 47 48 54 20 49 53 20 4D 4F |. ."HEIGHT IS MO|
00000C90: 52 45 20 54 48 41 4E 20 35 2D 31 30 2C 20 54 48 |RE THAN 5-10, TH|
00000CA0: 49 53 20 50 52 4F 47 52 41 4D 20 43 41 4E 22 3B |IS PROGRAM CAN";|
00000CB0: 00 E9 14 62 00 8B 20 46 B3 B2 31 20 AF 20 54 56 |...b.. F..1 . TV|
00000CC0: B1 37 30 20 A7 20 99 22 4F 46 46 45 52 20 59 4F |.70 . ."OFFER YO|
00000CD0: 55 20 4E 4F 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |U NO INFORMATION|
00000CE0: 21 22 3A 20 89 20 31 38 30 00 2B 15 63 00 8B 20 |!": . 180.+.c.. |
00000CF0: 54 56 B3 36 30 20 B0 20 54 56 B1 37 30 20 A7 20 |TV.60 . TV.70 . |
00000D00: 99 3A 20 99 20 22 42 45 43 41 55 53 45 20 4F 46 |.: . "BECAUSE OF|
00000D10: 20 48 45 49 47 48 54 20 4C 49 4D 49 54 41 54 49 | HEIGHT LIMITATI|
00000D20: 4F 4E 53 2C 20 54 48 49 53 22 3B 00 6D 15 64 00 |ONS, THIS";.m.d.|
00000D30: 8B 54 56 B3 36 30 B0 54 56 B1 37 30 A7 99 22 50 |.TV.60.TV.70.."P|
00000D40: 52 4F 47 52 41 4D 20 43 41 4E 4E 4F 54 20 47 49 |ROGRAM CANNOT GI|
00000D50: 56 45 20 59 4F 55 20 59 4F 55 52 20 49 44 45 41 |VE YOU YOUR IDEA|
00000D60: 4C 20 4D 41 53 53 21 22 3A 89 31 34 30 00 9B 15 |L MASS!":.140...|
00000D70: 65 00 81 20 57 20 B2 20 31 20 A4 20 31 31 3A 20 |e.. W . 1 . 11: |
00000D80: 8F 20 20 54 48 49 53 20 49 53 20 46 4F 52 20 46 |. THIS IS FOR F|
00000D90: 45 4D 41 4C 45 53 20 4F 4E 4C 59 00 A5 15 6E 00 |EMALES ONLY...n.|
00000DA0: 4C 20 B2 20 31 00 E2 15 78 00 8B 20 57 24 28 57 |L . 1...x.. W$(W|
00000DB0: 2C 4C 29 B2 48 24 20 A7 20 99 3A 99 20 22 59 4F |,L).H$ . .:. "YO|
00000DC0: 55 52 20 49 44 45 41 4C 20 4D 41 53 53 3D 22 3B |UR IDEAL MASS=";|
00000DD0: 57 24 28 57 2C 46 20 AA 20 31 29 3B 3A 89 20 31 |W$(W,F . 1);:. 1|
00000DE0: 33 31 00 E8 15 82 00 82 00 01 16 83 00 53 53 B2 |31...........SS.|
00000DF0: C5 28 CA 28 57 24 28 57 2C 46 AA 31 29 2C 35 29 |.(.(W$(W,F.1),5)|
00000E00: 29 00 3B 16 84 00 8B 20 53 53 B3 50 57 20 A7 20 |).;.... SS.PW . |
00000E10: 99 22 2D 2D 2D 59 4F 55 20 41 52 45 22 3B B5 28 |."---YOU ARE";.(|
00000E20: 28 28 50 57 AB 53 53 29 AC 31 30 30 AD 53 53 29 |((PW.SS).100.SS)|
00000E30: AC 31 30 AA 2E 35 29 AD 31 30 3B 00 6E 16 85 00 |.10..5).10;.n...|
00000E40: 8B 20 53 53 B3 50 57 20 A7 20 99 22 25 20 41 42 |. SS.PW . ."% AB|
00000E50: 4F 56 45 20 59 4F 55 52 20 4D 41 58 49 4D 55 4D |OVE YOUR MAXIMUM|
00000E60: 20 49 44 45 41 4C 20 4D 41 53 53 2E 22 3B 00 A2 | IDEAL MASS.";..|
00000E70: 16 86 00 47 47 20 B2 20 20 B5 20 28 28 28 50 57 |...GG . . (((PW|
00000E80: 20 AB 20 53 53 29 20 AC 20 31 30 30 20 AD 20 53 | . SS) . 100 . S|
00000E90: 53 29 20 AC 20 31 30 20 AA 20 2E 35 29 20 AD 20 |S) . 10 . .5) . |
00000EA0: 31 30 00 E2 16 87 00 8B 20 47 47 20 B1 20 31 30 |10...... GG . 10|
00000EB0: 20 AF 20 47 47 20 B3 20 31 38 20 A7 20 20 99 20 | . GG . 18 . . |
00000EC0: 22 28 59 4F 55 20 41 52 45 20 43 4F 4E 53 49 44 |"(YOU ARE CONSID|
00000ED0: 45 52 45 44 20 4F 56 45 52 57 45 49 47 48 54 29 |ERED OVERWEIGHT)|
00000EE0: 21 22 00 E8 16 88 00 99 00 2F 17 89 00 8B 20 46 |!"......./.... F|
00000EF0: B3 B2 31 20 A7 20 99 22 42 45 43 41 55 53 45 20 |..1 . ."BECAUSE |
00000F00: 59 4F 55 52 20 46 52 41 4D 45 20 49 53 20 27 53 |YOUR FRAME IS 'S|
00000F10: 4D 41 4C 4C 27 2C 20 41 44 44 49 54 49 4F 4E 41 |MALL', ADDITIONA|
00000F20: 4C 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3B 00 |L INFORMATION";.|
00000F30: 71 17 8A 00 8B 20 46 B3 B2 31 20 A7 20 99 22 4F |q.... F..1 . ."O|
00000F40: 4E 20 42 4F 44 59 20 57 41 54 45 52 2C 20 45 54 |N BODY WATER, ET|
00000F50: 43 2E 20 44 4F 45 53 20 4E 4F 54 20 41 50 50 4C |C. DOES NOT APPL|
00000F60: 59 20 54 4F 20 59 4F 55 21 22 3A 20 89 20 31 38 |Y TO YOU!": . 18|
00000F70: 30 00 BB 17 8B 00 8F 20 49 4E 20 31 34 30 20 26 |0...... IN 140 &|
00000F80: 20 32 34 30 2C 20 48 20 49 53 20 48 45 49 47 48 | 240, H IS HEIGH|
00000F90: 54 20 49 4E 20 4D 20 26 20 57 54 20 4D 41 53 53 |T IN M & WT MASS|
00000FA0: 20 49 4E 20 4B 47 20 4F 46 20 46 45 4D 41 4C 45 | IN KG OF FEMALE|
00000FB0: 53 20 41 4E 44 20 4D 41 4C 45 53 00 EA 17 8C 00 |S AND MALES.....|
00000FC0: 48 20 B2 20 20 C5 20 28 20 CA 20 28 48 24 2C 31 |H . . ( . (H$,1|
00000FD0: 2C 31 29 29 20 AC 20 31 32 20 AA 20 20 C5 20 28 |,1)) . 12 . . (|
00000FE0: 20 CA 20 28 48 24 2C 33 29 29 00 0D 18 8D 00 48 | . (H$,3)).....H|
00000FF0: 20 B2 20 48 20 AC 20 2E 30 32 35 34 3A 57 54 20 | . H . .0254:WT |
00001000: B2 20 57 54 20 AC 20 2E 34 35 33 35 39 00 59 18 |. WT . .45359.Y.|
00001010: 8F 00 8F 20 49 4E 20 31 34 35 20 26 20 32 34 35 |... IN 145 & 245|
00001020: 2C 51 20 49 53 20 51 55 45 54 45 4C 45 54 27 53 |,Q IS QUETELET'S|
00001030: 20 49 4E 44 45 58 20 46 4F 52 20 46 45 4D 41 4C | INDEX FOR FEMAL|
00001040: 45 53 20 41 4E 44 20 4D 41 4C 45 53 20 52 45 53 |ES AND MALES RES|
00001050: 50 45 43 54 49 56 45 4C 59 00 98 18 90 00 8F 20 |PECTIVELY...... |
00001060: 55 53 45 44 20 54 4F 20 44 45 54 45 52 4D 49 4E |USED TO DETERMIN|
00001070: 45 20 42 4F 44 59 20 46 41 54 20 41 4E 44 20 57 |E BODY FAT AND W|
00001080: 48 45 54 48 45 52 20 41 20 50 45 52 53 4F 4E 20 |HETHER A PERSON |
00001090: 49 53 20 4F 42 45 53 45 00 AE 18 91 00 51 49 20 |IS OBESE.....QI |
000010A0: B2 20 57 54 20 AD 20 28 48 20 AC 20 48 29 00 F7 |. WT . (H . H)..|
000010B0: 18 94 00 8F 20 4C 49 4E 45 53 20 31 35 30 2D 31 |.... LINES 150-1|
000010C0: 36 30 20 32 35 30 2D 32 36 30 20 46 49 4E 44 20 |60 250-260 FIND |
000010D0: 49 46 20 4F 42 45 53 49 54 59 20 45 58 49 53 54 |IF OBESITY EXIST|
000010E0: 53 20 46 4F 52 20 46 45 4D 41 4C 45 53 20 41 4E |S FOR FEMALES AN|
000010F0: 44 20 4D 41 4C 45 53 00 3D 19 96 00 8B 20 46 B2 |D MALES.=.... F.|
00001100: 32 AF 20 51 49 B1 32 37 2E 30 20 A7 20 99 22 59 |2. QI.27.0 . ."Y|
00001110: 4F 55 20 41 52 45 20 41 4C 53 4F 20 4F 56 45 52 |OU ARE ALSO OVER|
00001120: 20 54 48 45 20 43 52 49 54 49 43 41 4C 20 4F 42 | THE CRITICAL OB|
00001130: 45 53 49 54 59 20 49 4E 44 45 58 22 3B 00 6E 19 |ESITY INDEX";.n.|
00001140: 97 00 8B 20 46 B2 32 AF 20 51 49 B1 32 37 2E 30 |... F.2. QI.27.0|
00001150: 20 A7 20 99 22 2D 2D 2D 53 54 41 52 54 20 44 49 | . ."---START DI|
00001160: 45 54 49 4E 47 21 22 3A 20 89 20 31 36 35 00 B3 |ETING!": . 165..|
00001170: 19 9B 00 8B 20 46 B2 33 20 AF 20 51 49 B1 32 39 |.... F.3 . QI.29|
00001180: 2E 35 A7 99 22 59 4F 55 20 41 52 45 20 41 4C 53 |.5.."YOU ARE ALS|
00001190: 4F 20 4F 56 45 52 20 54 48 45 20 43 52 49 54 49 |O OVER THE CRITI|
000011A0: 43 41 4C 20 4F 42 45 53 49 54 59 20 49 4E 44 45 |CAL OBESITY INDE|
000011B0: 58 22 3B 00 E4 19 9C 00 8B 20 46 B2 33 20 AF 20 |X";...... F.3 . |
000011C0: 51 49 B1 32 39 2E 35 A7 20 99 22 2D 2D 2D 53 54 |QI.29.5. ."---ST|
000011D0: 41 52 54 20 44 49 45 54 49 4E 47 21 22 3A 20 89 |ART DIETING!": .|
000011E0: 20 31 36 35 00 2A 1A A0 00 99 3A 20 99 22 59 4F | 165.*....: ."YO|
000011F0: 55 20 41 52 45 20 55 4E 44 45 52 20 54 48 45 20 |U ARE UNDER THE |
00001200: 43 52 49 54 49 43 41 4C 20 4F 42 45 53 49 54 59 |CRITICAL OBESITY|
00001210: 20 49 4E 44 45 58 2D 2D 2D 43 4F 4E 47 52 41 54 | INDEX---CONGRAT|
00001220: 55 4C 41 54 49 4F 4E 53 21 22 00 73 1A A2 00 8F |ULATIONS!".s....|
00001230: 20 4C 49 4E 45 53 20 31 36 35 20 41 4E 44 20 32 | LINES 165 AND 2|
00001240: 36 35 20 41 4C 4C 4F 57 20 44 45 54 45 52 4D 49 |65 ALLOW DETERMI|
00001250: 4E 41 54 49 4F 4E 20 4F 46 20 42 4F 44 59 20 46 |NATION OF BODY F|
00001260: 41 54 20 49 4E 20 57 4F 4D 45 4E 20 41 4E 44 20 |AT IN WOMEN AND |
00001270: 4D 45 4E 00 BC 1A A3 00 8F 23 27 53 20 31 37 30 |MEN......#'S 170|
00001280: 20 26 20 32 37 30 20 46 49 4E 44 20 42 4F 44 59 | & 270 FIND BODY|
00001290: 20 53 55 52 46 41 43 45 20 41 52 45 41 53 20 46 | SURFACE AREAS F|
000012A0: 4F 52 20 57 4F 4D 45 4E 20 26 20 4D 45 4E 2C 20 |OR WOMEN & MEN, |
000012B0: 52 45 53 50 45 43 54 49 56 45 4C 59 00 F1 1A A4 |RESPECTIVELY....|
000012C0: 00 8F 23 27 53 20 31 37 35 20 26 20 32 37 35 20 |..#'S 175 & 275 |
000012D0: 41 4C 4C 4F 57 20 44 45 54 45 52 4D 49 4E 41 54 |ALLOW DETERMINAT|
000012E0: 49 4F 4E 20 4F 46 20 42 4F 44 59 20 57 41 54 45 |ION OF BODY WATE|
000012F0: 52 00 33 1B A5 00 57 46 B2 31 2E 34 38 AC 51 49 |R.3...WF.1.48.QI|
00001300: AB 37 3A 20 99 3A 20 99 20 22 59 4F 55 52 20 42 |.7: .: . "YOUR B|
00001310: 4F 44 59 20 46 41 54 20 3D 22 3B B5 20 28 57 46 |ODY FAT =";. (WF|
00001320: 20 AC 20 31 30 20 AA 20 2E 35 29 20 AD 20 31 30 | . 10 . .5) . 10|
00001330: 22 25 22 00 5B 1B AA 00 42 53 B2 28 2E 30 30 37 |"%".[...BS.(.007|
00001340: 31 38 35 AC 57 54 AE 2E 34 32 35 AC 28 48 AC 31 |185.WT..425.(H.1|
00001350: 30 30 29 AE 2E 37 32 35 29 3A 99 00 94 1B AB 00 |00)..725):......|
00001360: 99 22 59 4F 55 52 20 42 4F 44 59 20 53 55 52 46 |."YOUR BODY SURF|
00001370: 41 43 45 20 41 52 45 41 20 49 53 20 41 42 4F 55 |ACE AREA IS ABOU|
00001380: 54 22 3B B5 28 42 53 AC 31 30 30 AA 2E 35 29 AD |T";.(BS.100..5).|
00001390: 31 30 30 3B 00 AA 1B AC 00 99 22 20 53 51 55 41 |100;......" SQUA|
000013A0: 52 45 20 4D 45 54 52 45 53 22 00 DA 1B AF 00 57 |RE METRES".....W|
000013B0: 57 20 B2 20 2E 31 38 33 38 30 39 20 AC 20 57 54 |W . .183809 . WT|
000013C0: 20 AA 20 33 34 2E 34 35 34 37 20 AC 20 48 20 AB | . 34.4547 . H .|
000013D0: 20 33 35 2E 32 37 30 31 32 31 00 1C 1C B1 00 99 | 35.270121......|
000013E0: 3A 99 22 59 4F 55 52 20 54 4F 54 41 4C 20 42 4F |:."YOUR TOTAL BO|
000013F0: 44 59 20 57 41 54 45 52 20 49 53 20 41 42 4F 55 |DY WATER IS ABOU|
00001400: 54 22 3B B5 28 57 57 AC 31 30 AA 2E 35 29 AD 31 |T";.(WW.10..5).1|
00001410: 30 3B 22 20 4C 49 54 52 45 53 22 3B 00 5B 1C B2 |0;" LITRES";.[..|
00001420: 00 99 22 2D 2D 2D 4F 52 22 3B B5 20 28 28 57 57 |.."---OR";. ((WW|
00001430: 20 AC 20 31 45 30 32 20 AD 20 57 54 29 20 AC 20 | . 1E02 . WT) . |
00001440: 31 30 20 AA 20 2E 35 29 20 AD 20 31 30 22 25 20 |10 . .5) . 10"% |
00001450: 42 4F 44 59 20 4D 41 53 53 29 22 00 91 1C B4 00 |BODY MASS)".....|
00001460: 99 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. "-------------|
00001470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001480: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 20 89 20 31 31 30 |--------": . 110|
00001490: 30 00 C4 1C C3 00 99 3A 99 22 2D 2D 2D 2D 2D 2D |0......:."------|
000014A0: 2D 2D 2D 2D 2D 22 3A 54 56 B2 C5 28 CA 28 48 24 |-----":TV..(.(H$|
000014B0: 2C 31 2C 31 29 29 AC 31 32 AA C5 28 CA 28 48 24 |,1,1)).12..(.(H$|
000014C0: 2C 33 29 29 00 05 1D C4 00 8B 20 46 B3 B2 31 AF |,3))...... F..1.|
000014D0: 54 56 B3 36 34 A7 99 3A 99 22 42 45 43 41 55 53 |TV.64..:."BECAUS|
000014E0: 45 20 59 4F 55 52 20 46 52 41 4D 45 20 49 53 20 |E YOUR FRAME IS |
000014F0: 53 4D 41 4C 4C 20 26 20 59 4F 55 52 20 48 45 49 |SMALL & YOUR HEI|
00001500: 47 48 54 22 3B 00 47 1D C5 00 8B 46 B3 B2 31 AF |GHT";.G....F..1.|
00001510: 54 56 B3 36 34 A7 99 22 4C 45 53 53 20 54 48 41 |TV.64.."LESS THA|
00001520: 4E 20 35 2D 34 2C 20 49 20 43 41 4E 27 54 20 54 |N 5-4, I CAN'T T|
00001530: 45 4C 4C 20 59 4F 55 20 41 4E 59 54 48 49 4E 47 |ELL YOU ANYTHING|
00001540: 21 22 3A 89 32 38 30 00 87 1D C6 00 8B 20 46 B3 |!":.280...... F.|
00001550: B2 31 AF 54 56 B1 39 35 A7 99 22 53 49 4E 43 45 |.1.TV.95.."SINCE|
00001560: 20 59 4F 55 52 20 46 52 41 4D 45 20 49 53 20 53 | YOUR FRAME IS S|
00001570: 4D 41 4C 4C 20 26 20 59 4F 55 52 20 48 45 49 47 |MALL & YOUR HEIG|
00001580: 48 54 20 49 53 22 3B 00 C9 1D C7 00 8B 46 B3 B2 |HT IS";......F..|
00001590: 31 AF 54 56 B1 39 35 A7 99 22 4D 4F 52 45 20 54 |1.TV.95.."MORE T|
000015A0: 48 41 4E 20 36 2D 33 2C 20 49 20 43 41 4E 27 54 |HAN 6-3, I CAN'T|
000015B0: 20 54 45 4C 4C 20 59 4F 55 20 41 4E 59 54 48 49 | TELL YOU ANYTHI|
000015C0: 4E 47 21 22 3A 89 32 38 30 00 0A 1E C8 00 8B 20 |NG!":.280...... |
000015D0: 54 56 B3 36 34 B0 54 56 B1 37 35 A7 99 3A 99 22 |TV.64.TV.75..:."|
000015E0: 42 45 43 41 55 53 45 20 4F 46 20 48 45 49 47 48 |BECAUSE OF HEIGH|
000015F0: 54 20 4C 49 4D 49 54 53 2C 20 49 20 43 41 4E 4E |T LIMITS, I CANN|
00001600: 4F 54 20 47 49 56 45 20 22 3B 00 3B 1E C9 00 8B |OT GIVE ";.;....|
00001610: 20 54 56 B3 36 34 B0 54 56 B1 37 35 A7 20 99 22 | TV.64.TV.75. ."|
00001620: 59 4F 55 20 59 4F 55 52 20 49 44 45 41 4C 20 4D |YOU YOUR IDEAL M|
00001630: 41 53 53 21 22 3A 89 20 32 34 30 00 68 1E CA 00 |ASS!":. 240.h...|
00001640: 81 20 57 20 B2 20 31 32 20 A4 20 32 33 3A 20 8F |. W . 12 . 23: .|
00001650: 20 20 54 48 49 53 20 49 53 20 46 4F 52 20 4D 41 | THIS IS FOR MA|
00001660: 4C 45 53 20 4F 4E 4C 59 00 72 1E D2 00 4C 20 B2 |LES ONLY.r...L .|
00001670: 20 31 00 AE 1E DC 00 8B 20 57 24 28 57 2C 4C 29 | 1...... W$(W,L)|
00001680: B2 48 24 20 A7 20 99 3A 99 22 59 4F 55 52 20 49 |.H$ . .:."YOUR I|
00001690: 44 45 41 4C 20 4D 41 53 53 20 3D 20 22 3B 57 24 |DEAL MASS = ";W$|
000016A0: 28 57 2C 46 AA 31 29 3B 3A 89 20 32 33 31 00 B4 |(W,F.1);:. 231..|
000016B0: 1E E6 00 82 00 CD 1E E7 00 53 53 B2 C5 28 CA 28 |.........SS..(.(|
000016C0: 57 24 28 57 2C 46 AA 31 29 2C 35 29 29 00 06 1F |W$(W,F.1),5))...|
000016D0: E8 00 8B 20 53 53 B3 50 57 20 A7 99 22 2D 2D 2D |... SS.PW .."---|
000016E0: 59 4F 55 20 41 52 45 22 3B B5 28 28 28 50 57 AB |YOU ARE";.(((PW.|
000016F0: 53 53 29 AC 31 30 30 AD 53 53 29 AC 31 30 AA 2E |SS).100.SS).10..|
00001700: 35 29 AD 31 30 3B 00 38 1F E9 00 8B 20 53 53 B3 |5).10;.8.... SS.|
00001710: 50 57 20 A7 99 22 25 20 41 42 4F 56 45 20 59 4F |PW .."% ABOVE YO|
00001720: 55 52 20 4D 41 58 49 4D 55 4D 20 49 44 45 41 4C |UR MAXIMUM IDEAL|
00001730: 20 4D 41 53 53 20 22 3B 00 5C 1F EA 00 47 47 B2 | MASS ";.\...GG.|
00001740: B5 28 28 28 50 57 AB 53 53 29 AC 31 30 30 AD 53 |.(((PW.SS).100.S|
00001750: 53 29 AC 31 30 AA 2E 35 29 AD 31 30 00 96 1F EB |S).10..5).10....|
00001760: 00 8B 20 47 47 B1 31 30 20 AF 20 47 47 B3 31 38 |.. GG.10 . GG.18|
00001770: 20 A7 20 99 22 28 59 4F 55 20 41 52 45 20 43 4F | . ."(YOU ARE CO|
00001780: 4E 53 49 44 45 52 45 44 20 4F 56 45 52 57 45 49 |NSIDERED OVERWEI|
00001790: 47 48 54 29 21 22 00 9C 1F EC 00 99 00 D8 1F ED |GHT)!"..........|
000017A0: 00 8B 20 46 B3 B2 31 20 A7 20 99 3A 99 22 42 45 |.. F..1 . .:."BE|
000017B0: 43 41 55 53 45 20 59 4F 55 52 20 46 52 41 4D 45 |CAUSE YOUR FRAME|
000017C0: 20 49 53 20 53 4D 41 4C 4C 2C 20 41 44 44 49 54 | IS SMALL, ADDIT|
000017D0: 49 4F 4E 41 4C 20 22 3B 00 1C 20 EE 00 8B 20 46 |IONAL ";.. ... F|
000017E0: B3 B2 31 A7 99 22 44 45 54 41 49 4C 53 20 4F 4E |..1.."DETAILS ON|
000017F0: 20 42 4F 44 59 20 57 41 54 45 52 2C 20 45 54 43 | BODY WATER, ETC|
00001800: 20 44 4F 20 4E 4F 54 20 41 50 50 4C 59 20 54 4F | DO NOT APPLY TO|
00001810: 20 59 4F 55 21 22 3A 89 20 32 38 30 00 5D 20 F0 | YOU!":. 280.] .|
00001820: 00 48 B2 C5 28 CA 28 48 24 2C 31 2C 31 29 29 AC |.H..(.(H$,1,1)).|
00001830: 31 32 AA C5 28 CA 20 28 48 24 2C 33 29 29 3A 48 |12..(. (H$,3)):H|
00001840: 20 B2 20 48 20 AC 20 2E 30 32 35 34 3A 57 54 20 | . H . .0254:WT |
00001850: B2 20 57 54 20 AC 20 2E 34 35 33 35 39 00 73 20 |. WT . .45359.s |
00001860: F5 00 51 49 20 B2 20 57 54 20 AD 20 28 48 20 AC |..QI . WT . (H .|
00001870: 20 48 29 00 AF 20 FA 00 8B 20 46 B2 32 20 AF 20 | H).. ... F.2 . |
00001880: 51 49 B1 32 37 2E 35 20 A7 20 99 3A 99 22 59 4F |QI.27.5 . .:."YO|
00001890: 55 20 41 52 45 20 41 4C 53 4F 20 4F 56 45 52 20 |U ARE ALSO OVER |
000018A0: 54 48 45 20 43 52 49 54 49 43 41 4C 20 22 3B 00 |THE CRITICAL ";.|
000018B0: EE 20 FB 00 8B 20 46 B2 32 20 AF 20 51 49 B1 32 |. ... F.2 . QI.2|
000018C0: 37 2E 35 20 A7 20 99 22 4F 42 45 53 49 54 59 20 |7.5 . ."OBESITY |
000018D0: 49 4E 44 45 58 2D 2D 2D 53 54 41 52 54 20 44 49 |INDEX---START DI|
000018E0: 45 54 49 4E 47 21 22 3A 20 89 20 32 36 35 00 2A |ETING!": . 265.*|
000018F0: 21 FF 00 8B 20 46 B2 33 20 AF 20 51 49 B1 32 39 |!... F.3 . QI.29|
00001900: 2E 39 20 A7 20 99 3A 99 22 59 4F 55 20 41 52 45 |.9 . .:."YOU ARE|
00001910: 20 41 4C 53 4F 20 4F 56 45 52 20 54 48 45 20 43 | ALSO OVER THE C|
00001920: 52 49 54 49 43 41 4C 20 22 3B 00 67 21 00 01 8B |RITICAL ";.g!...|
00001930: 20 46 B2 33 20 AF 20 51 49 B1 32 39 2E 39 20 A7 | F.3 . QI.29.9 .|
00001940: 20 99 22 4F 42 45 53 49 54 59 20 49 4E 44 45 58 | ."OBESITY INDEX|
00001950: 2D 2D 2D 53 54 41 52 54 20 44 49 45 54 49 4E 47 |---START DIETING|
00001960: 21 22 3A 89 32 36 35 00 AD 21 04 01 99 3A 20 99 |!":.265..!...: .|
00001970: 22 59 4F 55 20 41 52 45 20 55 4E 44 45 52 20 54 |"YOU ARE UNDER T|
00001980: 48 45 20 43 52 49 54 49 43 41 4C 20 4F 42 45 53 |HE CRITICAL OBES|
00001990: 49 54 59 20 49 4E 44 45 58 2D 2D 2D 43 4F 4E 47 |ITY INDEX---CONG|
000019A0: 52 41 54 55 4C 41 54 49 4F 4E 53 21 22 00 EC 21 |RATULATIONS!"..!|
000019B0: 09 01 4D 46 B2 31 2E 32 38 31 AC 51 49 AB 31 30 |..MF.1.281.QI.10|
000019C0: 2E 31 33 3A 20 99 3A 20 99 22 59 4F 55 52 20 42 |.13: .: ."YOUR B|
000019D0: 4F 44 59 20 46 41 54 20 3D 22 3B B5 28 4D 46 AC |ODY FAT =";.(MF.|
000019E0: 31 30 AA 2E 35 29 AD 31 30 22 25 22 00 21 22 0E |10..5).10"%".!".|
000019F0: 01 42 53 20 B2 20 28 2E 30 30 37 31 38 35 20 AC |.BS . (.007185 .|
00001A00: 20 57 54 20 AE 20 2E 34 32 35 20 AC 20 28 48 20 | WT . .425 . (H |
00001A10: AC 20 31 30 30 29 20 AE 20 2E 37 32 35 29 3A 20 |. 100) . .725): |
00001A20: 99 00 6A 22 0F 01 99 22 59 4F 55 52 20 42 4F 44 |..j"..."YOUR BOD|
00001A30: 59 20 53 55 52 46 41 43 45 20 41 52 45 41 20 49 |Y SURFACE AREA I|
00001A40: 53 20 41 42 4F 55 54 22 3B B5 28 42 53 AC 31 30 |S ABOUT";.(BS.10|
00001A50: 30 AA 2E 35 29 AD 31 30 30 3B 22 20 53 51 55 41 |0..5).100;" SQUA|
00001A60: 52 45 20 4D 45 54 52 45 53 22 00 9A 22 13 01 4D |RE METRES".."..M|
00001A70: 57 20 B2 20 2E 32 39 36 37 38 35 20 AC 20 57 54 |W . .296785 . WT|
00001A80: 20 AA 20 31 39 2E 34 37 38 36 20 AC 20 48 20 AB | . 19.4786 . H .|
00001A90: 20 31 34 2E 30 31 32 39 33 34 00 D2 22 15 01 99 | 14.012934.."...|
00001AA0: 3A 99 22 59 4F 55 52 20 54 4F 54 41 4C 20 42 4F |:."YOUR TOTAL BO|
00001AB0: 44 59 20 57 41 54 45 52 20 49 53 20 41 42 4F 55 |DY WATER IS ABOU|
00001AC0: 54 22 3B B5 28 4D 57 AC 31 30 AA 2E 35 29 AD 31 |T";.(MW.10..5).1|
00001AD0: 30 3B 00 10 23 16 01 99 22 20 4C 49 54 52 45 53 |0;..#..." LITRES|
00001AE0: 20 28 41 42 4F 55 54 22 3B B5 28 28 4D 57 AC 31 | (ABOUT";.((MW.1|
00001AF0: 45 30 32 AD 57 54 29 AC 31 30 AA 2E 35 29 AD 31 |E02.WT).10..5).1|
00001B00: 30 3B 22 25 20 42 4F 44 59 20 4D 41 53 53 29 22 |0;"% BODY MASS)"|
00001B10: 00 46 23 18 01 99 20 22 2D 2D 2D 2D 2D 2D 2D 2D |.F#... "--------|
00001B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 20 |-------------": |
00001B40: 89 20 31 31 30 30 00 88 23 EA 01 8F 20 20 4C 49 |. 1100..#... LI|
00001B50: 4E 45 20 23 27 53 20 35 30 30 2D 36 30 30 20 43 |NE #'S 500-600 C|
00001B60: 4F 4E 54 41 49 4E 20 48 45 49 47 48 54 20 4D 41 |ONTAIN HEIGHT MA|
00001B70: 53 53 20 44 41 54 41 20 46 4F 52 20 46 45 4D 41 |SS DATA FOR FEMA|
00001B80: 4C 45 53 20 4F 4E 4C 59 00 C9 23 EF 01 8F 20 20 |LES ONLY..#... |
00001B90: 57 48 49 4C 45 20 23 27 53 20 37 35 30 2D 38 36 |WHILE #'S 750-86|
00001BA0: 30 20 43 4F 4E 54 41 49 4E 20 48 45 49 47 48 54 |0 CONTAIN HEIGHT|
00001BB0: 20 4D 41 53 53 20 44 41 54 41 20 46 4F 52 20 4D | MASS DATA FOR M|
00001BC0: 41 4C 45 53 20 4F 4E 4C 59 00 F4 23 F4 01 83 20 |ALES ONLY..#... |
00001BD0: 20 22 35 2D 30 22 2C 20 22 39 39 2D 31 30 37 22 | "5-0", "99-107"|
00001BE0: 2C 22 31 30 34 2D 31 31 36 22 2C 22 31 31 32 2D |,"104-116","112-|
00001BF0: 31 32 38 22 00 1F 24 FE 01 83 20 20 22 35 2D 31 |128"..$... "5-1|
00001C00: 22 2C 22 31 30 32 2D 31 31 30 22 2C 22 31 30 37 |","102-110","107|
00001C10: 2D 31 31 39 22 2C 22 31 31 35 2D 31 33 31 22 00 |-119","115-131".|
00001C20: 4A 24 08 02 83 20 20 22 35 2D 32 22 2C 22 31 30 |J$... "5-2","10|
00001C30: 35 2D 31 31 33 22 2C 22 31 31 30 2D 31 32 33 22 |5-113","110-123"|
00001C40: 2C 22 31 31 38 2D 31 33 35 22 00 75 24 12 02 83 |,"118-135".u$...|
00001C50: 20 20 22 35 2D 33 22 2C 22 31 30 38 2D 31 31 36 | "5-3","108-116|
00001C60: 22 2C 22 31 31 33 2D 31 32 37 22 2C 22 31 32 32 |","113-127","122|
00001C70: 2D 31 33 39 22 00 A0 24 1C 02 83 20 20 22 35 2D |-139"..$... "5-|
00001C80: 34 22 2C 22 31 31 31 2D 31 32 30 22 2C 22 31 31 |4","111-120","11|
00001C90: 37 2D 31 33 32 22 2C 22 31 32 36 2D 31 34 33 22 |7-132","126-143"|
00001CA0: 00 CB 24 26 02 83 20 20 22 35 2D 35 22 2C 22 31 |..$&.. "5-5","1|
00001CB0: 31 35 2D 31 32 34 22 2C 22 31 32 31 2D 31 33 36 |15-124","121-136|
00001CC0: 22 2C 22 31 33 30 2D 31 34 37 22 00 F6 24 30 02 |","130-147"..$0.|
00001CD0: 83 20 20 22 35 2D 36 22 2C 22 31 31 39 2D 31 32 |. "5-6","119-12|
00001CE0: 38 22 2C 22 31 32 35 2D 31 34 30 22 2C 22 31 33 |8","125-140","13|
00001CF0: 34 2D 31 35 31 22 00 21 25 3A 02 83 20 20 22 35 |4-151".!%:.. "5|
00001D00: 2D 37 22 2C 22 31 32 33 2D 31 33 32 22 2C 22 31 |-7","123-132","1|
00001D10: 32 39 2D 31 34 34 22 2C 22 31 33 38 2D 31 35 35 |29-144","138-155|
00001D20: 22 00 4C 25 44 02 83 20 20 22 35 2D 38 22 2C 22 |".L%D.. "5-8","|
00001D30: 31 32 37 2D 31 33 37 22 2C 22 31 33 33 2D 31 34 |127-137","133-14|
00001D40: 38 22 2C 22 31 34 32 2D 31 36 30 22 00 77 25 4E |8","142-160".w%N|
00001D50: 02 83 20 20 22 35 2D 39 22 2C 22 31 33 31 2D 31 |.. "5-9","131-1|
00001D60: 34 31 22 2C 22 31 33 37 2D 31 35 32 22 2C 22 31 |41","137-152","1|
00001D70: 34 36 2D 31 36 35 22 00 A3 25 58 02 83 20 20 22 |46-165"..%X.. "|
00001D80: 35 2D 31 30 22 2C 22 31 33 35 2D 31 34 35 22 2C |5-10","135-145",|
00001D90: 22 31 34 31 2D 31 35 36 22 2C 22 31 35 30 2D 31 |"141-156","150-1|
00001DA0: 37 30 22 00 CE 25 EE 02 83 20 20 22 35 2D 34 22 |70"..%... "5-4"|
00001DB0: 2C 22 31 31 38 2D 31 32 36 22 2C 22 31 32 34 2D |,"118-126","124-|
00001DC0: 31 33 36 22 2C 22 31 33 32 2D 31 34 39 22 00 F9 |136","132-149"..|
00001DD0: 25 F8 02 83 20 20 22 35 2D 35 22 2C 22 31 32 31 |%... "5-5","121|
00001DE0: 2D 31 33 30 22 2C 22 31 32 37 2D 31 34 30 22 2C |-130","127-140",|
00001DF0: 22 31 33 35 2D 31 35 33 22 00 24 26 02 03 83 20 |"135-153".$&... |
00001E00: 20 22 35 2D 36 22 2C 22 31 32 35 2D 31 33 34 22 | "5-6","125-134"|
00001E10: 2C 22 31 33 31 2D 31 34 34 22 2C 22 31 33 39 2D |,"131-144","139-|
00001E20: 31 35 38 22 00 4F 26 0C 03 83 20 20 22 35 2D 37 |158".O&... "5-7|
00001E30: 22 2C 22 31 32 39 2D 31 33 38 22 2C 22 31 33 35 |","129-138","135|
00001E40: 2D 31 34 39 22 2C 22 31 34 34 2D 31 36 33 22 00 |-149","144-163".|
00001E50: 7A 26 16 03 83 20 20 22 35 2D 38 22 2C 22 31 33 |z&... "5-8","13|
00001E60: 33 2D 31 34 32 22 2C 22 31 33 39 2D 31 35 33 22 |3-142","139-153"|
00001E70: 2C 22 31 34 38 2D 31 36 37 22 00 A5 26 20 03 83 |,"148-167"..& ..|
00001E80: 20 20 22 35 2D 39 22 2C 22 31 33 37 2D 31 34 37 | "5-9","137-147|
00001E90: 22 2C 22 31 34 33 2D 31 35 37 22 2C 22 31 35 32 |","143-157","152|
00001EA0: 2D 31 37 31 22 00 D1 26 2A 03 83 20 20 22 35 2D |-171"..&*.. "5-|
00001EB0: 31 30 22 2C 22 31 34 31 2D 31 35 31 22 2C 22 31 |10","141-151","1|
00001EC0: 34 37 2D 31 36 32 22 2C 22 31 35 36 2D 31 37 36 |47-162","156-176|
00001ED0: 22 00 FD 26 34 03 83 20 20 22 35 2D 31 31 22 2C |"..&4.. "5-11",|
00001EE0: 22 31 34 35 2D 31 35 35 22 2C 22 31 35 31 2D 31 |"145-155","151-1|
00001EF0: 36 37 22 2C 22 31 36 31 2D 31 38 31 22 00 28 27 |67","161-181".('|
00001F00: 3E 03 83 20 20 22 36 2D 30 22 2C 22 31 34 39 2D |>.. "6-0","149-|
00001F10: 31 35 39 22 2C 22 31 35 35 2D 31 37 32 22 2C 22 |159","155-172","|
00001F20: 31 36 35 2D 31 38 36 22 00 53 27 48 03 83 20 20 |165-186".S'H.. |
00001F30: 22 36 2D 31 22 2C 22 31 35 33 2D 31 36 34 22 2C |"6-1","153-164",|
00001F40: 22 31 35 39 2D 31 37 37 22 2C 22 31 37 30 2D 31 |"159-177","170-1|
00001F50: 39 31 22 00 7E 27 52 03 83 20 20 22 36 2D 32 22 |91".~'R.. "6-2"|
00001F60: 2C 22 31 35 37 2D 31 36 38 22 2C 22 31 36 34 2D |,"157-168","164-|
00001F70: 31 38 32 22 2C 22 31 37 35 2D 31 39 36 22 00 A9 |182","175-196"..|
00001F80: 27 5C 03 83 20 20 22 36 2D 33 22 2C 22 31 36 31 |'\.. "6-3","161|
00001F90: 2D 31 37 32 22 2C 22 31 36 39 2D 31 38 37 22 2C |-172","169-187",|
00001FA0: 22 31 37 39 2D 31 38 37 22 00 B5 27 E8 03 83 20 |"179-187"..'... |
00001FB0: 20 5A 45 52 4F 00 E8 27 4C 04 85 20 22 44 4F 20 | ZERO..'L.. "DO |
00001FC0: 59 4F 55 20 57 41 4E 54 20 41 4E 4F 54 48 45 52 |YOU WANT ANOTHER|
00001FD0: 20 45 56 41 4C 55 41 54 49 4F 4E 20 28 59 2F 4E | EVALUATION (Y/N|
00001FE0: 29 3F 20 22 3B 45 56 24 00 00 28 56 04 8B 20 45 |)? ";EV$..(V.. E|
00001FF0: 56 24 20 B2 20 22 59 22 20 A7 20 20 89 20 38 30 |V$ . "Y" . . 80|
00002000: 00 06 28 60 04 80 00 4F 28 6A 04 8F 20 50 52 4F |..(`...O(j.. PRO|
00002010: 47 52 41 4D 20 41 44 41 50 54 45 44 20 46 4F 52 |GRAM ADAPTED FOR|
00002020: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4D 41 43 48 49 | COMMODORE MACHI|
00002030: 4E 45 53 20 42 59 20 50 45 54 45 52 20 53 50 45 |NES BY PETER SPE|
00002040: 4E 43 45 52 20 41 50 52 49 4C 20 31 39 38 33 00 |NCER APRIL 1983.|
00002050: 86 28 74 04 8F 20 53 54 49 4C 4C 20 4E 45 45 44 |.(t.. STILL NEED|
00002060: 53 20 43 4F 4E 56 45 52 53 49 4F 4E 20 54 4F 20 |S CONVERSION TO |
00002070: 43 45 4E 54 49 4D 45 54 52 45 53 20 46 4F 52 20 |CENTIMETRES FOR |
00002080: 48 45 49 47 48 54 00 CD 28 7E 04 8F 20 41 4E 44 |HEIGHT..(~.. AND|
00002090: 20 4B 49 4C 4F 47 52 41 4D 53 20 46 4F 52 20 4D | KILOGRAMS FOR M|
000020A0: 41 53 53 2C 20 41 4C 54 48 4F 55 47 48 20 53 4F |ASS, ALTHOUGH SO|
000020B0: 4D 45 20 49 4E 54 45 52 4E 41 4C 20 56 41 52 49 |ME INTERNAL VARI|
000020C0: 41 42 4C 45 53 20 41 4C 52 45 41 44 59 00 DE 28 |ABLES ALREADY..(|
000020D0: 88 04 8F 20 55 53 45 20 54 48 45 53 45 2E 00 00 |... USE THESE...|
000020E0: 00 |. |
....... ".IDEAL BODY MASS" :..B.... "DO
YOU WANT INFORMATION REGARDING THIS PRO
GRAM (Y/N)? ":.FF$.Z.... FF$ . "N" . .
47...... :. "THIS PROGRAM TELLS YOU WHAT
YOUR MASS"...... "SHOULD BE BASED ON DA
TA ADAPTED FROM THE"...... "BOOK (MASSES
IN THIS BOOK WERE SUB-".3.... "TRACTED
BY 3 TO GIVE MASSES IN BED".].... "CLOTH
ING, WHICH WERE USED IN THIS"...... "PRO
GRAM), 'NORMAL & THERAPEUTIC NUTRI-.....
. "TION', (13TH EDITION), BY C.H.ROBINSO
N,"...... "1972, P.848 (MACMILLAN). HEIG
HT LIMIT-"...... "ATIONS ARE, FOR WOMEN:
5-0 TO 5-10;".D.... "FOR MEN: 5-4 TO 6-
3 (NO SHOES). IDEAL".R.... "MASSES GIVEN
ARE FOR BED CLOTHING AND"...... "ARE FO
R MEN AND WOMEN OF AGES.F.... "25 AND OV
ER (FOR GIRLS 18-25, SUBTRACT"...... "1
POUND FOR EACH YEAR UNDER 25)."./.... :
. : . "PRESS 'ANY LETTER, THEN RETURN' T
O CONTINUE!";A$.A.... "IN ADDITION TO ID
EAL MASSES, THIS PROGRAM"...... "ESTIMAT
ES OBESITY, BODY FAT, BODY SURFACE".A...
. "AREA, AND TOTAL BODY WATER. THESE ARE
"...... "APPLICABLE TO THOSE OVER THE AG
E OF 16."...... "GENERALLY, THE % TOTAL
BODY WATER.F.... "IS LOWER IN FEMALES TH
AN IN MALES. FURTHER, THE % OF WATER IN
LEAN"...... "PERSONS IS HIGHER THAN IN
OBESE PERSONS. ABOUT".G.... "55-60% OF T
HE BODY MASS IS WATER."...... "A DEVIATI
ON OF NOT MORE THAN 10% ABOVE".!.... "OR
BELOW THE DESIRABLE MASS FOR AN".O....
"INDIVIDUAL IS NOT CONSIDERED SIGNIFI-".
.... "CANT. THE TERM 'OVERWEIGHT' IS GE
NERAL-".F.... "LY APPLIED TO PERSONS WHO
ARE 10-20% ABOVE THE DESIRABLE MASS."..
...."'OBESITY' IS APPLIED TO PERSONS WHO
ARE ABOUT 20% OR MORE OVERWEIGHT.".S. .
. : . : . "PRESS 'ANY LETTER, THEN RETUR
N' TO CONTINUE!";A$...!.. "IN THIS PROGR
AM, OBESITY IS DETERMINED"...".. "BY A C
RITICAL OBESITY INDEX BASED UPON"...#..
"'QUETELET'S INDEX' (QI). THIS CRITICAL"
...$.. "INDEX IS REACHED WHEN THE PERSON
'S".7.%.. "MASS IS ABOUT 18% ABOVE THE M
AXIMUM"..&.. "IDEAL MASS. QI IS ALSO U
SED TO ESTIMATE BODY FAT (BF). THE BF".
..'.."VIA QI IS IN GOOD AGREEMENT WITH T
HE VALUE FROM"...(.. "TOTAL BODY WATER U
SING: %BF=100-(137*MASS WATER/BODY MASS)
.".).).. : .:."MORE REFERENCES: HUME &
WEYERS, "._.*.."J.CLIN. PATH.,VOL.24,PP.
234-238 (1971); JAMES,"...+.. "(A DHSS/M
RC REPORT) HER MAJESTY'S".G.,.. "STATION
ERY OFFICE, LONDON, 1976 (ISBN 0 11 4500
34 7)."...-.. "REMARKS ARE TO BE FOUND I
N THE PROGRAM LISTING.".?.... : . : . "P
RESS 'ANY LETTER, THEN RETURN' TO CONTIN
UE!";A$.I./.. : ....0.. W$(30,5):. HEIGH
T & MASSES FOR SMALL, MEDIUM, & LARGE BO
DY FRAMES...1.. J . 1 . 30...2.. K . 1 .
4...3.. W$(J,K)...<.. W$(J,1) . "ZERO"
. J . J . 1: . 80...F.. K,J...P.. "LIST
YOUR SEX (FEMALE=1; MALE=2) ";S.G.Q.. "W
HAT IS YOUR HEIGHT TO NEAREST INCH (E.G.
5-10) (NO SHOES) ":.H$...R.. "WHAT IS Y
OUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2;
LARGE=3) ":.F...S.. "WHAT IS YOUR MASS
(IN POUNDS WITH BED CLOTHING)? ":.WT...U
.PW . WT...Z.. S . 91,195.<.[.. : . "---
-----------------------------------".L.\
.TV . E ( J (H$,1,1)) . 12 . E ( J (H$
,3))...].. F..1 . TV.60 . .:."BECAUSE YO
UR FRAME IS 'SMALL' AND YOUR";...^.. F..
1 . TV.60 . ."HEIGHT IS LESS THAN 5-0, T
HIS PROGRAM CAN";.)._.. F..1 . TV.60 . .
"OFFER YOU NO INFORMATION!":. 180.L.`..
F..1 . TV.70 . .: ."BECAUSE YOUR FRAME I
S 'SMALL' AND YOUR";...A.. F..1 . TV.70
. ."HEIGHT IS MORE THAN 5-10, THIS PROGR
AM CAN";...B.. F..1 . TV.70 . ."OFFER YO
U NO INFORMATION!": . 180.+.C.. TV.60 .
TV.70 . .: . "BECAUSE OF HEIGHT LIMITATI
ONS, THIS";.M.D..TV.60.TV.70.."PROGRAM C
ANNOT GIVE YOU YOUR IDEAL MASS!":.140...
E.. W . 1 . 11: . THIS IS FOR FEMALES O
NLY...N.L . 1...X.. W$(W,L).H$ . .:. "YO
UR IDEAL MASS=";W$(W,F . 1);:. 131......
.....SS.E(J(W$(W,F.1),5)).;.... SS.PW .
."---YOU ARE";.(((PW.SS).100.SS).10..5).
10;.N.... SS.PW . ."% ABOVE YOUR MAXIMUM
IDEAL MASS.";.....GG . . (((PW . SS) .
100 . SS) . 10 . .5) . 10...... GG . 10
. GG . 18 . . "(YOU ARE CONSIDERED OVE
RWEIGHT)!"......./.... F..1 . ."BECAUSE
YOUR FRAME IS 'SMALL', ADDITIONAL INFORM
ATION";.Q.... F..1 . ."ON BODY WATER, ET
C. DOES NOT APPLY TO YOU!": . 180......
IN 140 & 240, H IS HEIGHT IN M & WT MASS
IN KG OF FEMALES AND MALES.....H . E (
J (H$,1,1)) . 12 . E ( J (H$,3)).....H
. H . .0254:WT . WT . .45359.Y.... IN 1
45 & 245,Q IS QUETELET'S INDEX FOR FEMAL
ES AND MALES RESPECTIVELY...... USED TO
DETERMINE BODY FAT AND WHETHER A PERSON
IS OBESE.....QI . WT . (H . H)...... LIN
ES 150-160 250-260 FIND IF OBESITY EXIST
S FOR FEMALES AND MALES.=.... F.2. QI.27
.0 . ."YOU ARE ALSO OVER THE CRITICAL OB
ESITY INDEX";.N.... F.2. QI.27.0 . ."---
START DIETING!": . 165...... F.3 . QI.29
.5.."YOU ARE ALSO OVER THE CRITICAL OBES
ITY INDEX";...... F.3 . QI.29.5. ."---ST
ART DIETING!": . 165.*. ..: ."YOU ARE UN
DER THE CRITICAL OBESITY INDEX---CONGRAT
ULATIONS!".S.... LINES 165 AND 265 ALLOW
DETERMINATION OF BODY FAT IN WOMEN AND
MEN......#'S 170 & 270 FIND BODY SURFACE
AREAS FOR WOMEN & MEN, RESPECTIVELY....
..#'S 175 & 275 ALLOW DETERMINATION OF B
ODY WATER.3...WF.1.48.QI.7: .: . "YOUR B
ODY FAT =";. (WF . 10 . .5) . 10"%".[...
BS.(.007185.WT..425.(H.100)..725):......
."YOUR BODY SURFACE AREA IS ABOUT";.(BS.
100..5).100;......" SQUARE METRES".Z...W
W . .183809 . WT . 34.4547 . H . 35.2701
21......:."YOUR TOTAL BODY WATER IS ABOU
T";.(WW.10..5).10;" LITRES";.[...."---OR
";. ((WW . 1E02 . WT) . 10 . .5) . 10"%
BODY MASS)"...... "---------------------
----------------": . 1100.D.C..:."------
-----":TV.E(J(H$,1,1)).12.E(J(H$,3))...D
.. F..1.TV.64..:."BECAUSE YOUR FRAME IS
SMALL & YOUR HEIGHT";.G.E..F..1.TV.64.."
LESS THAN 5-4, I CAN'T TELL YOU ANYTHING
!":.280...F.. F..1.TV.95.."SINCE YOUR FR
AME IS SMALL & YOUR HEIGHT IS";.I.G..F..
1.TV.95.."MORE THAN 6-3, I CAN'T TELL YO
U ANYTHING!":.280...H.. TV.64.TV.75..:."
BECAUSE OF HEIGHT LIMITS, I CANNOT GIVE
";.;.I.. TV.64.TV.75. ."YOU YOUR IDEAL M
ASS!":. 240.H.J.. W . 12 . 23: . THIS I
S FOR MALES ONLY.R.R.L . 1...... W$(W,L)
.H$ . .:."YOUR IDEAL MASS = ";W$(W,F.1);
:. 231.......M...SS.E(J(W$(W,F.1),5))...
... SS.PW .."---YOU ARE";.(((PW.SS).100.
SS).10..5).10;.8.... SS.PW .."% ABOVE YO
UR MAXIMUM IDEAL MASS ";.\...GG..(((PW.S
S).100.SS).10..5).10...... GG.10 . GG.18
. ."(YOU ARE CONSIDERED OVERWEIGHT)!"..
.....X.... F..1 . .:."BECAUSE YOUR FRAME
IS SMALL, ADDITIONAL ";.. ... F..1.."DE
TAILS ON BODY WATER, ETC DO NOT APPLY TO
YOU!":. 280.] ..H.E(J(H$,1,1)).12.E(J (
H$,3)):H . H . .0254:WT . WT . .45359.S
..QI . WT . (H . H).. ... F.2 . QI.27.5
. .:."YOU ARE ALSO OVER THE CRITICAL ";.
. ... F.2 . QI.27.5 . ."OBESITY INDEX---
START DIETING!": . 265.*!... F.3 . QI.29
.9 . .:."YOU ARE ALSO OVER THE CRITICAL
";.G!... F.3 . QI.29.9 . ."OBESITY INDEX
---START DIETING!":.265..!...: ."YOU ARE
UNDER THE CRITICAL OBESITY INDEX---CONG
RATULATIONS!"..!..MF.1.281.QI.10.13: .:
."YOUR BODY FAT =";.(MF.10..5).10"%".!".
.BS . (.007185 . WT . .425 . (H . 100) .
.725): ..J"..."YOUR BODY SURFACE AREA I
S ABOUT";.(BS.100..5).100;" SQUARE METRE
S".."..MW . .296785 . WT . 19.4786 . H .
14.012934.R"...:."YOUR TOTAL BODY WATER
IS ABOUT";.(MW.10..5).10;..#..." LITRES
(ABOUT";.((MW.1E02.WT).10..5).10;"% BOD
Y MASS)".F#... "------------------------
-------------": . 1100..#... LINE #'S 5
00-600 CONTAIN HEIGHT MASS DATA FOR FEMA
LES ONLY.I#... WHILE #'S 750-860 CONTAI
N HEIGHT MASS DATA FOR MALES ONLY..#...
"5-0", "99-107","104-116","112-128"..$.
.. "5-1","102-110","107-119","115-131".
J$... "5-2","105-113","110-123","118-13
5".U$... "5-3","108-116","113-127","122
-139". $... "5-4","111-120","117-132","
126-143".K$&.. "5-5","115-124","121-136
","130-147"..$0.. "5-6","119-128","125-
140","134-151".!%:.. "5-7","123-132","1
29-144","138-155".L%D.. "5-8","127-137"
,"133-148","142-160".W%N.. "5-9","131-1
41","137-152","146-165"..%X.. "5-10","1
35-145","141-156","150-170".N%... "5-4"
,"118-126","124-136","132-149"..%... "5
-5","121-130","127-140","135-153".$&...
"5-6","125-134","131-144","139-158".O&.
.. "5-7","129-138","135-149","144-163".
Z&... "5-8","133-142","139-153","148-16
7"..& .. "5-9","137-147","143-157","152
-171".Q&*.. "5-10","141-151","147-162",
"156-176"..&4.. "5-11","145-155","151-1
67","161-181".('>.. "6-0","149-159","15
5-172","165-186".S'H.. "6-1","153-164",
"159-177","170-191".~'R.. "6-2","157-16
8","164-182","175-196"..'\.. "6-3","161
-172","169-187","179-187"..'... ZERO..'
L.. "DO YOU WANT ANOTHER EVALUATION (Y/N
)? ";EV$..(V.. EV$ . "Y" . . 80..(`...O
(J.. PROGRAM ADAPTED FOR COMMODORE MACHI
NES BY PETER SPENCER APRIL 1983..(T.. ST
ILL NEEDS CONVERSION TO CENTIMETRES FOR
HEIGHT.M(~.. AND KILOGRAMS FOR MASS, ALT
HOUGH SOME INTERNAL VARIABLES ALREADY..(
... USE THESE....
> CLICK IMAGE PREVIEW FOR FULL MODAL