� BTEC Project "PAGE4" v.1.5
*FX200,1
*DIR
(*DIR MORNING
24change%=0:page%=0:valid=0:const=2:upto=1:a=0:A=0
<�mainwindow
F�:�c("""UNPAID""")
P��''�c("This utility lists previous")''�c("customers who owe money to the")''�c("premises from previous orders.")''�c("The top item is the most recent.")
Z1�0,22)"Number of screen pages            :";
d�23;8202;0;0;0;
n{�num(60),rname$(60),init$(60),sname$(60),title$(60),telno(60),or1$(60),or2$(60),or3$(60),todaysbill(60),outstanding(60)
xblacklist=�("UNPAID")
�count=0
��
�count=count+1
���#blacklist,num(count),rname$(count),init$(count),sname$(count),title$(count),telno(count),or1$(count),or2$(count),or3$(count),todaysbill(count),outstanding(count)
�B�outstanding(count)=0 � num(count)>0 � count=count-1:change%=1
�3� � #blacklist � num(count)=-999 � num(count)=0
�othercount=count
�� #blacklist
�count=othercount
�page%=1:�count>21 page%=2
��count>42 page%=3
��37,22);page%;
�/�comwindow:�''''''�c("Press Space")':���=32

6�thispage%=1�page%:startfrom=upto:�writetoscreen:�

#�mainwindow:�:�c("""UNPAID""")

�

"��mainwindow

,�28,1,24,38,1

6�

@��comwindow

J�28,1,30,38,27

T�

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

h��writetoscreen

r�28,1,24,38,2:�:�mainwindow

|$�32,0)"Pg ";thispage%;"/";page%

�1� IF thispage%=1 WRITE 20 lines ON THE SCREEN

�� thispage%=1 startfrom=1

� � A=startfrom � startfrom+20

�,�num(A)=0 � num(A)=-999 �comwindow:�THB

�-� A=startfrom+20 � upto=A:const=-18:�d`A

��0,A+const);num(A);�4,A+const);rname$(A);�12,A+const);title$(A);�16,A+const);sname$(A);�25,A+const);telno(A);�32,A+const);

�C�outstanding(A)<10 �" `";outstanding(A); � �"`";outstanding(A);

�%�outstanding(A) = 0 �".00";:�d`A

�U� ((outstanding(A) * 100) + 1) � 10 = 0 � (outstanding(A) * 100) � 10 = 0 � �"0";

�� A

�
���=32

��

