DIET DOCTOR

FILE INFORMATION

FILENAME(S): DIET DOCTOR

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 21:22:25

APPEARS ON: 1 disk(s)

FILE HASH

46e0943b7e9ca19ed1a5a9b257020c2bfe38d26bdfb1c32e8f48ac495bae4e66

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CRUNCHER TM	DIET DOCTOR	PRG	DuncanTwain	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                                       |                |

..:.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

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL