� ADDRESS BOOK
#� A random access demonstration
� by G.D.Hawkins
(� (c) 1989
2
*TV255
<�7
F�#0
P�text$(8),len%(8)
Zstart=0:�menu
d�
n
��menu
x�:alter=�:delete=�:noroom=�
�*FX15,0
��:��dz@:� loop=1�5
�
� option$
��5,6+loop)option$:�
��5,13)"Your choice ..";
��:key=�:� key>48 � key<54
�� key=49 �look
�� key=50 �clean:�enter
�� key=51 alter=�:�look
�� key=52 delete=�:�look
�� key=53
��
�j� 1.....Consult Address Book.,2.....Add Details.,3.....Alter Details.,4.....Delete Record.,5.....Quit.

��enter

�:�empty

Z� noroom=� �7:�5,15)�136;�131;"NO MORE ROOM IN FILE":� wait=1 � 8000:�:ask$="N":�DJA

"�clean:�screen:�details

,+�ask("Add this record to file ? (Y/N)")

6 � �upper(ask$)="Y"�addtofile

@�ask("Any more ? (Y/N)")

J� �upper(ask$)="N"

T�

^��screen

h�:��tPA:� loop=1 � 8

r� line$,len%(loop)

|&�1,3+loop)line$;�10)text$(loop):�

��

�g� Name.,25,Address 1.,20,Address 2.,20,Address 3.,20,Town.,20,County.,20,Post Code.,10,Phone No.,15

���clean

�� loop=1�8:text$(loop)="":�

��

�
��details

�� loop=1�8:�

��10,loop+3)" "line$

�!� �(line$)>len%(loop)�toolong

�� �(line$)<=len%(loop)

�C� alter=� � line$="" text$(loop)=text$(loop)� text$(loop)=line$

�line$="":�

��

��toolong
!�11,loop+3)�(�(text$(loop)))
0�7:�11,loop+3)"TOO LONG - PLEASE RE-ENTER";
&� wait=1 � 5000:�
0�11,loop+3)�(27)
:�
D��ask(message$)
N�:�:�;�2;message$;
X�:ask$=�:� �"YyNn",ask$)>0
b�
lݤupper(string$)
v� count,temp$
�
upper$=""
�� count=1 � � string$
�temp$=�string$,count,1)
�4� � temp$>=97 � � temp$<=122 �temp$=�(�temp$-32)
�upper$=upper$+temp$
��
�=upper$
���addtofile
�CH=�"phone"
��#CH=start
�� loop=1 � 8
�%�#CH,�pad(text$(loop),len%(loop))
�
�:�#CH
�
ݤpad(word$,length%)
�
 &� �(word$)<length% word$=word$+" "
