4-8
FILE INFORMATION
FILENAME(S): 4-8
FILE TYPE(S): PRG
FILE SIZE: 995b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
6e9c45e35f2749dba554209f6245db7940b7b9522b0e3cb60c504eeba529affd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 4-8 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
| PROG 64 WEST | 4-8 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..?.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000040: 7D 08 14 00 8F 20 2A 20 57 45 49 47 48 54 20 20 |}.... * WEIGHT | 00000050: 4C 4F 53 53 20 20 50 52 45 44 49 43 54 4F 52 20 |LOSS PREDICTOR | 00000060: 20 46 4F 52 20 20 44 49 45 54 45 52 53 3A 20 43 | FOR DIETERS: C| 00000070: 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 2A 00 BB 08 |OMMODORE 64 *...| 00000080: 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F9 08 28 00 |***********...(.| 000000C0: 8F 20 2A 20 41 53 53 55 4D 45 53 20 53 50 41 52 |. * ASSUMES SPAR| 000000D0: 45 20 46 41 54 2F 20 4E 4F 54 20 41 50 50 4C 49 |E FAT/ NOT APPLI| 000000E0: 43 41 42 4C 45 20 44 55 52 49 4E 47 20 50 52 45 |CABLE DURING PRE| 000000F0: 47 4E 41 4E 43 59 20 20 2A 00 37 09 32 00 8F 20 |GNANCY *.7.2.. | 00000100: 2A 2A 2A 28 43 29 2A 2A 52 41 45 2A 2A 57 45 53 |***(C)**RAE**WES| 00000110: 54 2A 2A 31 39 38 34 2A 2A 2A 2A 2A 2A 54 4F 2A |T**1984******TO*| 00000120: 56 49 56 2C 2A 52 49 43 48 41 52 44 2C 2A 4A 49 |VIV,*RICHARD,*JI| 00000130: 4D 2A 2A 2A 2A 2A 2A 00 41 09 64 00 99 20 22 93 |M******.A.d.. ".| 00000140: 22 00 5B 09 6E 00 85 20 22 57 45 49 47 48 54 20 |".[.n.. "WEIGHT | 00000150: 28 50 4F 55 4E 44 53 29 22 3B 50 00 83 09 78 00 |(POUNDS)";P...x.| 00000160: 85 20 22 49 4E 54 45 4E 44 45 44 20 44 41 49 4C |. "INTENDED DAIL| 00000170: 59 20 43 41 4C 4F 52 49 45 20 49 4E 54 41 4B 45 |Y CALORIE INTAKE| 00000180: 22 3B 43 00 B4 09 82 00 85 20 22 49 4E 41 43 54 |";C...... "INACT| 00000190: 49 56 45 2C 20 46 41 49 52 4C 59 2C 20 4F 52 20 |IVE, FAIRLY, OR | 000001A0: 56 45 52 59 20 41 43 54 49 56 45 20 28 30 2D 32 |VERY ACTIVE (0-2| 000001B0: 29 22 3B 41 00 E1 09 8C 00 85 20 22 4D 41 4C 45 |)";A...... "MALE| 000001C0: 2C 20 46 45 4D 41 4C 45 20 28 4D 20 4F 52 20 46 |, FEMALE (M OR F| 000001D0: 29 22 3B 53 24 3A 20 53 24 B2 C8 28 53 24 2C 31 |)";S$: S$..(S$,1| 000001E0: 29 00 FA 09 96 00 53 B2 31 3A 20 8B 20 53 24 B2 |).....S.1: . S$.| 000001F0: 22 46 22 20 A7 20 53 B2 2E 39 00 19 0A C8 00 99 |"F" . S..9......| 00000200: 20 22 93 22 20 53 24 20 22 20 20 57 45 49 47 48 | "." S$ " WEIGH| 00000210: 54 20 4E 4F 57 3A 22 20 50 00 33 0A D2 00 99 20 |T NOW:" P.3.... | 00000220: 22 43 41 4C 4F 52 49 45 20 49 4E 54 41 4B 45 3A |"CALORIE INTAKE:| 00000230: 22 20 43 00 39 0A DC 00 99 00 5F 0A E6 00 99 20 |" C.9....._.... | 00000240: 22 45 58 50 45 43 54 45 44 20 57 45 49 47 48 54 |"EXPECTED WEIGHT| 00000250: 20 46 4F 52 20 31 36 20 57 45 45 4B 53 3A 2D 00 | FOR 16 WEEKS:-.| 00000260: 6E 0A 2C 01 81 20 57 B2 30 20 A4 20 31 36 00 88 |n.,.. W.0 . 16..| 00000270: 0A 36 01 99 20 22 57 45 45 4B 22 20 57 20 B5 28 |.6.. "WEEK" W .(| 00000280: 50 AC 31 30 29 AD 31 30 00 96 0A 90 01 81 20 4A |P.10).10...... J| 00000290: B2 31 20 A4 20 37 00 D4 0A 9A 01 4D B2 50 AC 28 |.1 . 7.....M.P.(| 000002A0: 31 34 2E 33 AA 41 29 AC 53 20 AA 20 43 AD 31 30 |14.3.A).S . C.10| 000002B0: 20 20 20 20 20 20 3A 8F 20 4D 3D 43 41 4C 4F 52 | :. M=CALOR| 000002C0: 49 45 53 20 54 4F 20 4D 41 49 4E 54 41 49 4E 20 |IES TO MAINTAIN | 000002D0: 57 41 49 54 00 14 0B A4 01 44 B2 4D AB 43 20 20 |WAIT.....D.M.C | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 20 20 3A 8F 20 44 49 46 46 45 52 45 4E 43 | :. DIFFERENC| 00000300: 45 20 42 45 54 57 45 45 4E 20 4D 20 26 20 49 4E |E BETWEEN M & IN| 00000310: 54 41 4B 45 00 5C 0B AE 01 44 57 B2 44 AD 33 35 |TAKE.\...DW.D.35| 00000320: 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |00 | 00000330: 20 20 20 20 3A 8F 20 44 57 3D 57 45 49 47 48 54 | :. DW=WEIGHT| 00000340: 20 43 48 41 4E 47 45 3B 20 46 41 54 3D 33 35 30 | CHANGE; FAT=350| 00000350: 30 20 43 41 4C 53 2F 50 4F 55 4E 44 00 9D 0B B8 |0 CALS/POUND....| 00000360: 01 50 B2 50 AB 44 57 20 20 20 20 20 20 20 20 20 |.P.P.DW | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 50 | :. P| 00000380: 3D 50 52 45 44 49 43 54 45 44 20 57 45 49 47 48 |=PREDICTED WEIGH| 00000390: 54 20 41 46 54 45 52 20 31 20 44 41 59 00 D8 0B |T AFTER 1 DAY...| 000003A0: C2 01 82 20 4A 20 20 20 20 20 20 20 20 20 20 20 |... J | 000003B0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4C 4F 4F | :. LOO| 000003C0: 50 20 46 4F 52 20 31 20 57 45 45 4B 27 53 20 4C |P FOR 1 WEEK'S L| 000003D0: 4F 53 53 2F 47 41 49 4E 00 E0 0B F4 01 82 20 57 |OSS/GAIN...... W| 000003E0: 00 00 00 |... |
..?.... ********************************
***********************.}.... * WEIGHT
LOSS PREDICTOR FOR DIETERS: COMMODORE
64 *...... ****************************
***************************...(.. * ASSU
MES SPARE FAT/ NOT APPLICABLE DURING PRE
GNANCY *.7.2.. ***(C)**RAE**WEST**1984*
*****TO*VIV,*RICHARD,*JIM******.A.D.. ".
".[.N.. "WEIGHT (POUNDS)";P...X.. "INTEN
DED DAILY CALORIE INTAKE";C...... "INACT
IVE, FAIRLY, OR VERY ACTIVE (0-2)";A....
.. "MALE, FEMALE (M OR F)";S$: S$.H(S$,1
).....S.1: . S$."F" . S..9...H.. "." S$
" WEIGHT NOW:" P.3.R.. "CALORIE INTAKE:
" C.9....._.... "EXPECTED WEIGHT FOR 16
WEEKS:-.N.,.. W.0 . 16...6.. "WEEK" W .(
P.10).10...... J.1 . 7.T...M.P.(14.3.A).
S . C.10 :. M=CALORIES TO MAINTAIN
WAIT.....D.M.C :. D
IFFERENCE BETWEEN M & INTAKE.\...DW.D.35
00 :. DW=WEIGHT CHANGE;
FAT=3500 CALS/POUND.....P.P.DW
:. P=PREDICTED WEIGHT AFTER
1 DAY.X.B.. J :. LOO
P FOR 1 WEEK'S LOSS/GAIN...... W...
> CLICK IMAGE PREVIEW FOR FULL MODAL