� BTEC Project "PAGE9" v.1.6
"� * Display Jump Bug Removed *
*FX200,1
(G�wages(10),deliverer$(10),housenum(10),road$(10),phone(10),owed(10)
2loop=0:change%=0
<bignum=0
Fthe_wages=�("WAGES")
P�
Ztemp=temp+1
d^�#the_wages,wages(temp),deliverer$(temp),housenum(temp),road$(temp),phone(temp),owed(temp)
n3�wages(temp)=-999 � wages(temp)=0 � temp=temp-1
x� �#the_wages
�� #the_wages
��4:�mainwindow
��23;8202;0;0;0;0;
�"�:�c("PAPER-DELIVERY WIZARD")
���''�c("This utility pays the deliverers")''�c("of the morning papers.")'''�c("However, the information is not")''�c("stored on disk UNTIL the option")
���'�c("to return to the main menu")''�c("is executed.")''�c("You can also use the utility")''�c("to find the address and phone number")''�c("of the deliverer of a round if")''�c("there is a complaint.")
�)�comwindow:�'''''''�c("Press SPACE")'
�
���=32
��mainwindow:�
�const=-1:bignum=0
�
�i=1�temp
��0,i+const)"ROUND ";i
�*�8,i+const);": Emp. - ";deliverer$(i)

const=const+1

6�8,i+const);": Add. - ";housenum(i);", ";road$(i)

const=const+1

"%�8,i+const);": Tel. - ";phone(i)

,const=const+1

6K�8,i+const);": Pays - `";wages(i);:� (wages(i) * 100) � 10 = 0 � �"0";

@�" per day.";

J�i

T�comwindow

^��''''''''"D : Change Daily Wages Of Round"'"P : Pay/View Wages Owed To Deliverers"'"R : Replace Deliverer Of Round"'"W : Write Changes And Return To Menu";

hI=�:�I=82 � �dtA

r�I=80��trB

|1�I=68�'''''"Which round?"':�12,1)alter:�tZA

��I=87 � �end

�	�DhA

��alter>6 �7:�DTA

�@�mainwindow:�0,1+(alter-1)*4);:�137,137,137,137,137,137,137

�x�comwindow:�'''''�c("NEW DAILY WAGE")''"Previous wage     : `";wages(alter);:� (wages(alter) * 100) � 10 = 0 � �"0";

��'"New wage          : `";

��21,3)wages(alter)

�w�''':�mainwindow:�18,3+(alter-1)*4);�(19);�18,3+(alter-1)*4);wages(alter);:� (wages(alter) * 100) � 10 = 0 � �"0";

��" per day.";

�/change%=1:�0,1+(alter-1)*4)"       ":�DTA

� 

