� BTEC Project "PAGE0" v.3.2
 � * Addition Bug Corrected *

*CLOSE
2*FX200,1
<count=0:a=0:A=0
Fbegin=0:valid=0:upto=1:V=0
P%stopper=0:bignum=0:Y=0:theprice=0
Zthat_one=�("CHARGE")
d�#that_one,A
n� #that_one
x��paper$(15),price(15),num(40),rname$(40),init$(40),sname$(40),title$(40),telno(40),or1$(40),or2$(40),or3$(40),round(40),todaysbill(40),outstanding(40)
��mainwindow
�*�:�c("""TOTAL THE MORNING"" UTILITY")
��U%=1 �dXD
�-�''''�c("This utility adds up what each")
�/�'�c("of the customers on every ROUND owe")
�+�'�c("for the present day - using the")
�.�'�c("prices of the papers on PAGE 1 and")
�*�'�c("the delivery charge on PAGE 2.")
�2�''�c("Only use this utility ONCE a day, and")
�/�'�c("MAKE SURE that the newspaper prices")
�.�'�c("have not changed before using this")
��'�c("utility!")
��23;8202;0;0;0;

�U%=0 � � �TXA

�U%=1 �7:�dXD

N�comwindow:�''''''�c("Are you ready to run this utility?")'�c("(Y/N)"):F=�

"�F=89�TvA

,	�TTE

6papers=�("DATA")

@papercount=0

J�

Tpapercount=papercount+1

^1�#papers,paper$(papercount),price(papercount)

hR�paper$(papercount)="EMPTY" � price(papercount)=-981 � papercount=papercount-1

r� �#papers

|
� #papers

� 

�
*DIR M

� 

��comwindow

�x�''''�c("This FAST utility is ready to run!")''�c("Would you like to proof-read the")'�c("calculations? (Y/N)");:S=�

��S=89 � Y=1 � Y=0

�
�a=1�6

�count=0

��a=1 file$=("ROUND1")

��a=2 file$=("ROUND2")

��a=3 file$=("ROUND3")

��a=4 file$=("ROUND4")

��a=5 file$=("ROUND5")
�a=6 file$=("ROUND6")
 �''''�(12);"Loading ";file$'
theround=�(file$)
&�
0count=count+1
:��#theround,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
D� �#theround
N� #theround
X�'''''':�28,1,24,38,2
b�:loop=0:const=begin
l�
vloop=loop+1
�const=begin-(loop-1)
�W�0,loop+const);num(loop);�4,loop+const)rname$(loop)�15,loop+const)or1$(loop):�fad1
�Hconst=const+2:�13,loop+const)"+ DELIVERY CHARGE"�33,loop+const);:�c
�<const=const+1:�32,loop+const);:�137,137,137,137,137,137
�'todaysbill(loop)=todaysbill(loop)+A
�)const=const+1:�33,loop+const)"`";:�b
�J�or2$(loop) <> "" const=const+2:�13,loop+const);"+ ";or2$(loop):�fad2
�Z�or2$(loop) <> "" const=const+2:�13,loop+const)"+ DELIVERY CHARGE"�33,loop+const);:�c
�N�or2$(loop) <> "" const=const+1:�32,loop+const);:�137,137,137,137,137,137
�A�or2$(loop) <> "" todaysbill(loop)=todaysbill(loop)+A+toaddto
�<�or2$(loop) <> "" const=const+1:�33,loop+const);"`";:�b
�J�or3$(loop) <> "" const=const+2:�13,loop+const);"+ ";or3$(loop):�fad3
�Z�or3$(loop) <> "" const=const+2:�13,loop+const)"+ DELIVERY CHARGE"�33,loop+const);:�c
N�or3$(loop) <> "" const=const+1:�32,loop+const);:�137,137,137,137,137,137
A�or3$(loop) <> "" todaysbill(loop)=todaysbill(loop)+A+toaddto
<�or3$(loop) <> "" const=const+1:�33,loop+const);"`";:�b
 Iconst=const+2:�13,loop+const)"+ OUTSTANDING BILL"�32,loop+const);:�d
*<const=const+1:�32,loop+const);:�137,137,137,137,137,137
48outstanding(loop)=outstanding(loop)+todaysbill(loop)
>&const=const+1:�32,loop+const);:�d
HM�or3$(loop) = "" const=const+1:�32,loop+const);:�137,137,137,137,137,137
Ro�comwindow:� Y=0 �''''''�c("Calculation Complete")':A$=�(100) � �''''''�c("Press SPACE when ready")':���=32
\�28,1,24,38,2:�
fstopper=num(loop+1)
p� stopper=-999 � stopper=0
z-�comwindow:�''''''�(12);"Writing ";file$'
�newbills=�(file$)
�
�s=1 � 40
�z�#newbills,num(s),rname$(s),init$(s),sname$(s),title$(s),telno(s),or1$(s),or2$(s),or3$(s),todaysbill(s),outstanding(s)
�bignum=bignum+todaysbill(s)
��s
��#newbills
��a
�U%=1
�k�'''''�c("Estimated income from all rounds is:")'':�16,2)"`";bignum;:� (bignum * 100) � 10 = 0 � �"0";
��22,2)�(6):�28,1,24,38,2:�
�/�''''''''''�c("Updating Deliverer's Wages")
�G�wages(10),deliverer$(10),housenum(10),road$(10),phone(10),owed(10)
�*DIR
�the_wages=�("WAGES")
�
temp=temp+1
^�#the_wages,wages(temp),deliverer$(temp),housenum(temp),road$(temp),phone(temp),owed(temp)
$3�wages(temp)=-999 � wages(temp)=0 � temp=temp-1
.� �#the_wages
8� #the_wages
B 
L
*CLOSE
V 
`�q=1 � temp
jowed(q)=owed(q)+wages(q)
t�q
~ 
�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
� 
��22,2)�(6):�28,1,24,38,2:�
��0,0)'''�c("Bills calculated and totalled.")''�c("An internal variable is now set")''�c("so that this utility cannot be used")''�c("again until the machine is")'
�%�c("switched off and on again.")
�v�''�c("If you do switch the machine")''�c("off now, make sure you DO NOT")''�c("execute this option again today.")

A$=�(500)

0�comwindow:�'''''''�c("Press SPACE")':���=32
%�''''''''�c("Loading Main Menu")'
*DIR
(�"MENU"
2�
<
��fad1
F�T=1�papercount
P{�paper$(T)=or1$(loop) � V=T:todaysbill(loop)=price(V):�33,loop+const)"`";price(V);:� (price(V) * 100) � 10 = 0 � �"0";
Z�T
d�
n 
x
��fad2
�toaddto=todaysbill(loop)
��T=1�papercount
�{�paper$(T)=or2$(loop) � V=T:todaysbill(loop)=price(V):�33,loop+const)"`";price(V);:� (price(V) * 100) � 10 = 0 � �"0";
��T
��
� 
�
��fad3
�toaddto=todaysbill(loop)
��T=1�papercount
�{�paper$(T)=or3$(loop) � V=T:todaysbill(loop)=price(V):�33,loop+const)"`";price(V);:� (price(V) * 100) � 10 = 0 � �"0";
��T
��
� 

��c:�"`";
2� A>0.09 �;A;:� (A * 100) � 10 = 0 �"0";:�DrF
�"0.0";:� A=0.09 �"9";
"� A=0.08 �"8";
,� A=0.07 �"7";
6� A=0.06 �"6";
@� A=0.05 �"5";
J� A=0.04 �"4";
T� A=0.03 �"3";
^� A=0.02 �"2";
h� A=0.01 �"1";
r�
| 
���d
�,�outstanding(loop)>9.99 � �"`"; � �" `";
��;outstanding(loop);
�6�(outstanding(loop) * 100) � 100 = 0 �".00";:�dBF
�-�(outstanding(loop) * 100) � 10 = 0 �"0";
���outstanding(loop)=0.4 � outstanding(loop)=8.8 � outstanding(loop)=8.4 � outstanding(loop)=2.1 � outstanding(loop)=4.2 � �"0";
��
� 
���b:�;todaysbill(loop);
�5�(todaysbill(loop) * 100) � 100 = 0 �".00";:�dtF
�M�todaysbill(loop)=0.4 � todaysbill(loop)=1.1 � todaysbill(loop)=8.8 �"0";
��
� 
��mainwindow
�28,1,24,38,1
�
& 
0��comwindow
:�28,1,30,38,27
D�
N 
Xݤ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  30 22 20 76 2e 33 2e 32  |ct "PAGE0" v.3.2|
00000020  0d 00 14 20 f4 20 2a 20  41 64 64 69 74 69 6f 6e  |... . * Addition|
00000030  20 42 75 67 20 43 6f 72  72 65 63 74 65 64 20 2a  | Bug Corrected *|
00000040  0d 00 1e 0a 2a 43 4c 4f  53 45 0d 00 32 0c 2a 46  |....*CLOSE..2.*F|
00000050  58 32 30 30 2c 31 0d 00  3c 13 63 6f 75 6e 74 3d  |X200,1..<.count=|
00000060  30 3a 61 3d 30 3a 41 3d  30 0d 00 46 1e 62 65 67  |0:a=0:A=0..F.beg|
00000070  69 6e 3d 30 3a 76 61 6c  69 64 3d 30 3a 75 70 74  |in=0:valid=0:upt|
00000080  6f 3d 31 3a 56 3d 30 0d  00 50 25 73 74 6f 70 70  |o=1:V=0..P%stopp|
00000090  65 72 3d 30 3a 62 69 67  6e 75 6d 3d 30 3a 59 3d  |er=0:bignum=0:Y=|
000000a0  30 3a 74 68 65 70 72 69  63 65 3d 30 0d 00 5a 18  |0:theprice=0..Z.|
000000b0  74 68 61 74 5f 6f 6e 65  3d 8e 28 22 43 48 41 52  |that_one=.("CHAR|
000000c0  47 45 22 29 0d 00 64 10  e8 23 74 68 61 74 5f 6f  |GE")..d..#that_o|
000000d0  6e 65 2c 41 0d 00 6e 0f  d9 20 23 74 68 61 74 5f  |ne,A..n.. #that_|
000000e0  6f 6e 65 0d 00 78 9a de  70 61 70 65 72 24 28 31  |one..x..paper$(1|
000000f0  35 29 2c 70 72 69 63 65  28 31 35 29 2c 6e 75 6d  |5),price(15),num|
00000100  28 34 30 29 2c 72 6e 61  6d 65 24 28 34 30 29 2c  |(40),rname$(40),|
00000110  69 6e 69 74 24 28 34 30  29 2c 73 6e 61 6d 65 24  |init$(40),sname$|
00000120  28 34 30 29 2c 74 69 74  6c 65 24 28 34 30 29 2c  |(40),title$(40),|
00000130  74 65 6c 6e 6f 28 34 30  29 2c 6f 72 31 24 28 34  |telno(40),or1$(4|
00000140  30 29 2c 6f 72 32 24 28  34 30 29 2c 6f 72 33 24  |0),or2$(40),or3$|
00000150  28 34 30 29 2c 72 6f 75  6e 64 28 34 30 29 2c 74  |(40),round(40),t|
00000160  6f 64 61 79 73 62 69 6c  6c 28 34 30 29 2c 6f 75  |odaysbill(40),ou|
00000170  74 73 74 61 6e 64 69 6e  67 28 34 30 29 0d 00 82  |tstanding(40)...|
00000180  0f f2 6d 61 69 6e 77 69  6e 64 6f 77 0d 00 8c 2a  |..mainwindow...*|
00000190  db 3a f1 a4 63 28 22 22  22 54 4f 54 41 4c 20 54  |.:..c("""TOTAL T|
000001a0  48 45 20 4d 4f 52 4e 49  4e 47 22 22 20 55 54 49  |HE MORNING"" UTI|
000001b0  4c 49 54 59 22 29 0d 00  96 0f e7 55 25 3d 31 20  |LITY").....U%=1 |
000001c0  e5 8d 64 58 44 0d 00 a0  2d f1 27 27 27 27 a4 63  |..dXD...-.''''.c|
000001d0  28 22 54 68 69 73 20 75  74 69 6c 69 74 79 20 61  |("This utility a|
000001e0  64 64 73 20 75 70 20 77  68 61 74 20 65 61 63 68  |dds up what each|
000001f0  22 29 0d 00 aa 2f f1 27  a4 63 28 22 6f 66 20 74  |").../.'.c("of t|
00000200  68 65 20 63 75 73 74 6f  6d 65 72 73 20 6f 6e 20  |he customers on |
00000210  65 76 65 72 79 20 52 4f  55 4e 44 20 6f 77 65 22  |every ROUND owe"|
00000220  29 0d 00 b4 2b f1 27 a4  63 28 22 66 6f 72 20 74  |)...+.'.c("for t|
00000230  68 65 20 70 72 65 73 65  6e 74 20 64 61 79 20 2d  |he present day -|
00000240  20 75 73 69 6e 67 20 74  68 65 22 29 0d 00 be 2e  | using the")....|
00000250  f1 27 a4 63 28 22 70 72  69 63 65 73 20 6f 66 20  |.'.c("prices of |
00000260  74 68 65 20 70 61 70 65  72 73 20 6f 6e 20 50 41  |the papers on PA|
00000270  47 45 20 31 20 61 6e 64  22 29 0d 00 c8 2a f1 27  |GE 1 and")...*.'|
00000280  a4 63 28 22 74 68 65 20  64 65 6c 69 76 65 72 79  |.c("the delivery|
00000290  20 63 68 61 72 67 65 20  6f 6e 20 50 41 47 45 20  | charge on PAGE |
000002a0  32 2e 22 29 0d 00 d2 32  f1 27 27 a4 63 28 22 4f  |2.")...2.''.c("O|
000002b0  6e 6c 79 20 75 73 65 20  74 68 69 73 20 75 74 69  |nly use this uti|
000002c0  6c 69 74 79 20 4f 4e 43  45 20 61 20 64 61 79 2c  |lity ONCE a day,|
000002d0  20 61 6e 64 22 29 0d 00  dc 2f f1 27 a4 63 28 22  | and").../.'.c("|
000002e0  4d 41 4b 45 20 53 55 52  45 20 74 68 61 74 20 74  |MAKE SURE that t|
000002f0  68 65 20 6e 65 77 73 70  61 70 65 72 20 70 72 69  |he newspaper pri|
00000300  63 65 73 22 29 0d 00 e6  2e f1 27 a4 63 28 22 68  |ces").....'.c("h|
00000310  61 76 65 20 6e 6f 74 20  63 68 61 6e 67 65 64 20  |ave not changed |
00000320  62 65 66 6f 72 65 20 75  73 69 6e 67 20 74 68 69  |before using thi|
00000330  73 22 29 0d 00 f0 14 f1  27 a4 63 28 22 75 74 69  |s").....'.c("uti|
00000340  6c 69 74 79 21 22 29 0d  00 fa 13 ef 32 33 3b 38  |lity!").....23;8|
00000350  32 30 32 3b 30 3b 30 3b  30 3b 0d 01 04 12 e7 55  |202;0;0;0;.....U|
00000360  25 3d 30 20 8c 20 e5 20  8d 54 58 41 0d 01 0e 12  |%=0 . . .TXA....|
00000370  e7 55 25 3d 31 20 ef 37  3a e5 8d 64 58 44 0d 01  |.U%=1 .7:..dXD..|
00000380  18 4e f2 63 6f 6d 77 69  6e 64 6f 77 3a f1 27 27  |.N.comwindow:.''|
00000390  27 27 27 27 a4 63 28 22  41 72 65 20 79 6f 75 20  |''''.c("Are you |
000003a0  72 65 61 64 79 20 74 6f  20 72 75 6e 20 74 68 69  |ready to run thi|
000003b0  73 20 75 74 69 6c 69 74  79 3f 22 29 27 a4 63 28  |s utility?")'.c(|
000003c0  22 28 59 2f 4e 29 22 29  3a 46 3d a5 0d 01 22 0e  |"(Y/N)"):F=...".|
000003d0  e7 46 3d 38 39 e5 8d 54  76 41 0d 01 2c 09 e5 8d  |.F=89..TvA..,...|
000003e0  54 54 45 0d 01 36 14 70  61 70 65 72 73 3d 8e 28  |TTE..6.papers=.(|
000003f0  22 44 41 54 41 22 29 0d  01 40 10 70 61 70 65 72  |"DATA")..@.paper|
00000400  63 6f 75 6e 74 3d 30 0d  01 4a 05 f5 0d 01 54 1b  |count=0..J....T.|
00000410  70 61 70 65 72 63 6f 75  6e 74 3d 70 61 70 65 72  |papercount=paper|
00000420  63 6f 75 6e 74 2b 31 0d  01 5e 31 e8 23 70 61 70  |count+1..^1.#pap|
00000430  65 72 73 2c 70 61 70 65  72 24 28 70 61 70 65 72  |ers,paper$(paper|
00000440  63 6f 75 6e 74 29 2c 70  72 69 63 65 28 70 61 70  |count),price(pap|
00000450  65 72 63 6f 75 6e 74 29  0d 01 68 52 e7 70 61 70  |ercount)..hR.pap|
00000460  65 72 24 28 70 61 70 65  72 63 6f 75 6e 74 29 3d  |er$(papercount)=|
00000470  22 45 4d 50 54 59 22 20  84 20 70 72 69 63 65 28  |"EMPTY" . price(|
00000480  70 61 70 65 72 63 6f 75  6e 74 29 3d 2d 39 38 31  |papercount)=-981|
00000490  20 8c 20 70 61 70 65 72  63 6f 75 6e 74 3d 70 61  | . papercount=pa|
000004a0  70 65 72 63 6f 75 6e 74  2d 31 0d 01 72 0e fd 20  |percount-1..r.. |
000004b0  c5 23 70 61 70 65 72 73  0d 01 7c 0d d9 20 23 70  |.#papers..|.. #p|
000004c0  61 70 65 72 73 0d 01 86  05 20 0d 01 90 0a 2a 44  |apers.... ....*D|
000004d0  49 52 20 4d 0d 01 9a 05  20 0d 01 a4 0e f2 63 6f  |IR M.... .....co|
000004e0  6d 77 69 6e 64 6f 77 0d  01 ae 78 f1 27 27 27 27  |mwindow...x.''''|
000004f0  a4 63 28 22 54 68 69 73  20 46 41 53 54 20 75 74  |.c("This FAST ut|
00000500  69 6c 69 74 79 20 69 73  20 72 65 61 64 79 20 74  |ility is ready t|
00000510  6f 20 72 75 6e 21 22 29  27 27 a4 63 28 22 57 6f  |o run!")''.c("Wo|
00000520  75 6c 64 20 79 6f 75 20  6c 69 6b 65 20 74 6f 20  |uld you like to |
00000530  70 72 6f 6f 66 2d 72 65  61 64 20 74 68 65 22 29  |proof-read the")|
00000540  27 a4 63 28 22 63 61 6c  63 75 6c 61 74 69 6f 6e  |'.c("calculation|
00000550  73 3f 20 28 59 2f 4e 29  22 29 3b 3a 53 3d a5 0d  |s? (Y/N)");:S=..|
00000560  01 b8 15 e7 53 3d 38 39  20 8c 20 59 3d 31 20 8b  |....S=89 . Y=1 .|
00000570  20 59 3d 30 0d 01 c2 0a  e3 61 3d 31 b8 36 0d 01  | Y=0.....a=1.6..|
00000580  cc 0b 63 6f 75 6e 74 3d  30 0d 01 d6 19 e7 61 3d  |..count=0.....a=|
00000590  31 20 66 69 6c 65 24 3d  28 22 52 4f 55 4e 44 31  |1 file$=("ROUND1|
000005a0  22 29 0d 01 e0 19 e7 61  3d 32 20 66 69 6c 65 24  |").....a=2 file$|
000005b0  3d 28 22 52 4f 55 4e 44  32 22 29 0d 01 ea 19 e7  |=("ROUND2").....|
000005c0  61 3d 33 20 66 69 6c 65  24 3d 28 22 52 4f 55 4e  |a=3 file$=("ROUN|
000005d0  44 33 22 29 0d 01 f4 19  e7 61 3d 34 20 66 69 6c  |D3").....a=4 fil|
000005e0  65 24 3d 28 22 52 4f 55  4e 44 34 22 29 0d 01 fe  |e$=("ROUND4")...|
000005f0  19 e7 61 3d 35 20 66 69  6c 65 24 3d 28 22 52 4f  |..a=5 file$=("RO|
00000600  55 4e 44 35 22 29 0d 02  08 19 e7 61 3d 36 20 66  |UND5").....a=6 f|
00000610  69 6c 65 24 3d 28 22 52  4f 55 4e 44 36 22 29 0d  |ile$=("ROUND6").|
00000620  02 12 20 f1 27 27 27 27  89 28 31 32 29 3b 22 4c  |.. .''''.(12);"L|
00000630  6f 61 64 69 6e 67 20 22  3b 66 69 6c 65 24 27 0d  |oading ";file$'.|
00000640  02 1c 15 74 68 65 72 6f  75 6e 64 3d 8e 28 66 69  |...theround=.(fi|
00000650  6c 65 24 29 0d 02 26 05  f5 0d 02 30 11 63 6f 75  |le$)..&....0.cou|
00000660  6e 74 3d 63 6f 75 6e 74  2b 31 0d 02 3a a6 e8 23  |nt=count+1..:..#|
00000670  74 68 65 72 6f 75 6e 64  2c 6e 75 6d 28 63 6f 75  |theround,num(cou|
00000680  6e 74 29 2c 72 6e 61 6d  65 24 28 63 6f 75 6e 74  |nt),rname$(count|
00000690  29 2c 69 6e 69 74 24 28  63 6f 75 6e 74 29 2c 73  |),init$(count),s|
000006a0  6e 61 6d 65 24 28 63 6f  75 6e 74 29 2c 74 69 74  |name$(count),tit|
000006b0  6c 65 24 28 63 6f 75 6e  74 29 2c 74 65 6c 6e 6f  |le$(count),telno|
000006c0  28 63 6f 75 6e 74 29 2c  6f 72 31 24 28 63 6f 75  |(count),or1$(cou|
000006d0  6e 74 29 2c 6f 72 32 24  28 63 6f 75 6e 74 29 2c  |nt),or2$(count),|
000006e0  6f 72 33 24 28 63 6f 75  6e 74 29 2c 74 6f 64 61  |or3$(count),toda|
000006f0  79 73 62 69 6c 6c 28 63  6f 75 6e 74 29 2c 6f 75  |ysbill(count),ou|
00000700  74 73 74 61 6e 64 69 6e  67 28 63 6f 75 6e 74 29  |tstanding(count)|
00000710  0d 02 44 10 fd 20 c5 23  74 68 65 72 6f 75 6e 64  |..D.. .#theround|
00000720  0d 02 4e 0f d9 20 23 74  68 65 72 6f 75 6e 64 0d  |..N.. #theround.|
00000730  02 58 19 f1 27 27 27 27  27 27 3a ef 32 38 2c 31  |.X..'''''':.28,1|
00000740  2c 32 34 2c 33 38 2c 32  0d 02 62 18 db 3a 6c 6f  |,24,38,2..b..:lo|
00000750  6f 70 3d 30 3a 63 6f 6e  73 74 3d 62 65 67 69 6e  |op=0:const=begin|
00000760  0d 02 6c 05 f5 0d 02 76  0f 6c 6f 6f 70 3d 6c 6f  |..l....v.loop=lo|
00000770  6f 70 2b 31 0d 02 80 18  63 6f 6e 73 74 3d 62 65  |op+1....const=be|
00000780  67 69 6e 2d 28 6c 6f 6f  70 2d 31 29 0d 02 8a 57  |gin-(loop-1)...W|
00000790  f1 8a 30 2c 6c 6f 6f 70  2b 63 6f 6e 73 74 29 3b  |..0,loop+const);|
000007a0  6e 75 6d 28 6c 6f 6f 70  29 3b 8a 34 2c 6c 6f 6f  |num(loop);.4,loo|
000007b0  70 2b 63 6f 6e 73 74 29  72 6e 61 6d 65 24 28 6c  |p+const)rname$(l|
000007c0  6f 6f 70 29 8a 31 35 2c  6c 6f 6f 70 2b 63 6f 6e  |oop).15,loop+con|
000007d0  73 74 29 6f 72 31 24 28  6c 6f 6f 70 29 3a f2 66  |st)or1$(loop):.f|
000007e0  61 64 31 0d 02 94 48 63  6f 6e 73 74 3d 63 6f 6e  |ad1...Hconst=con|
000007f0  73 74 2b 32 3a f1 8a 31  33 2c 6c 6f 6f 70 2b 63  |st+2:..13,loop+c|
00000800  6f 6e 73 74 29 22 2b 20  44 45 4c 49 56 45 52 59  |onst)"+ DELIVERY|
00000810  20 43 48 41 52 47 45 22  8a 33 33 2c 6c 6f 6f 70  | CHARGE".33,loop|
00000820  2b 63 6f 6e 73 74 29 3b  3a f2 63 0d 02 9e 3c 63  |+const);:.c...<c|
00000830  6f 6e 73 74 3d 63 6f 6e  73 74 2b 31 3a f1 8a 33  |onst=const+1:..3|
00000840  32 2c 6c 6f 6f 70 2b 63  6f 6e 73 74 29 3b 3a ef  |2,loop+const);:.|
00000850  31 33 37 2c 31 33 37 2c  31 33 37 2c 31 33 37 2c  |137,137,137,137,|
00000860  31 33 37 2c 31 33 37 0d  02 a8 27 74 6f 64 61 79  |137,137...'today|
00000870  73 62 69 6c 6c 28 6c 6f  6f 70 29 3d 74 6f 64 61  |sbill(loop)=toda|
00000880  79 73 62 69 6c 6c 28 6c  6f 6f 70 29 2b 41 0d 02  |ysbill(loop)+A..|
00000890  b2 29 63 6f 6e 73 74 3d  63 6f 6e 73 74 2b 31 3a  |.)const=const+1:|
000008a0  f1 8a 33 33 2c 6c 6f 6f  70 2b 63 6f 6e 73 74 29  |..33,loop+const)|
000008b0  22 60 22 3b 3a f2 62 0d  02 bc 4a e7 6f 72 32 24  |"`";:.b...J.or2$|
000008c0  28 6c 6f 6f 70 29 20 3c  3e 20 22 22 20 63 6f 6e  |(loop) <> "" con|
000008d0  73 74 3d 63 6f 6e 73 74  2b 32 3a f1 8a 31 33 2c  |st=const+2:..13,|
000008e0  6c 6f 6f 70 2b 63 6f 6e  73 74 29 3b 22 2b 20 22  |loop+const);"+ "|
000008f0  3b 6f 72 32 24 28 6c 6f  6f 70 29 3a f2 66 61 64  |;or2$(loop):.fad|
00000900  32 0d 02 c6 5a e7 6f 72  32 24 28 6c 6f 6f 70 29  |2...Z.or2$(loop)|
00000910  20 3c 3e 20 22 22 20 63  6f 6e 73 74 3d 63 6f 6e  | <> "" const=con|
00000920  73 74 2b 32 3a f1 8a 31  33 2c 6c 6f 6f 70 2b 63  |st+2:..13,loop+c|
00000930  6f 6e 73 74 29 22 2b 20  44 45 4c 49 56 45 52 59  |onst)"+ DELIVERY|
00000940  20 43 48 41 52 47 45 22  8a 33 33 2c 6c 6f 6f 70  | CHARGE".33,loop|
00000950  2b 63 6f 6e 73 74 29 3b  3a f2 63 0d 02 d0 4e e7  |+const);:.c...N.|
00000960  6f 72 32 24 28 6c 6f 6f  70 29 20 3c 3e 20 22 22  |or2$(loop) <> ""|
00000970  20 63 6f 6e 73 74 3d 63  6f 6e 73 74 2b 31 3a f1  | const=const+1:.|
00000980  8a 33 32 2c 6c 6f 6f 70  2b 63 6f 6e 73 74 29 3b  |.32,loop+const);|
00000990  3a ef 31 33 37 2c 31 33  37 2c 31 33 37 2c 31 33  |:.137,137,137,13|
000009a0  37 2c 31 33 37 2c 31 33  37 0d 02 da 41 e7 6f 72  |7,137,137...A.or|
000009b0  32 24 28 6c 6f 6f 70 29  20 3c 3e 20 22 22 20 74  |2$(loop) <> "" t|
000009c0  6f 64 61 79 73 62 69 6c  6c 28 6c 6f 6f 70 29 3d  |odaysbill(loop)=|
000009d0  74 6f 64 61 79 73 62 69  6c 6c 28 6c 6f 6f 70 29  |todaysbill(loop)|
000009e0  2b 41 2b 74 6f 61 64 64  74 6f 0d 02 e4 3c e7 6f  |+A+toaddto...<.o|
000009f0  72 32 24 28 6c 6f 6f 70  29 20 3c 3e 20 22 22 20  |r2$(loop) <> "" |
00000a00  63 6f 6e 73 74 3d 63 6f  6e 73 74 2b 31 3a f1 8a  |const=const+1:..|
00000a10  33 33 2c 6c 6f 6f 70 2b  63 6f 6e 73 74 29 3b 22  |33,loop+const);"|
00000a20  60 22 3b 3a f2 62 0d 02  ee 4a e7 6f 72 33 24 28  |`";:.b...J.or3$(|
00000a30  6c 6f 6f 70 29 20 3c 3e  20 22 22 20 63 6f 6e 73  |loop) <> "" cons|
00000a40  74 3d 63 6f 6e 73 74 2b  32 3a f1 8a 31 33 2c 6c  |t=const+2:..13,l|
00000a50  6f 6f 70 2b 63 6f 6e 73  74 29 3b 22 2b 20 22 3b  |oop+const);"+ ";|
00000a60  6f 72 33 24 28 6c 6f 6f  70 29 3a f2 66 61 64 33  |or3$(loop):.fad3|
00000a70  0d 02 f8 5a e7 6f 72 33  24 28 6c 6f 6f 70 29 20  |...Z.or3$(loop) |
00000a80  3c 3e 20 22 22 20 63 6f  6e 73 74 3d 63 6f 6e 73  |<> "" const=cons|
00000a90  74 2b 32 3a f1 8a 31 33  2c 6c 6f 6f 70 2b 63 6f  |t+2:..13,loop+co|
00000aa0  6e 73 74 29 22 2b 20 44  45 4c 49 56 45 52 59 20  |nst)"+ DELIVERY |
00000ab0  43 48 41 52 47 45 22 8a  33 33 2c 6c 6f 6f 70 2b  |CHARGE".33,loop+|
00000ac0  63 6f 6e 73 74 29 3b 3a  f2 63 0d 03 02 4e e7 6f  |const);:.c...N.o|
00000ad0  72 33 24 28 6c 6f 6f 70  29 20 3c 3e 20 22 22 20  |r3$(loop) <> "" |
00000ae0  63 6f 6e 73 74 3d 63 6f  6e 73 74 2b 31 3a f1 8a  |const=const+1:..|
00000af0  33 32 2c 6c 6f 6f 70 2b  63 6f 6e 73 74 29 3b 3a  |32,loop+const);:|
00000b00  ef 31 33 37 2c 31 33 37  2c 31 33 37 2c 31 33 37  |.137,137,137,137|
00000b10  2c 31 33 37 2c 31 33 37  0d 03 0c 41 e7 6f 72 33  |,137,137...A.or3|
00000b20  24 28 6c 6f 6f 70 29 20  3c 3e 20 22 22 20 74 6f  |$(loop) <> "" to|
00000b30  64 61 79 73 62 69 6c 6c  28 6c 6f 6f 70 29 3d 74  |daysbill(loop)=t|
00000b40  6f 64 61 79 73 62 69 6c  6c 28 6c 6f 6f 70 29 2b  |odaysbill(loop)+|
00000b50  41 2b 74 6f 61 64 64 74  6f 0d 03 16 3c e7 6f 72  |A+toaddto...<.or|
00000b60  33 24 28 6c 6f 6f 70 29  20 3c 3e 20 22 22 20 63  |3$(loop) <> "" c|
00000b70  6f 6e 73 74 3d 63 6f 6e  73 74 2b 31 3a f1 8a 33  |onst=const+1:..3|
00000b80  33 2c 6c 6f 6f 70 2b 63  6f 6e 73 74 29 3b 22 60  |3,loop+const);"`|
00000b90  22 3b 3a f2 62 0d 03 20  49 63 6f 6e 73 74 3d 63  |";:.b.. Iconst=c|
00000ba0  6f 6e 73 74 2b 32 3a f1  8a 31 33 2c 6c 6f 6f 70  |onst+2:..13,loop|
00000bb0  2b 63 6f 6e 73 74 29 22  2b 20 4f 55 54 53 54 41  |+const)"+ OUTSTA|
00000bc0  4e 44 49 4e 47 20 42 49  4c 4c 22 8a 33 32 2c 6c  |NDING BILL".32,l|
00000bd0  6f 6f 70 2b 63 6f 6e 73  74 29 3b 3a f2 64 0d 03  |oop+const);:.d..|
00000be0  2a 3c 63 6f 6e 73 74 3d  63 6f 6e 73 74 2b 31 3a  |*<const=const+1:|
00000bf0  f1 8a 33 32 2c 6c 6f 6f  70 2b 63 6f 6e 73 74 29  |..32,loop+const)|
00000c00  3b 3a ef 31 33 37 2c 31  33 37 2c 31 33 37 2c 31  |;:.137,137,137,1|
00000c10  33 37 2c 31 33 37 2c 31  33 37 0d 03 34 38 6f 75  |37,137,137..48ou|
00000c20  74 73 74 61 6e 64 69 6e  67 28 6c 6f 6f 70 29 3d  |tstanding(loop)=|
00000c30  6f 75 74 73 74 61 6e 64  69 6e 67 28 6c 6f 6f 70  |outstanding(loop|
00000c40  29 2b 74 6f 64 61 79 73  62 69 6c 6c 28 6c 6f 6f  |)+todaysbill(loo|
00000c50  70 29 0d 03 3e 26 63 6f  6e 73 74 3d 63 6f 6e 73  |p)..>&const=cons|
00000c60  74 2b 31 3a f1 8a 33 32  2c 6c 6f 6f 70 2b 63 6f  |t+1:..32,loop+co|
00000c70  6e 73 74 29 3b 3a f2 64  0d 03 48 4d e7 6f 72 33  |nst);:.d..HM.or3|
00000c80  24 28 6c 6f 6f 70 29 20  3d 20 22 22 20 63 6f 6e  |$(loop) = "" con|
00000c90  73 74 3d 63 6f 6e 73 74  2b 31 3a f1 8a 33 32 2c  |st=const+1:..32,|
00000ca0  6c 6f 6f 70 2b 63 6f 6e  73 74 29 3b 3a ef 31 33  |loop+const);:.13|
00000cb0  37 2c 31 33 37 2c 31 33  37 2c 31 33 37 2c 31 33  |7,137,137,137,13|
00000cc0  37 2c 31 33 37 0d 03 52  6f f2 63 6f 6d 77 69 6e  |7,137..Ro.comwin|
00000cd0  64 6f 77 3a e7 20 59 3d  30 20 f1 27 27 27 27 27  |dow:. Y=0 .'''''|
00000ce0  27 a4 63 28 22 43 61 6c  63 75 6c 61 74 69 6f 6e  |'.c("Calculation|
00000cf0  20 43 6f 6d 70 6c 65 74  65 22 29 27 3a 41 24 3d  | Complete")':A$=|
00000d00  bf 28 31 30 30 29 20 8b  20 f1 27 27 27 27 27 27  |.(100) . .''''''|
00000d10  a4 63 28 22 50 72 65 73  73 20 53 50 41 43 45 20  |.c("Press SPACE |
00000d20  77 68 65 6e 20 72 65 61  64 79 22 29 27 3a f5 fd  |when ready")':..|
00000d30  a5 3d 33 32 0d 03 5c 13  ef 32 38 2c 31 2c 32 34  |.=32..\..28,1,24|
00000d40  2c 33 38 2c 32 3a db 0d  03 66 17 73 74 6f 70 70  |,38,2:...f.stopp|
00000d50  65 72 3d 6e 75 6d 28 6c  6f 6f 70 2b 31 29 0d 03  |er=num(loop+1)..|
00000d60  70 1e fd 20 73 74 6f 70  70 65 72 3d 2d 39 39 39  |p.. stopper=-999|
00000d70  20 84 20 73 74 6f 70 70  65 72 3d 30 0d 03 7a 2d  | . stopper=0..z-|
00000d80  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
00000d90  27 27 89 28 31 32 29 3b  22 57 72 69 74 69 6e 67  |''.(12);"Writing|
00000da0  20 22 3b 66 69 6c 65 24  27 0d 03 84 15 6e 65 77  | ";file$'....new|
00000db0  62 69 6c 6c 73 3d ae 28  66 69 6c 65 24 29 0d 03  |bills=.(file$)..|
00000dc0  8e 0d e3 73 3d 31 20 b8  20 34 30 0d 03 98 7a f1  |...s=1 . 40...z.|
00000dd0  23 6e 65 77 62 69 6c 6c  73 2c 6e 75 6d 28 73 29  |#newbills,num(s)|
00000de0  2c 72 6e 61 6d 65 24 28  73 29 2c 69 6e 69 74 24  |,rname$(s),init$|
00000df0  28 73 29 2c 73 6e 61 6d  65 24 28 73 29 2c 74 69  |(s),sname$(s),ti|
00000e00  74 6c 65 24 28 73 29 2c  74 65 6c 6e 6f 28 73 29  |tle$(s),telno(s)|
00000e10  2c 6f 72 31 24 28 73 29  2c 6f 72 32 24 28 73 29  |,or1$(s),or2$(s)|
00000e20  2c 6f 72 33 24 28 73 29  2c 74 6f 64 61 79 73 62  |,or3$(s),todaysb|
00000e30  69 6c 6c 28 73 29 2c 6f  75 74 73 74 61 6e 64 69  |ill(s),outstandi|
00000e40  6e 67 28 73 29 0d 03 a2  1f 62 69 67 6e 75 6d 3d  |ng(s)....bignum=|
00000e50  62 69 67 6e 75 6d 2b 74  6f 64 61 79 73 62 69 6c  |bignum+todaysbil|
00000e60  6c 28 73 29 0d 03 ac 06  ed 73 0d 03 b6 0e d9 23  |l(s).....s.....#|
00000e70  6e 65 77 62 69 6c 6c 73  0d 03 c0 06 ed 61 0d 03  |newbills.....a..|
00000e80  ca 08 55 25 3d 31 0d 03  d4 6b f1 27 27 27 27 27  |..U%=1...k.'''''|
00000e90  a4 63 28 22 45 73 74 69  6d 61 74 65 64 20 69 6e  |.c("Estimated in|
00000ea0  63 6f 6d 65 20 66 72 6f  6d 20 61 6c 6c 20 72 6f  |come from all ro|
00000eb0  75 6e 64 73 20 69 73 3a  22 29 27 27 3a f1 8a 31  |unds is:")'':..1|
00000ec0  36 2c 32 29 22 60 22 3b  62 69 67 6e 75 6d 3b 3a  |6,2)"`";bignum;:|
00000ed0  e7 20 28 62 69 67 6e 75  6d 20 2a 20 31 30 30 29  |. (bignum * 100)|
00000ee0  20 83 20 31 30 20 3d 20  30 20 8c 20 f1 22 30 22  | . 10 = 0 . ."0"|
00000ef0  3b 0d 03 de 1f f1 8a 32  32 2c 32 29 89 28 36 29  |;......22,2).(6)|
00000f00  3a ef 32 38 2c 31 2c 32  34 2c 33 38 2c 32 3a db  |:.28,1,24,38,2:.|
00000f10  0d 03 df 2f f1 27 27 27  27 27 27 27 27 27 27 a4  |.../.''''''''''.|
00000f20  63 28 22 55 70 64 61 74  69 6e 67 20 44 65 6c 69  |c("Updating Deli|
00000f30  76 65 72 65 72 27 73 20  57 61 67 65 73 22 29 0d  |verer's Wages").|
00000f40  03 e8 47 de 77 61 67 65  73 28 31 30 29 2c 64 65  |..G.wages(10),de|
00000f50  6c 69 76 65 72 65 72 24  28 31 30 29 2c 68 6f 75  |liverer$(10),hou|
00000f60  73 65 6e 75 6d 28 31 30  29 2c 72 6f 61 64 24 28  |senum(10),road$(|
00000f70  31 30 29 2c 70 68 6f 6e  65 28 31 30 29 2c 6f 77  |10),phone(10),ow|
00000f80  65 64 28 31 30 29 0d 03  f2 08 2a 44 49 52 0d 03  |ed(10)....*DIR..|
00000f90  fc 18 74 68 65 5f 77 61  67 65 73 3d 8e 28 22 57  |..the_wages=.("W|
00000fa0  41 47 45 53 22 29 0d 04  06 05 f5 0d 04 10 0f 74  |AGES").........t|
00000fb0  65 6d 70 3d 74 65 6d 70  2b 31 0d 04 1a 5e e8 23  |emp=temp+1...^.#|
00000fc0  74 68 65 5f 77 61 67 65  73 2c 77 61 67 65 73 28  |the_wages,wages(|
00000fd0  74 65 6d 70 29 2c 64 65  6c 69 76 65 72 65 72 24  |temp),deliverer$|
00000fe0  28 74 65 6d 70 29 2c 68  6f 75 73 65 6e 75 6d 28  |(temp),housenum(|
00000ff0  74 65 6d 70 29 2c 72 6f  61 64 24 28 74 65 6d 70  |temp),road$(temp|
00001000  29 2c 70 68 6f 6e 65 28  74 65 6d 70 29 2c 6f 77  |),phone(temp),ow|
00001010  65 64 28 74 65 6d 70 29  0d 04 24 33 e7 77 61 67  |ed(temp)..$3.wag|
00001020  65 73 28 74 65 6d 70 29  3d 2d 39 39 39 20 84 20  |es(temp)=-999 . |
00001030  77 61 67 65 73 28 74 65  6d 70 29 3d 30 20 8c 20  |wages(temp)=0 . |
00001040  74 65 6d 70 3d 74 65 6d  70 2d 31 0d 04 2e 11 fd  |temp=temp-1.....|
00001050  20 c5 23 74 68 65 5f 77  61 67 65 73 0d 04 38 10  | .#the_wages..8.|
00001060  d9 20 23 74 68 65 5f 77  61 67 65 73 0d 04 42 05  |. #the_wages..B.|
00001070  20 0d 04 4c 0a 2a 43 4c  4f 53 45 0d 04 56 05 20  | ..L.*CLOSE..V. |
00001080  0d 04 60 0f e3 71 3d 31  20 b8 20 74 65 6d 70 0d  |..`..q=1 . temp.|
00001090  04 6a 1c 6f 77 65 64 28  71 29 3d 6f 77 65 64 28  |.j.owed(q)=owed(|
000010a0  71 29 2b 77 61 67 65 73  28 71 29 0d 04 74 06 ed  |q)+wages(q)..t..|
000010b0  71 0d 04 7e 05 20 0d 04  88 18 6e 65 77 5f 77 61  |q..~. ....new_wa|
000010c0  67 65 73 3d ae 28 22 57  41 47 45 53 22 29 0d 04  |ges=.("WAGES")..|
000010d0  92 05 f5 0d 04 9c 0f e3  73 3d 31 20 b8 20 74 65  |........s=1 . te|
000010e0  6d 70 0d 04 a6 4c f1 23  6e 65 77 5f 77 61 67 65  |mp...L.#new_wage|
000010f0  73 2c 77 61 67 65 73 28  73 29 2c 64 65 6c 69 76  |s,wages(s),deliv|
00001100  65 72 65 72 24 28 73 29  2c 68 6f 75 73 65 6e 75  |erer$(s),housenu|
00001110  6d 28 73 29 2c 72 6f 61  64 24 28 73 29 2c 70 68  |m(s),road$(s),ph|
00001120  6f 6e 65 28 73 29 2c 6f  77 65 64 28 73 29 0d 04  |one(s),owed(s)..|
00001130  b0 06 ed 73 0d 04 ba 11  fd 20 c5 23 6e 65 77 5f  |...s..... .#new_|
00001140  77 61 67 65 73 0d 04 c4  10 d9 20 23 6e 65 77 5f  |wages..... #new_|
00001150  77 61 67 65 73 0d 04 ce  05 20 0d 04 d8 1f f1 8a  |wages.... ......|
00001160  32 32 2c 32 29 89 28 36  29 3a ef 32 38 2c 31 2c  |22,2).(6):.28,1,|
00001170  32 34 2c 33 38 2c 32 3a  db 0d 04 e2 a6 f1 8a 30  |24,38,2:.......0|
00001180  2c 30 29 27 27 27 a4 63  28 22 42 69 6c 6c 73 20  |,0)'''.c("Bills |
00001190  63 61 6c 63 75 6c 61 74  65 64 20 61 6e 64 20 74  |calculated and t|
000011a0  6f 74 61 6c 6c 65 64 2e  22 29 27 27 a4 63 28 22  |otalled.")''.c("|
000011b0  41 6e 20 69 6e 74 65 72  6e 61 6c 20 76 61 72 69  |An internal vari|
000011c0  61 62 6c 65 20 69 73 20  6e 6f 77 20 73 65 74 22  |able is now set"|
000011d0  29 27 27 a4 63 28 22 73  6f 20 74 68 61 74 20 74  |)''.c("so that t|
000011e0  68 69 73 20 75 74 69 6c  69 74 79 20 63 61 6e 6e  |his utility cann|
000011f0  6f 74 20 62 65 20 75 73  65 64 22 29 27 27 a4 63  |ot be used")''.c|
00001200  28 22 61 67 61 69 6e 20  75 6e 74 69 6c 20 74 68  |("again until th|
00001210  65 20 6d 61 63 68 69 6e  65 20 69 73 22 29 27 0d  |e machine is")'.|
00001220  04 ec 25 f1 a4 63 28 22  73 77 69 74 63 68 65 64  |..%..c("switched|
00001230  20 6f 66 66 20 61 6e 64  20 6f 6e 20 61 67 61 69  | off and on agai|
00001240  6e 2e 22 29 0d 04 f6 76  f1 27 27 a4 63 28 22 49  |n.")...v.''.c("I|
00001250  66 20 79 6f 75 20 64 6f  20 73 77 69 74 63 68 20  |f you do switch |
00001260  74 68 65 20 6d 61 63 68  69 6e 65 22 29 27 27 a4  |the machine")''.|
00001270  63 28 22 6f 66 66 20 6e  6f 77 2c 20 6d 61 6b 65  |c("off now, make|
00001280  20 73 75 72 65 20 79 6f  75 20 44 4f 20 4e 4f 54  | sure you DO NOT|
00001290  22 29 27 27 a4 63 28 22  65 78 65 63 75 74 65 20  |")''.c("execute |
000012a0  74 68 69 73 20 6f 70 74  69 6f 6e 20 61 67 61 69  |this option agai|
000012b0  6e 20 74 6f 64 61 79 2e  22 29 0d 05 00 0d 41 24  |n today.")....A$|
000012c0  3d bf 28 35 30 30 29 0d  05 0a 30 f2 63 6f 6d 77  |=.(500)...0.comw|
000012d0  69 6e 64 6f 77 3a f1 27  27 27 27 27 27 27 a4 63  |indow:.'''''''.c|
000012e0  28 22 50 72 65 73 73 20  53 50 41 43 45 22 29 27  |("Press SPACE")'|
000012f0  3a f5 fd a5 3d 33 32 0d  05 14 25 f1 27 27 27 27  |:...=32...%.''''|
00001300  27 27 27 27 a4 63 28 22  4c 6f 61 64 69 6e 67 20  |''''.c("Loading |
00001310  4d 61 69 6e 20 4d 65 6e  75 22 29 27 0d 05 1e 08  |Main Menu")'....|
00001320  2a 44 49 52 0d 05 28 0b  d7 22 4d 45 4e 55 22 0d  |*DIR..(.."MENU".|
00001330  05 32 05 e0 0d 05 3c 0a  dd f2 66 61 64 31 0d 05  |.2....<...fad1..|
00001340  46 13 e3 54 3d 31 b8 70  61 70 65 72 63 6f 75 6e  |F..T=1.papercoun|
00001350  74 0d 05 50 7b e7 70 61  70 65 72 24 28 54 29 3d  |t..P{.paper$(T)=|
00001360  6f 72 31 24 28 6c 6f 6f  70 29 20 8c 20 56 3d 54  |or1$(loop) . V=T|
00001370  3a 74 6f 64 61 79 73 62  69 6c 6c 28 6c 6f 6f 70  |:todaysbill(loop|
00001380  29 3d 70 72 69 63 65 28  56 29 3a f1 8a 33 33 2c  |)=price(V):..33,|
00001390  6c 6f 6f 70 2b 63 6f 6e  73 74 29 22 60 22 3b 70  |loop+const)"`";p|
000013a0  72 69 63 65 28 56 29 3b  3a e7 20 28 70 72 69 63  |rice(V);:. (pric|
000013b0  65 28 56 29 20 2a 20 31  30 30 29 20 83 20 31 30  |e(V) * 100) . 10|
000013c0  20 3d 20 30 20 8c 20 f1  22 30 22 3b 0d 05 5a 06  | = 0 . ."0";..Z.|
000013d0  ed 54 0d 05 64 05 e1 0d  05 6e 05 20 0d 05 78 0a  |.T..d....n. ..x.|
000013e0  dd f2 66 61 64 32 0d 05  82 1c 74 6f 61 64 64 74  |..fad2....toaddt|
000013f0  6f 3d 74 6f 64 61 79 73  62 69 6c 6c 28 6c 6f 6f  |o=todaysbill(loo|
00001400  70 29 0d 05 8c 13 e3 54  3d 31 b8 70 61 70 65 72  |p).....T=1.paper|
00001410  63 6f 75 6e 74 0d 05 96  7b e7 70 61 70 65 72 24  |count...{.paper$|
00001420  28 54 29 3d 6f 72 32 24  28 6c 6f 6f 70 29 20 8c  |(T)=or2$(loop) .|
00001430  20 56 3d 54 3a 74 6f 64  61 79 73 62 69 6c 6c 28  | V=T:todaysbill(|
00001440  6c 6f 6f 70 29 3d 70 72  69 63 65 28 56 29 3a f1  |loop)=price(V):.|
00001450  8a 33 33 2c 6c 6f 6f 70  2b 63 6f 6e 73 74 29 22  |.33,loop+const)"|
00001460  60 22 3b 70 72 69 63 65  28 56 29 3b 3a e7 20 28  |`";price(V);:. (|
00001470  70 72 69 63 65 28 56 29  20 2a 20 31 30 30 29 20  |price(V) * 100) |
00001480  83 20 31 30 20 3d 20 30  20 8c 20 f1 22 30 22 3b  |. 10 = 0 . ."0";|
00001490  0d 05 a0 06 ed 54 0d 05  aa 05 e1 0d 05 b4 05 20  |.....T......... |
000014a0  0d 05 be 0a dd f2 66 61  64 33 0d 05 c8 1c 74 6f  |......fad3....to|
000014b0  61 64 64 74 6f 3d 74 6f  64 61 79 73 62 69 6c 6c  |addto=todaysbill|
000014c0  28 6c 6f 6f 70 29 0d 05  d2 13 e3 54 3d 31 b8 70  |(loop).....T=1.p|
000014d0  61 70 65 72 63 6f 75 6e  74 0d 05 dc 7b e7 70 61  |apercount...{.pa|
000014e0  70 65 72 24 28 54 29 3d  6f 72 33 24 28 6c 6f 6f  |per$(T)=or3$(loo|
000014f0  70 29 20 8c 20 56 3d 54  3a 74 6f 64 61 79 73 62  |p) . V=T:todaysb|
00001500  69 6c 6c 28 6c 6f 6f 70  29 3d 70 72 69 63 65 28  |ill(loop)=price(|
00001510  56 29 3a f1 8a 33 33 2c  6c 6f 6f 70 2b 63 6f 6e  |V):..33,loop+con|
00001520  73 74 29 22 60 22 3b 70  72 69 63 65 28 56 29 3b  |st)"`";price(V);|
00001530  3a e7 20 28 70 72 69 63  65 28 56 29 20 2a 20 31  |:. (price(V) * 1|
00001540  30 30 29 20 83 20 31 30  20 3d 20 30 20 8c 20 f1  |00) . 10 = 0 . .|
00001550  22 30 22 3b 0d 05 e6 06  ed 54 0d 05 f0 05 e1 0d  |"0";.....T......|
00001560  05 fa 05 20 0d 06 04 0d  dd f2 63 3a f1 22 60 22  |... ......c:."`"|
00001570  3b 0d 06 0e 32 e7 20 41  3e 30 2e 30 39 20 f1 3b  |;...2. A>0.09 .;|
00001580  41 3b 3a e7 20 28 41 20  2a 20 31 30 30 29 20 83  |A;:. (A * 100) .|
00001590  20 31 30 20 3d 20 30 20  f1 22 30 22 3b 3a e5 8d  | 10 = 0 ."0";:..|
000015a0  44 72 46 0d 06 18 1a f1  22 30 2e 30 22 3b 3a e7  |DrF....."0.0";:.|
000015b0  20 41 3d 30 2e 30 39 20  f1 22 39 22 3b 0d 06 22  | A=0.09 ."9";.."|
000015c0  12 e7 20 41 3d 30 2e 30  38 20 f1 22 38 22 3b 0d  |.. A=0.08 ."8";.|
000015d0  06 2c 12 e7 20 41 3d 30  2e 30 37 20 f1 22 37 22  |.,.. A=0.07 ."7"|
000015e0  3b 0d 06 36 12 e7 20 41  3d 30 2e 30 36 20 f1 22  |;..6.. A=0.06 ."|
000015f0  36 22 3b 0d 06 40 12 e7  20 41 3d 30 2e 30 35 20  |6";..@.. A=0.05 |
00001600  f1 22 35 22 3b 0d 06 4a  12 e7 20 41 3d 30 2e 30  |."5";..J.. A=0.0|
00001610  34 20 f1 22 34 22 3b 0d  06 54 12 e7 20 41 3d 30  |4 ."4";..T.. A=0|
00001620  2e 30 33 20 f1 22 33 22  3b 0d 06 5e 12 e7 20 41  |.03 ."3";..^.. A|
00001630  3d 30 2e 30 32 20 f1 22  32 22 3b 0d 06 68 12 e7  |=0.02 ."2";..h..|
00001640  20 41 3d 30 2e 30 31 20  f1 22 31 22 3b 0d 06 72  | A=0.01 ."1";..r|
00001650  05 e1 0d 06 7c 05 20 0d  06 86 07 dd f2 64 0d 06  |....|. ......d..|
00001660  90 2c e7 6f 75 74 73 74  61 6e 64 69 6e 67 28 6c  |.,.outstanding(l|
00001670  6f 6f 70 29 3e 39 2e 39  39 20 8c 20 f1 22 60 22  |oop)>9.99 . ."`"|
00001680  3b 20 8b 20 f1 22 20 60  22 3b 0d 06 9a 18 f1 3b  |; . ." `";.....;|
00001690  6f 75 74 73 74 61 6e 64  69 6e 67 28 6c 6f 6f 70  |outstanding(loop|
000016a0  29 3b 0d 06 a4 36 e7 28  6f 75 74 73 74 61 6e 64  |);...6.(outstand|
000016b0  69 6e 67 28 6c 6f 6f 70  29 20 2a 20 31 30 30 29  |ing(loop) * 100)|
000016c0  20 83 20 31 30 30 20 3d  20 30 20 f1 22 2e 30 30  | . 100 = 0 .".00|
000016d0  22 3b 3a e5 8d 64 42 46  0d 06 ae 2d e7 28 6f 75  |";:..dBF...-.(ou|
000016e0  74 73 74 61 6e 64 69 6e  67 28 6c 6f 6f 70 29 20  |tstanding(loop) |
000016f0  2a 20 31 30 30 29 20 83  20 31 30 20 3d 20 30 20  |* 100) . 10 = 0 |
00001700  f1 22 30 22 3b 0d 06 b8  82 e7 6f 75 74 73 74 61  |."0";.....outsta|
00001710  6e 64 69 6e 67 28 6c 6f  6f 70 29 3d 30 2e 34 20  |nding(loop)=0.4 |
00001720  84 20 6f 75 74 73 74 61  6e 64 69 6e 67 28 6c 6f  |. outstanding(lo|
00001730  6f 70 29 3d 38 2e 38 20  84 20 6f 75 74 73 74 61  |op)=8.8 . outsta|
00001740  6e 64 69 6e 67 28 6c 6f  6f 70 29 3d 38 2e 34 20  |nding(loop)=8.4 |
00001750  84 20 6f 75 74 73 74 61  6e 64 69 6e 67 28 6c 6f  |. outstanding(lo|
00001760  6f 70 29 3d 32 2e 31 20  84 20 6f 75 74 73 74 61  |op)=2.1 . outsta|
00001770  6e 64 69 6e 67 28 6c 6f  6f 70 29 3d 34 2e 32 20  |nding(loop)=4.2 |
00001780  8c 20 f1 22 30 22 3b 0d  06 c2 05 e1 0d 06 cc 05  |. ."0";.........|
00001790  20 0d 06 d6 1b dd f2 62  3a f1 3b 74 6f 64 61 79  | ......b:.;today|
000017a0  73 62 69 6c 6c 28 6c 6f  6f 70 29 3b 0d 06 e0 35  |sbill(loop);...5|
000017b0  e7 28 74 6f 64 61 79 73  62 69 6c 6c 28 6c 6f 6f  |.(todaysbill(loo|
000017c0  70 29 20 2a 20 31 30 30  29 20 83 20 31 30 30 20  |p) * 100) . 100 |
000017d0  3d 20 30 20 f1 22 2e 30  30 22 3b 3a e5 8d 64 74  |= 0 .".00";:..dt|
000017e0  46 0d 06 ea 4d e7 74 6f  64 61 79 73 62 69 6c 6c  |F...M.todaysbill|
000017f0  28 6c 6f 6f 70 29 3d 30  2e 34 20 84 20 74 6f 64  |(loop)=0.4 . tod|
00001800  61 79 73 62 69 6c 6c 28  6c 6f 6f 70 29 3d 31 2e  |aysbill(loop)=1.|
00001810  31 20 84 20 74 6f 64 61  79 73 62 69 6c 6c 28 6c  |1 . todaysbill(l|
00001820  6f 6f 70 29 3d 38 2e 38  20 f1 22 30 22 3b 0d 06  |oop)=8.8 ."0";..|
00001830  f4 05 e1 0d 06 fe 05 20  0d 07 08 10 dd f2 6d 61  |....... ......ma|
00001840  69 6e 77 69 6e 64 6f 77  0d 07 12 11 ef 32 38 2c  |inwindow.....28,|
00001850  31 2c 32 34 2c 33 38 2c  31 0d 07 1c 05 e1 0d 07  |1,24,38,1.......|
00001860  26 05 20 0d 07 30 0f dd  f2 63 6f 6d 77 69 6e 64  |&. ..0...comwind|
00001870  6f 77 0d 07 3a 12 ef 32  38 2c 31 2c 33 30 2c 33  |ow..:..28,1,30,3|
00001880  38 2c 32 37 0d 07 44 05  e1 0d 07 4e 05 20 0d 07  |8,27..D....N. ..|
00001890  58 1c dd a4 63 28 43 24  29 3a f1 8a 31 39 2d a9  |X...c(C$):..19-.|
000018a0  43 24 2f 32 29 3b 3a 3d  43 24 0d ff              |C$/2);:=C$..|
000018ac