� BTEC PROJECT "PAGE1" v.3.4
��T@E
*FX200,0
(
*FX4,2
29we%=0:change%=0:� A%=0 �4 � �comwindow:�''''''':�tL@
<��23,128,0,0,0,255,0,255,0,0,23,129,0,0,255,0,255,0,0,0,23,130,20,20,20,20,20,20,20,20,23,132,40,40,40,40,40,40,40,40,23,133,0,0,0,31,16,23,20,20,23,134,0,0,0,248,8,232,40,40,23,135,20,20,23,16,31,0,0,0,23,136,40,40,232,8,248,0,0,0
F��23,137,0,0,0,255,0,0,0,0,23,138,0,0,0,0,255,0,0,0,23,139,16,16,16,16,16,16,16,16,23,140,8,8,8,8,8,8,8,8,23,141,0,0,0,31,16,16,16,16,23,142,0,0,0,248,8,8,8,8,23,143,16,16,16,16,31,0,0,0,23,144,8,8,8,8,248,0,0,0
PJ�23,145,244,244,244,244,244,244,244,244,23,146,47,47,47,47,47,47,47,47
Z%�0,0);:�133:�I=1�38:�128:�I:�134
d)�Y=1�24:�0,Y);:�130:�39,Y);:�132;:�
n7�135:�I=1�38:�129:�I:�136,141:�I=1�38:�137:�I:�142;
x*�Y=27�30:�0,Y);:�139:�39,Y);:�140;:�
�'�5:�0,28:�143;:�I=1�38:�138:�I:�144
��4:�mainwindow
��:�c("PAPER TITLE PAGE")
��23;8202;0;0;0;
�"�namesfrom$(15),pricesfrom(15)
��namesto$(15),pricesto(15)
��getpreviousdata
��d=1�15
�namesto$(d)=namesfrom$(d)
� pricesto(d)=pricesfrom(d):�d
��displaydata
��comwindow
��:�manipulate:�I=81

�

�B=3

�

" 

,��makefile

6this_one=�("DATA")

@)� namesto$(count)="Q" � count=count-1

J�number=1 � count

T0�#this_one,namesto$(number),pricesto(number)

^� number

h�#this_one

r�

| 

���getpreviousdata

�that_one=�("DATA")

�count=0

��

�count=count+1

�2�#that_one,namesfrom$(count),pricesfrom(count)

�G�namesfrom$(count)="EMPTY" � pricesfrom(count)=-981 � count=count-1

�� �#that_one

�� #that_one

��

�S�d=1�15:namesto$(count)=namesfrom$(count):pricesto(count)=pricesfrom(count):�:�

� 

���displaydata
(�0,3)"Papers for sale today are :-"
�count>15 count=15:A=15
�A=1�count
&;�namesto$(A)="Q" � count=A:�DDB � �0,A+5)namesto$(A);
0+�pricesto(A)=0 � �33,A+5)"FREE!":�DDB
:3�pricesto(A)=1 � �33,A+5)"`1.00" � �conversion
D�
Nj�count > 1 �0,22)"There are ";count;" types of newspaper."; � �0,22)"There is 1 type of newspaper.";
X�
b 
l+��addnewspaper:count=count+1:�comwindow
vZ�count=16 �errora:�mainwindow:count=15:�:�c("PAPER TITLE PAGE"):�displaydata:�m:�dPB
�G�count=15 we%=0 � �''''''"Add more than one (Y/N)"':J=�:�J=89 we%=1
�%�''''''"Add newspaper no. ";count
�0�we%=1 � �"(Q then RETURN : Return To Menu)"
� �'"Name    ",namesto$(count)
�P�namesto$(count)="Q" � count=count-1:we%=0:�mainwindow:�displaydata:�m:�dPB
��"Price   ",pricesto(count)
��pricesto(count) < 0 � �trB
�Wchange%=1:� we%=1 � count=count+1:�tJB � �mainwindow:�displaydata:�m:�28,0,22,39,6
��28,0,23,39,6:�
���mainwindow
��28,1,24,38,1
��
���comwindow
�28,1,30,38,27
�
 
 ��conversion