*� �(word$)=length%
4
=word$
>
��look
H�:start=0:�
R�3,5)"Enter Name :";
\ �""search$:�:�search
f{� name$<>�25,"?") � name$<>�25," ") �3,7)name$:�ask("Is this the required record ? (Y/N)"):� �upper(ask$)="Y" �display
ps� name$=�25,"?") � name$=�25," ") � name$="" �3,7)�30:�0,10)�2;"No record with this spelling found.":ask$="Y"
z� �upper(ask$)="Y"
��ask("Any more ? (Y/N)")
�� �upper(ask$)="N"
��
���search
�CH=�"phone"
��#CH=start
��
��#CH,name$
��#CH=�#CH+139
�I� name$=�25," ") � ��upper(name$),�upper(search$))>0 � �#CH+166>=�#CH
�start=�#CH:�#CH
��
���empty
CH=�"phone":
�#CH=0:�:�#CH,name$
�#CH=�#CH+139
$6� name$=�25," ") � name$=�25,"?") � �#CH+139>=�#CH
.� �#CH+139>=�#CH noroom=�
8�#CH=�#CH-166:start=�#CH
B�#CH
L�
V
��display
`�clean:�
j�3,5)""
tCH=�"phone"
~�#CH=start-166
�� loop=1 � 7
��#CH,line$
�/� line$<>ĩ(line$)," ")� alter=� �4);line$
�,� line$<>ĩ(line$)," ")text$(loop)=line$
��:�:�#CH,line$
�/� line$<>ĩ(line$)," ")� alter=� �4);line$
�)� line$<>ĩ(line$)," ")text$(8)=line$
��#CH
�$� alter=� start=start-166:�alter
�,� delete=� start=start-166:�deleterecord
��
���alter
�screen:�details

+�ask("Add this record to file ? (Y/N)")
 � �upper(ask$)="Y"�addtofile
�
(��deleterecord
2&�ask("Delete this record ? (Y/N)")
<� �upper(ask$)="N" �
FCH=�"phone":�#CH=start
P�#CH,�25,"?"):�#CH
Z�
�

00000000  0d 00 0a 12 f4 20 41 44  44 52 45 53 53 20 42 4f  |..... ADDRESS BO|
00000010  4f 4b 0d 00 14 23 f4 20  41 20 72 61 6e 64 6f 6d  |OK...#. A random|
00000020  20 61 63 63 65 73 73 20  64 65 6d 6f 6e 73 74 72  | access demonstr|
00000030  61 74 69 6f 6e 0d 00 1e  14 f4 20 62 79 20 47 2e  |ation..... by G.|
00000040  44 2e 48 61 77 6b 69 6e  73 0d 00 28 0e f4 20 28  |D.Hawkins..(.. (|
00000050  63 29 20 31 39 38 39 0d  00 32 0a 2a 54 56 32 35  |c) 1989..2.*TV25|
00000060  35 0d 00 3c 06 eb 37 0d  00 46 07 d9 23 30 0d 00  |5..<..7..F..#0..|
00000070  50 15 de 74 65 78 74 24  28 38 29 2c 6c 65 6e 25  |P..text$(8),len%|
00000080  28 38 29 0d 00 5a 11 73  74 61 72 74 3d 30 3a f2  |(8)..Z.start=0:.|
00000090  6d 65 6e 75 0d 00 64 05  e0 0d 00 6e 0a dd f2 6d  |menu..d....n...m|
000000a0  65 6e 75 0d 00 78 1f f5  3a 61 6c 74 65 72 3d a3  |enu..x..:alter=.|
000000b0  3a 64 65 6c 65 74 65 3d  a3 3a 6e 6f 72 6f 6f 6d  |:delete=.:noroom|
000000c0  3d a3 0d 00 82 0b 2a 46  58 31 35 2c 30 0d 00 8c  |=.....*FX15,0...|
000000d0  16 db 3a f7 8d 64 7a 40  3a e3 20 6c 6f 6f 70 3d  |..:..dz@:. loop=|
000000e0  31 b8 35 0d 00 96 0d f3  20 6f 70 74 69 6f 6e 24  |1.5..... option$|
000000f0  0d 00 a0 18 f1 8a 35 2c  36 2b 6c 6f 6f 70 29 6f  |......5,6+loop)o|
00000100  70 74 69 6f 6e 24 3a ed  0d 00 aa 1c f1 8a 35 2c  |ption$:.......5,|
00000110  31 33 29 22 59 6f 75 72  20 63 68 6f 69 63 65 20  |13)"Your choice |
00000120  2e 2e 22 3b 0d 00 b4 1d  f5 3a 6b 65 79 3d a5 3a  |..";.....:key=.:|
00000130  fd 20 6b 65 79 3e 34 38  20 80 20 6b 65 79 3c 35  |. key>48 . key<5|
00000140  34 0d 00 be 12 e7 20 6b  65 79 3d 34 39 20 f2 6c  |4..... key=49 .l|
00000150  6f 6f 6b 0d 00 c8 1a e7  20 6b 65 79 3d 35 30 20  |ook..... key=50 |
00000160  f2 63 6c 65 61 6e 3a f2  65 6e 74 65 72 0d 00 d2  |.clean:.enter...|
00000170  1a e7 20 6b 65 79 3d 35  31 20 61 6c 74 65 72 3d  |.. key=51 alter=|
00000180  b9 3a f2 6c 6f 6f 6b 0d  00 dc 1b e7 20 6b 65 79  |.:.look..... key|
00000190  3d 35 32 20 64 65 6c 65  74 65 3d b9 3a f2 6c 6f  |=52 delete=.:.lo|
000001a0  6f 6b 0d 00 e6 0c fd 20  6b 65 79 3d 35 33 0d 00  |ok..... key=53..|
000001b0  f0 05 e1 0d 00 fa 6a dc  20 31 2e 2e 2e 2e 2e 43  |......j. 1.....C|
000001c0  6f 6e 73 75 6c 74 20 41  64 64 72 65 73 73 20 42  |onsult Address B|
000001d0  6f 6f 6b 2e 2c 32 2e 2e  2e 2e 2e 41 64 64 20 44  |ook.,2.....Add D|
000001e0  65 74 61 69 6c 73 2e 2c  33 2e 2e 2e 2e 2e 41 6c  |etails.,3.....Al|
000001f0  74 65 72 20 44 65 74 61  69 6c 73 2e 2c 34 2e 2e  |ter Details.,4..|
00000200  2e 2e 2e 44 65 6c 65 74  65 20 52 65 63 6f 72 64  |...Delete Record|
00000210  2e 2c 35 2e 2e 2e 2e 2e  51 75 69 74 2e 0d 01 04  |.,5.....Quit....|
00000220  0b dd f2 65 6e 74 65 72  0d 01 0e 0c f5 3a f2 65  |...enter.....:.e|
00000230  6d 70 74 79 0d 01 18 5a  e7 20 6e 6f 72 6f 6f 6d  |mpty...Z. noroom|
00000240  3d b9 20 ef 37 3a f1 8a  35 2c 31 35 29 bd 31 33  |=. .7:..5,15).13|
00000250  36 3b bd 31 33 31 3b 22  4e 4f 20 4d 4f 52 45 20  |6;.131;"NO MORE |
00000260  52 4f 4f 4d 20 49 4e 20  46 49 4c 45 22 3a e3 20  |ROOM IN FILE":. |
00000270  77 61 69 74 3d 31 20 b8  20 38 30 30 30 3a ed 3a  |wait=1 . 8000:.:|
00000280  61 73 6b 24 3d 22 4e 22  3a e5 8d 44 4a 41 0d 01  |ask$="N":..DJA..|
00000290  22 1b f2 63 6c 65 61 6e  3a f2 73 63 72 65 65 6e  |"..clean:.screen|
000002a0  3a f2 64 65 74 61 69 6c  73 0d 01 2c 2b f2 61 73  |:.details..,+.as|
000002b0  6b 28 22 41 64 64 20 74  68 69 73 20 72 65 63 6f  |k("Add this reco|
000002c0  72 64 20 74 6f 20 66 69  6c 65 20 3f 20 28 59 2f  |rd to file ? (Y/|
000002d0  4e 29 22 29 0d 01 36 20  e7 20 a4 75 70 70 65 72  |N)")..6 . .upper|
000002e0  28 61 73 6b 24 29 3d 22  59 22 f2 61 64 64 74 6f  |(ask$)="Y".addto|
000002f0  66 69 6c 65 0d 01 40 1c  f2 61 73 6b 28 22 41 6e  |file..@..ask("An|
00000300  79 20 6d 6f 72 65 20 3f  20 28 59 2f 4e 29 22 29  |y more ? (Y/N)")|
00000310  0d 01 4a 16 fd 20 a4 75  70 70 65 72 28 61 73 6b  |..J.. .upper(ask|
00000320  24 29 3d 22 4e 22 0d 01  54 05 e1 0d 01 5e 0c dd  |$)="N"..T....^..|
00000330  f2 73 63 72 65 65 6e 0d  01 68 18 db 3a f7 8d 74  |.screen..h..:..t|
00000340  50 41 3a e3 20 6c 6f 6f  70 3d 31 20 b8 20 38 0d  |PA:. loop=1 . 8.|
00000350  01 72 16 f3 20 6c 69 6e  65 24 2c 6c 65 6e 25 28  |.r.. line$,len%(|
00000360  6c 6f 6f 70 29 0d 01 7c  26 f1 8a 31 2c 33 2b 6c  |loop)..|&..1,3+l|
00000370  6f 6f 70 29 6c 69 6e 65  24 3b 8a 31 30 29 74 65  |oop)line$;.10)te|
00000380  78 74 24 28 6c 6f 6f 70  29 3a ed 0d 01 86 05 e1  |xt$(loop):......|
00000390  0d 01 90 67 dc 20 4e 61  6d 65 2e 2c 32 35 2c 41  |...g. Name.,25,A|
000003a0  64 64 72 65 73 73 20 31  2e 2c 32 30 2c 41 64 64  |ddress 1.,20,Add|
000003b0  72 65 73 73 20 32 2e 2c  32 30 2c 41 64 64 72 65  |ress 2.,20,Addre|
000003c0  73 73 20 33 2e 2c 32 30  2c 54 6f 77 6e 2e 2c 32  |ss 3.,20,Town.,2|
000003d0  30 2c 43 6f 75 6e 74 79  2e 2c 32 30 2c 50 6f 73  |0,County.,20,Pos|
000003e0  74 20 43 6f 64 65 2e 2c  31 30 2c 50 68 6f 6e 65  |t Code.,10,Phone|
000003f0  20 4e 6f 2e 2c 31 35 0d  01 9a 0b dd f2 63 6c 65  | No.,15......cle|
00000400  61 6e 0d 01 a4 1f e3 20  6c 6f 6f 70 3d 31 b8 38  |an..... loop=1.8|
00000410  3a 74 65 78 74 24 28 6c  6f 6f 70 29 3d 22 22 3a  |:text$(loop)="":|
00000420  ed 0d 01 ae 05 e1 0d 01  b8 0d dd f2 64 65 74 61  |............deta|
00000430  69 6c 73 0d 01 c2 10 e3  20 6c 6f 6f 70 3d 31 b8  |ils..... loop=1.|
00000440  38 3a f5 0d 01 cc 18 e8  8a 31 30 2c 6c 6f 6f 70  |8:.......10,loop|
00000450  2b 33 29 22 20 22 6c 69  6e 65 24 0d 01 d6 21 e7  |+3)" "line$...!.|
00000460  20 a9 28 6c 69 6e 65 24  29 3e 6c 65 6e 25 28 6c  | .(line$)>len%(l|
00000470  6f 6f 70 29 f2 74 6f 6f  6c 6f 6e 67 0d 01 e0 1a  |oop).toolong....|
00000480  fd 20 a9 28 6c 69 6e 65  24 29 3c 3d 6c 65 6e 25  |. .(line$)<=len%|
00000490  28 6c 6f 6f 70 29 0d 01  ea 43 e7 20 61 6c 74 65  |(loop)...C. alte|
000004a0  72 3d b9 20 80 20 6c 69  6e 65 24 3d 22 22 20 74  |r=. . line$="" t|
000004b0  65 78 74 24 28 6c 6f 6f  70 29 3d 74 65 78 74 24  |ext$(loop)=text$|
000004c0  28 6c 6f 6f 70 29 8b 20  74 65 78 74 24 28 6c 6f  |(loop). text$(lo|
000004d0  6f 70 29 3d 6c 69 6e 65  24 0d 01 f4 0e 6c 69 6e  |op)=line$....lin|
000004e0  65 24 3d 22 22 3a ed 0d  01 fe 05 e1 0d 02 08 0d  |e$="":..........|
000004f0  dd f2 74 6f 6f 6c 6f 6e  67 0d 02 12 21 f1 8a 31  |..toolong...!..1|
00000500  31 2c 6c 6f 6f 70 2b 33  29 89 28 a9 28 74 65 78  |1,loop+3).(.(tex|
00000510  74 24 28 6c 6f 6f 70 29  29 29 0d 02 1c 30 ef 37  |t$(loop)))...0.7|
00000520  3a f1 8a 31 31 2c 6c 6f  6f 70 2b 33 29 22 54 4f  |:..11,loop+3)"TO|
00000530  4f 20 4c 4f 4e 47 20 2d  20 50 4c 45 41 53 45 20  |O LONG - PLEASE |
00000540  52 45 2d 45 4e 54 45 52  22 3b 0d 02 26 15 e3 20  |RE-ENTER";..&.. |
00000550  77 61 69 74 3d 31 20 b8  20 35 30 30 30 3a ed 0d  |wait=1 . 5000:..|
00000560  02 30 15 f1 8a 31 31 2c  6c 6f 6f 70 2b 33 29 89  |.0...11,loop+3).|
00000570  28 32 37 29 0d 02 3a 05  e1 0d 02 44 13 dd f2 61  |(27)..:....D...a|
00000580  73 6b 28 6d 65 73 73 61  67 65 24 29 0d 02 4e 16  |sk(message$)..N.|
00000590  f1 3a f1 3a f1 3b 89 32  3b 6d 65 73 73 61 67 65  |.:.:.;.2;message|
000005a0  24 3b 0d 02 58 1e f5 3a  61 73 6b 24 3d be 3a fd  |$;..X..:ask$=.:.|
000005b0  20 a7 22 59 79 4e 6e 22  2c 61 73 6b 24 29 3e 30  | ."YyNn",ask$)>0|
000005c0  0d 02 62 05 e1 0d 02 6c  14 dd a4 75 70 70 65 72  |..b....l...upper|
000005d0  28 73 74 72 69 6e 67 24  29 0d 02 76 11 ea 20 63  |(string$)..v.. c|
000005e0  6f 75 6e 74 2c 74 65 6d  70 24 0d 02 80 0d 75 70  |ount,temp$....up|
000005f0  70 65 72 24 3d 22 22 0d  02 8a 19 e3 20 63 6f 75  |per$=""..... cou|
00000600  6e 74 3d 31 20 b8 20 a9  20 73 74 72 69 6e 67 24  |nt=1 . . string$|
00000610  0d 02 94 1b 74 65 6d 70  24 3d c1 73 74 72 69 6e  |....temp$=.strin|
00000620  67 24 2c 63 6f 75 6e 74  2c 31 29 0d 02 9e 34 e7  |g$,count,1)...4.|
00000630  20 97 20 74 65 6d 70 24  3e 3d 39 37 20 80 20 97  | . temp$>=97 . .|
00000640  20 74 65 6d 70 24 3c 3d  31 32 32 20 8c 74 65 6d  | temp$<=122 .tem|
00000650  70 24 3d bd 28 97 74 65  6d 70 24 2d 33 32 29 0d  |p$=.(.temp$-32).|
00000660  02 a8 17 75 70 70 65 72  24 3d 75 70 70 65 72 24  |...upper$=upper$|
00000670  2b 74 65 6d 70 24 0d 02  b2 05 ed 0d 02 bc 0b 3d  |+temp$.........=|
00000680  75 70 70 65 72 24 0d 02  c6 0f dd f2 61 64 64 74  |upper$......addt|
00000690  6f 66 69 6c 65 0d 02 d0  0f 43 48 3d ad 22 70 68  |ofile....CH=."ph|
000006a0  6f 6e 65 22 0d 02 da 0e  cf 23 43 48 3d 73 74 61  |one".....#CH=sta|
000006b0  72 74 0d 02 e4 10 e3 20  6c 6f 6f 70 3d 31 20 b8  |rt..... loop=1 .|
000006c0  20 38 0d 02 ee 25 f1 23  43 48 2c a4 70 61 64 28  | 8...%.#CH,.pad(|
000006d0  74 65 78 74 24 28 6c 6f  6f 70 29 2c 6c 65 6e 25  |text$(loop),len%|
000006e0  28 6c 6f 6f 70 29 29 0d  02 f8 0a ed 3a d9 23 43  |(loop)).....:.#C|
000006f0  48 0d 03 02 05 e1 0d 03  0c 18 dd a4 70 61 64 28  |H...........pad(|
00000700  77 6f 72 64 24 2c 6c 65  6e 67 74 68 25 29 0d 03  |word$,length%)..|
00000710  16 05 f5 0d 03 20 26 e7  20 a9 28 77 6f 72 64 24  |..... &. .(word$|
00000720  29 3c 6c 65 6e 67 74 68  25 20 77 6f 72 64 24 3d  |)<length% word$=|
00000730  77 6f 72 64 24 2b 22 20  22 0d 03 2a 16 fd 20 a9  |word$+" "..*.. .|
00000740  28 77 6f 72 64 24 29 3d  6c 65 6e 67 74 68 25 0d  |(word$)=length%.|
00000750  03 34 0a 3d 77 6f 72 64  24 0d 03 3e 0a dd f2 6c  |.4.=word$..>...l|
00000760  6f 6f 6b 0d 03 48 0f f5  3a 73 74 61 72 74 3d 30  |ook..H..:start=0|
00000770  3a db 0d 03 52 19 f1 8a  33 2c 35 29 22 45 6e 74  |:...R...3,5)"Ent|
00000780  65 72 20 4e 61 6d 65 20  3a 22 3b 0d 03 5c 19 20  |er Name :";..\. |
00000790  e8 22 22 73 65 61 72 63  68 24 3a f5 3a f2 73 65  |.""search$:.:.se|
000007a0  61 72 63 68 0d 03 66 7b  e7 20 6e 61 6d 65 24 3c  |arch..f{. name$<|
000007b0  3e c4 32 35 2c 22 3f 22  29 20 80 20 6e 61 6d 65  |>.25,"?") . name|
000007c0  24 3c 3e c4 32 35 2c 22  20 22 29 20 f1 8a 33 2c  |$<>.25," ") ..3,|
000007d0  37 29 6e 61 6d 65 24 3a  f2 61 73 6b 28 22 49 73  |7)name$:.ask("Is|
000007e0  20 74 68 69 73 20 74 68  65 20 72 65 71 75 69 72  | this the requir|
000007f0  65 64 20 72 65 63 6f 72  64 20 3f 20 28 59 2f 4e  |ed record ? (Y/N|
00000800  29 22 29 3a e7 20 a4 75  70 70 65 72 28 61 73 6b  |)"):. .upper(ask|
00000810  24 29 3d 22 59 22 20 f2  64 69 73 70 6c 61 79 0d  |$)="Y" .display.|
00000820  03 70 73 e7 20 6e 61 6d  65 24 3d c4 32 35 2c 22  |.ps. name$=.25,"|
00000830  3f 22 29 20 84 20 6e 61  6d 65 24 3d c4 32 35 2c  |?") . name$=.25,|
00000840  22 20 22 29 20 84 20 6e  61 6d 65 24 3d 22 22 20  |" ") . name$="" |
00000850  f1 8a 33 2c 37 29 89 33  30 3a f1 8a 30 2c 31 30  |..3,7).30:..0,10|
00000860  29 89 32 3b 22 4e 6f 20  72 65 63 6f 72 64 20 77  |).2;"No record w|
00000870  69 74 68 20 74 68 69 73  20 73 70 65 6c 6c 69 6e  |ith this spellin|
00000880  67 20 66 6f 75 6e 64 2e  22 3a 61 73 6b 24 3d 22  |g found.":ask$="|
00000890  59 22 0d 03 7a 16 fd 20  a4 75 70 70 65 72 28 61  |Y"..z.. .upper(a|
000008a0  73 6b 24 29 3d 22 59 22  0d 03 84 1c f2 61 73 6b  |sk$)="Y".....ask|
000008b0  28 22 41 6e 79 20 6d 6f  72 65 20 3f 20 28 59 2f  |("Any more ? (Y/|
000008c0  4e 29 22 29 0d 03 8e 16  fd 20 a4 75 70 70 65 72  |N)")..... .upper|
000008d0  28 61 73 6b 24 29 3d 22  4e 22 0d 03 98 05 e1 0d  |(ask$)="N"......|
000008e0  03 a2 0c dd f2 73 65 61  72 63 68 0d 03 ac 0f 43  |.....search....C|
000008f0  48 3d 8e 22 70 68 6f 6e  65 22 0d 03 b6 0e cf 23  |H=."phone".....#|
00000900  43 48 3d 73 74 61 72 74  0d 03 c0 05 f5 0d 03 ca  |CH=start........|
00000910  0e e8 23 43 48 2c 6e 61  6d 65 24 0d 03 d4 11 cf  |..#CH,name$.....|
00000920  23 43 48 3d 8f 23 43 48  2b 31 33 39 0d 03 de 49  |#CH=.#CH+139...I|
00000930  fd 20 6e 61 6d 65 24 3d  c4 32 35 2c 22 20 22 29  |. name$=.25," ")|
00000940  20 84 20 a7 a4 75 70 70  65 72 28 6e 61 6d 65 24  | . ..upper(name$|
00000950  29 2c a4 75 70 70 65 72  28 73 65 61 72 63 68 24  |),.upper(search$|
00000960  29 29 3e 30 20 84 20 8f  23 43 48 2b 31 36 36 3e  |))>0 . .#CH+166>|
00000970  3d a2 23 43 48 0d 03 e8  13 73 74 61 72 74 3d 8f  |=.#CH....start=.|
00000980  23 43 48 3a d9 23 43 48  0d 03 f2 05 e1 0d 03 fc  |#CH:.#CH........|
00000990  0b dd f2 65 6d 70 74 79  0d 04 06 10 43 48 3d 8e  |...empty....CH=.|
000009a0  22 70 68 6f 6e 65 22 3a  0d 04 10 17 cf 23 43 48  |"phone":.....#CH|
000009b0  3d 30 3a f5 3a e8 23 43  48 2c 6e 61 6d 65 24 0d  |=0:.:.#CH,name$.|
000009c0  04 1a 11 cf 23 43 48 3d  8f 23 43 48 2b 31 33 39  |....#CH=.#CH+139|
000009d0  0d 04 24 36 fd 20 6e 61  6d 65 24 3d c4 32 35 2c  |..$6. name$=.25,|
000009e0  22 20 22 29 20 84 20 6e  61 6d 65 24 3d c4 32 35  |" ") . name$=.25|
000009f0  2c 22 3f 22 29 20 84 20  8f 23 43 48 2b 31 33 39  |,"?") . .#CH+139|
00000a00  3e 3d a2 23 43 48 0d 04  2e 1d e7 20 8f 23 43 48  |>=.#CH..... .#CH|
00000a10  2b 31 33 39 3e 3d a2 23  43 48 20 6e 6f 72 6f 6f  |+139>=.#CH noroo|
00000a20  6d 3d b9 0d 04 38 1c cf  23 43 48 3d 8f 23 43 48  |m=...8..#CH=.#CH|
00000a30  2d 31 36 36 3a 73 74 61  72 74 3d 8f 23 43 48 0d  |-166:start=.#CH.|
00000a40  04 42 08 d9 23 43 48 0d  04 4c 05 e1 0d 04 56 0d  |.B..#CH..L....V.|
00000a50  dd f2 64 69 73 70 6c 61  79 0d 04 60 0c f2 63 6c  |..display..`..cl|
00000a60  65 61 6e 3a db 0d 04 6a  0c f1 8a 33 2c 35 29 22  |ean:...j...3,5)"|
00000a70  22 0d 04 74 0f 43 48 3d  8e 22 70 68 6f 6e 65 22  |"..t.CH=."phone"|
00000a80  0d 04 7e 12 cf 23 43 48  3d 73 74 61 72 74 2d 31  |..~..#CH=start-1|
00000a90  36 36 0d 04 88 10 e3 20  6c 6f 6f 70 3d 31 20 b8  |66..... loop=1 .|
00000aa0  20 37 0d 04 92 0e e8 23  43 48 2c 6c 69 6e 65 24  | 7.....#CH,line$|
00000ab0  0d 04 9c 2f e7 20 6c 69  6e 65 24 3c 3e c4 a9 28  |.../. line$<>..(|
00000ac0  6c 69 6e 65 24 29 2c 22  20 22 29 80 20 61 6c 74  |line$)," "). alt|
00000ad0  65 72 3d a3 20 f1 8a 34  29 3b 6c 69 6e 65 24 0d  |er=. ..4);line$.|
00000ae0  04 a6 2c e7 20 6c 69 6e  65 24 3c 3e c4 a9 28 6c  |..,. line$<>..(l|
00000af0  69 6e 65 24 29 2c 22 20  22 29 74 65 78 74 24 28  |ine$)," ")text$(|
00000b00  6c 6f 6f 70 29 3d 6c 69  6e 65 24 0d 04 b0 12 ed  |loop)=line$.....|
00000b10  3a f1 3a e8 23 43 48 2c  6c 69 6e 65 24 0d 04 ba  |:.:.#CH,line$...|
00000b20  2f e7 20 6c 69 6e 65 24  3c 3e c4 a9 28 6c 69 6e  |/. line$<>..(lin|
00000b30  65 24 29 2c 22 20 22 29  80 20 61 6c 74 65 72 3d  |e$)," "). alter=|
00000b40  a3 20 f1 8a 34 29 3b 6c  69 6e 65 24 0d 04 c4 29  |. ..4);line$...)|
00000b50  e7 20 6c 69 6e 65 24 3c  3e c4 a9 28 6c 69 6e 65  |. line$<>..(line|
00000b60  24 29 2c 22 20 22 29 74  65 78 74 24 28 38 29 3d  |$)," ")text$(8)=|
00000b70  6c 69 6e 65 24 0d 04 ce  08 d9 23 43 48 0d 04 d8  |line$.....#CH...|
00000b80  24 e7 20 61 6c 74 65 72  3d b9 20 73 74 61 72 74  |$. alter=. start|
00000b90  3d 73 74 61 72 74 2d 31  36 36 3a f2 61 6c 74 65  |=start-166:.alte|
00000ba0  72 0d 04 e2 2c e7 20 64  65 6c 65 74 65 3d b9 20  |r...,. delete=. |
00000bb0  73 74 61 72 74 3d 73 74  61 72 74 2d 31 36 36 3a  |start=start-166:|
00000bc0  f2 64 65 6c 65 74 65 72  65 63 6f 72 64 0d 04 ec  |.deleterecord...|
00000bd0  05 e1 0d 04 f6 0b dd f2  61 6c 74 65 72 0d 05 00  |........alter...|
00000be0  14 f2 73 63 72 65 65 6e  3a f2 64 65 74 61 69 6c  |..screen:.detail|
00000bf0  73 0d 05 0a 2b f2 61 73  6b 28 22 41 64 64 20 74  |s...+.ask("Add t|
00000c00  68 69 73 20 72 65 63 6f  72 64 20 74 6f 20 66 69  |his record to fi|
00000c10  6c 65 20 3f 20 28 59 2f  4e 29 22 29 0d 05 14 20  |le ? (Y/N)")... |
00000c20  e7 20 a4 75 70 70 65 72  28 61 73 6b 24 29 3d 22  |. .upper(ask$)="|
00000c30  59 22 f2 61 64 64 74 6f  66 69 6c 65 0d 05 1e 05  |Y".addtofile....|
00000c40  e1 0d 05 28 12 dd f2 64  65 6c 65 74 65 72 65 63  |...(...deleterec|
00000c50  6f 72 64 0d 05 32 26 f2  61 73 6b 28 22 44 65 6c  |ord..2&.ask("Del|
00000c60  65 74 65 20 74 68 69 73  20 72 65 63 6f 72 64 20  |ete this record |
00000c70  3f 20 28 59 2f 4e 29 22  29 0d 05 3c 18 e7 20 a4  |? (Y/N)")..<.. .|
00000c80  75 70 70 65 72 28 61 73  6b 24 29 3d 22 4e 22 20  |upper(ask$)="N" |
00000c90  e1 0d 05 46 1a 43 48 3d  ad 22 70 68 6f 6e 65 22  |...F.CH=."phone"|
00000ca0  3a cf 23 43 48 3d 73 74  61 72 74 0d 05 50 16 f1  |:.#CH=start..P..|
00000cb0  23 43 48 2c c4 32 35 2c  22 3f 22 29 3a d9 23 43  |#CH,.25,"?"):.#C|
00000cc0  48 0d 05 5a 05 e1 0d ff                           |H..Z....|
00000cc8