�&�'''''"Which round?"':�12,1)alter

��alter>6 �7:�DTA
�mainwindow
4�0,1+(alter-1)*4);:�137,137,137,137,137,137,137
8�comwindow:�'''''�c("Are you sure?")'�c("(Y/N)"):S=�
&�S=89 � �TpB � �7:�DTA
0U�mainwindow:�17,(alter-1)*4)�(21)�17,1+(alter-1)*4)�(21)�17,2+(alter-1)*4)�(21);
:Y�comwindow:�'''''�c("NEW EMPLOYEE")''"Employee FULL name : ":�21,2)deliverer$(alter)
D3�mainwindow:�17,(alter-1)*4);deliverer$(alter)
N:�28,1,30,38,28:�''''"House Number :"'"Road name    :";
X�15,1)housenum(alter)
b)n$="":�15,2);:maxlength=21:�getinput
lroad$(alter)=n$
vE�mainwindow:�17,1+(alter-1)*4);housenum(alter);", ";road$(alter)
�/�28,1,30,38,28:�'''''''"Telephone Number :"
��19,1)phone(alter)
�0�mainwindow:�17,2+(alter-1)*4);phone(alter)
�/change%=1:�0,1+(alter-1)*4)"       ":�DTA
� 
�6�''''':�mainwindow:�:�c("PAPER DELIVERERS WAGES")
�const=2
��newloop=1 � temp
�N�0,newloop+const);newloop;": ";deliverer$(newloop);�37,newloop+const);"0"
�h�21,newloop+const);" is owed    `";owed(newloop);:� (owed(newloop) * 100) � 100 = 0 � �".00";:�dnB
�,� (owed(newloop) * 100) � 10 = 0 � �"0";
�const=const+2
��newloop
?const=const-1:�32,newloop+const);:�137,137,137,137,137,137

�A=1�temp
bignum=bignum+owed(A)
 �A
*�32,2+newloop+const);
4�bignum<10 �" `"; � �"`";
>
�;bignum;
H+�(bignum * 100) � 100 = 0 �".00";:�D\C
R"�(bignum * 100) � 10 = 0 �"0";
\O�comwindow:�''''''"P : Pay Particular Deliverer"'"R : Return To First Page"
fS=�:�S=82�dR@
p�S=80�tDC
z	�DfC
�>�'''''�c("Input the number of deliverer.")'�c("(E.g. 2)")'
��19,3)numtopay
�@�mainwindow:�33,(numtopay *3))�(6)�33,(numtopay *3))"`0.00"
�[change%=1:owed(numtopay)=0:�comwindow:�''''�c("Paper deliverer paid.")':A$=�(200):�D\C
� 
�'��end:�comwindow:�change%=0 � �TPD
�"�'''''''�c("Writing Changes")'
�new_wages=�("WAGES")
��
��s=1 � temp
�L�#new_wages,wages(s),deliverer$(s),housenum(s),road$(s),phone(s),owed(s)
��s
���#new_wages
� #new_wages
"�'''''�c("Loading Main Menu")'
*DIR
$�"MENU"
.�
8 
B��getinput
L	*FX21
V5�:z=�:� z>1 � z<127 � �n$<maxlength n$=n$+�(z):�z
`)� z=127 � �n$>0 �8,32,8:n$=�n$,�n$-1)
j� z=21 �1:�DVD
t
� z=13
~�
� 
���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 72 6f 6a 65  |... . BTEC Proje|
00000010  63 74 20 22 50 41 47 45  39 22 20 76 2e 31 2e 36  |ct "PAGE9" v.1.6|
00000020  0d 00 14 22 f4 20 2a 20  44 69 73 70 6c 61 79 20  |...". * Display |
00000030  4a 75 6d 70 20 42 75 67  20 52 65 6d 6f 76 65 64  |Jump Bug Removed|
00000040  20 2a 0d 00 1e 0c 2a 46  58 32 30 30 2c 31 0d 00  | *....*FX200,1..|
00000050  28 47 de 77 61 67 65 73  28 31 30 29 2c 64 65 6c  |(G.wages(10),del|
00000060  69 76 65 72 65 72 24 28  31 30 29 2c 68 6f 75 73  |iverer$(10),hous|
00000070  65 6e 75 6d 28 31 30 29  2c 72 6f 61 64 24 28 31  |enum(10),road$(1|
00000080  30 29 2c 70 68 6f 6e 65  28 31 30 29 2c 6f 77 65  |0),phone(10),owe|
00000090  64 28 31 30 29 0d 00 32  14 6c 6f 6f 70 3d 30 3a  |d(10)..2.loop=0:|
000000a0  63 68 61 6e 67 65 25 3d  30 0d 00 3c 0c 62 69 67  |change%=0..<.big|
000000b0  6e 75 6d 3d 30 0d 00 46  18 74 68 65 5f 77 61 67  |num=0..F.the_wag|
000000c0  65 73 3d 8e 28 22 57 41  47 45 53 22 29 0d 00 50  |es=.("WAGES")..P|
000000d0  05 f5 0d 00 5a 0f 74 65  6d 70 3d 74 65 6d 70 2b  |....Z.temp=temp+|
000000e0  31 0d 00 64 5e e8 23 74  68 65 5f 77 61 67 65 73  |1..d^.#the_wages|
000000f0  2c 77 61 67 65 73 28 74  65 6d 70 29 2c 64 65 6c  |,wages(temp),del|
00000100  69 76 65 72 65 72 24 28  74 65 6d 70 29 2c 68 6f  |iverer$(temp),ho|
00000110  75 73 65 6e 75 6d 28 74  65 6d 70 29 2c 72 6f 61  |usenum(temp),roa|
00000120  64 24 28 74 65 6d 70 29  2c 70 68 6f 6e 65 28 74  |d$(temp),phone(t|
00000130  65 6d 70 29 2c 6f 77 65  64 28 74 65 6d 70 29 0d  |emp),owed(temp).|
00000140  00 6e 33 e7 77 61 67 65  73 28 74 65 6d 70 29 3d  |.n3.wages(temp)=|
00000150  2d 39 39 39 20 84 20 77  61 67 65 73 28 74 65 6d  |-999 . wages(tem|
00000160  70 29 3d 30 20 8c 20 74  65 6d 70 3d 74 65 6d 70  |p)=0 . temp=temp|
00000170  2d 31 0d 00 78 11 fd 20  c5 23 74 68 65 5f 77 61  |-1..x.. .#the_wa|
00000180  67 65 73 0d 00 82 10 d9  20 23 74 68 65 5f 77 61  |ges..... #the_wa|
00000190  67 65 73 0d 00 8c 12 ef  34 3a f2 6d 61 69 6e 77  |ges.....4:.mainw|
000001a0  69 6e 64 6f 77 0d 00 96  15 ef 32 33 3b 38 32 30  |indow.....23;820|
000001b0  32 3b 30 3b 30 3b 30 3b  30 3b 0d 00 a0 22 db 3a  |2;0;0;0;0;...".:|
000001c0  f1 a4 63 28 22 50 41 50  45 52 2d 44 45 4c 49 56  |..c("PAPER-DELIV|
000001d0  45 52 59 20 57 49 5a 41  52 44 22 29 0d 00 aa 9a  |ERY WIZARD")....|
000001e0  f1 27 27 a4 63 28 22 54  68 69 73 20 75 74 69 6c  |.''.c("This util|
000001f0  69 74 79 20 70 61 79 73  20 74 68 65 20 64 65 6c  |ity pays the del|
00000200  69 76 65 72 65 72 73 22  29 27 27 a4 63 28 22 6f  |iverers")''.c("o|
00000210  66 20 74 68 65 20 6d 6f  72 6e 69 6e 67 20 70 61  |f the morning pa|
00000220  70 65 72 73 2e 22 29 27  27 27 a4 63 28 22 48 6f  |pers.")'''.c("Ho|
00000230  77 65 76 65 72 2c 20 74  68 65 20 69 6e 66 6f 72  |wever, the infor|
00000240  6d 61 74 69 6f 6e 20 69  73 20 6e 6f 74 22 29 27  |mation is not")'|
00000250  27 a4 63 28 22 73 74 6f  72 65 64 20 6f 6e 20 64  |'.c("stored on d|
00000260  69 73 6b 20 55 4e 54 49  4c 20 74 68 65 20 6f 70  |isk UNTIL the op|
00000270  74 69 6f 6e 22 29 0d 00  b4 cd f1 27 a4 63 28 22  |tion").....'.c("|
00000280  74 6f 20 72 65 74 75 72  6e 20 74 6f 20 74 68 65  |to return to the|
00000290  20 6d 61 69 6e 20 6d 65  6e 75 22 29 27 27 a4 63  | main menu")''.c|
000002a0  28 22 69 73 20 65 78 65  63 75 74 65 64 2e 22 29  |("is executed.")|
000002b0  27 27 a4 63 28 22 59 6f  75 20 63 61 6e 20 61 6c  |''.c("You can al|
000002c0  73 6f 20 75 73 65 20 74  68 65 20 75 74 69 6c 69  |so use the utili|
000002d0  74 79 22 29 27 27 a4 63  28 22 74 6f 20 66 69 6e  |ty")''.c("to fin|
000002e0  64 20 74 68 65 20 61 64  64 72 65 73 73 20 61 6e  |d the address an|
000002f0  64 20 70 68 6f 6e 65 20  6e 75 6d 62 65 72 22 29  |d phone number")|
00000300  27 27 a4 63 28 22 6f 66  20 74 68 65 20 64 65 6c  |''.c("of the del|
00000310  69 76 65 72 65 72 20 6f  66 20 61 20 72 6f 75 6e  |iverer of a roun|
00000320  64 20 69 66 22 29 27 27  a4 63 28 22 74 68 65 72  |d if")''.c("ther|
00000330  65 20 69 73 20 61 20 63  6f 6d 70 6c 61 69 6e 74  |e is a complaint|
00000340  2e 22 29 0d 00 be 29 f2  63 6f 6d 77 69 6e 64 6f  |.")...).comwindo|
00000350  77 3a f1 27 27 27 27 27  27 27 a4 63 28 22 50 72  |w:.'''''''.c("Pr|
00000360  65 73 73 20 53 50 41 43  45 22 29 27 0d 00 c8 0a  |ess SPACE")'....|
00000370  f5 fd a5 3d 33 32 0d 00  d2 11 f2 6d 61 69 6e 77  |...=32.....mainw|
00000380  69 6e 64 6f 77 3a db 0d  00 dc 15 63 6f 6e 73 74  |indow:.....const|
00000390  3d 2d 31 3a 62 69 67 6e  75 6d 3d 30 0d 00 e6 0d  |=-1:bignum=0....|
000003a0  e3 69 3d 31 b8 74 65 6d  70 0d 00 f0 1a f1 8a 30  |.i=1.temp......0|
000003b0  2c 69 2b 63 6f 6e 73 74  29 22 52 4f 55 4e 44 20  |,i+const)"ROUND |
000003c0  22 3b 69 0d 00 fa 2a f1  8a 38 2c 69 2b 63 6f 6e  |";i...*..8,i+con|
000003d0  73 74 29 3b 22 3a 20 45  6d 70 2e 20 2d 20 22 3b  |st);": Emp. - ";|
000003e0  64 65 6c 69 76 65 72 65  72 24 28 69 29 0d 01 04  |deliverer$(i)...|
000003f0  11 63 6f 6e 73 74 3d 63  6f 6e 73 74 2b 31 0d 01  |.const=const+1..|
00000400  0e 36 f1 8a 38 2c 69 2b  63 6f 6e 73 74 29 3b 22  |.6..8,i+const);"|
00000410  3a 20 41 64 64 2e 20 2d  20 22 3b 68 6f 75 73 65  |: Add. - ";house|
00000420  6e 75 6d 28 69 29 3b 22  2c 20 22 3b 72 6f 61 64  |num(i);", ";road|
00000430  24 28 69 29 0d 01 18 11  63 6f 6e 73 74 3d 63 6f  |$(i)....const=co|
00000440  6e 73 74 2b 31 0d 01 22  25 f1 8a 38 2c 69 2b 63  |nst+1.."%..8,i+c|
00000450  6f 6e 73 74 29 3b 22 3a  20 54 65 6c 2e 20 2d 20  |onst);": Tel. - |
00000460  22 3b 70 68 6f 6e 65 28  69 29 0d 01 2c 11 63 6f  |";phone(i)..,.co|
00000470  6e 73 74 3d 63 6f 6e 73  74 2b 31 0d 01 36 4b f1  |nst=const+1..6K.|
00000480  8a 38 2c 69 2b 63 6f 6e  73 74 29 3b 22 3a 20 50  |.8,i+const);": P|
00000490  61 79 73 20 2d 20 60 22  3b 77 61 67 65 73 28 69  |ays - `";wages(i|
000004a0  29 3b 3a e7 20 28 77 61  67 65 73 28 69 29 20 2a  |);:. (wages(i) *|
000004b0  20 31 30 30 29 20 83 20  31 30 20 3d 20 30 20 8c  | 100) . 10 = 0 .|
000004c0  20 f1 22 30 22 3b 0d 01  40 11 f1 22 20 70 65 72  | ."0";..@.." per|
000004d0  20 64 61 79 2e 22 3b 0d  01 4a 06 ed 69 0d 01 54  | day.";..J..i..T|
000004e0  0e f2 63 6f 6d 77 69 6e  64 6f 77 0d 01 5e 9f f1  |..comwindow..^..|
000004f0  27 27 27 27 27 27 27 27  22 44 20 3a 20 43 68 61  |''''''''"D : Cha|
00000500  6e 67 65 20 44 61 69 6c  79 20 57 61 67 65 73 20  |nge Daily Wages |
00000510  4f 66 20 52 6f 75 6e 64  22 27 22 50 20 3a 20 50  |Of Round"'"P : P|
00000520  61 79 2f 56 69 65 77 20  57 61 67 65 73 20 4f 77  |ay/View Wages Ow|
00000530  65 64 20 54 6f 20 44 65  6c 69 76 65 72 65 72 73  |ed To Deliverers|
00000540  22 27 22 52 20 3a 20 52  65 70 6c 61 63 65 20 44  |"'"R : Replace D|
00000550  65 6c 69 76 65 72 65 72  20 4f 66 20 52 6f 75 6e  |eliverer Of Roun|
00000560  64 22 27 22 57 20 3a 20  57 72 69 74 65 20 43 68  |d"'"W : Write Ch|
00000570  61 6e 67 65 73 20 41 6e  64 20 52 65 74 75 72 6e  |anges And Return|
00000580  20 54 6f 20 4d 65 6e 75  22 3b 0d 01 68 15 49 3d  | To Menu";..h.I=|
00000590  a5 3a e7 49 3d 38 32 20  8c 20 e5 8d 64 74 41 0d  |.:.I=82 . ..dtA.|
000005a0  01 72 0f e7 49 3d 38 30  8c e5 8d 74 72 42 0d 01  |.r..I=80...trB..|
000005b0  7c 31 e7 49 3d 36 38 f1  27 27 27 27 27 22 57 68  ||1.I=68.'''''"Wh|
000005c0  69 63 68 20 72 6f 75 6e  64 3f 22 27 3a e8 8a 31  |ich round?"':..1|
000005d0  32 2c 31 29 61 6c 74 65  72 3a e5 8d 74 5a 41 0d  |2,1)alter:..tZA.|
000005e0  01 86 10 e7 49 3d 38 37  20 8c 20 f2 65 6e 64 0d  |....I=87 . .end.|
000005f0  01 90 09 e5 8d 44 68 41  0d 01 9a 15 e7 61 6c 74  |.....DhA.....alt|
00000600  65 72 3e 36 20 ef 37 3a  e5 8d 44 54 41 0d 01 a4  |er>6 .7:..DTA...|
00000610  40 f2 6d 61 69 6e 77 69  6e 64 6f 77 3a f1 8a 30  |@.mainwindow:..0|
00000620  2c 31 2b 28 61 6c 74 65  72 2d 31 29 2a 34 29 3b  |,1+(alter-1)*4);|
00000630  3a ef 31 33 37 2c 31 33  37 2c 31 33 37 2c 31 33  |:.137,137,137,13|
00000640  37 2c 31 33 37 2c 31 33  37 2c 31 33 37 0d 01 ae  |7,137,137,137...|
00000650  78 f2 63 6f 6d 77 69 6e  64 6f 77 3a f1 27 27 27  |x.comwindow:.'''|
00000660  27 27 a4 63 28 22 4e 45  57 20 44 41 49 4c 59 20  |''.c("NEW DAILY |
00000670  57 41 47 45 22 29 27 27  22 50 72 65 76 69 6f 75  |WAGE")''"Previou|
00000680  73 20 77 61 67 65 20 20  20 20 20 3a 20 60 22 3b  |s wage     : `";|
00000690  77 61 67 65 73 28 61 6c  74 65 72 29 3b 3a e7 20  |wages(alter);:. |
000006a0  28 77 61 67 65 73 28 61  6c 74 65 72 29 20 2a 20  |(wages(alter) * |
000006b0  31 30 30 29 20 83 20 31  30 20 3d 20 30 20 8c 20  |100) . 10 = 0 . |
000006c0  f1 22 30 22 3b 0d 01 b8  1e f1 27 22 4e 65 77 20  |."0";.....'"New |
000006d0  77 61 67 65 20 20 20 20  20 20 20 20 20 20 3a 20  |wage          : |
000006e0  60 22 3b 0d 01 c2 17 e8  8a 32 31 2c 33 29 77 61  |`";......21,3)wa|
000006f0  67 65 73 28 61 6c 74 65  72 29 0d 01 cc 77 f1 27  |ges(alter)...w.'|
00000700  27 27 3a f2 6d 61 69 6e  77 69 6e 64 6f 77 3a f1  |'':.mainwindow:.|
00000710  8a 31 38 2c 33 2b 28 61  6c 74 65 72 2d 31 29 2a  |.18,3+(alter-1)*|
00000720  34 29 3b 89 28 31 39 29  3b 8a 31 38 2c 33 2b 28  |4);.(19);.18,3+(|
00000730  61 6c 74 65 72 2d 31 29  2a 34 29 3b 77 61 67 65  |alter-1)*4);wage|
00000740  73 28 61 6c 74 65 72 29  3b 3a e7 20 28 77 61 67  |s(alter);:. (wag|
00000750  65 73 28 61 6c 74 65 72  29 20 2a 20 31 30 30 29  |es(alter) * 100)|
00000760  20 83 20 31 30 20 3d 20  30 20 8c 20 f1 22 30 22  | . 10 = 0 . ."0"|
00000770  3b 0d 01 d6 11 f1 22 20  70 65 72 20 64 61 79 2e  |;....." per day.|
00000780  22 3b 0d 01 e0 2f 63 68  61 6e 67 65 25 3d 31 3a  |";.../change%=1:|
00000790  f1 8a 30 2c 31 2b 28 61  6c 74 65 72 2d 31 29 2a  |..0,1+(alter-1)*|
000007a0  34 29 22 20 20 20 20 20  20 20 22 3a e5 8d 44 54  |4)"       ":..DT|
000007b0  41 0d 01 ea 05 20 0d 01  f4 26 f1 27 27 27 27 27  |A.... ...&.'''''|
000007c0  22 57 68 69 63 68 20 72  6f 75 6e 64 3f 22 27 3a  |"Which round?"':|
000007d0  e8 8a 31 32 2c 31 29 61  6c 74 65 72 0d 01 fe 15  |..12,1)alter....|
000007e0  e7 61 6c 74 65 72 3e 36  20 ef 37 3a e5 8d 44 54  |.alter>6 .7:..DT|
000007f0  41 0d 02 08 0f f2 6d 61  69 6e 77 69 6e 64 6f 77  |A.....mainwindow|
00000800  0d 02 12 34 f1 8a 30 2c  31 2b 28 61 6c 74 65 72  |...4..0,1+(alter|
00000810  2d 31 29 2a 34 29 3b 3a  ef 31 33 37 2c 31 33 37  |-1)*4);:.137,137|
00000820  2c 31 33 37 2c 31 33 37  2c 31 33 37 2c 31 33 37  |,137,137,137,137|
00000830  2c 31 33 37 0d 02 1c 38  f2 63 6f 6d 77 69 6e 64  |,137...8.comwind|
00000840  6f 77 3a f1 27 27 27 27  27 a4 63 28 22 41 72 65  |ow:.'''''.c("Are|
00000850  20 79 6f 75 20 73 75 72  65 3f 22 29 27 a4 63 28  | you sure?")'.c(|
00000860  22 28 59 2f 4e 29 22 29  3a 53 3d a5 0d 02 26 1b  |"(Y/N)"):S=...&.|
00000870  e7 53 3d 38 39 20 e5 20  8d 54 70 42 20 8b 20 ef  |.S=89 . .TpB . .|
00000880  37 3a e5 8d 44 54 41 0d  02 30 55 f2 6d 61 69 6e  |7:..DTA..0U.main|
00000890  77 69 6e 64 6f 77 3a f1  8a 31 37 2c 28 61 6c 74  |window:..17,(alt|
000008a0  65 72 2d 31 29 2a 34 29  89 28 32 31 29 8a 31 37  |er-1)*4).(21).17|
000008b0  2c 31 2b 28 61 6c 74 65  72 2d 31 29 2a 34 29 89  |,1+(alter-1)*4).|
000008c0  28 32 31 29 8a 31 37 2c  32 2b 28 61 6c 74 65 72  |(21).17,2+(alter|
000008d0  2d 31 29 2a 34 29 89 28  32 31 29 3b 0d 02 3a 59  |-1)*4).(21);..:Y|
000008e0  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
000008f0  27 a4 63 28 22 4e 45 57  20 45 4d 50 4c 4f 59 45  |'.c("NEW EMPLOYE|
00000900  45 22 29 27 27 22 45 6d  70 6c 6f 79 65 65 20 46  |E")''"Employee F|
00000910  55 4c 4c 20 6e 61 6d 65  20 3a 20 22 3a e8 8a 32  |ULL name : ":..2|
00000920  31 2c 32 29 64 65 6c 69  76 65 72 65 72 24 28 61  |1,2)deliverer$(a|
00000930  6c 74 65 72 29 0d 02 44  33 f2 6d 61 69 6e 77 69  |lter)..D3.mainwi|
00000940  6e 64 6f 77 3a f1 8a 31  37 2c 28 61 6c 74 65 72  |ndow:..17,(alter|
00000950  2d 31 29 2a 34 29 3b 64  65 6c 69 76 65 72 65 72  |-1)*4);deliverer|
00000960  24 28 61 6c 74 65 72 29  0d 02 4e 3a ef 32 38 2c  |$(alter)..N:.28,|
00000970  31 2c 33 30 2c 33 38 2c  32 38 3a f1 27 27 27 27  |1,30,38,28:.''''|
00000980  22 48 6f 75 73 65 20 4e  75 6d 62 65 72 20 3a 22  |"House Number :"|
00000990  27 22 52 6f 61 64 20 6e  61 6d 65 20 20 20 20 3a  |'"Road name    :|
000009a0  22 3b 0d 02 58 1a e8 8a  31 35 2c 31 29 68 6f 75  |";..X...15,1)hou|
000009b0  73 65 6e 75 6d 28 61 6c  74 65 72 29 0d 02 62 29  |senum(alter)..b)|
000009c0  6e 24 3d 22 22 3a f1 8a  31 35 2c 32 29 3b 3a 6d  |n$="":..15,2);:m|
000009d0  61 78 6c 65 6e 67 74 68  3d 32 31 3a f2 67 65 74  |axlength=21:.get|
000009e0  69 6e 70 75 74 0d 02 6c  13 72 6f 61 64 24 28 61  |input..l.road$(a|
000009f0  6c 74 65 72 29 3d 6e 24  0d 02 76 45 f2 6d 61 69  |lter)=n$..vE.mai|
00000a00  6e 77 69 6e 64 6f 77 3a  f1 8a 31 37 2c 31 2b 28  |nwindow:..17,1+(|
00000a10  61 6c 74 65 72 2d 31 29  2a 34 29 3b 68 6f 75 73  |alter-1)*4);hous|
00000a20  65 6e 75 6d 28 61 6c 74  65 72 29 3b 22 2c 20 22  |enum(alter);", "|
00000a30  3b 72 6f 61 64 24 28 61  6c 74 65 72 29 0d 02 80  |;road$(alter)...|
00000a40  2f ef 32 38 2c 31 2c 33  30 2c 33 38 2c 32 38 3a  |/.28,1,30,38,28:|
00000a50  f1 27 27 27 27 27 27 27  22 54 65 6c 65 70 68 6f  |.'''''''"Telepho|
00000a60  6e 65 20 4e 75 6d 62 65  72 20 3a 22 0d 02 8a 17  |ne Number :"....|
00000a70  e8 8a 31 39 2c 31 29 70  68 6f 6e 65 28 61 6c 74  |..19,1)phone(alt|
00000a80  65 72 29 0d 02 94 30 f2  6d 61 69 6e 77 69 6e 64  |er)...0.mainwind|
00000a90  6f 77 3a f1 8a 31 37 2c  32 2b 28 61 6c 74 65 72  |ow:..17,2+(alter|
00000aa0  2d 31 29 2a 34 29 3b 70  68 6f 6e 65 28 61 6c 74  |-1)*4);phone(alt|
00000ab0  65 72 29 0d 02 9e 2f 63  68 61 6e 67 65 25 3d 31  |er).../change%=1|
00000ac0  3a f1 8a 30 2c 31 2b 28  61 6c 74 65 72 2d 31 29  |:..0,1+(alter-1)|
00000ad0  2a 34 29 22 20 20 20 20  20 20 20 22 3a e5 8d 44  |*4)"       ":..D|
00000ae0  54 41 0d 02 a8 05 20 0d  02 b2 36 f1 27 27 27 27  |TA.... ...6.''''|
00000af0  27 3a f2 6d 61 69 6e 77  69 6e 64 6f 77 3a db 3a  |':.mainwindow:.:|
00000b00  f1 a4 63 28 22 50 41 50  45 52 20 44 45 4c 49 56  |..c("PAPER DELIV|
00000b10  45 52 45 52 53 20 57 41  47 45 53 22 29 0d 02 bc  |ERERS WAGES")...|
00000b20  0b 63 6f 6e 73 74 3d 32  0d 02 c6 15 e3 6e 65 77  |.const=2.....new|
00000b30  6c 6f 6f 70 3d 31 20 b8  20 74 65 6d 70 0d 02 d0  |loop=1 . temp...|
00000b40  4e f1 8a 30 2c 6e 65 77  6c 6f 6f 70 2b 63 6f 6e  |N..0,newloop+con|
00000b50  73 74 29 3b 6e 65 77 6c  6f 6f 70 3b 22 3a 20 22  |st);newloop;": "|
00000b60  3b 64 65 6c 69 76 65 72  65 72 24 28 6e 65 77 6c  |;deliverer$(newl|
00000b70  6f 6f 70 29 3b 8a 33 37  2c 6e 65 77 6c 6f 6f 70  |oop);.37,newloop|
00000b80  2b 63 6f 6e 73 74 29 3b  22 30 22 0d 02 da 68 f1  |+const);"0"...h.|
00000b90  8a 32 31 2c 6e 65 77 6c  6f 6f 70 2b 63 6f 6e 73  |.21,newloop+cons|
00000ba0  74 29 3b 22 20 69 73 20  6f 77 65 64 20 20 20 20  |t);" is owed    |
00000bb0  60 22 3b 6f 77 65 64 28  6e 65 77 6c 6f 6f 70 29  |`";owed(newloop)|
00000bc0  3b 3a e7 20 28 6f 77 65  64 28 6e 65 77 6c 6f 6f  |;:. (owed(newloo|
00000bd0  70 29 20 2a 20 31 30 30  29 20 83 20 31 30 30 20  |p) * 100) . 100 |
00000be0  3d 20 30 20 8c 20 f1 22  2e 30 30 22 3b 3a e5 8d  |= 0 . .".00";:..|
00000bf0  64 6e 42 0d 02 e4 2c e7  20 28 6f 77 65 64 28 6e  |dnB...,. (owed(n|
00000c00  65 77 6c 6f 6f 70 29 20  2a 20 31 30 30 29 20 83  |ewloop) * 100) .|
00000c10  20 31 30 20 3d 20 30 20  8c 20 f1 22 30 22 3b 0d  | 10 = 0 . ."0";.|
00000c20  02 ee 11 63 6f 6e 73 74  3d 63 6f 6e 73 74 2b 32  |...const=const+2|
00000c30  0d 02 f8 0c ed 6e 65 77  6c 6f 6f 70 0d 03 02 3f  |.....newloop...?|
00000c40  63 6f 6e 73 74 3d 63 6f  6e 73 74 2d 31 3a f1 8a  |const=const-1:..|
00000c50  33 32 2c 6e 65 77 6c 6f  6f 70 2b 63 6f 6e 73 74  |32,newloop+const|
00000c60  29 3b 3a ef 31 33 37 2c  31 33 37 2c 31 33 37 2c  |);:.137,137,137,|
00000c70  31 33 37 2c 31 33 37 2c  31 33 37 0d 03 0c 0d e3  |137,137,137.....|
00000c80  41 3d 31 b8 74 65 6d 70  0d 03 16 19 62 69 67 6e  |A=1.temp....bign|
00000c90  75 6d 3d 62 69 67 6e 75  6d 2b 6f 77 65 64 28 41  |um=bignum+owed(A|
00000ca0  29 0d 03 20 06 ed 41 0d  03 2a 1a f1 8a 33 32 2c  |).. ..A..*...32,|
00000cb0  32 2b 6e 65 77 6c 6f 6f  70 2b 63 6f 6e 73 74 29  |2+newloop+const)|
00000cc0  3b 0d 03 34 1d e7 62 69  67 6e 75 6d 3c 31 30 20  |;..4..bignum<10 |
00000cd0  f1 22 20 60 22 3b 20 8b  20 f1 22 60 22 3b 0d 03  |." `"; . ."`";..|
00000ce0  3e 0d f1 3b 62 69 67 6e  75 6d 3b 0d 03 48 2b e7  |>..;bignum;..H+.|
00000cf0  28 62 69 67 6e 75 6d 20  2a 20 31 30 30 29 20 83  |(bignum * 100) .|
00000d00  20 31 30 30 20 3d 20 30  20 f1 22 2e 30 30 22 3b  | 100 = 0 .".00";|
00000d10  3a e5 8d 44 5c 43 0d 03  52 22 e7 28 62 69 67 6e  |:..D\C..R".(bign|
00000d20  75 6d 20 2a 20 31 30 30  29 20 83 20 31 30 20 3d  |um * 100) . 10 =|
00000d30  20 30 20 f1 22 30 22 3b  0d 03 5c 4f f2 63 6f 6d  | 0 ."0";..\O.com|
00000d40  77 69 6e 64 6f 77 3a f1  27 27 27 27 27 27 22 50  |window:.''''''"P|
00000d50  20 3a 20 50 61 79 20 50  61 72 74 69 63 75 6c 61  | : Pay Particula|
00000d60  72 20 44 65 6c 69 76 65  72 65 72 22 27 22 52 20  |r Deliverer"'"R |
00000d70  3a 20 52 65 74 75 72 6e  20 54 6f 20 46 69 72 73  |: Return To Firs|
00000d80  74 20 50 61 67 65 22 0d  03 66 12 53 3d a5 3a e7  |t Page"..f.S=.:.|
00000d90  53 3d 38 32 e5 8d 64 52  40 0d 03 70 0e e7 53 3d  |S=82..dR@..p..S=|
00000da0  38 30 e5 8d 74 44 43 0d  03 7a 09 e5 8d 44 66 43  |80..tDC..z...DfC|
00000db0  0d 03 84 3e f1 27 27 27  27 27 a4 63 28 22 49 6e  |...>.'''''.c("In|
00000dc0  70 75 74 20 74 68 65 20  6e 75 6d 62 65 72 20 6f  |put the number o|
00000dd0  66 20 64 65 6c 69 76 65  72 65 72 2e 22 29 27 a4  |f deliverer.")'.|
00000de0  63 28 22 28 45 2e 67 2e  20 32 29 22 29 27 0d 03  |c("(E.g. 2)")'..|
00000df0  8e 13 e8 8a 31 39 2c 33  29 6e 75 6d 74 6f 70 61  |....19,3)numtopa|
00000e00  79 0d 03 98 40 f2 6d 61  69 6e 77 69 6e 64 6f 77  |y...@.mainwindow|
00000e10  3a f1 8a 33 33 2c 28 6e  75 6d 74 6f 70 61 79 20  |:..33,(numtopay |
00000e20  2a 33 29 29 89 28 36 29  8a 33 33 2c 28 6e 75 6d  |*3)).(6).33,(num|
00000e30  74 6f 70 61 79 20 2a 33  29 29 22 60 30 2e 30 30  |topay *3))"`0.00|
00000e40  22 0d 03 a2 5b 63 68 61  6e 67 65 25 3d 31 3a 6f  |"...[change%=1:o|
00000e50  77 65 64 28 6e 75 6d 74  6f 70 61 79 29 3d 30 3a  |wed(numtopay)=0:|
00000e60  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
00000e70  a4 63 28 22 50 61 70 65  72 20 64 65 6c 69 76 65  |.c("Paper delive|
00000e80  72 65 72 20 70 61 69 64  2e 22 29 27 3a 41 24 3d  |rer paid.")':A$=|
00000e90  bf 28 32 30 30 29 3a e5  8d 44 5c 43 0d 03 ac 05  |.(200):..D\C....|
00000ea0  20 0d 03 b6 27 dd f2 65  6e 64 3a f2 63 6f 6d 77  | ...'..end:.comw|
00000eb0  69 6e 64 6f 77 3a e7 63  68 61 6e 67 65 25 3d 30  |indow:.change%=0|
00000ec0  20 8c 20 e5 8d 54 50 44  0d 03 c0 22 f1 27 27 27  | . ..TPD...".'''|
00000ed0  27 27 27 27 a4 63 28 22  57 72 69 74 69 6e 67 20  |''''.c("Writing |
00000ee0  43 68 61 6e 67 65 73 22  29 27 0d 03 ca 18 6e 65  |Changes")'....ne|
00000ef0  77 5f 77 61 67 65 73 3d  ae 28 22 57 41 47 45 53  |w_wages=.("WAGES|
00000f00  22 29 0d 03 d4 05 f5 0d  03 de 0f e3 73 3d 31 20  |")..........s=1 |
00000f10  b8 20 74 65 6d 70 0d 03  e8 4c f1 23 6e 65 77 5f  |. temp...L.#new_|
00000f20  77 61 67 65 73 2c 77 61  67 65 73 28 73 29 2c 64  |wages,wages(s),d|
00000f30  65 6c 69 76 65 72 65 72  24 28 73 29 2c 68 6f 75  |eliverer$(s),hou|
00000f40  73 65 6e 75 6d 28 73 29  2c 72 6f 61 64 24 28 73  |senum(s),road$(s|
00000f50  29 2c 70 68 6f 6e 65 28  73 29 2c 6f 77 65 64 28  |),phone(s),owed(|
00000f60  73 29 0d 03 f2 06 ed 73  0d 03 fc 10 fd c5 23 6e  |s).....s......#n|
00000f70  65 77 5f 77 61 67 65 73  0d 04 06 10 d9 20 23 6e  |ew_wages..... #n|
00000f80  65 77 5f 77 61 67 65 73  0d 04 10 22 f1 27 27 27  |ew_wages...".'''|
00000f90  27 27 a4 63 28 22 4c 6f  61 64 69 6e 67 20 4d 61  |''.c("Loading Ma|
00000fa0  69 6e 20 4d 65 6e 75 22  29 27 0d 04 1a 08 2a 44  |in Menu")'....*D|
00000fb0  49 52 0d 04 24 0b d7 22  4d 45 4e 55 22 0d 04 2e  |IR..$.."MENU"...|
00000fc0  05 e1 0d 04 38 05 20 0d  04 42 0e dd f2 67 65 74  |....8. ..B...get|
00000fd0  69 6e 70 75 74 0d 04 4c  09 2a 46 58 32 31 0d 04  |input..L.*FX21..|
00000fe0  56 35 f5 3a 7a 3d a5 3a  e7 20 7a 3e 31 20 80 20  |V5.:z=.:. z>1 . |
00000ff0  7a 3c 31 32 37 20 80 20  a9 6e 24 3c 6d 61 78 6c  |z<127 . .n$<maxl|
00001000  65 6e 67 74 68 20 6e 24  3d 6e 24 2b bd 28 7a 29  |ength n$=n$+.(z)|
00001010  3a ef 7a 0d 04 60 29 e7  20 7a 3d 31 32 37 20 80  |:.z..`). z=127 .|
00001020  20 a9 6e 24 3e 30 20 ef  38 2c 33 32 2c 38 3a 6e  | .n$>0 .8,32,8:n|
00001030  24 3d c0 6e 24 2c a9 6e  24 2d 31 29 0d 04 6a 13  |$=.n$,.n$-1)..j.|
00001040  e7 20 7a 3d 32 31 20 fd  31 3a e5 8d 44 56 44 0d  |. z=21 .1:..DVD.|
00001050  04 74 0a fd 20 7a 3d 31  33 0d 04 7e 05 e1 0d 04  |.t.. z=13..~....|
00001060  88 05 20 0d 04 92 10 dd  f2 6d 61 69 6e 77 69 6e  |.. ......mainwin|
00001070  64 6f 77 0d 04 9c 11 ef  32 38 2c 31 2c 32 34 2c  |dow.....28,1,24,|
00001080  33 38 2c 31 0d 04 a6 05  e1 0d 04 b0 05 20 0d 04  |38,1......... ..|
00001090  ba 0f dd f2 63 6f 6d 77  69 6e 64 6f 77 0d 04 c4  |....comwindow...|
000010a0  12 ef 32 38 2c 31 2c 33  30 2c 33 38 2c 32 37 0d  |..28,1,30,38,27.|
000010b0  04 ce 05 e1 0d 04 d8 05  20 0d 04 e2 1c dd a4 63  |........ ......c|
000010c0  28 43 24 29 3a f1 8a 31  39 2d a9 43 24 2f 32 29  |(C$):..19-.C$/2)|
000010d0  3b 3a 3d 43 24 0d ff                              |;:=C$..|
000010d7