� BTEC PROJECT "PAGE2" v.1.4
change%=0:*FX200,0
��D^A
(�mainwindow:�23,1,0;0;0;0;
2�:�c("DELIVERY CHARGES")
<that_one=�("CHARGE")
F�#that_one,A
P� #that_one
Z+�0,3)"Today's delivery charges are :-"
d�0,10)"      `0.";
n3�A<0.1 �displayA � �7,10);A;:�A � 10 = 0 �"0";
x�" per paper, per day."
�n�comwindow:�'''''"Change Delivery Charges"''"C : Change Delivery Charge"'"ESCAPE : Continue To Main Menu";
�B=�:�B=67 �tV@ � �tL@
�b�''''"Previous Charge   : `"':�21,1);:�A<0.1 �"0.";:�displayA � �21,1);A;:� A � 10 = 0 �"0";
�'�'"New Charge        : `";:�21,2)B
��B=A change%=0:�tB@
�K�B>0.99 B=B / 100:change%=1:�mainwindow:�0,10)�(33):A$=�(80):A=B:�Dd@
�e�B<0.01 change%=1:B=0:�mainwindow:�0,10)�(33):A$=�(80):�0,9)'�c("No Delivery Charge"):A=B:�tB@
�9change%=1:�mainwindow:�0,10)�(33):A$=�(80):A=B:�Dd@
�  
���displayA:�A=0.01 �"01";
��A=0 �"00";
��A=0.02 �"02";
��A=0.03 �"03";

�A=0.04 �"04";

�A=0.05 �"05";

�A=0.06 �"06";

"�A=0.07 �"07";

,�A=0.08 �"08";

6�A=0.09 �"09";

@�

J  

T�comwindow:�'''''''

^�change%=1�DrA

h*�'''''�c("Loading Main Menu")':�"MENU"

r?�''''�c("Saving New Delivery Charge")':this_one=�("CHARGE")

|�#this_one,A

��#this_one

�	�DhA

���mainwindow

��28,1,24,38,1

��

���comwindow

��28,1,30,38,27

��

�ݤc(C$):�19-�C$/2);:=C$ 
�

