)� > <BasicSave$dir>.Diet A Good Diet?
� by The Safe Scientist
� (c) The Micro User
(:
2� 3:�19,0,4;0;
<Max%=3:Total%=0
F� food$(Max%),energy(Max%)
P9�ask("Good morning! What do you want for breakfast?")
Z-�ask("At last! It's morning break time!")
d#�ask("Hurrah! It's lunchtime!")
n/�ask("After school ... how about a snack?")
x0�ask("It's time for the main evening meal.")
��results
��"Press Space to try again"
�� � �=32:�
�:
�
��ask(q$)
��:�:� q$
�� N%=1 � Max%
�� food$(N%),energy(N%)
��N%") "food$(N%)
��
��"Choose one";
�� �C%:�C%>0 � C%<=Max%
�Total%=Total%+energy(C%)

�"Press Space to continue"

� � �=32:�

�

":

,
��results

6�:�

@6�"Your energy for the day is ";Total%" kilojoules"

J�:�

T9�"You probably need between 6000 and 8000 kilojoules"

^9� Total%>8000 �"You should eat less or exercise more"

h(� Total%<6000 �"You should eat more"

r.� Total%>=6000 � Total%<=8000 �"Well done"

|�

�:

�(� "Bacon, eggs and fried bread",1500

�1� "A bowl of cornflakes, milk and sugar",1200

�#� "Nothing - not enough time",0

�:

�� "A bag of crisps",800

�� "A Mars bar",1200

�� "Nothing",0

�:

�D� "Lamb, cabbage and roast potatoes, apple pie and custard",2900

�8� "Beefburger, beans and chips plus a doughnut",3900

�(� "Cheese salad and a yoghourt",2100

�:
 � "A packet of peanuts",1000
� "A cheese sandwich",1000
� "Nothing",0
&:
0&� "Pork chop, peas and chips",2200
:#� "A couple of sandwiches",1800
D� "Fish and chips",1500
N:
X� "Another Mars bar",1200
b� "A bag of crisps",800
l� "Nothing",0
�

00000000  0d 00 0a 29 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...). > <BasicSa|
00000010  76 65 24 64 69 72 3e 2e  44 69 65 74 20 41 20 47  |ve$dir>.Diet A G|
00000020  6f 6f 64 20 44 69 65 74  3f 0d 00 14 1b f4 20 62  |ood Diet?..... b|
00000030  79 20 54 68 65 20 53 61  66 65 20 53 63 69 65 6e  |y The Safe Scien|
00000040  74 69 73 74 0d 00 1e 18  f4 20 28 63 29 20 54 68  |tist..... (c) Th|
00000050  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 05  |e Micro User..(.|
00000060  3a 0d 00 32 12 eb 20 33  3a ef 31 39 2c 30 2c 34  |:..2.. 3:.19,0,4|
00000070  3b 30 3b 0d 00 3c 13 4d  61 78 25 3d 33 3a 54 6f  |;0;..<.Max%=3:To|
00000080  74 61 6c 25 3d 30 0d 00  46 1e de 20 66 6f 6f 64  |tal%=0..F.. food|
00000090  24 28 4d 61 78 25 29 2c  65 6e 65 72 67 79 28 4d  |$(Max%),energy(M|
000000a0  61 78 25 29 0d 00 50 39  f2 61 73 6b 28 22 47 6f  |ax%)..P9.ask("Go|
000000b0  6f 64 20 6d 6f 72 6e 69  6e 67 21 20 57 68 61 74  |od morning! What|
000000c0  20 64 6f 20 79 6f 75 20  77 61 6e 74 20 66 6f 72  | do you want for|
000000d0  20 62 72 65 61 6b 66 61  73 74 3f 22 29 0d 00 5a  | breakfast?")..Z|
000000e0  2d f2 61 73 6b 28 22 41  74 20 6c 61 73 74 21 20  |-.ask("At last! |
000000f0  49 74 27 73 20 6d 6f 72  6e 69 6e 67 20 62 72 65  |It's morning bre|
00000100  61 6b 20 74 69 6d 65 21  22 29 0d 00 64 23 f2 61  |ak time!")..d#.a|
00000110  73 6b 28 22 48 75 72 72  61 68 21 20 49 74 27 73  |sk("Hurrah! It's|
00000120  20 6c 75 6e 63 68 74 69  6d 65 21 22 29 0d 00 6e  | lunchtime!")..n|
00000130  2f f2 61 73 6b 28 22 41  66 74 65 72 20 73 63 68  |/.ask("After sch|
00000140  6f 6f 6c 20 2e 2e 2e 20  68 6f 77 20 61 62 6f 75  |ool ... how abou|
00000150  74 20 61 20 73 6e 61 63  6b 3f 22 29 0d 00 78 30  |t a snack?")..x0|
00000160  f2 61 73 6b 28 22 49 74  27 73 20 74 69 6d 65 20  |.ask("It's time |
00000170  66 6f 72 20 74 68 65 20  6d 61 69 6e 20 65 76 65  |for the main eve|
00000180  6e 69 6e 67 20 6d 65 61  6c 2e 22 29 0d 00 82 0c  |ning meal.")....|
00000190  f2 72 65 73 75 6c 74 73  0d 00 8c 1f f1 22 50 72  |.results....."Pr|
000001a0  65 73 73 20 53 70 61 63  65 20 74 6f 20 74 72 79  |ess Space to try|
000001b0  20 61 67 61 69 6e 22 0d  00 96 0e f5 20 fd 20 a5  | again"..... . .|
000001c0  3d 33 32 3a f9 0d 00 a0  05 3a 0d 00 aa 0d dd f2  |=32:.....:......|
000001d0  61 73 6b 28 71 24 29 0d  00 b4 0c f1 3a f1 3a f1  |ask(q$).....:.:.|
000001e0  20 71 24 0d 00 be 11 e3  20 4e 25 3d 31 20 b8 20  | q$..... N%=1 . |
000001f0  4d 61 78 25 0d 00 c8 1a  f3 20 66 6f 6f 64 24 28  |Max%..... food$(|
00000200  4e 25 29 2c 65 6e 65 72  67 79 28 4e 25 29 0d 00  |N%),energy(N%)..|
00000210  d2 14 f1 4e 25 22 29 20  22 66 6f 6f 64 24 28 4e  |...N%") "food$(N|
00000220  25 29 0d 00 dc 05 ed 0d  00 e6 12 f1 22 43 68 6f  |%).........."Cho|
00000230  6f 73 65 20 6f 6e 65 22  3b 0d 00 f0 1a f5 20 e8  |ose one";..... .|
00000240  43 25 3a fd 43 25 3e 30  20 80 20 43 25 3c 3d 4d  |C%:.C%>0 . C%<=M|
00000250  61 78 25 0d 00 fa 1c 54  6f 74 61 6c 25 3d 54 6f  |ax%....Total%=To|
00000260  74 61 6c 25 2b 65 6e 65  72 67 79 28 43 25 29 0d  |tal%+energy(C%).|
00000270  01 04 1e f1 22 50 72 65  73 73 20 53 70 61 63 65  |...."Press Space|
00000280  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 0d 01 0e  | to continue"...|
00000290  0e f5 20 fd 20 a5 3d 33  32 3a db 0d 01 18 05 e1  |.. . .=32:......|
000002a0  0d 01 22 05 3a 0d 01 2c  0d dd f2 72 65 73 75 6c  |..".:..,...resul|
000002b0  74 73 0d 01 36 07 f1 3a  f1 0d 01 40 36 f1 22 59  |ts..6..:...@6."Y|
000002c0  6f 75 72 20 65 6e 65 72  67 79 20 66 6f 72 20 74  |our energy for t|
000002d0  68 65 20 64 61 79 20 69  73 20 22 3b 54 6f 74 61  |he day is ";Tota|
000002e0  6c 25 22 20 6b 69 6c 6f  6a 6f 75 6c 65 73 22 0d  |l%" kilojoules".|
000002f0  01 4a 07 f1 3a f1 0d 01  54 39 f1 22 59 6f 75 20  |.J..:...T9."You |
00000300  70 72 6f 62 61 62 6c 79  20 6e 65 65 64 20 62 65  |probably need be|
00000310  74 77 65 65 6e 20 36 30  30 30 20 61 6e 64 20 38  |tween 6000 and 8|
00000320  30 30 30 20 6b 69 6c 6f  6a 6f 75 6c 65 73 22 0d  |000 kilojoules".|
00000330  01 5e 39 e7 20 54 6f 74  61 6c 25 3e 38 30 30 30  |.^9. Total%>8000|
00000340  20 f1 22 59 6f 75 20 73  68 6f 75 6c 64 20 65 61  | ."You should ea|
00000350  74 20 6c 65 73 73 20 6f  72 20 65 78 65 72 63 69  |t less or exerci|
00000360  73 65 20 6d 6f 72 65 22  0d 01 68 28 e7 20 54 6f  |se more"..h(. To|
00000370  74 61 6c 25 3c 36 30 30  30 20 f1 22 59 6f 75 20  |tal%<6000 ."You |
00000380  73 68 6f 75 6c 64 20 65  61 74 20 6d 6f 72 65 22  |should eat more"|
00000390  0d 01 72 2e e7 20 54 6f  74 61 6c 25 3e 3d 36 30  |..r.. Total%>=60|
000003a0  30 30 20 80 20 54 6f 74  61 6c 25 3c 3d 38 30 30  |00 . Total%<=800|
000003b0  30 20 f1 22 57 65 6c 6c  20 64 6f 6e 65 22 0d 01  |0 ."Well done"..|
000003c0  7c 05 e1 0d 01 86 05 3a  0d 01 90 28 dc 20 22 42  ||......:...(. "B|
000003d0  61 63 6f 6e 2c 20 65 67  67 73 20 61 6e 64 20 66  |acon, eggs and f|
000003e0  72 69 65 64 20 62 72 65  61 64 22 2c 31 35 30 30  |ried bread",1500|
000003f0  0d 01 9a 31 dc 20 22 41  20 62 6f 77 6c 20 6f 66  |...1. "A bowl of|
00000400  20 63 6f 72 6e 66 6c 61  6b 65 73 2c 20 6d 69 6c  | cornflakes, mil|
00000410  6b 20 61 6e 64 20 73 75  67 61 72 22 2c 31 32 30  |k and sugar",120|
00000420  30 0d 01 a4 23 dc 20 22  4e 6f 74 68 69 6e 67 20  |0...#. "Nothing |
00000430  2d 20 6e 6f 74 20 65 6e  6f 75 67 68 20 74 69 6d  |- not enough tim|
00000440  65 22 2c 30 0d 01 ae 05  3a 0d 01 b8 1b dc 20 22  |e",0....:..... "|
00000450  41 20 62 61 67 20 6f 66  20 63 72 69 73 70 73 22  |A bag of crisps"|
00000460  2c 38 30 30 0d 01 c2 17  dc 20 22 41 20 4d 61 72  |,800..... "A Mar|
00000470  73 20 62 61 72 22 2c 31  32 30 30 0d 01 cc 11 dc  |s bar",1200.....|
00000480  20 22 4e 6f 74 68 69 6e  67 22 2c 30 0d 01 d6 05  | "Nothing",0....|
00000490  3a 0d 01 e0 44 dc 20 22  4c 61 6d 62 2c 20 63 61  |:...D. "Lamb, ca|
000004a0  62 62 61 67 65 20 61 6e  64 20 72 6f 61 73 74 20  |bbage and roast |
000004b0  70 6f 74 61 74 6f 65 73  2c 20 61 70 70 6c 65 20  |potatoes, apple |
000004c0  70 69 65 20 61 6e 64 20  63 75 73 74 61 72 64 22  |pie and custard"|
000004d0  2c 32 39 30 30 0d 01 ea  38 dc 20 22 42 65 65 66  |,2900...8. "Beef|
000004e0  62 75 72 67 65 72 2c 20  62 65 61 6e 73 20 61 6e  |burger, beans an|
000004f0  64 20 63 68 69 70 73 20  70 6c 75 73 20 61 20 64  |d chips plus a d|
00000500  6f 75 67 68 6e 75 74 22  2c 33 39 30 30 0d 01 f4  |oughnut",3900...|
00000510  28 dc 20 22 43 68 65 65  73 65 20 73 61 6c 61 64  |(. "Cheese salad|
00000520  20 61 6e 64 20 61 20 79  6f 67 68 6f 75 72 74 22  | and a yoghourt"|
00000530  2c 32 31 30 30 0d 01 fe  05 3a 0d 02 08 20 dc 20  |,2100....:... . |
00000540  22 41 20 70 61 63 6b 65  74 20 6f 66 20 70 65 61  |"A packet of pea|
00000550  6e 75 74 73 22 2c 31 30  30 30 0d 02 12 1e dc 20  |nuts",1000..... |
00000560  22 41 20 63 68 65 65 73  65 20 73 61 6e 64 77 69  |"A cheese sandwi|
00000570  63 68 22 2c 31 30 30 30  0d 02 1c 11 dc 20 22 4e  |ch",1000..... "N|
00000580  6f 74 68 69 6e 67 22 2c  30 0d 02 26 05 3a 0d 02  |othing",0..&.:..|
00000590  30 26 dc 20 22 50 6f 72  6b 20 63 68 6f 70 2c 20  |0&. "Pork chop, |
000005a0  70 65 61 73 20 61 6e 64  20 63 68 69 70 73 22 2c  |peas and chips",|
000005b0  32 32 30 30 0d 02 3a 23  dc 20 22 41 20 63 6f 75  |2200..:#. "A cou|
000005c0  70 6c 65 20 6f 66 20 73  61 6e 64 77 69 63 68 65  |ple of sandwiche|
000005d0  73 22 2c 31 38 30 30 0d  02 44 1b dc 20 22 46 69  |s",1800..D.. "Fi|
000005e0  73 68 20 61 6e 64 20 63  68 69 70 73 22 2c 31 35  |sh and chips",15|
000005f0  30 30 0d 02 4e 05 3a 0d  02 58 1d dc 20 22 41 6e  |00..N.:..X.. "An|
00000600  6f 74 68 65 72 20 4d 61  72 73 20 62 61 72 22 2c  |other Mars bar",|
00000610  31 32 30 30 0d 02 62 1b  dc 20 22 41 20 62 61 67  |1200..b.. "A bag|
00000620  20 6f 66 20 63 72 69 73  70 73 22 2c 38 30 30 0d  | of crisps",800.|
00000630  02 6c 11 dc 20 22 4e 6f  74 68 69 6e 67 22 2c 30  |.l.. "Nothing",0|
00000640  0d ff                                             |..|
00000642