�
big_num=0
�i=1�60
"big_num=big_num+outstanding(i)
�i
&6�''''''"Total amount owed into shop is `";big_num;
0/� (big_num * 100) � 100 = 0 � �".00";:�DDB
:&� (big_num * 100) � 10 = 0 � �"0";
D5�c("Press space to return to main menu");:���=32
N�'''''':*CLOSE
X�change%=1 � �makefile
b!�''''�c("Loading Main Menu")'
l*DIR
v�"MENU"
� 
���makefile
�|�'''''''�c("Customer's Who Have Paid Bills Are")'�c("Resident On The UNPAID Page.")''�c("Removal Process In Operation");
�saveigen=�("UNPAID")
�� number=1 � (count+1)
��� #saveigen,num(number),rname$(number),init$(number),sname$(number),title$(number),telno(number),or1$(number),or2$(number),or3$(number),todaysbill(number),outstanding(number)
��number
�� #saveigen
�*�'''�c("Customers Removed")':A$=�(225)
��
�

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  34 22 20 76 2e 31 2e 35  |ct "PAGE4" v.1.5|
00000020  0d 00 14 0c 2a 46 58 32  30 30 2c 31 0d 00 1e 08  |....*FX200,1....|
00000030  2a 44 49 52 0d 00 28 10  2a 44 49 52 20 4d 4f 52  |*DIR..(.*DIR MOR|
00000040  4e 49 4e 47 0d 00 32 34  63 68 61 6e 67 65 25 3d  |NING..24change%=|
00000050  30 3a 70 61 67 65 25 3d  30 3a 76 61 6c 69 64 3d  |0:page%=0:valid=|
00000060  30 3a 63 6f 6e 73 74 3d  32 3a 75 70 74 6f 3d 31  |0:const=2:upto=1|
00000070  3a 61 3d 30 3a 41 3d 30  0d 00 3c 0f f2 6d 61 69  |:a=0:A=0..<..mai|
00000080  6e 77 69 6e 64 6f 77 0d  00 46 17 db 3a f1 a4 63  |nwindow..F..:..c|
00000090  28 22 22 22 55 4e 50 41  49 44 22 22 22 29 0d 00  |("""UNPAID""")..|
000000a0  50 9c f1 27 27 a4 63 28  22 54 68 69 73 20 75 74  |P..''.c("This ut|
000000b0  69 6c 69 74 79 20 6c 69  73 74 73 20 70 72 65 76  |ility lists prev|
000000c0  69 6f 75 73 22 29 27 27  a4 63 28 22 63 75 73 74  |ious")''.c("cust|
000000d0  6f 6d 65 72 73 20 77 68  6f 20 6f 77 65 20 6d 6f  |omers who owe mo|
000000e0  6e 65 79 20 74 6f 20 74  68 65 22 29 27 27 a4 63  |ney to the")''.c|
000000f0  28 22 70 72 65 6d 69 73  65 73 20 66 72 6f 6d 20  |("premises from |
00000100  70 72 65 76 69 6f 75 73  20 6f 72 64 65 72 73 2e  |previous orders.|
00000110  22 29 27 27 a4 63 28 22  54 68 65 20 74 6f 70 20  |")''.c("The top |
00000120  69 74 65 6d 20 69 73 20  74 68 65 20 6d 6f 73 74  |item is the most|
00000130  20 72 65 63 65 6e 74 2e  22 29 0d 00 5a 31 f1 8a  | recent.")..Z1..|
00000140  30 2c 32 32 29 22 4e 75  6d 62 65 72 20 6f 66 20  |0,22)"Number of |
00000150  73 63 72 65 65 6e 20 70  61 67 65 73 20 20 20 20  |screen pages    |
00000160  20 20 20 20 20 20 20 20  3a 22 3b 0d 00 64 13 ef  |        :";..d..|
00000170  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000180  6e 7b de 6e 75 6d 28 36  30 29 2c 72 6e 61 6d 65  |n{.num(60),rname|
00000190  24 28 36 30 29 2c 69 6e  69 74 24 28 36 30 29 2c  |$(60),init$(60),|
000001a0  73 6e 61 6d 65 24 28 36  30 29 2c 74 69 74 6c 65  |sname$(60),title|
000001b0  24 28 36 30 29 2c 74 65  6c 6e 6f 28 36 30 29 2c  |$(60),telno(60),|
000001c0  6f 72 31 24 28 36 30 29  2c 6f 72 32 24 28 36 30  |or1$(60),or2$(60|
000001d0  29 2c 6f 72 33 24 28 36  30 29 2c 74 6f 64 61 79  |),or3$(60),today|
000001e0  73 62 69 6c 6c 28 36 30  29 2c 6f 75 74 73 74 61  |sbill(60),outsta|
000001f0  6e 64 69 6e 67 28 36 30  29 0d 00 78 19 62 6c 61  |nding(60)..x.bla|
00000200  63 6b 6c 69 73 74 3d 8e  28 22 55 4e 50 41 49 44  |cklist=.("UNPAID|
00000210  22 29 0d 00 82 0b 63 6f  75 6e 74 3d 30 0d 00 8c  |")....count=0...|
00000220  05 f5 0d 00 96 11 63 6f  75 6e 74 3d 63 6f 75 6e  |......count=coun|
00000230  74 2b 31 0d 00 a0 a7 e8  23 62 6c 61 63 6b 6c 69  |t+1.....#blackli|
00000240  73 74 2c 6e 75 6d 28 63  6f 75 6e 74 29 2c 72 6e  |st,num(count),rn|
00000250  61 6d 65 24 28 63 6f 75  6e 74 29 2c 69 6e 69 74  |ame$(count),init|
00000260  24 28 63 6f 75 6e 74 29  2c 73 6e 61 6d 65 24 28  |$(count),sname$(|
00000270  63 6f 75 6e 74 29 2c 74  69 74 6c 65 24 28 63 6f  |count),title$(co|
00000280  75 6e 74 29 2c 74 65 6c  6e 6f 28 63 6f 75 6e 74  |unt),telno(count|
00000290  29 2c 6f 72 31 24 28 63  6f 75 6e 74 29 2c 6f 72  |),or1$(count),or|
000002a0  32 24 28 63 6f 75 6e 74  29 2c 6f 72 33 24 28 63  |2$(count),or3$(c|
000002b0  6f 75 6e 74 29 2c 74 6f  64 61 79 73 62 69 6c 6c  |ount),todaysbill|
000002c0  28 63 6f 75 6e 74 29 2c  6f 75 74 73 74 61 6e 64  |(count),outstand|
000002d0  69 6e 67 28 63 6f 75 6e  74 29 0d 00 aa 42 e7 6f  |ing(count)...B.o|
000002e0  75 74 73 74 61 6e 64 69  6e 67 28 63 6f 75 6e 74  |utstanding(count|
000002f0  29 3d 30 20 80 20 6e 75  6d 28 63 6f 75 6e 74 29  |)=0 . num(count)|
00000300  3e 30 20 8c 20 63 6f 75  6e 74 3d 63 6f 75 6e 74  |>0 . count=count|
00000310  2d 31 3a 63 68 61 6e 67  65 25 3d 31 0d 00 b4 33  |-1:change%=1...3|
00000320  fd 20 c5 20 23 62 6c 61  63 6b 6c 69 73 74 20 84  |. . #blacklist .|
00000330  20 6e 75 6d 28 63 6f 75  6e 74 29 3d 2d 39 39 39  | num(count)=-999|
00000340  20 84 20 6e 75 6d 28 63  6f 75 6e 74 29 3d 30 0d  | . num(count)=0.|
00000350  00 be 14 6f 74 68 65 72  63 6f 75 6e 74 3d 63 6f  |...othercount=co|
00000360  75 6e 74 0d 00 c8 10 d9  20 23 62 6c 61 63 6b 6c  |unt..... #blackl|
00000370  69 73 74 0d 00 d2 14 63  6f 75 6e 74 3d 6f 74 68  |ist....count=oth|
00000380  65 72 63 6f 75 6e 74 0d  00 dc 1d 70 61 67 65 25  |ercount....page%|
00000390  3d 31 3a e7 63 6f 75 6e  74 3e 32 31 20 70 61 67  |=1:.count>21 pag|
000003a0  65 25 3d 32 0d 00 e6 15  e7 63 6f 75 6e 74 3e 34  |e%=2.....count>4|
000003b0  32 20 70 61 67 65 25 3d  33 0d 00 f0 13 f1 8a 33  |2 page%=3......3|
000003c0  37 2c 32 32 29 3b 70 61  67 65 25 3b 0d 00 fa 2f  |7,22);page%;.../|
000003d0  f2 63 6f 6d 77 69 6e 64  6f 77 3a f1 27 27 27 27  |.comwindow:.''''|
000003e0  27 27 a4 63 28 22 50 72  65 73 73 20 53 70 61 63  |''.c("Press Spac|
000003f0  65 22 29 27 3a f5 fd a5  3d 33 32 0d 01 04 36 e3  |e")':...=32...6.|
00000400  74 68 69 73 70 61 67 65  25 3d 31 b8 70 61 67 65  |thispage%=1.page|
00000410  25 3a 73 74 61 72 74 66  72 6f 6d 3d 75 70 74 6f  |%:startfrom=upto|
00000420  3a f2 77 72 69 74 65 74  6f 73 63 72 65 65 6e 3a  |:.writetoscreen:|
00000430  ed 0d 01 0e 23 f2 6d 61  69 6e 77 69 6e 64 6f 77  |....#.mainwindow|
00000440  3a db 3a f1 a4 63 28 22  22 22 55 4e 50 41 49 44  |:.:..c("""UNPAID|
00000450  22 22 22 29 0d 01 18 05  e0 0d 01 22 10 dd f2 6d  |""")......."...m|
00000460  61 69 6e 77 69 6e 64 6f  77 0d 01 2c 11 ef 32 38  |ainwindow..,..28|
00000470  2c 31 2c 32 34 2c 33 38  2c 31 0d 01 36 05 e1 0d  |,1,24,38,1..6...|
00000480  01 40 0f dd f2 63 6f 6d  77 69 6e 64 6f 77 0d 01  |.@...comwindow..|
00000490  4a 12 ef 32 38 2c 31 2c  33 30 2c 33 38 2c 32 37  |J..28,1,30,38,27|
000004a0  0d 01 54 05 e1 0d 01 5e  1c dd a4 63 28 43 24 29  |..T....^...c(C$)|
000004b0  3a f1 8a 31 39 2d a9 43  24 2f 32 29 3b 3a 3d 43  |:..19-.C$/2);:=C|
000004c0  24 0d 01 68 13 dd f2 77  72 69 74 65 74 6f 73 63  |$..h...writetosc|
000004d0  72 65 65 6e 0d 01 72 1f  ef 32 38 2c 31 2c 32 34  |reen..r..28,1,24|
000004e0  2c 33 38 2c 32 3a db 3a  f2 6d 61 69 6e 77 69 6e  |,38,2:.:.mainwin|
000004f0  64 6f 77 0d 01 7c 24 f1  8a 33 32 2c 30 29 22 50  |dow..|$..32,0)"P|
00000500  67 20 22 3b 74 68 69 73  70 61 67 65 25 3b 22 2f  |g ";thispage%;"/|
00000510  22 3b 70 61 67 65 25 0d  01 86 31 f4 20 49 46 20  |";page%...1. IF |
00000520  74 68 69 73 70 61 67 65  25 3d 31 20 57 52 49 54  |thispage%=1 WRIT|
00000530  45 20 32 30 20 6c 69 6e  65 73 20 4f 4e 20 54 48  |E 20 lines ON TH|
00000540  45 20 53 43 52 45 45 4e  0d 01 90 1d e7 20 74 68  |E SCREEN..... th|
00000550  69 73 70 61 67 65 25 3d  31 20 73 74 61 72 74 66  |ispage%=1 startf|
00000560  72 6f 6d 3d 31 0d 01 9a  20 e3 20 41 3d 73 74 61  |rom=1... . A=sta|
00000570  72 74 66 72 6f 6d 20 b8  20 73 74 61 72 74 66 72  |rtfrom . startfr|
00000580  6f 6d 2b 32 30 0d 01 a4  2c e7 6e 75 6d 28 41 29  |om+20...,.num(A)|
00000590  3d 30 20 84 20 6e 75 6d  28 41 29 3d 2d 39 39 39  |=0 . num(A)=-999|
000005a0  20 f2 63 6f 6d 77 69 6e  64 6f 77 3a e5 8d 54 48  | .comwindow:..TH|
000005b0  42 0d 01 ae 2d e7 20 41  3d 73 74 61 72 74 66 72  |B...-. A=startfr|
000005c0  6f 6d 2b 32 30 20 8c 20  75 70 74 6f 3d 41 3a 63  |om+20 . upto=A:c|
000005d0  6f 6e 73 74 3d 2d 31 38  3a e5 8d 64 60 41 0d 01  |onst=-18:..d`A..|
000005e0  b8 7f f1 8a 30 2c 41 2b  63 6f 6e 73 74 29 3b 6e  |....0,A+const);n|
000005f0  75 6d 28 41 29 3b 8a 34  2c 41 2b 63 6f 6e 73 74  |um(A);.4,A+const|
00000600  29 3b 72 6e 61 6d 65 24  28 41 29 3b 8a 31 32 2c  |);rname$(A);.12,|
00000610  41 2b 63 6f 6e 73 74 29  3b 74 69 74 6c 65 24 28  |A+const);title$(|
00000620  41 29 3b 8a 31 36 2c 41  2b 63 6f 6e 73 74 29 3b  |A);.16,A+const);|
00000630  73 6e 61 6d 65 24 28 41  29 3b 8a 32 35 2c 41 2b  |sname$(A);.25,A+|
00000640  63 6f 6e 73 74 29 3b 74  65 6c 6e 6f 28 41 29 3b  |const);telno(A);|
00000650  8a 33 32 2c 41 2b 63 6f  6e 73 74 29 3b 0d 01 c2  |.32,A+const);...|
00000660  43 e7 6f 75 74 73 74 61  6e 64 69 6e 67 28 41 29  |C.outstanding(A)|
00000670  3c 31 30 20 f1 22 20 60  22 3b 6f 75 74 73 74 61  |<10 ." `";outsta|
00000680  6e 64 69 6e 67 28 41 29  3b 20 8b 20 f1 22 60 22  |nding(A); . ."`"|
00000690  3b 6f 75 74 73 74 61 6e  64 69 6e 67 28 41 29 3b  |;outstanding(A);|
000006a0  0d 01 cc 25 e7 6f 75 74  73 74 61 6e 64 69 6e 67  |...%.outstanding|
000006b0  28 41 29 20 3d 20 30 20  f1 22 2e 30 30 22 3b 3a  |(A) = 0 .".00";:|
000006c0  e5 8d 64 60 41 0d 01 d6  55 e7 20 28 28 6f 75 74  |..d`A...U. ((out|
000006d0  73 74 61 6e 64 69 6e 67  28 41 29 20 2a 20 31 30  |standing(A) * 10|
000006e0  30 29 20 2b 20 31 29 20  83 20 31 30 20 3d 20 30  |0) + 1) . 10 = 0|
000006f0  20 84 20 28 6f 75 74 73  74 61 6e 64 69 6e 67 28  | . (outstanding(|
00000700  41 29 20 2a 20 31 30 30  29 20 83 20 31 30 20 3d  |A) * 100) . 10 =|
00000710  20 30 20 8c 20 f1 22 30  22 3b 0d 01 e0 07 ed 20  | 0 . ."0";..... |
00000720  41 0d 01 ea 0a f5 fd a5  3d 33 32 0d 01 f4 05 e1  |A.......=32.....|
00000730  0d 01 fe 0d 62 69 67 5f  6e 75 6d 3d 30 0d 02 08  |....big_num=0...|
00000740  0b e3 69 3d 31 b8 36 30  0d 02 12 22 62 69 67 5f  |..i=1.60..."big_|
00000750  6e 75 6d 3d 62 69 67 5f  6e 75 6d 2b 6f 75 74 73  |num=big_num+outs|
00000760  74 61 6e 64 69 6e 67 28  69 29 0d 02 1c 06 ed 69  |tanding(i).....i|
00000770  0d 02 26 36 f1 27 27 27  27 27 27 22 54 6f 74 61  |..&6.''''''"Tota|
00000780  6c 20 61 6d 6f 75 6e 74  20 6f 77 65 64 20 69 6e  |l amount owed in|
00000790  74 6f 20 73 68 6f 70 20  69 73 20 60 22 3b 62 69  |to shop is `";bi|
000007a0  67 5f 6e 75 6d 3b 0d 02  30 2f e7 20 28 62 69 67  |g_num;..0/. (big|
000007b0  5f 6e 75 6d 20 2a 20 31  30 30 29 20 83 20 31 30  |_num * 100) . 10|
000007c0  30 20 3d 20 30 20 8c 20  f1 22 2e 30 30 22 3b 3a  |0 = 0 . .".00";:|
000007d0  e5 8d 44 44 42 0d 02 3a  26 e7 20 28 62 69 67 5f  |..DDB..:&. (big_|
000007e0  6e 75 6d 20 2a 20 31 30  30 29 20 83 20 31 30 20  |num * 100) . 10 |
000007f0  3d 20 30 20 8c 20 f1 22  30 22 3b 0d 02 44 35 f1  |= 0 . ."0";..D5.|
00000800  a4 63 28 22 50 72 65 73  73 20 73 70 61 63 65 20  |.c("Press space |
00000810  74 6f 20 72 65 74 75 72  6e 20 74 6f 20 6d 61 69  |to return to mai|
00000820  6e 20 6d 65 6e 75 22 29  3b 3a f5 fd a5 3d 33 32  |n menu");:...=32|
00000830  0d 02 4e 12 f1 27 27 27  27 27 27 3a 2a 43 4c 4f  |..N..'''''':*CLO|
00000840  53 45 0d 02 58 1a e7 63  68 61 6e 67 65 25 3d 31  |SE..X..change%=1|
00000850  20 8c 20 f2 6d 61 6b 65  66 69 6c 65 0d 02 62 21  | . .makefile..b!|
00000860  f1 27 27 27 27 a4 63 28  22 4c 6f 61 64 69 6e 67  |.''''.c("Loading|
00000870  20 4d 61 69 6e 20 4d 65  6e 75 22 29 27 0d 02 6c  | Main Menu")'..l|
00000880  08 2a 44 49 52 0d 02 76  0b d7 22 4d 45 4e 55 22  |.*DIR..v.."MENU"|
00000890  0d 02 80 05 20 0d 02 8a  0e dd f2 6d 61 6b 65 66  |.... ......makef|
000008a0  69 6c 65 0d 02 94 7c f1  27 27 27 27 27 27 27 a4  |ile...|.'''''''.|
000008b0  63 28 22 43 75 73 74 6f  6d 65 72 27 73 20 57 68  |c("Customer's Wh|
000008c0  6f 20 48 61 76 65 20 50  61 69 64 20 42 69 6c 6c  |o Have Paid Bill|
000008d0  73 20 41 72 65 22 29 27  a4 63 28 22 52 65 73 69  |s Are")'.c("Resi|
000008e0  64 65 6e 74 20 4f 6e 20  54 68 65 20 55 4e 50 41  |dent On The UNPA|
000008f0  49 44 20 50 61 67 65 2e  22 29 27 27 a4 63 28 22  |ID Page.")''.c("|
00000900  52 65 6d 6f 76 61 6c 20  50 72 6f 63 65 73 73 20  |Removal Process |
00000910  49 6e 20 4f 70 65 72 61  74 69 6f 6e 22 29 3b 0d  |In Operation");.|
00000920  02 9e 18 73 61 76 65 69  67 65 6e 3d ae 28 22 55  |...saveigen=.("U|
00000930  4e 50 41 49 44 22 29 0d  02 a8 1a e3 20 6e 75 6d  |NPAID")..... num|
00000940  62 65 72 3d 31 20 b8 20  28 63 6f 75 6e 74 2b 31  |ber=1 . (count+1|
00000950  29 0d 02 b2 b2 f1 20 23  73 61 76 65 69 67 65 6e  |)..... #saveigen|
00000960  2c 6e 75 6d 28 6e 75 6d  62 65 72 29 2c 72 6e 61  |,num(number),rna|
00000970  6d 65 24 28 6e 75 6d 62  65 72 29 2c 69 6e 69 74  |me$(number),init|
00000980  24 28 6e 75 6d 62 65 72  29 2c 73 6e 61 6d 65 24  |$(number),sname$|
00000990  28 6e 75 6d 62 65 72 29  2c 74 69 74 6c 65 24 28  |(number),title$(|
000009a0  6e 75 6d 62 65 72 29 2c  74 65 6c 6e 6f 28 6e 75  |number),telno(nu|
000009b0  6d 62 65 72 29 2c 6f 72  31 24 28 6e 75 6d 62 65  |mber),or1$(numbe|
000009c0  72 29 2c 6f 72 32 24 28  6e 75 6d 62 65 72 29 2c  |r),or2$(number),|
000009d0  6f 72 33 24 28 6e 75 6d  62 65 72 29 2c 74 6f 64  |or3$(number),tod|
000009e0  61 79 73 62 69 6c 6c 28  6e 75 6d 62 65 72 29 2c  |aysbill(number),|
000009f0  6f 75 74 73 74 61 6e 64  69 6e 67 28 6e 75 6d 62  |outstanding(numb|
00000a00  65 72 29 0d 02 bc 0b ed  6e 75 6d 62 65 72 0d 02  |er).....number..|
00000a10  c6 0f d9 20 23 73 61 76  65 69 67 65 6e 0d 02 d0  |... #saveigen...|
00000a20  2a f1 27 27 27 a4 63 28  22 43 75 73 74 6f 6d 65  |*.'''.c("Custome|
00000a30  72 73 20 52 65 6d 6f 76  65 64 22 29 27 3a 41 24  |rs Removed")':A$|
00000a40  3d bf 28 32 32 35 29 0d  02 da 05 e1 0d ff        |=.(225).......|
00000a4e