00000000  0d 00 0a 20 f4 20 42 54  45 43 20 50 52 4f 4a 45  |... . BTEC PROJE|
00000010  43 54 20 22 50 41 47 45  32 22 20 76 2e 31 2e 34  |CT "PAGE2" v.1.4|
00000020  0d 00 14 16 63 68 61 6e  67 65 25 3d 30 3a 2a 46  |....change%=0:*F|
00000030  58 32 30 30 2c 30 0d 00  1e 0b ee 85 e5 8d 44 5e  |X200,0........D^|
00000040  41 0d 00 28 1e f2 6d 61  69 6e 77 69 6e 64 6f 77  |A..(..mainwindow|
00000050  3a ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |:.23,1,0;0;0;0;.|
00000060  00 32 1d db 3a f1 a4 63  28 22 44 45 4c 49 56 45  |.2..:..c("DELIVE|
00000070  52 59 20 43 48 41 52 47  45 53 22 29 0d 00 3c 18  |RY CHARGES")..<.|
00000080  74 68 61 74 5f 6f 6e 65  3d 8e 28 22 43 48 41 52  |that_one=.("CHAR|
00000090  47 45 22 29 0d 00 46 10  e8 23 74 68 61 74 5f 6f  |GE")..F..#that_o|
000000a0  6e 65 2c 41 0d 00 50 0f  d9 20 23 74 68 61 74 5f  |ne,A..P.. #that_|
000000b0  6f 6e 65 0d 00 5a 2b f1  8a 30 2c 33 29 22 54 6f  |one..Z+..0,3)"To|
000000c0  64 61 79 27 73 20 64 65  6c 69 76 65 72 79 20 63  |day's delivery c|
000000d0  68 61 72 67 65 73 20 61  72 65 20 3a 2d 22 0d 00  |harges are :-"..|
000000e0  64 17 f1 8a 30 2c 31 30  29 22 20 20 20 20 20 20  |d...0,10)"      |
000000f0  60 30 2e 22 3b 0d 00 6e  33 e7 41 3c 30 2e 31 20  |`0.";..n3.A<0.1 |
00000100  f2 64 69 73 70 6c 61 79  41 20 8b 20 f1 8a 37 2c  |.displayA . ..7,|
00000110  31 30 29 3b 41 3b 3a e7  41 20 83 20 31 30 20 3d  |10);A;:.A . 10 =|
00000120  20 30 20 f1 22 30 22 3b  0d 00 78 1b f1 22 20 70  | 0 ."0";..x.." p|
00000130  65 72 20 70 61 70 65 72  2c 20 70 65 72 20 64 61  |er paper, per da|
00000140  79 2e 22 0d 00 82 6e f2  63 6f 6d 77 69 6e 64 6f  |y."...n.comwindo|
00000150  77 3a f1 27 27 27 27 27  22 43 68 61 6e 67 65 20  |w:.'''''"Change |
00000160  44 65 6c 69 76 65 72 79  20 43 68 61 72 67 65 73  |Delivery Charges|
00000170  22 27 27 22 43 20 3a 20  43 68 61 6e 67 65 20 44  |"''"C : Change D|
00000180  65 6c 69 76 65 72 79 20  43 68 61 72 67 65 22 27  |elivery Charge"'|
00000190  22 45 53 43 41 50 45 20  3a 20 43 6f 6e 74 69 6e  |"ESCAPE : Contin|
000001a0  75 65 20 54 6f 20 4d 61  69 6e 20 4d 65 6e 75 22  |ue To Main Menu"|
000001b0  3b 0d 00 8c 1b 42 3d a5  3a e7 42 3d 36 37 20 e5  |;....B=.:.B=67 .|
000001c0  8d 74 56 40 20 8b 20 e5  8d 74 4c 40 0d 00 96 62  |.tV@ . ..tL@...b|
000001d0  f1 27 27 27 27 22 50 72  65 76 69 6f 75 73 20 43  |.''''"Previous C|
000001e0  68 61 72 67 65 20 20 20  3a 20 60 22 27 3a f1 8a  |harge   : `"':..|
000001f0  32 31 2c 31 29 3b 3a e7  41 3c 30 2e 31 20 f1 22  |21,1);:.A<0.1 ."|
00000200  30 2e 22 3b 3a f2 64 69  73 70 6c 61 79 41 20 8b  |0.";:.displayA .|
00000210  20 f1 8a 32 31 2c 31 29  3b 41 3b 3a e7 20 41 20  | ..21,1);A;:. A |
00000220  83 20 31 30 20 3d 20 30  20 f1 22 30 22 3b 0d 00  |. 10 = 0 ."0";..|
00000230  a0 27 f1 27 22 4e 65 77  20 43 68 61 72 67 65 20  |.'.'"New Charge |
00000240  20 20 20 20 20 20 20 3a  20 60 22 3b 3a e8 8a 32  |       : `";:..2|
00000250  31 2c 32 29 42 0d 00 aa  18 e7 42 3d 41 20 63 68  |1,2)B.....B=A ch|
00000260  61 6e 67 65 25 3d 30 3a  e5 8d 74 42 40 0d 00 b4  |ange%=0:..tB@...|
00000270  4b e7 42 3e 30 2e 39 39  20 42 3d 42 20 2f 20 31  |K.B>0.99 B=B / 1|
00000280  30 30 3a 63 68 61 6e 67  65 25 3d 31 3a f2 6d 61  |00:change%=1:.ma|
00000290  69 6e 77 69 6e 64 6f 77  3a f1 8a 30 2c 31 30 29  |inwindow:..0,10)|
000002a0  89 28 33 33 29 3a 41 24  3d bf 28 38 30 29 3a 41  |.(33):A$=.(80):A|
000002b0  3d 42 3a e5 8d 44 64 40  0d 00 be 65 e7 42 3c 30  |=B:..Dd@...e.B<0|
000002c0  2e 30 31 20 63 68 61 6e  67 65 25 3d 31 3a 42 3d  |.01 change%=1:B=|
000002d0  30 3a f2 6d 61 69 6e 77  69 6e 64 6f 77 3a f1 8a  |0:.mainwindow:..|
000002e0  30 2c 31 30 29 89 28 33  33 29 3a 41 24 3d bf 28  |0,10).(33):A$=.(|
000002f0  38 30 29 3a f1 8a 30 2c  39 29 27 a4 63 28 22 4e  |80):..0,9)'.c("N|
00000300  6f 20 44 65 6c 69 76 65  72 79 20 43 68 61 72 67  |o Delivery Charg|
00000310  65 22 29 3a 41 3d 42 3a  e5 8d 74 42 40 0d 00 c8  |e"):A=B:..tB@...|
00000320  39 63 68 61 6e 67 65 25  3d 31 3a f2 6d 61 69 6e  |9change%=1:.main|
00000330  77 69 6e 64 6f 77 3a f1  8a 30 2c 31 30 29 89 28  |window:..0,10).(|
00000340  33 33 29 3a 41 24 3d bf  28 38 30 29 3a 41 3d 42  |33):A$=.(80):A=B|
00000350  3a e5 8d 44 64 40 0d 00  d2 06 20 20 0d 00 dc 1d  |:..Dd@....  ....|
00000360  dd f2 64 69 73 70 6c 61  79 41 3a e7 41 3d 30 2e  |..displayA:.A=0.|
00000370  30 31 20 f1 22 30 31 22  3b 0d 00 e6 0f e7 41 3d  |01 ."01";.....A=|
00000380  30 20 f1 22 30 30 22 3b  0d 00 f0 12 e7 41 3d 30  |0 ."00";.....A=0|
00000390  2e 30 32 20 f1 22 30 32  22 3b 0d 00 fa 12 e7 41  |.02 ."02";.....A|
000003a0  3d 30 2e 30 33 20 f1 22  30 33 22 3b 0d 01 04 12  |=0.03 ."03";....|
000003b0  e7 41 3d 30 2e 30 34 20  f1 22 30 34 22 3b 0d 01  |.A=0.04 ."04";..|
000003c0  0e 12 e7 41 3d 30 2e 30  35 20 f1 22 30 35 22 3b  |...A=0.05 ."05";|
000003d0  0d 01 18 12 e7 41 3d 30  2e 30 36 20 f1 22 30 36  |.....A=0.06 ."06|
000003e0  22 3b 0d 01 22 12 e7 41  3d 30 2e 30 37 20 f1 22  |";.."..A=0.07 ."|
000003f0  30 37 22 3b 0d 01 2c 12  e7 41 3d 30 2e 30 38 20  |07";..,..A=0.08 |
00000400  f1 22 30 38 22 3b 0d 01  36 12 e7 41 3d 30 2e 30  |."08";..6..A=0.0|
00000410  39 20 f1 22 30 39 22 3b  0d 01 40 05 e1 0d 01 4a  |9 ."09";..@....J|
00000420  06 20 20 0d 01 54 17 f2  63 6f 6d 77 69 6e 64 6f  |.  ..T..comwindo|
00000430  77 3a f1 27 27 27 27 27  27 27 0d 01 5e 13 e7 63  |w:.'''''''..^..c|
00000440  68 61 6e 67 65 25 3d 31  e5 8d 44 72 41 0d 01 68  |hange%=1..DrA..h|
00000450  2a f1 27 27 27 27 27 a4  63 28 22 4c 6f 61 64 69  |*.'''''.c("Loadi|
00000460  6e 67 20 4d 61 69 6e 20  4d 65 6e 75 22 29 27 3a  |ng Main Menu")':|
00000470  d7 22 4d 45 4e 55 22 0d  01 72 3f f1 27 27 27 27  |."MENU"..r?.''''|
00000480  a4 63 28 22 53 61 76 69  6e 67 20 4e 65 77 20 44  |.c("Saving New D|
00000490  65 6c 69 76 65 72 79 20  43 68 61 72 67 65 22 29  |elivery Charge")|
000004a0  27 3a 74 68 69 73 5f 6f  6e 65 3d ae 28 22 43 48  |':this_one=.("CH|
000004b0  41 52 47 45 22 29 0d 01  7c 10 f1 23 74 68 69 73  |ARGE")..|..#this|
000004c0  5f 6f 6e 65 2c 41 0d 01  86 0e d9 23 74 68 69 73  |_one,A.....#this|
000004d0  5f 6f 6e 65 0d 01 90 09  e5 8d 44 68 41 0d 01 9a  |_one......DhA...|
000004e0  10 dd f2 6d 61 69 6e 77  69 6e 64 6f 77 0d 01 a4  |...mainwindow...|
000004f0  11 ef 32 38 2c 31 2c 32  34 2c 33 38 2c 31 0d 01  |..28,1,24,38,1..|
00000500  ae 05 e1 0d 01 b8 0f dd  f2 63 6f 6d 77 69 6e 64  |.........comwind|
00000510  6f 77 0d 01 c2 12 ef 32  38 2c 31 2c 33 30 2c 33  |ow.....28,1,30,3|
00000520  38 2c 32 37 0d 01 cc 05  e1 0d 01 d6 1d dd a4 63  |8,27...........c|
00000530  28 43 24 29 3a f1 8a 31  39 2d a9 43 24 2f 32 29  |(C$):..19-.C$/2)|
00000540  3b 3a 3d 43 24 20 0d ff                           |;:=C$ ..|
00000548