DIET DOCTOR
FILE INFORMATION
FILENAME(S): DIET DOCTOR
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
7f0d41f1470fe9411c2324333f16913f2db2ec6ee5887958ab8200c33d8dd5b6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KITCHEN MANAGER | DIET DOCTOR | PRG | Radd Maxx | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3A 08 64 00 97 34 39 31 35 32 2C 31 36 39 |..:.d..49152,169|
00000010: 3A 97 34 39 31 35 33 2C 30 34 3A 97 34 39 31 35 |:.49153,04:.4915|
00000020: 34 2C 33 32 3A 97 34 39 31 35 35 2C 31 37 37 3A |4,32:.49155,177:|
00000030: 97 34 39 31 35 36 2C 32 35 35 00 74 08 66 00 97 |.49156,255.t.f..|
00000040: 34 39 31 35 37 2C 39 36 3A 99 22 93 8E 08 22 3A |49157,96:."...":|
00000050: 50 44 B2 34 3A 97 34 39 31 35 33 2C 50 44 3A 97 |PD.4:.49153,PD:.|
00000060: 35 33 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 |53280,1:.53281,1|
00000070: 3A 4C B2 FF 00 99 08 68 00 8D 33 32 32 3A 99 22 |:L.....h..322:."|
00000080: 13 11 11 11 11 11 22 A6 31 36 29 22 12 1C 57 41 |......".16)"..WA|
00000090: 52 4E 49 4E 47 90 11 11 22 00 CA 08 6A 00 99 22 |RNING..."...j.."|
000000A0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
000000B0: 4F 4E 4C 59 20 49 4E 54 45 4E 44 45 44 20 41 53 |ONLY INTENDED AS|
000000C0: 20 41 20 47 55 49 44 45 22 3B 00 FB 08 6C 00 99 | A GUIDE";...l..|
000000D0: 22 54 4F 20 41 20 50 52 4F 50 45 52 20 44 49 45 |"TO A PROPER DIE|
000000E0: 54 2E 20 20 49 46 20 59 4F 55 20 44 45 53 49 52 |T. IF YOU DESIR|
000000F0: 45 20 54 4F 20 4C 4F 53 45 22 3B 00 2C 09 6E 00 |E TO LOSE";.,.n.|
00000100: 99 22 57 45 49 47 48 54 2C 20 59 4F 55 20 20 53 |."WEIGHT, YOU S|
00000110: 48 4F 55 4C 44 20 20 43 4F 4E 53 55 4C 54 20 20 |HOULD CONSULT |
00000120: 57 49 54 48 20 20 59 4F 55 52 22 3B 00 55 09 70 |WITH YOUR";.U.p|
00000130: 00 99 22 44 4F 43 54 4F 52 20 42 45 46 4F 52 45 |.."DOCTOR BEFORE|
00000140: 20 53 54 41 52 54 49 4E 47 20 4F 4E 20 41 20 44 | STARTING ON A D|
00000150: 49 45 54 2E 22 00 7A 09 72 00 99 22 11 4D 45 4C |IET.".z.r..".MEL|
00000160: 4F 44 59 20 48 41 4C 4C 20 50 55 42 4C 49 53 48 |ODY HALL PUBLISH|
00000170: 49 4E 47 20 43 4F 52 50 2E 22 00 9D 09 74 00 99 |ING CORP."...t..|
00000180: A6 31 32 29 22 11 12 1C 4D 41 4B 45 53 20 4E 4F |.12)"...MAKES NO|
00000190: 20 57 41 52 52 41 4E 54 59 92 90 11 22 00 CE 09 | WARRANTY..."...|
000001A0: 76 00 99 22 54 48 41 54 20 54 48 45 20 43 41 4C |v.."THAT THE CAL|
000001B0: 43 55 4C 41 54 49 4F 4E 53 20 50 45 52 46 4F 52 |CULATIONS PERFOR|
000001C0: 4D 45 44 20 42 59 20 20 54 48 49 53 22 3B 00 FF |MED BY THIS";..|
000001D0: 09 78 00 99 22 50 52 4F 47 52 41 4D 20 41 52 45 |.x.."PROGRAM ARE|
000001E0: 20 43 4F 52 52 45 43 54 20 4F 52 20 53 55 49 54 | CORRECT OR SUIT|
000001F0: 41 42 4C 45 20 46 4F 52 20 59 4F 55 52 22 3B 00 |ABLE FOR YOUR";.|
00000200: 3B 0A 7A 00 99 22 49 4E 44 49 56 49 44 55 41 4C |;.z.."INDIVIDUAL|
00000210: 20 43 41 53 45 2E 22 3A 99 22 11 11 22 A6 38 29 | CASE.":."..".8)|
00000220: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T|
00000230: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 56 0A 7C 00 |O CONTINUE".V.|.|
00000240: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A|
00000250: 24 3A 99 22 93 22 00 96 0A 7E 00 86 49 25 28 31 |$:."."...~..I%(1|
00000260: 32 2C 34 29 2C 44 54 28 35 29 2C 43 31 28 32 2C |2,4),DT(5),C1(2,|
00000270: 33 29 2C 43 32 28 32 2C 33 29 2C 43 33 28 35 29 |3),C2(2,3),C3(5)|
00000280: 2C 43 34 28 36 2C 33 29 2C 45 24 28 31 33 29 2C |,C4(6,3),E$(13),|
00000290: 48 24 28 31 31 29 00 C5 0A 80 00 81 4C B2 31 A4 |H$(11)......L.1.|
000002A0: 31 32 3A 87 49 25 28 4C 2C 31 29 2C 49 25 28 4C |12:.I%(L,1),I%(L|
000002B0: 2C 32 29 2C 49 25 28 4C 2C 33 29 2C 49 25 28 4C |,2),I%(L,3),I%(L|
000002C0: 2C 34 29 3A 82 00 11 0B 82 00 83 38 2C 32 2C 32 |,4):.......8,2,2|
000002D0: 2C 30 2C 38 2C 36 2C 32 2C 30 2C 38 2C 31 32 2C |,0,8,6,2,0,8,12,|
000002E0: 33 2C 30 2C 38 2C 32 30 2C 32 2C 30 2C 38 2C 32 |3,0,8,20,2,0,8,2|
000002F0: 37 2C 31 2C 32 2C 38 2C 33 34 2C 31 2C 33 2C 31 |7,1,2,8,34,1,3,1|
00000300: 30 2C 32 37 2C 31 2C 30 2C 31 36 2C 33 2C 33 2C |0,27,1,0,16,3,3,|
00000310: 30 00 3D 0B 84 00 83 31 36 2C 31 30 2C 33 2C 30 |0.=....16,10,3,0|
00000320: 2C 31 36 2C 32 36 2C 34 2C 30 2C 31 39 2C 36 2C |,16,26,4,0,19,6,|
00000330: 33 2C 30 2C 31 39 2C 32 36 2C 33 2C 30 00 5C 0B |3,0,19,26,3,0.\.|
00000340: 86 00 81 49 B2 31 A4 32 3A 81 4A B2 31 A4 33 3A |...I.1.2:.J.1.3:|
00000350: 87 43 31 28 49 2C 4A 29 3A 82 3A 82 00 84 0B 88 |.C1(I,J):.:.....|
00000360: 00 83 20 33 2E 39 31 36 37 2C 34 2E 30 38 33 33 |.. 3.9167,4.0833|
00000370: 2C 34 2E 35 2C 33 2E 34 31 36 37 2C 33 2E 35 38 |,4.5,3.4167,3.58|
00000380: 33 33 2C 34 00 A3 0B 8A 00 81 49 B2 31 A4 32 3A |33,4......I.1.2:|
00000390: 81 4A B2 31 A4 33 3A 87 43 32 28 49 2C 4A 29 3A |.J.1.3:.C2(I,J):|
000003A0: 82 3A 82 00 C9 0B 8C 00 83 20 31 32 38 2E 37 35 |.:....... 128.75|
000003B0: 2C 31 32 38 2E 32 35 2C 31 34 32 2E 35 2C 31 30 |,128.25,142.5,10|
000003C0: 35 2C 31 30 36 2C 31 32 32 00 DD 0B 8E 00 81 49 |5,106,122......I|
000003D0: B2 31 A4 35 3A 87 43 33 28 49 29 3A 82 00 F9 0B |.1.5:.C3(I):....|
000003E0: 90 00 83 20 33 2E 36 38 2C 34 2E 33 32 2C 35 2E |... 3.68,4.32,5.|
000003F0: 37 35 2C 38 2C 31 32 2E 33 00 18 0C 92 00 81 49 |75,8,12.3......I|
00000400: B2 31 A4 36 3A 81 4A B2 31 A4 33 3A 87 43 34 28 |.1.6:.J.1.3:.C4(|
00000410: 49 2C 4A 29 3A 82 3A 82 00 3A 0C 94 00 83 20 31 |I,J):.:..:.... 1|
00000420: 38 36 2C 31 39 39 2C 32 31 30 2C 31 37 35 2E 37 |86,199,210,175.7|
00000430: 2C 31 38 33 2E 35 2C 31 39 39 00 5A 0C 96 00 83 |,183.5,199.Z....|
00000440: 20 31 36 34 2C 31 37 31 2E 35 2C 31 38 36 2C 31 | 164,171.5,186,1|
00000450: 38 30 2C 31 38 32 2C 31 39 32 00 7C 0C 98 00 83 |80,182,192.|....|
00000460: 20 31 36 34 2C 31 37 31 2E 35 2C 31 38 36 2C 31 | 164,171.5,186,1|
00000470: 35 34 2E 35 2C 31 36 32 2C 31 37 35 00 90 0C 9A |54.5,162,175....|
00000480: 00 43 36 B2 2E 34 35 34 3A 43 37 B2 32 2E 35 34 |.C6..454:C7.2.54|
00000490: 00 C3 0C 9C 00 45 24 28 30 29 B2 22 20 20 20 20 |.....E$(0)." |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 90 22 00 F7 0C 9E 00 45 24 28 31 29 B2 22 1C | .".....E$(1).".|
000004D0: 59 4F 55 20 41 52 45 20 54 4F 4F 20 53 48 4F 52 |YOU ARE TOO SHOR|
000004E0: 54 20 46 4F 52 20 43 41 4C 43 55 4C 41 54 49 4F |T FOR CALCULATIO|
000004F0: 4E 20 20 20 20 90 22 00 2B 0D A0 00 45 24 28 32 |N .".+...E$(2|
00000500: 29 B2 22 1C 59 4F 55 20 41 52 45 20 54 4F 4F 20 |).".YOU ARE TOO |
00000510: 54 41 4C 4C 20 46 4F 52 20 43 41 4C 43 55 4C 41 |TALL FOR CALCULA|
00000520: 54 49 4F 4E 20 20 20 20 20 90 22 00 5F 0D A2 00 |TION ."._...|
00000530: 45 24 28 33 29 B2 22 1C 59 4F 55 20 41 52 45 20 |E$(3).".YOU ARE |
00000540: 54 4F 4F 20 59 4F 55 4E 47 20 46 4F 52 20 43 41 |TOO YOUNG FOR CA|
00000550: 4C 43 55 4C 41 54 49 4F 4E 20 20 20 20 90 22 00 |LCULATION .".|
00000560: 93 0D A4 00 45 24 28 34 29 B2 22 1C 59 4F 55 20 |....E$(4).".YOU |
00000570: 41 52 45 20 54 4F 4F 20 4F 4C 44 20 46 4F 52 20 |ARE TOO OLD FOR |
00000580: 43 41 4C 43 55 4C 41 54 49 4F 4E 20 20 20 20 20 |CALCULATION |
00000590: 20 90 22 00 C7 0D A6 00 45 24 28 35 29 B2 22 1C | .".....E$(5).".|
000005A0: 43 41 4E 27 54 20 43 41 4C 43 55 4C 41 54 45 20 |CAN'T CALCULATE |
000005B0: 4F 4E 20 43 55 52 52 45 4E 54 20 57 45 49 47 48 |ON CURRENT WEIGH|
000005C0: 54 20 20 20 20 90 22 00 FB 0D A8 00 45 24 28 36 |T .".....E$(6|
000005D0: 29 B2 22 1C 41 43 54 49 56 49 54 59 20 4C 45 56 |).".ACTIVITY LEV|
000005E0: 45 4C 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 |EL OUT OF RANGE |
000005F0: 20 20 20 20 20 20 20 20 20 90 22 00 2F 0E AA 00 | ."./...|
00000600: 45 24 28 37 29 B2 22 1C 20 20 20 20 20 20 20 20 |E$(7).". |
00000610: 20 2A 2A 20 4E 4F 20 44 49 45 54 20 4E 45 45 44 | ** NO DIET NEED|
00000620: 45 44 20 2A 2A 20 20 20 20 20 20 20 20 90 22 00 |ED ** .".|
00000630: 63 0E AC 00 45 24 28 38 29 B2 22 1C 43 41 4E 27 |c...E$(8).".CAN'|
00000640: 54 20 43 41 4C 43 55 4C 41 54 45 20 4F 4E 20 43 |T CALCULATE ON C|
00000650: 55 52 52 45 4E 54 20 44 41 54 41 20 20 20 20 20 |URRENT DATA |
00000660: 20 90 22 00 99 0E AE 00 45 24 28 39 29 B2 22 90 | .".....E$(9).".|
00000670: 50 52 45 53 53 20 12 46 31 92 20 54 4F 20 50 52 |PRESS .F1. TO PR|
00000680: 4F 43 45 53 53 20 44 41 54 41 2C 20 12 3F 92 20 |OCESS DATA, .?. |
00000690: 46 4F 52 20 48 45 4C 50 22 00 CE 0E B0 00 45 24 |FOR HELP".....E$|
000006A0: 28 31 30 29 B2 22 1C 20 20 20 20 20 20 20 20 20 |(10).". |
000006B0: 20 2A 2A 20 43 41 4C 43 55 4C 41 54 49 4E 47 20 | ** CALCULATING |
000006C0: 2A 2A 20 20 20 20 20 20 20 20 20 20 90 22 00 03 |** ."..|
000006D0: 0F B2 00 45 24 28 31 31 29 B2 22 1C 54 4F 4F 20 |...E$(11).".TOO |
000006E0: 4D 55 43 48 20 44 41 54 41 21 20 20 20 20 20 20 |MUCH DATA! |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 90 22 00 38 0F B4 00 45 24 28 31 32 29 B2 22 | .".8...E$(12)."|
00000710: 1F 57 41 4E 54 20 54 4F 20 50 52 49 4E 54 20 41 |.WANT TO PRINT A|
00000720: 20 48 41 52 44 43 4F 50 59 3F 20 28 59 2F 4E 29 | HARDCOPY? (Y/N)|
00000730: 20 20 20 20 20 20 90 22 00 6D 0F B6 00 45 24 28 | .".m...E$(|
00000740: 31 33 29 B2 22 1C 50 52 49 4E 54 45 52 20 44 45 |13).".PRINTER DE|
00000750: 56 49 43 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 |VICE NOT PRESENT|
00000760: 20 20 20 20 20 20 20 20 20 20 20 90 22 00 A1 0F | ."...|
00000770: B8 00 48 24 28 31 29 B2 22 1F 45 4E 54 45 52 20 |..H$(1).".ENTER |
00000780: 59 4F 55 52 20 48 45 49 47 48 54 20 49 4E 20 46 |YOUR HEIGHT IN F|
00000790: 45 45 54 20 41 4E 44 20 49 4E 43 48 45 53 20 90 |EET AND INCHES .|
000007A0: 22 00 D5 0F BA 00 48 24 28 32 29 B2 22 1F 45 4E |".....H$(2).".EN|
000007B0: 54 45 52 20 59 4F 55 52 20 48 45 49 47 48 54 20 |TER YOUR HEIGHT |
000007C0: 49 4E 20 46 45 45 54 20 41 4E 44 20 49 4E 43 48 |IN FEET AND INCH|
000007D0: 45 53 20 90 22 00 09 10 BC 00 48 24 28 33 29 B2 |ES .".....H$(3).|
000007E0: 22 1F 45 4E 54 45 52 20 59 4F 55 52 20 43 55 52 |".ENTER YOUR CUR|
000007F0: 52 45 4E 54 20 57 45 49 47 48 54 20 49 4E 20 50 |RENT WEIGHT IN P|
00000800: 4F 55 4E 44 53 20 20 90 22 00 3D 10 BE 00 48 24 |OUNDS .".=...H$|
00000810: 28 34 29 B2 22 1F 45 4E 54 45 52 20 59 4F 55 52 |(4).".ENTER YOUR|
00000820: 20 41 47 45 20 49 4E 20 59 45 41 52 53 20 28 42 | AGE IN YEARS (B|
00000830: 45 20 54 52 55 54 48 46 55 4C 29 90 22 00 71 10 |E TRUTHFUL).".q.|
00000840: C0 00 48 24 28 35 29 B2 22 1F 59 4F 55 52 20 43 |..H$(5).".YOUR C|
00000850: 55 52 52 45 4E 54 20 53 45 58 3A 20 4D 3D 4D 41 |URRENT SEX: M=MA|
00000860: 4C 45 20 46 3D 46 45 4D 41 4C 45 20 20 20 20 90 |LE F=FEMALE .|
00000870: 22 00 A5 10 C2 00 48 24 28 36 29 B2 22 1F 46 52 |".....H$(6).".FR|
00000880: 41 4D 45 20 53 49 5A 45 3A 20 53 3D 53 4D 41 4C |AME SIZE: S=SMAL|
00000890: 4C 20 4D 3D 4D 45 44 49 55 4D 20 4C 3D 4C 41 52 |L M=MEDIUM L=LAR|
000008A0: 47 45 20 90 22 00 D9 10 C4 00 48 24 28 37 29 B2 |GE .".....H$(7).|
000008B0: 22 1F 4C 45 56 45 4C 3A 20 31 3D 53 45 44 45 4E |".LEVEL: 1=SEDEN|
000008C0: 54 41 52 59 20 54 48 52 55 20 35 3D 53 45 56 45 |TARY THRU 5=SEVE|
000008D0: 52 45 20 20 20 20 20 90 22 00 0E 11 C6 00 48 24 |RE .".....H$|
000008E0: 28 31 30 29 B2 22 1F 45 4E 54 45 52 20 4E 55 4D |(10).".ENTER NUM|
000008F0: 42 45 52 20 4F 46 20 43 41 4C 4F 52 49 45 53 20 |BER OF CALORIES |
00000900: 50 45 52 20 44 41 59 20 20 20 20 20 90 22 00 43 |PER DAY .".C|
00000910: 11 C8 00 48 24 28 31 31 29 B2 22 1F 45 4E 54 45 |...H$(11).".ENTE|
00000920: 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 |R THE NUMBER OF |
00000930: 44 41 59 53 20 49 4E 20 44 49 45 54 20 20 20 20 |DAYS IN DIET |
00000940: 20 90 22 00 82 11 CA 00 52 57 24 B2 22 13 11 11 | .".....RW$."...|
00000950: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000960: 11 11 11 11 11 11 22 3A 42 4B 24 B2 22 9D 9D 9D |......":BK$."...|
00000970: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000980: 9D 22 00 A1 11 CC 00 46 52 24 B2 22 20 20 20 20 |.".....FR$." |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009A0: 22 00 BC 11 CE 00 8D 33 32 32 3A 9F 33 2C 33 3A |"......322:.3,3:|
000009B0: 45 B2 39 3A 8D 33 31 36 3A 4C B2 31 00 DA 11 D0 |E.9:.316:L.1....|
000009C0: 00 45 B2 39 3A 8D 33 31 36 3A 8D 33 35 38 3A 8B |.E.9:.316:.358:.|
000009D0: 43 30 B2 31 33 33 A7 32 33 30 00 E9 11 D2 00 8B |C0.133.230......|
000009E0: 43 30 B2 31 39 A7 4C B2 30 00 FB 11 D4 00 8B 43 |C0.19.L.0......C|
000009F0: 30 B2 31 34 35 A7 4C B2 4C AB 32 00 10 12 D6 00 |0.145.L.L.2.....|
00000A00: 8B 43 30 B2 31 34 37 A7 4C B2 30 3A 8D 33 35 34 |.C0.147.L.0:.354|
00000A10: 00 25 12 D8 00 8B 43 30 B2 36 33 A7 8D 33 32 30 |.%....C0.63..320|
00000A20: 3A 89 32 30 38 00 33 12 DA 00 8B 4C B3 30 A7 4C |:.208.3....L.0.L|
00000A30: B2 31 30 00 47 12 DC 00 4C B2 4C AA 31 3A 8B 4C |.10.G...L.L.1:.L|
00000A40: B1 31 31 A7 4C B2 31 00 5D 12 DE 00 8B 4C B2 39 |.11.L.1.]....L.9|
00000A50: AF 43 30 B2 31 34 35 A7 4C B2 4C AB 32 00 6C 12 |.C0.145.L.L.2.l.|
00000A60: E0 00 8B 4C B2 38 A7 4C B2 4C AA 31 00 7B 12 E2 |...L.8.L.L.1.{..|
00000A70: 00 8B 4C B2 39 A7 4C B2 4C AA 31 00 8D 12 E4 00 |..L.9.L.L.1.....|
00000A80: 45 B2 30 3A 8D 33 31 38 3A 89 32 30 38 00 C1 12 |E.0:.318:.208...|
00000A90: E6 00 45 B2 31 30 3A 8D 33 31 36 3A 4C B2 31 3A |..E.10:.316:L.1:|
00000AA0: 8D 33 39 36 3A 41 31 B2 C5 28 53 54 24 29 3A 4C |.396:A1..(ST$):L|
00000AB0: B2 32 3A 8D 33 39 36 3A 41 32 B2 C5 28 53 54 24 |.2:.396:A2..(ST$|
00000AC0: 29 00 ED 12 E8 00 4C B2 31 30 3A 8D 33 39 36 3A |).....L.10:.396:|
00000AD0: 41 38 B2 C5 28 53 54 24 29 3A 4C B2 31 31 3A 8D |A8..(ST$):L.11:.|
00000AE0: 33 39 36 3A 41 30 B2 C5 28 53 54 24 29 00 0E 13 |396:A0..(ST$)...|
00000AF0: EA 00 8B 41 38 B2 30 AF 41 30 B2 30 A7 45 B2 38 |...A8.0.A0.0.E.8|
00000B00: 3A 8D 33 31 38 3A 4C B2 31 3A 89 32 30 38 00 32 |:.318:L.1:.208.2|
00000B10: 13 EC 00 8B 41 38 B3 B1 30 AF 41 30 B3 B1 30 A7 |....A8..0.A0..0.|
00000B20: 45 B2 31 31 3A 8D 33 31 38 3A 4C B2 31 3A 89 32 |E.11:.318:L.1:.2|
00000B30: 30 38 00 42 13 EE 00 41 32 B2 41 31 AC 31 32 AA |08.B...A2.A1.12.|
00000B40: 41 32 00 5F 13 F0 00 8B 41 32 B3 35 38 A7 45 B2 |A2._....A2.58.E.|
00000B50: 31 3A 8D 33 31 38 3A 4C B2 31 3A 89 32 30 38 00 |1:.318:L.1:.208.|
00000B60: 7C 13 F2 00 8B 41 32 B1 37 37 A7 45 B2 32 3A 8D ||....A2.77.E.2:.|
00000B70: 33 31 38 3A 4C B2 31 3A 89 32 30 38 00 9C 13 F4 |318:L.1:.208....|
00000B80: 00 4C B2 35 3A 8D 33 39 36 3A 41 33 B2 32 3A 8B |.L.5:.396:A3.2:.|
00000B90: 53 54 24 B2 22 4D 22 A7 41 33 B2 31 00 BC 13 F6 |ST$."M".A3.1....|
00000BA0: 00 4C B2 36 3A 8D 33 39 36 3A 41 34 B2 31 3A 8B |.L.6:.396:A4.1:.|
00000BB0: 53 54 24 B2 22 4D 22 A7 41 34 B2 32 00 CE 13 F8 |ST$."M".A4.2....|
00000BC0: 00 8B 53 54 24 B2 22 4C 22 A7 41 34 B2 33 00 0B |..ST$."L".A4.3..|
00000BD0: 14 FA 00 42 30 B2 43 31 28 41 33 2C 41 34 29 AC |...B0.C1(A3,A4).|
00000BE0: 41 32 AB 43 32 28 41 33 2C 41 34 29 3A 42 32 B2 |A2.C2(A3,A4):B2.|
00000BF0: B5 28 42 30 AC 2E 32 35 AA 2E 35 29 AD 31 30 3A |.(B0..25..5).10:|
00000C00: 42 30 B2 B5 28 42 30 AA 2E 35 29 00 3C 14 FC 00 |B0..(B0..5).<...|
00000C10: 99 C8 28 52 57 24 2C 49 25 28 38 2C 31 29 29 A6 |..(RW$,I%(8,1)).|
00000C20: 49 25 28 38 2C 32 29 29 3B C9 28 C4 28 B5 28 42 |I%(8,2));.(.(.(B|
00000C30: 30 AB 42 32 AA 2E 35 29 29 2C 33 29 00 6D 14 FE |0.B2..5)),3).m..|
00000C40: 00 99 C8 28 52 57 24 2C 49 25 28 39 2C 31 29 29 |...(RW$,I%(9,1))|
00000C50: A6 49 25 28 39 2C 32 29 29 3B C9 28 C4 28 B5 28 |.I%(9,2));.(.(.(|
00000C60: 42 30 AA 42 32 AA 2E 35 29 29 2C 33 29 00 99 14 |B0.B2..5)),3)...|
00000C70: 00 01 4C B2 34 3A 8D 33 39 36 3A 41 35 B2 C5 28 |..L.4:.396:A5..(|
00000C80: 53 54 24 29 3A 8B 41 35 B3 31 36 A7 45 B2 33 3A |ST$):.A5.16.E.3:|
00000C90: 8D 33 31 38 3A 89 32 30 38 00 B2 14 02 01 8B 41 |.318:.208......A|
00000CA0: 35 B1 37 33 A7 45 B2 34 3A 8D 33 31 38 3A 89 32 |5.73.E.4:.318:.2|
00000CB0: 30 38 00 DD 14 04 01 4C B2 33 3A 8D 33 39 36 3A |08.....L.3:.396:|
00000CC0: 41 31 B2 C5 28 53 54 24 29 3A 8B 41 31 B3 31 A7 |A1..(ST$):.A1.1.|
00000CD0: 45 B2 35 3A 8D 33 31 38 3A 89 32 30 38 00 0D 15 |E.5:.318:.208...|
00000CE0: 06 01 4C B2 37 3A 8D 33 39 36 3A 41 36 B2 C5 28 |..L.7:.396:A6..(|
00000CF0: 53 54 24 29 3A 8B 41 36 B3 31 B0 41 36 B1 35 A7 |ST$):.A6.1.A6.5.|
00000D00: 45 B2 36 3A 8D 33 31 38 3A 89 32 30 38 00 28 15 |E.6:.318:.208.(.|
00000D10: 08 01 49 30 B2 B5 28 41 35 AD 31 38 29 3A 8B 49 |..I0..(A5.18):.I|
00000D20: 30 B3 31 A7 49 30 B2 31 00 5A 15 0A 01 49 31 B2 |0.1.I0.1.Z...I1.|
00000D30: 49 30 AA 28 41 33 AC 33 AB 33 29 3A 49 32 B2 B5 |I0.(A3.3.3):I2..|
00000D40: 28 31 AA 28 28 41 32 AB 36 30 29 AD 36 29 29 3A |(1.((A2.60).6)):|
00000D50: 8B 49 32 B3 31 A7 49 32 B2 31 00 69 15 0C 01 8B |.I2.1.I2.1.i....|
00000D60: 49 32 B1 33 A7 49 32 B2 33 00 B5 15 0E 01 57 31 |I2.3.I2.3.....W1|
00000D70: B2 43 33 28 41 36 29 AC 41 31 3A 57 32 B2 28 41 |.C3(A6).A1:W2.(A|
00000D80: 31 AE 2E 34 32 35 29 AC 43 34 28 49 31 2C 49 32 |1..425).C4(I1,I2|
00000D90: 29 3A 42 32 B2 B5 28 31 2E 31 31 AC 28 57 31 AA |):B2..(1.11.(W1.|
00000DA0: 57 32 29 AA 2E 35 29 3A 42 33 B2 28 41 31 AB 42 |W2)..5):B3.(A1.B|
00000DB0: 30 29 AD 42 30 00 D4 15 10 01 8B 42 33 B3 B2 2E |0).B0......B3...|
00000DC0: 30 34 A7 45 B2 37 3A 8D 33 31 38 3A 4C B2 31 3A |04.E.7:.318:L.1:|
00000DD0: 89 32 30 38 00 EB 15 12 01 41 37 B2 41 31 AB 42 |.208.....A7.A1.B|
00000DE0: 30 3A 8B 41 38 B2 30 A7 32 38 38 00 0C 16 14 01 |0:.A8.0.288.....|
00000DF0: 41 39 B2 41 31 AB 41 37 3A 57 31 B2 41 31 3A 41 |A9.A1.A7:W1.A1:A|
00000E00: 30 B2 30 3A 4A B2 30 3A 57 33 B2 30 00 45 16 16 |0.0:J.0:W3.0.E..|
00000E10: 01 41 30 B2 41 30 AA 31 3A 57 36 B2 43 33 28 41 |.A0.A0.1:W6.C3(A|
00000E20: 36 29 AC 57 31 3A 57 37 B2 28 57 31 AE 2E 34 32 |6).W1:W7.(W1..42|
00000E30: 35 29 AC 43 34 28 49 31 2C 49 32 29 3A 42 32 B2 |5).C4(I1,I2):B2.|
00000E40: 57 36 AA 57 37 00 65 16 18 01 57 33 B2 28 42 32 |W6.W7.e...W3.(B2|
00000E50: AB 41 38 AC 2E 39 29 AD 33 35 30 30 3A 57 31 B2 |.A8..9).3500:W1.|
00000E60: 57 31 AB 57 33 00 91 16 1A 01 8B 28 57 33 B1 30 |W1.W3......(W3.0|
00000E70: AF 28 57 31 AB 41 39 29 B1 30 29 B0 28 57 33 B3 |.(W1.A9).0).(W3.|
00000E80: B2 30 AF 28 57 31 AB 41 39 29 B3 30 29 A7 32 37 |.0.(W1.A9).0).27|
00000E90: 38 00 AD 16 1C 01 8B 41 30 B3 32 A7 45 B2 38 3A |8......A0.2.E.8:|
00000EA0: 8D 33 31 38 3A 4C B2 31 3A 89 32 30 38 00 BE 16 |.318:L.1:.208...|
00000EB0: 1E 01 41 30 B2 41 30 AB 31 3A 89 32 39 34 00 EF |..A0.A0.1:.294..|
00000EC0: 16 20 01 57 36 B2 43 33 28 41 36 29 AC 41 31 3A |. .W6.C3(A6).A1:|
00000ED0: 57 37 B2 28 41 31 AE 2E 34 32 35 29 AC 43 34 28 |W7.(A1..425).C4(|
00000EE0: 49 31 2C 49 32 29 3A 42 32 B2 57 36 AA 57 37 00 |I1,I2):B2.W6.W7.|
00000EF0: 15 17 22 01 58 58 B2 41 37 AD 41 30 3A 58 58 B2 |..".XX.A7.A0:XX.|
00000F00: 28 58 58 AC 33 30 33 35 29 AD 2E 39 3A 41 38 B2 |(XX.3035)..9:A8.|
00000F10: 42 32 AB 58 58 00 31 17 24 01 8B 41 38 B3 30 A7 |B2.XX.1.$..A8.0.|
00000F20: 45 B2 38 3A 8D 33 31 38 3A 4C B2 31 3A 89 32 30 |E.8:.318:L.1:.20|
00000F30: 38 00 64 17 26 01 99 C8 28 52 57 24 2C 49 25 28 |8.d.&...(RW$,I%(|
00000F40: 31 30 2C 31 29 29 A6 49 25 28 31 30 2C 32 29 29 |10,1)).I%(10,2))|
00000F50: C9 28 22 20 20 20 20 22 AA C4 28 B5 28 41 38 29 |.(" "..(.(A8)|
00000F60: 29 2C 34 29 00 9B 17 28 01 99 C8 28 52 57 24 2C |),4)...(...(RW$,|
00000F70: 49 25 28 31 31 2C 31 29 29 A6 49 25 28 31 31 2C |I%(11,1)).I%(11,|
00000F80: 32 29 29 C9 28 22 20 20 20 20 22 AA C4 28 B5 28 |2)).(" "..(.(|
00000F90: 41 30 29 29 2C 33 29 3A 4C B2 31 00 CE 17 2A 01 |A0)),3):L.1...*.|
00000FA0: 99 C8 28 52 57 24 2C 49 25 28 31 32 2C 31 29 29 |..(RW$,I%(12,1))|
00000FB0: A6 49 25 28 31 32 2C 32 29 29 C9 28 22 20 20 20 |.I%(12,2)).(" |
00000FC0: 20 22 AA C4 28 B5 28 41 37 29 29 2C 33 29 00 E5 | "..(.(A7)),3)..|
00000FD0: 17 2C 01 45 B2 30 3A 8D 33 31 36 3A 45 B2 31 32 |.,.E.0:.316:E.12|
00000FE0: 3A 8D 33 31 38 00 F8 17 2E 01 A1 5A 24 3A 8B 5A |:.318......Z$:.Z|
00000FF0: 24 B2 22 22 A7 33 30 32 00 0A 18 30 01 45 B2 30 |$."".302...0.E.0|
00001000: 3A 8D 33 31 36 3A 8D 33 31 38 00 1A 18 32 01 8B |:.316:.318...2..|
00001010: 5A 24 B2 22 4E 22 A7 32 30 38 00 2B 18 34 01 8B |Z$."N".208.+.4..|
00001020: 5A 24 B3 B1 22 59 22 A7 33 30 30 00 5B 18 36 01 |Z$.."Y".300.[.6.|
00001030: 9F 34 2C 50 44 3A 9E 34 39 31 35 32 3A 9E 34 39 |.4,PD:.49152:.49|
00001040: 31 35 32 3A 8B 53 54 B2 AB 31 32 38 A7 45 B2 31 |152:.ST..128.E.1|
00001050: 33 3A 8D 33 31 38 3A 89 32 30 38 00 91 18 38 01 |3:.318:.208...8.|
00001060: 99 22 13 22 3B 3A 81 41 B2 31 A4 32 34 3A 81 42 |.".";:.A.1.24:.B|
00001070: B2 31 A4 34 30 3A A1 23 33 2C 41 24 3A 8B C6 28 |.1.40:.#3,A$:..(|
00001080: 41 24 AA 22 20 22 29 B2 31 33 A7 41 24 B2 22 20 |A$." ").13.A$." |
00001090: 22 00 B4 18 3A 01 98 34 2C 41 24 3B 3A 82 3A 98 |"...:..4,A$;:.:.|
000010A0: 34 3A 82 3A 98 34 3A 98 34 3A 98 34 3A A0 34 3A |4:.:.4:.4:.4:.4:|
000010B0: 89 32 30 38 00 CD 18 3C 01 99 C8 28 52 57 24 2C |.208...<...(RW$,|
000010C0: 32 33 29 A6 31 29 45 24 28 45 29 3A 8E 00 E6 18 |23).1)E$(E):....|
000010D0: 3E 01 99 C8 28 52 57 24 2C 32 34 29 A6 31 29 45 |>...(RW$,24).1)E|
000010E0: 24 28 45 29 3A 8E 00 FF 18 40 01 99 C8 28 52 57 |$(E):....@...(RW|
000010F0: 24 2C 32 34 29 A6 31 29 48 24 28 4C 29 3A 8E 00 |$,24).1)H$(L):..|
00001100: 32 19 42 01 41 31 24 B2 22 20 D5 C0 C0 C0 C0 C0 |2.B.A1$." ......|
00001110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 20 |............... |
00001130: 20 22 00 69 19 44 01 41 31 24 B2 41 31 24 AA 22 | ".i.D.A1$.A1$."|
00001140: D5 B3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001160: 20 20 20 20 20 AB C9 20 22 00 9F 19 46 01 41 31 | .. "...F.A1|
00001170: 24 B2 41 31 24 AA 22 DD CA C0 C0 C0 C0 C0 C0 C0 |$.A1$.".........|
00001180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB DD 22 00 |..............".|
000011A0: CD 19 48 01 41 32 24 B2 22 DD 22 3A 81 49 B2 31 |..H.A2$.".":.I.1|
000011B0: A4 33 37 3A 41 32 24 B2 41 32 24 AA 22 20 22 3A |.37:A2$.A2$." ":|
000011C0: 82 3A 41 32 24 B2 41 32 24 AA 22 DD 22 00 FB 19 |.:A2$.A2$."."...|
000011D0: 4A 01 41 33 24 B2 22 CA 22 3A 81 49 B2 31 A4 33 |J.A3$.".":.I.1.3|
000011E0: 37 3A 41 33 24 B2 41 33 24 AA 22 C0 22 3A 82 3A |7:A3$.A3$.".":.:|
000011F0: 41 33 24 B2 41 33 24 AA 22 CB 22 00 12 1A 4C 01 |A3$.A3$."."...L.|
00001200: 99 22 93 90 11 44 49 45 54 20 44 4F 43 54 4F 52 |."...DIET DOCTOR|
00001210: 1F 22 00 26 1A 4E 01 81 41 B2 31 A4 34 30 3A 99 |.".&.N..A.1.40:.|
00001220: 22 B7 22 3B 3A 82 00 31 1A 50 01 8B 4C B2 FF A7 |".";:..1.P..L...|
00001230: 8E 00 50 1A 52 01 99 22 98 22 41 31 24 3A 81 49 |..P.R.."."A1$:.I|
00001240: B2 31 A4 34 3A 99 41 32 24 3A 82 3A 99 41 33 24 |.1.4:.A2$:.:.A3$|
00001250: 00 6F 1A 54 01 99 22 98 22 41 31 24 3A 81 49 B2 |.o.T.."."A1$:.I.|
00001260: 31 A4 35 3A 99 41 32 24 3A 82 3A 99 41 33 24 00 |1.5:.A2$:.:.A3$.|
00001270: 88 1A 56 01 41 31 24 B2 22 22 3A 41 32 24 B2 22 |..V.A1$."":A2$."|
00001280: 22 3A 41 33 24 B2 22 22 00 AB 1A 58 01 99 22 13 |":A3$.""...X..".|
00001290: 11 11 11 11 1F 22 A6 31 33 29 22 50 45 52 53 4F |.....".13)"PERSO|
000012A0: 4E 41 4C 20 44 41 54 41 11 90 22 00 D9 1A 5A 01 |NAL DATA.."...Z.|
000012B0: 99 A6 32 29 22 48 45 49 47 48 54 20 20 20 57 45 |..2)"HEIGHT WE|
000012C0: 49 47 48 54 20 20 20 41 47 45 20 20 20 53 45 58 |IGHT AGE SEX|
000012D0: 20 20 20 46 52 41 4D 45 22 00 19 1B 5C 01 99 A6 | FRAME"...\...|
000012E0: 32 29 22 11 11 50 48 59 53 49 43 41 4C 20 41 43 |2)"..PHYSICAL AC|
000012F0: 54 49 56 49 54 59 20 4C 45 56 45 4C 22 3A 99 A6 |TIVITY LEVEL":..|
00001300: 31 31 29 22 1F 11 11 44 49 45 54 20 49 4E 46 4F |11)"...DIET INFO|
00001310: 52 4D 41 54 49 4F 4E 90 22 00 4D 1B 5E 01 99 A6 |RMATION.".M.^...|
00001320: 32 29 22 11 49 44 45 41 4C 11 2D 2D 9D 9D 91 20 |2)".IDEAL.--... |
00001330: 57 45 49 47 48 54 20 20 20 20 20 20 43 41 4C 4F |WEIGHT CALO|
00001340: 52 49 45 53 20 50 45 52 20 44 41 59 22 00 79 1B |RIES PER DAY".y.|
00001350: 60 01 99 A6 32 29 22 11 11 44 41 59 53 20 49 4E |`...2)"..DAYS IN|
00001360: 20 44 49 45 54 20 20 20 20 20 20 20 20 57 45 49 | DIET WEI|
00001370: 47 48 54 20 4C 4F 53 53 22 00 AE 1B 62 01 81 49 |GHT LOSS"...b..I|
00001380: B2 31 A4 31 32 3A 99 C8 28 52 57 24 2C 49 25 28 |.1.12:..(RW$,I%(|
00001390: 49 2C 31 29 29 A6 49 25 28 49 2C 32 29 29 C8 28 |I,1)).I%(I,2)).(|
000013A0: 46 52 24 2C 49 25 28 49 2C 33 29 29 3A 82 00 B4 |FR$,I%(I,3)):...|
000013B0: 1B 64 01 8E 00 E4 1B 66 01 99 C8 28 52 57 24 2C |.d.....f...(RW$,|
000013C0: 49 25 28 4C 2C 31 29 29 A6 49 25 28 4C 2C 32 29 |I%(L,1)).I%(L,2)|
000013D0: 29 3A 43 31 B2 30 3A A1 23 33 2C 54 4B 24 3A 99 |):C1.0:.#3,TK$:.|
000013E0: 22 9D 22 3B 00 00 1C 68 01 81 49 B2 31 A4 35 30 |".";...h..I.1.50|
000013F0: 3A A1 43 24 3A 8B 43 24 B3 B1 22 22 89 33 36 36 |:.C$:.C$.."".366|
00001400: 00 25 1C 6A 01 82 3A 99 22 C6 9D 22 3B 3A 81 49 |.%.j..:."..";:.I|
00001410: B2 31 A4 35 30 3A A1 43 24 3A 8B 43 24 B3 B1 22 |.1.50:.C$:.C$.."|
00001420: 22 89 33 36 36 00 39 1C 6C 01 82 3A 99 54 4B 24 |".366.9.l..:.TK$|
00001430: 22 9D 22 3B 3A 89 33 36 30 00 78 1C 6E 01 43 30 |".";:.360.x.n.C0|
00001440: B2 C6 28 43 24 29 3A 8B 43 30 B2 31 33 B0 43 30 |..(C$):.C0.13.C0|
00001450: B2 31 37 B0 43 30 B2 31 34 35 B0 43 30 B2 31 39 |.17.C0.145.C0.19|
00001460: B0 43 30 B2 31 34 37 B0 43 30 B2 31 33 33 B0 43 |.C0.147.C0.133.C|
00001470: 30 B2 36 33 A7 33 39 34 00 87 1C 70 01 8B 43 30 |0.63.394...p..C0|
00001480: B2 33 32 89 33 38 34 00 AA 1C 72 01 8B 28 43 30 |.32.384...r..(C0|
00001490: B2 32 30 29 AF 28 43 31 B3 B1 30 29 A7 43 24 B2 |.20).(C1..0).C$.|
000014A0: 22 9D 20 9D 22 3A 89 33 38 34 00 D7 1C 74 01 8B |". .":.384...t..|
000014B0: 28 49 25 28 4C 2C 34 29 B2 30 B0 49 25 28 4C 2C |(I%(L,4).0.I%(L,|
000014C0: 34 29 B2 31 29 AF 28 34 37 B3 43 30 AF 43 30 B3 |4).1).(47.C0.C0.|
000014D0: 35 38 29 A7 33 38 34 00 F4 1C 76 01 8B 28 49 25 |58).384...v..(I%|
000014E0: 28 4C 2C 34 29 B2 31 29 AF 28 43 30 B2 34 36 29 |(L,4).1).(C0.46)|
000014F0: 89 33 38 34 00 19 1D 78 01 8B 28 49 25 28 4C 2C |.384...x..(I%(L,|
00001500: 34 29 B2 32 29 AF 28 43 30 B2 37 30 29 B0 28 43 |4).2).(C0.70).(C|
00001510: 30 B2 37 37 29 89 33 38 34 00 46 1D 7A 01 8B 28 |0.77).384.F.z..(|
00001520: 49 25 28 4C 2C 34 29 B2 33 29 AF 28 43 30 B2 38 |I%(L,4).3).(C0.8|
00001530: 33 29 B0 28 43 30 B2 37 37 29 B0 28 43 30 B2 37 |3).(C0.77).(C0.7|
00001540: 36 29 89 33 38 34 00 5C 1D 7C 01 8B 43 30 B2 32 |6).384.\.|..C0.2|
00001550: 39 B0 43 30 B2 31 35 37 89 33 38 34 00 65 1D 7E |9.C0.157.384.e.~|
00001560: 01 89 33 36 30 00 82 1D 80 01 8B 28 43 30 B2 32 |..360......(C0.2|
00001570: 30 B0 43 30 B2 31 35 37 29 AF 43 31 B3 31 89 33 |0.C0.157).C1.1.3|
00001580: 36 30 00 BB 1D 82 01 99 54 4B 24 22 9D 22 43 24 |60......TK$"."C$|
00001590: 3B 3A A1 23 33 2C 54 4B 24 3A 99 22 9D 22 3B 3A |;:.#3,TK$:.".";:|
000015A0: 8B 43 30 B2 32 30 A7 43 31 B2 43 31 AB 31 3A 54 |.C0.20.C1.C1.1:T|
000015B0: 4B 24 B2 22 20 22 3A 89 33 36 30 00 CF 1D 84 01 |K$." ":.360.....|
000015C0: 8B 43 30 B2 31 35 37 A7 43 31 B2 43 31 AB 32 00 |.C0.157.C1.C1.2.|
000015D0: EB 1D 86 01 43 31 B2 43 31 AA 31 3A 8B 43 31 B2 |....C1.C1.1:.C1.|
000015E0: 49 25 28 4C 2C 33 29 A7 33 39 34 00 F4 1D 88 01 |I%(L,3).394.....|
000015F0: 89 33 36 30 00 12 1E 8A 01 A1 23 33 2C 54 32 24 |.360......#3,T2$|
00001600: 3A 8B 54 32 24 B3 B1 54 4B 24 A7 99 22 9D 22 54 |:.T2$..TK$.."."T|
00001610: 4B 24 00 44 1E 8C 01 99 C8 28 52 57 24 2C 49 25 |K$.D.....(RW$,I%|
00001620: 28 4C 2C 31 29 29 A6 49 25 28 4C 2C 32 29 29 3B |(L,1)).I%(L,2));|
00001630: 3A 53 54 24 B2 22 22 3A 81 49 B2 31 A4 49 25 28 |:ST$."":.I.1.I%(|
00001640: 4C 2C 33 29 00 60 1E 8E 01 A1 23 33 2C 53 30 24 |L,3).`....#3,S0$|
00001650: 3A 53 54 24 B2 53 54 24 AA 53 30 24 3A 82 3A 8E |:ST$.ST$.S0$:.:.|
00001660: 00 00 00 |... |
..:.D..49152,169:.49153,04:.49154,32:.49
155,177:.49156,255.T.F..49157,96:."...":
PD.4:.49153,PD:.53280,1:.53281,1:L.....H
..322:."......".16)"..WARNING...".J.J.."
THIS PROGRAM IS ONLY INTENDED AS A GUIDE
";...L.."TO A PROPER DIET. IF YOU DESIR
E TO LOSE";.,.N.."WEIGHT, YOU SHOULD C
ONSULT WITH YOUR";.U.P.."DOCTOR BEFORE
STARTING ON A DIET.".Z.R..".MELODY HALL
PUBLISHING CORP."...T...12)"...MAKES NO
WARRANTY...".N.V.."THAT THE CALCULATION
S PERFORMED BY THIS";...X.."PROGRAM ARE
CORRECT OR SUITABLE FOR YOUR";.;.Z.."IN
DIVIDUAL CASE.":."..".8)"PRESS ANY KEY T
O CONTINUE".V.|..198,0:.198,1:.A$:."."..
.~..I%(12,4),DT(5),C1(2,3),C2(2,3),C3(5)
,C4(6,3),E$(13),H$(11).E....L.1.12:.I%(L
,1),I%(L,2),I%(L,3),I%(L,4):.......8,2,2
,0,8,6,2,0,8,12,3,0,8,20,2,0,8,27,1,2,8,
34,1,3,10,27,1,0,16,3,3,0.=....16,10,3,0
,16,26,4,0,19,6,3,0,19,26,3,0.\....I.1.2
:.J.1.3:.C1(I,J):.:....... 3.9167,4.0833
,4.5,3.4167,3.5833,4......I.1.2:.J.1.3:.
C2(I,J):.:..I.... 128.75,128.25,142.5,10
5,106,122......I.1.5:.C3(I):....... 3.68
,4.32,5.75,8,12.3......I.1.6:.J.1.3:.C4(
I,J):.:..:.... 186,199,210,175.7,183.5,1
99.Z.... 164,171.5,186,180,182,192.|....
164,171.5,186,154.5,162,175.....C6..454
:C7.2.54.C...E$(0)."
.".....E$(1).".YOU ARE
TOO SHORT FOR CALCULATION .".+. .E$(2
).".YOU ARE TOO TALL FOR CALCULATION
."._...E$(3).".YOU ARE TOO YOUNG FOR CA
LCULATION .".....E$(4).".YOU ARE TOO
OLD FOR CALCULATION .".G...E$(5).".
CAN'T CALCULATE ON CURRENT WEIGHT .".
....E$(6).".ACTIVITY LEVEL OUT OF RANGE
."./...E$(7).". ** NO D
IET NEEDED ** .".C...E$(8).".CAN'
T CALCULATE ON CURRENT DATA .".....
E$(9).".PRESS .F1. TO PROCESS DATA, .?.
FOR HELP".N...E$(10).". ** CALC
ULATING ** .".....E$(11).".TOO
MUCH DATA! .".8...
E$(12).".WANT TO PRINT A HARDCOPY? (Y/N)
.".M...E$(13).".PRINTER DEVICE NOT
PRESENT .".....H$(1).".ENTER
YOUR HEIGHT IN FEET AND INCHES .".U...H$
(2).".ENTER YOUR HEIGHT IN FEET AND INCH
ES .".....H$(3).".ENTER YOUR CURRENT WEI
GHT IN POUNDS .".=...H$(4).".ENTER YOUR
AGE IN YEARS (BE TRUTHFUL).".Q...H$(5).
".YOUR CURRENT SEX: M=MALE F=FEMALE .
"...B.H$(6).".FRAME SIZE: S=SMALL M=MEDI
UM L=LARGE .".Y.D.H$(7).".LEVEL: 1=SEDEN
TARY THRU 5=SEVERE ."...F.H$(10).".E
NTER NUMBER OF CALORIES PER DAY .".C
.H.H$(11).".ENTER THE NUMBER OF DAYS IN
DIET ."...J.RW$."...................
......":BK$."...................."...L.F
R$." "...N..322:.3,3:
E.9:.316:L.1.Z.P.E.9:.316:.358:.C0.133.2
30...R..C0.19.L.0...T..C0.145.L.L.2...V.
.C0.147.L.0:.354.%.X..C0.63..320:.208.3.
Z..L.0.L.10.G...L.L.1:.L.11.L.1.]....L.9
.C0.145.L.L.2.L....L.8.L.L.1.{....L.9.L.
L.1.....E.0:.318:.208.A...E.10:.316:L.1:
.396:A1.E(ST$):L.2:.396:A2.E(ST$).....L.
10:.396:A8.E(ST$):L.11:.396:A0.E(ST$)...
...A8.0.A0.0.E.8:.318:L.1:.208.2....A8..
0.A0..0.E.11:.318:L.1:.208.B...A2.A1.12.
A2._....A2.58.E.1:.318:L.1:.208.|....A2.
77.E.2:.318:L.1:.208.....L.5:.396:A3.2:.
ST$."M".A3.1.....L.6:.396:A4.1:.ST$."M".
A4.2.N....ST$."L".A4.3.....B0.C1(A3,A4).
A2.C2(A3,A4):B2..(B0..25..5).10:B0..(B0.
.5).<....H(RW$,I%(8,1)).I%(8,2));I(D(.(B
0.B2..5)),3).M....H(RW$,I%(9,1)).I%(9,2)
);I(D(.(B0.B2..5)),3).....L.4:.396:A5.E(
ST$):.A5.16.E.3:.318:.208......A5.73.E.4
:.318:.208.....L.3:.396:A1.E(ST$):.A1.1.
E.5:.318:.208.....L.7:.396:A6.E(ST$):.A6
.1.A6.5.E.6:.318:.208.(...I0..(A5.18):.I
0.1.I0.1.Z...I1.I0.(A3.3.3):I2..(1.((A2.
60).6)):.I2.1.I2.1.I....I2.3.I2.3.....W1
.C3(A6).A1:W2.(A1..425).C4(I1,I2):B2..(1
.11.(W1.W2)..5):B3.(A1.B0).B0.T....B3...
04.E.7:.318:L.1:.208.....A7.A1.B0:.A8.0.
288.....A9.A1.A7:W1.A1:A0.0:J.0:W3.0.E..
.A0.A0.1:W6.C3(A6).W1:W7.(W1..425).C4(I1
,I2):B2.W6.W7.E...W3.(B2.A8..9).3500:W1.
W1.W3......(W3.0.(W1.A9).0).(W3..0.(W1.A
9).0).278......A0.2.E.8:.318:L.1:.208...
..A0.A0.1:.294... .W6.C3(A6).A1:W7.(A1..
425).C4(I1,I2):B2.W6.W7...".XX.A7.A0:XX.
(XX.3035)..9:A8.B2.XX.1.$..A8.0.E.8:.318
:L.1:.208.D.&..H(RW$,I%(10,1)).I%(10,2))
I(" ".D(.(A8)),4)...(..H(RW$,I%(11,1)
).I%(11,2))I(" ".D(.(A0)),3):L.1.N.*.
.H(RW$,I%(12,1)).I%(12,2))I(" ".D(.(A
7)),3)...,.E.0:.316:E.12:.318......Z$:.Z
$."".302...0.E.0:.316:.318...2..Z$."N".2
08.+.4..Z$.."Y".300.[.6..4,PD:.49152:.49
152:.ST..128.E.13:.318:.208...8..".";:.A
.1.24:.B.1.40:.#3,A$:.F(A$." ").13.A$."
"...:..4,A$;:.:.4:.:.4:.4:.4: 4:.208.M.<
..H(RW$,23).1)E$(E):....>..H(RW$,24).1)E
$(E):....@..H(RW$,24).1)H$(L):..2.B.A1$.
" U...................................I
".I.D.A1$.A1$."U.
.I "...F.A1$.A1$.".J.......
............................K.".M.H.A2$.
".":.I.1.37:A2$.A2$." ":.:A2$.A2$."."...
J.A3$."J":.I.1.37:A3$.A3$.".":.:A3$.A3$.
"K"...L.."...DIET DOCTOR.".&.N..A.1.40:.
".";:..1.P..L.....P.R.."."A1$:.I.1.4:.A2
$:.:.A3$.O.T.."."A1$:.I.1.5:.A2$:.:.A3$.
..V.A1$."":A2$."":A3$.""...X.."......".1
3)"PERSONAL DATA..".Y.Z...2)"HEIGHT WE
IGHT AGE SEX FRAME"...\...2)"..PHY
SICAL ACTIVITY LEVEL":..11)"...DIET INFO
RMATION.".M.^...2)".IDEAL.--... WEIGHT
CALORIES PER DAY".Y.`...2)"..DAYS IN
DIET WEIGHT LOSS"...B..I.1.12:.H
(RW$,I%(I,1)).I%(I,2))H(FR$,I%(I,3)):...
.D.....F..H(RW$,I%(L,1)).I%(L,2)):C1.0:.
#3,TK$:.".";...H..I.1.50:.C$:.C$.."".366
.%.J..:."F.";:.I.1.50:.C$:.C$.."".366.9.
L..:.TK$".";:.360.X.N.C0.F(C$):.C0.13.C0
.17.C0.145.C0.19.C0.147.C0.133.C0.63.394
...P..C0.32.384...R..(C0.20).(C1..0).C$.
". .":.384.W.T..(I%(L,4).0.I%(L,4).1).(4
7.C0.C0.58).384...V..(I%(L,4).1).(C0.46)
.384...X..(I%(L,4).2).(C0.70).(C0.77).38
4.F.Z..(I%(L,4).3).(C0.83).(C0.77).(C0.7
6).384.\.|..C0.29.C0.157.384.E.~..360...
...(C0.20.C0.157).C1.1.360......TK$"."C$
;:.#3,TK$:.".";:.C0.20.C1.C1.1:TK$." ":.
360.O....C0.157.C1.C1.2.....C1.C1.1:.C1.
I%(L,3).394......360......#3,T2$:.T2$..T
K$.."."TK$.D....H(RW$,I%(L,1)).I%(L,2));
:ST$."":.I.1.I%(L,3).`....#3,S0$:ST$.ST$
.S0$:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL