4MODE7
5REM DIET PROG (C) KEITH JOHNSON
10CLS
11@%=&20106
12PROCweight
13CLS
15VDU14
17PRINT TAB(3,6)"Planned diet, if you
want a printout press P else press s
pace bar"
20LET A=0
21A$=GET$:IF INKEY(-99) THEN GOTO 30
ELSE GOTO 23
23VDU2
24*FX5,1
25*FX4,8
26*FX6,10
30LET A=0
32FOR Y=1 TO 7
35LET pointer=5000+A
40RESTORE pointer
50READ day$
60LET N1=RND(10)
70LET N2=RND(11)+99
80LET N3=RND(46)+199
90LET N4=RND(13)+299
100RESTORE 10000
110FOR X=1 TO 79
120READ N,FOOD$,FAT
130PROCchoose
140NEXT X
150PRINT day$
160PROCmenu
170LET A=A+10
180NEXT Y
185GOTO 30
190DEFPROCchoose
192IF N2=100 AND N3>=241 THEN LET N2=1
01
200IF N1=N THEN LET lunch$=FOOD$
210IF N1=N THEN LET fatlunch=FAT
220IF N2=N THEN LET a1stcourse$=FOOD$
230IF N2=N THEN LET fat1=FAT
240IF N3=N THEN LET a2ndcourse$=FOOD$
250IF N3=N THEN LET fat2=FAT
260IF N4=N THEN LET a3rdcourse$=FOOD$
270IF N4=N THEN LET fat3=FAT
280ENDPROC
290DEFPROCmenu
300IF fatlunch+fat1+fat2+fat3>10 THEN
GOTO 60
302LET f=fatlunch+fat1+fat2+fat3
303IF f<=6 THEN LET f=f+4
310PRINT"fat units =";f
320PRINT"breakfast cornflakes with ski
mmed milk coffee without suga
r"
330PRINT"lunch ";lunch$
340PRINT" coffee without suga
r"
350PRINT"dinner ";a1stcourse$
360PRINT" ";a2ndcourse$
370PRINT" ";a3rdcourse$
380PRINT" coffee without suga
r"
382IF fatlunch+fat1+fat2+fat3<6 THEN P
RINT"drinks half pint of silver top
milk and any diet low cal
drinks"
384IF fatlunch+fat1+fat2+fat3>=6 THEN
PRINT"drinks skimmed milk and any die
t low cal drinks"
390PRINT" "
400ENDPROC
450DEFPROCweight
460PRINT TAB(3,6)"Before starting to d
iet see if you are overweight"
470INPUT TAB(3,8)"Enter your weight in
stones "w
480INPUT TAB(3,9)"Enter your height in
inches "ht
490INPUT TAB(3,10)"Enter your sex pres
s M or F "gender$
500 IF gender$="M" THEN GOTO 560 ELSE
GOTO 510
510REM FEMALE
515LET x=70-ht
516IF ht<60 THEN x=1
520LET highwt=(11.5/70*ht)-x*0.25
530LET lowwt=(10.5/70*ht)-x*0.25
540LET targetwt=(lowwt+highwt)/2
550 GOTO 600
560REM MALE
570LET highwt=ht/72*13.5
580LET lowwt=ht/72*11.5
590LET targetwt=(lowwt+highwt)/2
600IF w<=highwt AND w>=lowwt THEN PRIN
T TAB(3,15)"You do not need to diet. You
are close to your optimum we
ight which is ";targetwt" stones"
610IF w>highwt THEN PRINT TAB(3,15)"Yo
u should diet to your optimum we
ight which is ";targetwt" stones"
620IF w<lowwt THEN PRINT TAB(3,15)"You
should eat more not less to att
ain your optimum weight which is
";targetwt" stones"
630 PRINT TAB(3,20)"Press space bar"
640A$=GET$:IF INKEY(-99) THEN 650
650ENDPROC
5000DATA Monday
5010DATA Tuesday
5020DATA Wednesday
5030DATA Thursday
5040DATA Friday
5050DATA Saturday
5060DATA Sunday
10000DATA 1,cheese sandwich,1.5
10010DATA 2,cheese salad sandwich,2
10020DATA 3,turkey salad sandwich,1
10030DATA 4,ham salad sandwich,1
10040DATA 5,salad sandwich,0.5
10050DATA 6,corned beef salad sandwich,1
.5
10060DATA 7,ham salad sandwich,1
10070DATA 8,egg sandwich,2.5
10080DATA 9,ham salad sandwich,1
10090DATA 10,salad sandwich with mayonna
ise,1
10100DATA 100,baxters chicken broth,0
10110DATA 101,minestrone soup,1
10120DATA 102,boots shapers tomato soup,
0.5
10130DATA 103,boots shapers vegetable so
up,0
10140DATA 104,batchelors slim a soup bee
f and tomato,0
10150DATA 105,batchelors slim a soup bee
f and tomato,0
10160DATA 106,boots shapers beef and veg
etable soup,0.5
10170DATA 107,boots shapers tomato soup,
0.5
10180DATA 108,boots shapers oxtail soup,
1
10190DATA 109,boots shapers vegetable so
up,0
10195DATA 110,minestrone soup,1
10200DATA 200,crab salad with egg no dre
ssing,3.5
10210DATA 201,grilled plaice boiled pota
toes and peas,2
10220DATA 202,menu master chicken chow m
ein with noodles,2.5
10230DATA 203,menu master sheperds pie,5
.5
10240 DATA 204,menu master somerset chic
ken and veg bake,2
10250DATA 205,menu master beef stew and
dumpling,3
10260DATA 206,sardine salad no dressing,
4
10270DATA 207,menu master beef provencal
with veg and rice,2.5
10280DATA 208,findus lean cuisine bavari
an meatball casserole,2.5
10290DATA 209,crab salad with egg no dre
ssing,3.5
10300DATA 210,findus lean cuisine beef j
ulienne with rice,2
10310DATA 211,findus lean cuisine chicke
n and oriental vegetables with rice,2
10320DATA 212,tuna in brine (drained) le
ttuce and kellogs rice,0.5
10330DATA 213,findus lean cuisine beef a
nd pork cannelloni with mornay sau
ce,3
10340DATA 214,findus lean cuisine chicke
n a l'orange with almond rice,1.5
10350DATA 215,healthline chicken cacciat
ore,1.5
10360 DATA 216,healthline chili con carn
e,2
10380DATA 218,healthline elizabethan spi
ced beef,1.5
10390DATA 219,steak and onions and chips
,8.5
10400DATA 220,sausage and mash,8.5
10410DATA 221,cross and blackwell wholew
heat spagetti in tomato sauce,0.5
10420DATA 222,menu master lasagne,3.5
10430DATA 223,heinz baked beans with tom
ato sauce and toast,1.5
10440DATA 224,egg and mushroom salad,2
10450DATA 225,boiled or roast potatoes h
artleys carrots peas or sweetcorn,
0.5
10460DATA 226,ross 7 inch ham and mushro
om pizza,6
10470DATA 227,ross 7 inch cheese and tom
ato pizza,6.5
10480DATA 228,3oz plaice fried in breadc
rumbs mashed or boiled potatoes and veg
,4.5
10490DATA 229,3oz prawn salad with egg,3
10500DATA 230,pork chop (fat removed) gr
illed baked potatoes and veg,4.5
10510DATA 231,roast pork 2oz with baked
potatoes and veg,4
10520DATA 232,john west crab white rice
and lettuce,1.5
10530DATA 233,findus lean cuisine bavari
an meatball casserole,2.5
10540DATA 234,findus lean cuisine cod wi
th broccoli,4
10550DATA 235,findus lean cuisine cod fl
orentine,3
10560DATA 236,healthline liver mexicaine
,2
10570DATA 237,potato carrot and veg cass
erole,4
10580DATA 238,hotpot,5
10590DATA 239,vesta beef risotto,1.5
10600DATA 240,mc cain oven meal,8
10601DATA 241,chicken boiled potatoes an
d veg,4
10602DATA 242,chicken boiled potatoes an
d veg,4
10603DATA 243,chicken boiled potatoes an
d veg,4
10604DATA 244,chicken boiled potatoes an
d veg,4
10605DATA 245,chicken boiled potatoes an
d veg,4
10610DATA 300,boots or john west fruits
in natural juice or low calorie syrup
,0
10620DATA 301,libbys or nutradiet fruits
in natural juice,0
10630DATA 302,boots or john west fruits
in natural juice with 0.25 pint custa
rd,2
10640DATA 303,orange or apple,0
10650DATA 304,2oz portion of ice cream,1
.5
10660DATA 305,creamed rice,2.5
10670DATA 306,slimcea very low fat yogur
t,0
10680DATA 307,ross creme caramel,0.5
10690DATA 308,orange and cherries no top
ping,0
10700DATA 309,small jam tart,1
10710DATA 310,peaches with melon chunks,
0
10720DATA 311,peaches with cream,3
10730DATA 312,orange or apple,0