*R� pricesto(A) > 10 pricesto(A) = pricesto(A) � pricesto(A) = pricesto(A) * 100
4��pricesto(A) � 10 = 0 � pricesto(A) = pricesto(A) / 100:�33,A+5);"`";pricesto(A)"0" � pricesto(A) = pricesto(A) / 100:�33,A+5);"`";pricesto(A)
>�
H��errora
Rd�7:�mainwindow:�:�c("ERROR!")'''�c("Unable to execute this option.")'''''�c("Database full.")''
\��''�c("To add newspaper, select delete")''�c("option from main menu and")''�c("erase one previously stored")''�c("in memory."):�comwindow
f&�''''''�c("Press SPACE")':���=32:�
p��errorb
zk�7:�mainwindow:�:�c("ERROR!")'''�c("Unable to obey user command.")'''''�c("Breach of program code.")''
���''�c("System must retain at least")''�c("one data field for program")''�c("to work with."):�comwindow:�'''''''�c("Press SPACE")':���=32:�
�ݤc(C$):�19-�C$/2);:=C$ 
���manipulate:�28,0,22,39,6
�
�m:y=1
��
�\�0,y-1);:�130:�39,y-1);:�132:�0,y);:�145:�39,y);:�146:�0,y+1);:�130:�39,y+1);:�132
�D=�:�D=83 y=y-1
��D=88 y=y+1
��D=65�addnewspaper
��y<1 y=1
��y>count y=count
�
� D=13
�w�comwindow:�''''''"Change ";namesto$(y)''"N : Name   P : Price   D : Delete"'"B : Name and price   C : Cancel";:I=�
/�I=66�getname:�comwindow:�getprice:�m:�DBD
�I=68�delete:�m:�DBD
�I=78�getname:�m:�DBD
$�I=80�getprice:�m:�DBD
.�I=67change%=0:�m:�tlC
8�7:I=�:�TFD
B�28,0,24,39,6:�tlC
L�
Vu��getname:�'''"Previous  : ";namesto$(y)'"New name ";:� namesto$(y):�28,0,22,39,6:�1,y)�(32):�1,y)namesto$(y):�
`B��getprice:�'''"Previous  : `";:�pricesto(y) = 1 �"1.00":�D~D
jR� pricesto(y) > 10 pricesto(y) = pricesto(y) � pricesto(y) = pricesto(y) * 100
tz�pricesto(y) � 10 = 0 � pricesto(y) = pricesto(y) / 100:�pricesto(y)"0" � pricesto(y) = pricesto(y) / 100:�pricesto(y)
~�"New price ";:�pricesto(y)
�C�mainwindow:�pricesto(y)=1 � �33,y+5)"`1.00" � A=y:�conversion
��28,0,22,39,6:�
���delete
�K�count=1 � �errorb:�mainwindow:�:�c("PAPER TITLE PAGE"):�displaydata:�
�D�comwindow:�'''''"Delete ";namesto$(y)''�c("Are you sure (Y/N)")
�G=�:�G=89�dND
��7:�d|C
�Vnamesto$(y)="EMPTY":pricesto(y)=-981:�'''"Erasing paper from database."':�makefile
�&�getpreviousdata:� y=count � y=y-1
�B�d=1�15:namesto$(d)=namesfrom$(d):pricesto(d)=pricesfrom(d):�d
�.�28,1,24,38,3:�:�mainwindow:�displaydata:�
����m:�comwindow:�''''"A : Add Newspaper"'"S : Slider UP   X : Slider DOWN"'"RETURN : Change Options"'"ESCAPE : Continue To Main Menu";:�28,0,24,39,6:�
*fx200,1

�28,0,22,39,6
�0,y);:�130:�39,y);:�132
�change%=0 �TrE
(6�comwindow:�'''''�c("Saving New Data")'':�makefile
27�comwindow:�'''''�c("Loading Main Menu")'';:�"MENU"
�

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  31 22 20 76 2e 33 2e 34  |CT "PAGE1" v.3.4|
00000020  0d 00 14 0b ee 85 e5 8d  54 40 45 0d 00 1e 0c 2a  |........T@E....*|
00000030  46 58 32 30 30 2c 30 0d  00 28 0a 2a 46 58 34 2c  |FX200,0..(.*FX4,|
00000040  32 0d 00 32 39 77 65 25  3d 30 3a 63 68 61 6e 67  |2..29we%=0:chang|
00000050  65 25 3d 30 3a e7 20 41  25 3d 30 20 eb 34 20 8b  |e%=0:. A%=0 .4 .|
00000060  20 f2 63 6f 6d 77 69 6e  64 6f 77 3a f1 27 27 27  | .comwindow:.'''|
00000070  27 27 27 27 3a e5 8d 74  4c 40 0d 00 3c ea ef 32  |'''':..tL@..<..2|
00000080  33 2c 31 32 38 2c 30 2c  30 2c 30 2c 32 35 35 2c  |3,128,0,0,0,255,|
00000090  30 2c 32 35 35 2c 30 2c  30 2c 32 33 2c 31 32 39  |0,255,0,0,23,129|
000000a0  2c 30 2c 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |,0,0,255,0,255,0|
000000b0  2c 30 2c 30 2c 32 33 2c  31 33 30 2c 32 30 2c 32  |,0,0,23,130,20,2|
000000c0  30 2c 32 30 2c 32 30 2c  32 30 2c 32 30 2c 32 30  |0,20,20,20,20,20|
000000d0  2c 32 30 2c 32 33 2c 31  33 32 2c 34 30 2c 34 30  |,20,23,132,40,40|
000000e0  2c 34 30 2c 34 30 2c 34  30 2c 34 30 2c 34 30 2c  |,40,40,40,40,40,|
000000f0  34 30 2c 32 33 2c 31 33  33 2c 30 2c 30 2c 30 2c  |40,23,133,0,0,0,|
00000100  33 31 2c 31 36 2c 32 33  2c 32 30 2c 32 30 2c 32  |31,16,23,20,20,2|
00000110  33 2c 31 33 34 2c 30 2c  30 2c 30 2c 32 34 38 2c  |3,134,0,0,0,248,|
00000120  38 2c 32 33 32 2c 34 30  2c 34 30 2c 32 33 2c 31  |8,232,40,40,23,1|
00000130  33 35 2c 32 30 2c 32 30  2c 32 33 2c 31 36 2c 33  |35,20,20,23,16,3|
00000140  31 2c 30 2c 30 2c 30 2c  32 33 2c 31 33 36 2c 34  |1,0,0,0,23,136,4|
00000150  30 2c 34 30 2c 32 33 32  2c 38 2c 32 34 38 2c 30  |0,40,232,8,248,0|
00000160  2c 30 2c 30 0d 00 46 d6  ef 32 33 2c 31 33 37 2c  |,0,0..F..23,137,|
00000170  30 2c 30 2c 30 2c 32 35  35 2c 30 2c 30 2c 30 2c  |0,0,0,255,0,0,0,|
00000180  30 2c 32 33 2c 31 33 38  2c 30 2c 30 2c 30 2c 30  |0,23,138,0,0,0,0|
00000190  2c 32 35 35 2c 30 2c 30  2c 30 2c 32 33 2c 31 33  |,255,0,0,0,23,13|
000001a0  39 2c 31 36 2c 31 36 2c  31 36 2c 31 36 2c 31 36  |9,16,16,16,16,16|
000001b0  2c 31 36 2c 31 36 2c 31  36 2c 32 33 2c 31 34 30  |,16,16,16,23,140|
000001c0  2c 38 2c 38 2c 38 2c 38  2c 38 2c 38 2c 38 2c 38  |,8,8,8,8,8,8,8,8|
000001d0  2c 32 33 2c 31 34 31 2c  30 2c 30 2c 30 2c 33 31  |,23,141,0,0,0,31|
000001e0  2c 31 36 2c 31 36 2c 31  36 2c 31 36 2c 32 33 2c  |,16,16,16,16,23,|
000001f0  31 34 32 2c 30 2c 30 2c  30 2c 32 34 38 2c 38 2c  |142,0,0,0,248,8,|
00000200  38 2c 38 2c 38 2c 32 33  2c 31 34 33 2c 31 36 2c  |8,8,8,23,143,16,|
00000210  31 36 2c 31 36 2c 31 36  2c 33 31 2c 30 2c 30 2c  |16,16,16,31,0,0,|
00000220  30 2c 32 33 2c 31 34 34  2c 38 2c 38 2c 38 2c 38  |0,23,144,8,8,8,8|
00000230  2c 32 34 38 2c 30 2c 30  2c 30 0d 00 50 4a ef 32  |,248,0,0,0..PJ.2|
00000240  33 2c 31 34 35 2c 32 34  34 2c 32 34 34 2c 32 34  |3,145,244,244,24|
00000250  34 2c 32 34 34 2c 32 34  34 2c 32 34 34 2c 32 34  |4,244,244,244,24|
00000260  34 2c 32 34 34 2c 32 33  2c 31 34 36 2c 34 37 2c  |4,244,23,146,47,|
00000270  34 37 2c 34 37 2c 34 37  2c 34 37 2c 34 37 2c 34  |47,47,47,47,47,4|
00000280  37 2c 34 37 0d 00 5a 25  f1 8a 30 2c 30 29 3b 3a  |7,47..Z%..0,0);:|
00000290  ef 31 33 33 3a e3 49 3d  31 b8 33 38 3a ef 31 32  |.133:.I=1.38:.12|
000002a0  38 3a ed 49 3a ef 31 33  34 0d 00 64 29 e3 59 3d  |8:.I:.134..d).Y=|
000002b0  31 b8 32 34 3a f1 8a 30  2c 59 29 3b 3a ef 31 33  |1.24:..0,Y);:.13|
000002c0  30 3a f1 8a 33 39 2c 59  29 3b 3a ef 31 33 32 3b  |0:..39,Y);:.132;|
000002d0  3a ed 0d 00 6e 37 ef 31  33 35 3a e3 49 3d 31 b8  |:...n7.135:.I=1.|
000002e0  33 38 3a ef 31 32 39 3a  ed 49 3a ef 31 33 36 2c  |38:.129:.I:.136,|
000002f0  31 34 31 3a e3 49 3d 31  b8 33 38 3a ef 31 33 37  |141:.I=1.38:.137|
00000300  3a ed 49 3a ef 31 34 32  3b 0d 00 78 2a e3 59 3d  |:.I:.142;..x*.Y=|
00000310  32 37 b8 33 30 3a f1 8a  30 2c 59 29 3b 3a ef 31  |27.30:..0,Y);:.1|
00000320  33 39 3a f1 8a 33 39 2c  59 29 3b 3a ef 31 34 30  |39:..39,Y);:.140|
00000330  3b 3a ed 0d 00 82 27 ef  35 3a ec 30 2c 32 38 3a  |;:....'.5:.0,28:|
00000340  ef 31 34 33 3b 3a e3 49  3d 31 b8 33 38 3a ef 31  |.143;:.I=1.38:.1|
00000350  33 38 3a ed 49 3a ef 31  34 34 0d 00 8c 12 ef 34  |38:.I:.144.....4|
00000360  3a f2 6d 61 69 6e 77 69  6e 64 6f 77 0d 00 96 1d  |:.mainwindow....|
00000370  db 3a f1 a4 63 28 22 50  41 50 45 52 20 54 49 54  |.:..c("PAPER TIT|
00000380  4c 45 20 50 41 47 45 22  29 0d 00 a0 13 ef 32 33  |LE PAGE").....23|
00000390  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 aa 22  |;8202;0;0;0;..."|
000003a0  de 6e 61 6d 65 73 66 72  6f 6d 24 28 31 35 29 2c  |.namesfrom$(15),|
000003b0  70 72 69 63 65 73 66 72  6f 6d 28 31 35 29 0d 00  |pricesfrom(15)..|
000003c0  b4 1e de 6e 61 6d 65 73  74 6f 24 28 31 35 29 2c  |...namesto$(15),|
000003d0  70 72 69 63 65 73 74 6f  28 31 35 29 0d 00 be 14  |pricesto(15)....|
000003e0  f2 67 65 74 70 72 65 76  69 6f 75 73 64 61 74 61  |.getpreviousdata|
000003f0  0d 00 c8 0b e3 64 3d 31  b8 31 35 0d 00 d2 1d 6e  |.....d=1.15....n|
00000400  61 6d 65 73 74 6f 24 28  64 29 3d 6e 61 6d 65 73  |amesto$(d)=names|
00000410  66 72 6f 6d 24 28 64 29  0d 00 dc 20 70 72 69 63  |from$(d)... pric|
00000420  65 73 74 6f 28 64 29 3d  70 72 69 63 65 73 66 72  |esto(d)=pricesfr|
00000430  6f 6d 28 64 29 3a ed 64  0d 00 e6 10 f2 64 69 73  |om(d):.d.....dis|
00000440  70 6c 61 79 64 61 74 61  0d 00 f0 0e f2 63 6f 6d  |playdata.....com|
00000450  77 69 6e 64 6f 77 0d 00  fa 17 f5 3a f2 6d 61 6e  |window.....:.man|
00000460  69 70 75 6c 61 74 65 3a  fd 49 3d 38 31 0d 01 04  |ipulate:.I=81...|
00000470  05 fa 0d 01 0e 08 fd 42  3d 33 0d 01 18 05 e0 0d  |.......B=3......|
00000480  01 22 05 20 0d 01 2c 0e  dd f2 6d 61 6b 65 66 69  |.". ..,...makefi|
00000490  6c 65 0d 01 36 16 74 68  69 73 5f 6f 6e 65 3d ae  |le..6.this_one=.|
000004a0  28 22 44 41 54 41 22 29  0d 01 40 29 e7 20 6e 61  |("DATA")..@). na|
000004b0  6d 65 73 74 6f 24 28 63  6f 75 6e 74 29 3d 22 51  |mesto$(count)="Q|
000004c0  22 20 8c 20 63 6f 75 6e  74 3d 63 6f 75 6e 74 2d  |" . count=count-|
000004d0  31 0d 01 4a 15 e3 6e 75  6d 62 65 72 3d 31 20 b8  |1..J..number=1 .|
000004e0  20 63 6f 75 6e 74 0d 01  54 30 f1 23 74 68 69 73  | count..T0.#this|
000004f0  5f 6f 6e 65 2c 6e 61 6d  65 73 74 6f 24 28 6e 75  |_one,namesto$(nu|
00000500  6d 62 65 72 29 2c 70 72  69 63 65 73 74 6f 28 6e  |mber),pricesto(n|
00000510  75 6d 62 65 72 29 0d 01  5e 0c ed 20 6e 75 6d 62  |umber)..^.. numb|
00000520  65 72 0d 01 68 0e d9 23  74 68 69 73 5f 6f 6e 65  |er..h..#this_one|
00000530  0d 01 72 05 e1 0d 01 7c  05 20 0d 01 86 15 dd f2  |..r....|. ......|
00000540  67 65 74 70 72 65 76 69  6f 75 73 64 61 74 61 0d  |getpreviousdata.|
00000550  01 90 16 74 68 61 74 5f  6f 6e 65 3d 8e 28 22 44  |...that_one=.("D|
00000560  41 54 41 22 29 0d 01 9a  0b 63 6f 75 6e 74 3d 30  |ATA")....count=0|
00000570  0d 01 a4 05 f5 0d 01 ae  11 63 6f 75 6e 74 3d 63  |.........count=c|
00000580  6f 75 6e 74 2b 31 0d 01  b8 32 e8 23 74 68 61 74  |ount+1...2.#that|
00000590  5f 6f 6e 65 2c 6e 61 6d  65 73 66 72 6f 6d 24 28  |_one,namesfrom$(|
000005a0  63 6f 75 6e 74 29 2c 70  72 69 63 65 73 66 72 6f  |count),pricesfro|
000005b0  6d 28 63 6f 75 6e 74 29  0d 01 c2 47 e7 6e 61 6d  |m(count)...G.nam|
000005c0  65 73 66 72 6f 6d 24 28  63 6f 75 6e 74 29 3d 22  |esfrom$(count)="|
000005d0  45 4d 50 54 59 22 20 84  20 70 72 69 63 65 73 66  |EMPTY" . pricesf|
000005e0  72 6f 6d 28 63 6f 75 6e  74 29 3d 2d 39 38 31 20  |rom(count)=-981 |
000005f0  8c 20 63 6f 75 6e 74 3d  63 6f 75 6e 74 2d 31 0d  |. count=count-1.|
00000600  01 cc 10 fd 20 c5 23 74  68 61 74 5f 6f 6e 65 0d  |.... .#that_one.|
00000610  01 d6 0f d9 20 23 74 68  61 74 5f 6f 6e 65 0d 01  |.... #that_one..|
00000620  e0 05 e1 0d 01 ea 53 e3  64 3d 31 b8 31 35 3a 6e  |......S.d=1.15:n|
00000630  61 6d 65 73 74 6f 24 28  63 6f 75 6e 74 29 3d 6e  |amesto$(count)=n|
00000640  61 6d 65 73 66 72 6f 6d  24 28 63 6f 75 6e 74 29  |amesfrom$(count)|
00000650  3a 70 72 69 63 65 73 74  6f 28 63 6f 75 6e 74 29  |:pricesto(count)|
00000660  3d 70 72 69 63 65 73 66  72 6f 6d 28 63 6f 75 6e  |=pricesfrom(coun|
00000670  74 29 3a ed 3a e1 0d 01  f4 05 20 0d 01 fe 11 dd  |t):.:..... .....|
00000680  f2 64 69 73 70 6c 61 79  64 61 74 61 0d 02 08 28  |.displaydata...(|
00000690  f1 8a 30 2c 33 29 22 50  61 70 65 72 73 20 66 6f  |..0,3)"Papers fo|
000006a0  72 20 73 61 6c 65 20 74  6f 64 61 79 20 61 72 65  |r sale today are|
000006b0  20 3a 2d 22 0d 02 12 1b  e7 63 6f 75 6e 74 3e 31  | :-".....count>1|
000006c0  35 20 63 6f 75 6e 74 3d  31 35 3a 41 3d 31 35 0d  |5 count=15:A=15.|
000006d0  02 1c 0e e3 41 3d 31 b8  63 6f 75 6e 74 0d 02 26  |....A=1.count..&|
000006e0  3b e7 6e 61 6d 65 73 74  6f 24 28 41 29 3d 22 51  |;.namesto$(A)="Q|
000006f0  22 20 8c 20 63 6f 75 6e  74 3d 41 3a e5 8d 44 44  |" . count=A:..DD|
00000700  42 20 8b 20 f1 8a 30 2c  41 2b 35 29 6e 61 6d 65  |B . ..0,A+5)name|
00000710  73 74 6f 24 28 41 29 3b  0d 02 30 2b e7 70 72 69  |sto$(A);..0+.pri|
00000720  63 65 73 74 6f 28 41 29  3d 30 20 8c 20 f1 8a 33  |cesto(A)=0 . ..3|
00000730  33 2c 41 2b 35 29 22 46  52 45 45 21 22 3a e5 8d  |3,A+5)"FREE!":..|
00000740  44 44 42 0d 02 3a 33 e7  70 72 69 63 65 73 74 6f  |DDB..:3.pricesto|
00000750  28 41 29 3d 31 20 8c 20  f1 8a 33 33 2c 41 2b 35  |(A)=1 . ..33,A+5|
00000760  29 22 60 31 2e 30 30 22  20 8b 20 f2 63 6f 6e 76  |)"`1.00" . .conv|
00000770  65 72 73 69 6f 6e 0d 02  44 05 ed 0d 02 4e 6a e7  |ersion..D....Nj.|
00000780  63 6f 75 6e 74 20 3e 20  31 20 f1 8a 30 2c 32 32  |count > 1 ..0,22|
00000790  29 22 54 68 65 72 65 20  61 72 65 20 22 3b 63 6f  |)"There are ";co|
000007a0  75 6e 74 3b 22 20 74 79  70 65 73 20 6f 66 20 6e  |unt;" types of n|
000007b0  65 77 73 70 61 70 65 72  2e 22 3b 20 8b 20 f1 8a  |ewspaper."; . ..|
000007c0  30 2c 32 32 29 22 54 68  65 72 65 20 69 73 20 31  |0,22)"There is 1|
000007d0  20 74 79 70 65 20 6f 66  20 6e 65 77 73 70 61 70  | type of newspap|
000007e0  65 72 2e 22 3b 0d 02 58  05 e1 0d 02 62 05 20 0d  |er.";..X....b. .|
000007f0  02 6c 2b dd f2 61 64 64  6e 65 77 73 70 61 70 65  |.l+..addnewspape|
00000800  72 3a 63 6f 75 6e 74 3d  63 6f 75 6e 74 2b 31 3a  |r:count=count+1:|
00000810  f2 63 6f 6d 77 69 6e 64  6f 77 0d 02 76 5a e7 63  |.comwindow..vZ.c|
00000820  6f 75 6e 74 3d 31 36 20  f2 65 72 72 6f 72 61 3a  |ount=16 .errora:|
00000830  f2 6d 61 69 6e 77 69 6e  64 6f 77 3a 63 6f 75 6e  |.mainwindow:coun|
00000840  74 3d 31 35 3a db 3a f1  a4 63 28 22 50 41 50 45  |t=15:.:..c("PAPE|
00000850  52 20 54 49 54 4c 45 20  50 41 47 45 22 29 3a f2  |R TITLE PAGE"):.|
00000860  64 69 73 70 6c 61 79 64  61 74 61 3a f2 6d 3a e5  |displaydata:.m:.|
00000870  8d 64 50 42 0d 02 80 47  e7 63 6f 75 6e 74 3d 31  |.dPB...G.count=1|
00000880  35 20 77 65 25 3d 30 20  8b 20 f1 27 27 27 27 27  |5 we%=0 . .'''''|
00000890  27 22 41 64 64 20 6d 6f  72 65 20 74 68 61 6e 20  |'"Add more than |
000008a0  6f 6e 65 20 28 59 2f 4e  29 22 27 3a 4a 3d a5 3a  |one (Y/N)"':J=.:|
000008b0  e7 4a 3d 38 39 20 77 65  25 3d 31 0d 02 8a 25 f1  |.J=89 we%=1...%.|
000008c0  27 27 27 27 27 27 22 41  64 64 20 6e 65 77 73 70  |''''''"Add newsp|
000008d0  61 70 65 72 20 6e 6f 2e  20 22 3b 63 6f 75 6e 74  |aper no. ";count|
000008e0  0d 02 94 30 e7 77 65 25  3d 31 20 8c 20 f1 22 28  |...0.we%=1 . ."(|
000008f0  51 20 74 68 65 6e 20 52  45 54 55 52 4e 20 3a 20  |Q then RETURN : |
00000900  52 65 74 75 72 6e 20 54  6f 20 4d 65 6e 75 29 22  |Return To Menu)"|
00000910  0d 02 9e 20 e8 27 22 4e  61 6d 65 20 20 20 20 22  |... .'"Name    "|
00000920  2c 6e 61 6d 65 73 74 6f  24 28 63 6f 75 6e 74 29  |,namesto$(count)|
00000930  0d 02 a8 50 e7 6e 61 6d  65 73 74 6f 24 28 63 6f  |...P.namesto$(co|
00000940  75 6e 74 29 3d 22 51 22  20 8c 20 63 6f 75 6e 74  |unt)="Q" . count|
00000950  3d 63 6f 75 6e 74 2d 31  3a 77 65 25 3d 30 3a f2  |=count-1:we%=0:.|
00000960  6d 61 69 6e 77 69 6e 64  6f 77 3a f2 64 69 73 70  |mainwindow:.disp|
00000970  6c 61 79 64 61 74 61 3a  f2 6d 3a e5 8d 64 50 42  |laydata:.m:..dPB|
00000980  0d 02 b2 1f e8 22 50 72  69 63 65 20 20 20 22 2c  |....."Price   ",|
00000990  70 72 69 63 65 73 74 6f  28 63 6f 75 6e 74 29 0d  |pricesto(count).|
000009a0  02 bc 1f e7 70 72 69 63  65 73 74 6f 28 63 6f 75  |....pricesto(cou|
000009b0  6e 74 29 20 3c 20 30 20  e5 20 8d 74 72 42 0d 02  |nt) < 0 . .trB..|
000009c0  c6 57 63 68 61 6e 67 65  25 3d 31 3a e7 20 77 65  |.Wchange%=1:. we|
000009d0  25 3d 31 20 8c 20 63 6f  75 6e 74 3d 63 6f 75 6e  |%=1 . count=coun|
000009e0  74 2b 31 3a e5 8d 74 4a  42 20 8b 20 f2 6d 61 69  |t+1:..tJB . .mai|
000009f0  6e 77 69 6e 64 6f 77 3a  f2 64 69 73 70 6c 61 79  |nwindow:.display|
00000a00  64 61 74 61 3a f2 6d 3a  ef 32 38 2c 30 2c 32 32  |data:.m:.28,0,22|
00000a10  2c 33 39 2c 36 0d 02 d0  13 ef 32 38 2c 30 2c 32  |,39,6.....28,0,2|
00000a20  33 2c 33 39 2c 36 3a e1  0d 02 da 10 dd f2 6d 61  |3,39,6:.......ma|
00000a30  69 6e 77 69 6e 64 6f 77  0d 02 e4 11 ef 32 38 2c  |inwindow.....28,|
00000a40  31 2c 32 34 2c 33 38 2c  31 0d 02 ee 05 e1 0d 02  |1,24,38,1.......|
00000a50  f8 0f dd f2 63 6f 6d 77  69 6e 64 6f 77 0d 03 02  |....comwindow...|
00000a60  12 ef 32 38 2c 31 2c 33  30 2c 33 38 2c 32 37 0d  |..28,1,30,38,27.|
00000a70  03 0c 05 e1 0d 03 16 05  20 0d 03 20 10 dd f2 63  |........ .. ...c|
00000a80  6f 6e 76 65 72 73 69 6f  6e 0d 03 2a 52 e7 20 70  |onversion..*R. p|
00000a90  72 69 63 65 73 74 6f 28  41 29 20 3e 20 31 30 20  |ricesto(A) > 10 |
00000aa0  70 72 69 63 65 73 74 6f  28 41 29 20 3d 20 70 72  |pricesto(A) = pr|
00000ab0  69 63 65 73 74 6f 28 41  29 20 8b 20 70 72 69 63  |icesto(A) . pric|
00000ac0  65 73 74 6f 28 41 29 20  3d 20 70 72 69 63 65 73  |esto(A) = prices|
00000ad0  74 6f 28 41 29 20 2a 20  31 30 30 0d 03 34 94 e7  |to(A) * 100..4..|
00000ae0  70 72 69 63 65 73 74 6f  28 41 29 20 83 20 31 30  |pricesto(A) . 10|
00000af0  20 3d 20 30 20 8c 20 70  72 69 63 65 73 74 6f 28  | = 0 . pricesto(|
00000b00  41 29 20 3d 20 70 72 69  63 65 73 74 6f 28 41 29  |A) = pricesto(A)|
00000b10  20 2f 20 31 30 30 3a f1  8a 33 33 2c 41 2b 35 29  | / 100:..33,A+5)|
00000b20  3b 22 60 22 3b 70 72 69  63 65 73 74 6f 28 41 29  |;"`";pricesto(A)|
00000b30  22 30 22 20 8b 20 70 72  69 63 65 73 74 6f 28 41  |"0" . pricesto(A|
00000b40  29 20 3d 20 70 72 69 63  65 73 74 6f 28 41 29 20  |) = pricesto(A) |
00000b50  2f 20 31 30 30 3a f1 8a  33 33 2c 41 2b 35 29 3b  |/ 100:..33,A+5);|
00000b60  22 60 22 3b 70 72 69 63  65 73 74 6f 28 41 29 0d  |"`";pricesto(A).|
00000b70  03 3e 05 e1 0d 03 48 0c  dd f2 65 72 72 6f 72 61  |.>....H...errora|
00000b80  0d 03 52 64 ef 37 3a f2  6d 61 69 6e 77 69 6e 64  |..Rd.7:.mainwind|
00000b90  6f 77 3a db 3a f1 a4 63  28 22 45 52 52 4f 52 21  |ow:.:..c("ERROR!|
00000ba0  22 29 27 27 27 a4 63 28  22 55 6e 61 62 6c 65 20  |")'''.c("Unable |
00000bb0  74 6f 20 65 78 65 63 75  74 65 20 74 68 69 73 20  |to execute this |
00000bc0  6f 70 74 69 6f 6e 2e 22  29 27 27 27 27 27 a4 63  |option.")'''''.c|
00000bd0  28 22 44 61 74 61 62 61  73 65 20 66 75 6c 6c 2e  |("Database full.|
00000be0  22 29 27 27 0d 03 5c 8d  f1 27 27 a4 63 28 22 54  |")''..\..''.c("T|
00000bf0  6f 20 61 64 64 20 6e 65  77 73 70 61 70 65 72 2c  |o add newspaper,|
00000c00  20 73 65 6c 65 63 74 20  64 65 6c 65 74 65 22 29  | select delete")|
00000c10  27 27 a4 63 28 22 6f 70  74 69 6f 6e 20 66 72 6f  |''.c("option fro|
00000c20  6d 20 6d 61 69 6e 20 6d  65 6e 75 20 61 6e 64 22  |m main menu and"|
00000c30  29 27 27 a4 63 28 22 65  72 61 73 65 20 6f 6e 65  |)''.c("erase one|
00000c40  20 70 72 65 76 69 6f 75  73 6c 79 20 73 74 6f 72  | previously stor|
00000c50  65 64 22 29 27 27 a4 63  28 22 69 6e 20 6d 65 6d  |ed")''.c("in mem|
00000c60  6f 72 79 2e 22 29 3a f2  63 6f 6d 77 69 6e 64 6f  |ory."):.comwindo|
00000c70  77 0d 03 66 26 f1 27 27  27 27 27 27 a4 63 28 22  |w..f&.''''''.c("|
00000c80  50 72 65 73 73 20 53 50  41 43 45 22 29 27 3a f5  |Press SPACE")':.|
00000c90  fd a5 3d 33 32 3a e1 0d  03 70 0c dd f2 65 72 72  |..=32:...p...err|
00000ca0  6f 72 62 0d 03 7a 6b ef  37 3a f2 6d 61 69 6e 77  |orb..zk.7:.mainw|
00000cb0  69 6e 64 6f 77 3a db 3a  f1 a4 63 28 22 45 52 52  |indow:.:..c("ERR|
00000cc0  4f 52 21 22 29 27 27 27  a4 63 28 22 55 6e 61 62  |OR!")'''.c("Unab|
00000cd0  6c 65 20 74 6f 20 6f 62  65 79 20 75 73 65 72 20  |le to obey user |
00000ce0  63 6f 6d 6d 61 6e 64 2e  22 29 27 27 27 27 27 a4  |command.")'''''.|
00000cf0  63 28 22 42 72 65 61 63  68 20 6f 66 20 70 72 6f  |c("Breach of pro|
00000d00  67 72 61 6d 20 63 6f 64  65 2e 22 29 27 27 0d 03  |gram code.")''..|
00000d10  84 8e f1 27 27 a4 63 28  22 53 79 73 74 65 6d 20  |...''.c("System |
00000d20  6d 75 73 74 20 72 65 74  61 69 6e 20 61 74 20 6c  |must retain at l|
00000d30  65 61 73 74 22 29 27 27  a4 63 28 22 6f 6e 65 20  |east")''.c("one |
00000d40  64 61 74 61 20 66 69 65  6c 64 20 66 6f 72 20 70  |data field for p|
00000d50  72 6f 67 72 61 6d 22 29  27 27 a4 63 28 22 74 6f  |rogram")''.c("to|
00000d60  20 77 6f 72 6b 20 77 69  74 68 2e 22 29 3a f2 63  | work with."):.c|
00000d70  6f 6d 77 69 6e 64 6f 77  3a f1 27 27 27 27 27 27  |omwindow:.''''''|
00000d80  27 a4 63 28 22 50 72 65  73 73 20 53 50 41 43 45  |'.c("Press SPACE|
00000d90  22 29 27 3a f5 fd a5 3d  33 32 3a e1 0d 03 8e 1d  |")':...=32:.....|
00000da0  dd a4 63 28 43 24 29 3a  f1 8a 31 39 2d a9 43 24  |..c(C$):..19-.C$|
00000db0  2f 32 29 3b 3a 3d 43 24  20 0d 03 98 1e dd f2 6d  |/2);:=C$ ......m|
00000dc0  61 6e 69 70 75 6c 61 74  65 3a ef 32 38 2c 30 2c  |anipulate:.28,0,|
00000dd0  32 32 2c 33 39 2c 36 0d  03 a2 0a f2 6d 3a 79 3d  |22,39,6.....m:y=|
00000de0  31 0d 03 ac 05 f5 0d 03  b6 5c f1 8a 30 2c 79 2d  |1........\..0,y-|
00000df0  31 29 3b 3a ef 31 33 30  3a f1 8a 33 39 2c 79 2d  |1);:.130:..39,y-|
00000e00  31 29 3b 3a ef 31 33 32  3a f1 8a 30 2c 79 29 3b  |1);:.132:..0,y);|
00000e10  3a ef 31 34 35 3a f1 8a  33 39 2c 79 29 3b 3a ef  |:.145:..39,y);:.|
00000e20  31 34 36 3a f1 8a 30 2c  79 2b 31 29 3b 3a ef 31  |146:..0,y+1);:.1|
00000e30  33 30 3a f1 8a 33 39 2c  79 2b 31 29 3b 3a ef 31  |30:..39,y+1);:.1|
00000e40  33 32 0d 03 c0 13 44 3d  a5 3a e7 44 3d 38 33 20  |32....D=.:.D=83 |
00000e50  79 3d 79 2d 31 0d 03 ca  0f e7 44 3d 38 38 20 79  |y=y-1.....D=88 y|
00000e60  3d 79 2b 31 0d 03 d4 16  e7 44 3d 36 35 f2 61 64  |=y+1.....D=65.ad|
00000e70  64 6e 65 77 73 70 61 70  65 72 0d 03 de 0c e7 79  |dnewspaper.....y|
00000e80  3c 31 20 79 3d 31 0d 03  e8 14 e7 79 3e 63 6f 75  |<1 y=1.....y>cou|
00000e90  6e 74 20 79 3d 63 6f 75  6e 74 0d 03 f2 0a fd 20  |nt y=count..... |
00000ea0  44 3d 31 33 0d 03 fc 77  f2 63 6f 6d 77 69 6e 64  |D=13...w.comwind|
00000eb0  6f 77 3a f1 27 27 27 27  27 27 22 43 68 61 6e 67  |ow:.''''''"Chang|
00000ec0  65 20 22 3b 6e 61 6d 65  73 74 6f 24 28 79 29 27  |e ";namesto$(y)'|
00000ed0  27 22 4e 20 3a 20 4e 61  6d 65 20 20 20 50 20 3a  |'"N : Name   P :|
00000ee0  20 50 72 69 63 65 20 20  20 44 20 3a 20 44 65 6c  | Price   D : Del|
00000ef0  65 74 65 22 27 22 42 20  3a 20 4e 61 6d 65 20 61  |ete"'"B : Name a|
00000f00  6e 64 20 70 72 69 63 65  20 20 20 43 20 3a 20 43  |nd price   C : C|
00000f10  61 6e 63 65 6c 22 3b 3a  49 3d a5 0d 04 06 2f e7  |ancel";:I=..../.|
00000f20  49 3d 36 36 f2 67 65 74  6e 61 6d 65 3a f2 63 6f  |I=66.getname:.co|
00000f30  6d 77 69 6e 64 6f 77 3a  f2 67 65 74 70 72 69 63  |mwindow:.getpric|
00000f40  65 3a f2 6d 3a e5 8d 44  42 44 0d 04 10 19 e7 49  |e:.m:..DBD.....I|
00000f50  3d 36 38 f2 64 65 6c 65  74 65 3a f2 6d 3a e5 8d  |=68.delete:.m:..|
00000f60  44 42 44 0d 04 1a 1a e7  49 3d 37 38 f2 67 65 74  |DBD.....I=78.get|
00000f70  6e 61 6d 65 3a f2 6d 3a  e5 8d 44 42 44 0d 04 24  |name:.m:..DBD..$|
00000f80  1b e7 49 3d 38 30 f2 67  65 74 70 72 69 63 65 3a  |..I=80.getprice:|
00000f90  f2 6d 3a e5 8d 44 42 44  0d 04 2e 1b e7 49 3d 36  |.m:..DBD.....I=6|
00000fa0  37 63 68 61 6e 67 65 25  3d 30 3a f2 6d 3a e5 8d  |7change%=0:.m:..|
00000fb0  74 6c 43 0d 04 38 10 ef  37 3a 49 3d a5 3a e5 8d  |tlC..8..7:I=.:..|
00000fc0  54 46 44 0d 04 42 17 ef  32 38 2c 30 2c 32 34 2c  |TFD..B..28,0,24,|
00000fd0  33 39 2c 36 3a e5 8d 74  6c 43 0d 04 4c 05 e1 0d  |39,6:..tlC..L...|
00000fe0  04 56 75 dd f2 67 65 74  6e 61 6d 65 3a f1 27 27  |.Vu..getname:.''|
00000ff0  27 22 50 72 65 76 69 6f  75 73 20 20 3a 20 22 3b  |'"Previous  : ";|
00001000  6e 61 6d 65 73 74 6f 24  28 79 29 27 22 4e 65 77  |namesto$(y)'"New|
00001010  20 6e 61 6d 65 20 22 3b  3a e8 20 6e 61 6d 65 73  | name ";:. names|
00001020  74 6f 24 28 79 29 3a ef  32 38 2c 30 2c 32 32 2c  |to$(y):.28,0,22,|
00001030  33 39 2c 36 3a f1 8a 31  2c 79 29 89 28 33 32 29  |39,6:..1,y).(32)|
00001040  3a f1 8a 31 2c 79 29 6e  61 6d 65 73 74 6f 24 28  |:..1,y)namesto$(|
00001050  79 29 3a e1 0d 04 60 42  dd f2 67 65 74 70 72 69  |y):...`B..getpri|
00001060  63 65 3a f1 27 27 27 22  50 72 65 76 69 6f 75 73  |ce:.'''"Previous|
00001070  20 20 3a 20 60 22 3b 3a  e7 70 72 69 63 65 73 74  |  : `";:.pricest|
00001080  6f 28 79 29 20 3d 20 31  20 f1 22 31 2e 30 30 22  |o(y) = 1 ."1.00"|
00001090  3a e5 8d 44 7e 44 0d 04  6a 52 e7 20 70 72 69 63  |:..D~D..jR. pric|
000010a0  65 73 74 6f 28 79 29 20  3e 20 31 30 20 70 72 69  |esto(y) > 10 pri|
000010b0  63 65 73 74 6f 28 79 29  20 3d 20 70 72 69 63 65  |cesto(y) = price|
000010c0  73 74 6f 28 79 29 20 8b  20 70 72 69 63 65 73 74  |sto(y) . pricest|
000010d0  6f 28 79 29 20 3d 20 70  72 69 63 65 73 74 6f 28  |o(y) = pricesto(|
000010e0  79 29 20 2a 20 31 30 30  0d 04 74 7a e7 70 72 69  |y) * 100..tz.pri|
000010f0  63 65 73 74 6f 28 79 29  20 83 20 31 30 20 3d 20  |cesto(y) . 10 = |
00001100  30 20 8c 20 70 72 69 63  65 73 74 6f 28 79 29 20  |0 . pricesto(y) |
00001110  3d 20 70 72 69 63 65 73  74 6f 28 79 29 20 2f 20  |= pricesto(y) / |
00001120  31 30 30 3a f1 70 72 69  63 65 73 74 6f 28 79 29  |100:.pricesto(y)|
00001130  22 30 22 20 8b 20 70 72  69 63 65 73 74 6f 28 79  |"0" . pricesto(y|
00001140  29 20 3d 20 70 72 69 63  65 73 74 6f 28 79 29 20  |) = pricesto(y) |
00001150  2f 20 31 30 30 3a f1 70  72 69 63 65 73 74 6f 28  |/ 100:.pricesto(|
00001160  79 29 0d 04 7e 1f f1 22  4e 65 77 20 70 72 69 63  |y)..~.."New pric|
00001170  65 20 22 3b 3a e8 70 72  69 63 65 73 74 6f 28 79  |e ";:.pricesto(y|
00001180  29 0d 04 88 43 f2 6d 61  69 6e 77 69 6e 64 6f 77  |)...C.mainwindow|
00001190  3a e7 70 72 69 63 65 73  74 6f 28 79 29 3d 31 20  |:.pricesto(y)=1 |
000011a0  8c 20 f1 8a 33 33 2c 79  2b 35 29 22 60 31 2e 30  |. ..33,y+5)"`1.0|
000011b0  30 22 20 8b 20 41 3d 79  3a f2 63 6f 6e 76 65 72  |0" . A=y:.conver|
000011c0  73 69 6f 6e 0d 04 92 13  ef 32 38 2c 30 2c 32 32  |sion.....28,0,22|
000011d0  2c 33 39 2c 36 3a e1 0d  04 9c 0c dd f2 64 65 6c  |,39,6:.......del|
000011e0  65 74 65 0d 04 a6 4b e7  63 6f 75 6e 74 3d 31 20  |ete...K.count=1 |
000011f0  8c 20 f2 65 72 72 6f 72  62 3a f2 6d 61 69 6e 77  |. .errorb:.mainw|
00001200  69 6e 64 6f 77 3a db 3a  f1 a4 63 28 22 50 41 50  |indow:.:..c("PAP|
00001210  45 52 20 54 49 54 4c 45  20 50 41 47 45 22 29 3a  |ER TITLE PAGE"):|
00001220  f2 64 69 73 70 6c 61 79  64 61 74 61 3a e1 0d 04  |.displaydata:...|
00001230  b0 44 f2 63 6f 6d 77 69  6e 64 6f 77 3a f1 27 27  |.D.comwindow:.''|
00001240  27 27 27 22 44 65 6c 65  74 65 20 22 3b 6e 61 6d  |'''"Delete ";nam|
00001250  65 73 74 6f 24 28 79 29  27 27 a4 63 28 22 41 72  |esto$(y)''.c("Ar|
00001260  65 20 79 6f 75 20 73 75  72 65 20 28 59 2f 4e 29  |e you sure (Y/N)|
00001270  22 29 0d 04 ba 12 47 3d  a5 3a e7 47 3d 38 39 e5  |")....G=.:.G=89.|
00001280  8d 64 4e 44 0d 04 c4 0c  ef 37 3a e5 8d 64 7c 43  |.dND.....7:..d|C|
00001290  0d 04 ce 56 6e 61 6d 65  73 74 6f 24 28 79 29 3d  |...Vnamesto$(y)=|
000012a0  22 45 4d 50 54 59 22 3a  70 72 69 63 65 73 74 6f  |"EMPTY":pricesto|
000012b0  28 79 29 3d 2d 39 38 31  3a f1 27 27 27 22 45 72  |(y)=-981:.'''"Er|
000012c0  61 73 69 6e 67 20 70 61  70 65 72 20 66 72 6f 6d  |asing paper from|
000012d0  20 64 61 74 61 62 61 73  65 2e 22 27 3a f2 6d 61  | database."':.ma|
000012e0  6b 65 66 69 6c 65 0d 04  d8 26 f2 67 65 74 70 72  |kefile...&.getpr|
000012f0  65 76 69 6f 75 73 64 61  74 61 3a e7 20 79 3d 63  |eviousdata:. y=c|
00001300  6f 75 6e 74 20 8c 20 79  3d 79 2d 31 0d 04 e2 42  |ount . y=y-1...B|
00001310  e3 64 3d 31 b8 31 35 3a  6e 61 6d 65 73 74 6f 24  |.d=1.15:namesto$|
00001320  28 64 29 3d 6e 61 6d 65  73 66 72 6f 6d 24 28 64  |(d)=namesfrom$(d|
00001330  29 3a 70 72 69 63 65 73  74 6f 28 64 29 3d 70 72  |):pricesto(d)=pr|
00001340  69 63 65 73 66 72 6f 6d  28 64 29 3a ed 64 0d 04  |icesfrom(d):.d..|
00001350  ec 2e ef 32 38 2c 31 2c  32 34 2c 33 38 2c 33 3a  |...28,1,24,38,3:|
00001360  db 3a f2 6d 61 69 6e 77  69 6e 64 6f 77 3a f2 64  |.:.mainwindow:.d|
00001370  69 73 70 6c 61 79 64 61  74 61 3a e1 0d 04 f6 99  |isplaydata:.....|
00001380  dd f2 6d 3a f2 63 6f 6d  77 69 6e 64 6f 77 3a f1  |..m:.comwindow:.|
00001390  27 27 27 27 22 41 20 3a  20 41 64 64 20 4e 65 77  |''''"A : Add New|
000013a0  73 70 61 70 65 72 22 27  22 53 20 3a 20 53 6c 69  |spaper"'"S : Sli|
000013b0  64 65 72 20 55 50 20 20  20 58 20 3a 20 53 6c 69  |der UP   X : Sli|
000013c0  64 65 72 20 44 4f 57 4e  22 27 22 52 45 54 55 52  |der DOWN"'"RETUR|
000013d0  4e 20 3a 20 43 68 61 6e  67 65 20 4f 70 74 69 6f  |N : Change Optio|
000013e0  6e 73 22 27 22 45 53 43  41 50 45 20 3a 20 43 6f  |ns"'"ESCAPE : Co|
000013f0  6e 74 69 6e 75 65 20 54  6f 20 4d 61 69 6e 20 4d  |ntinue To Main M|
00001400  65 6e 75 22 3b 3a ef 32  38 2c 30 2c 32 34 2c 33  |enu";:.28,0,24,3|
00001410  39 2c 36 3a e1 0d 05 00  0c 2a 66 78 32 30 30 2c  |9,6:.....*fx200,|
00001420  31 0d 05 0a 11 ef 32 38  2c 30 2c 32 32 2c 33 39  |1.....28,0,22,39|
00001430  2c 36 0d 05 14 1e f1 8a  30 2c 79 29 3b 3a ef 31  |,6......0,y);:.1|
00001440  33 30 3a f1 8a 33 39 2c  79 29 3b 3a ef 31 33 32  |30:..39,y);:.132|
00001450  0d 05 1e 14 e7 63 68 61  6e 67 65 25 3d 30 20 e5  |.....change%=0 .|
00001460  8d 54 72 45 0d 05 28 36  f2 63 6f 6d 77 69 6e 64  |.TrE..(6.comwind|
00001470  6f 77 3a f1 27 27 27 27  27 a4 63 28 22 53 61 76  |ow:.'''''.c("Sav|
00001480  69 6e 67 20 4e 65 77 20  44 61 74 61 22 29 27 27  |ing New Data")''|
00001490  3a f2 6d 61 6b 65 66 69  6c 65 0d 05 32 37 f2 63  |:.makefile..27.c|
000014a0  6f 6d 77 69 6e 64 6f 77  3a f1 27 27 27 27 27 a4  |omwindow:.'''''.|
000014b0  63 28 22 4c 6f 61 64 69  6e 67 20 4d 61 69 6e 20  |c("Loading Main |
000014c0  4d 65 6e 75 22 29 27 27  3b 3a d7 22 4d 45 4e 55  |Menu")'';:."MENU|
000014d0  22 0d ff                                          |"..|
000014d3