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