00000000  0d 00 0a 0b d2 3d 26 32  32 37 45 0d 00 14 0b ee  |.....=&227E.....|
00000010  85 e5 8d 54 4a 40 0d 00  1e 0c 2a 46 58 32 30 30  |...TJ@....*FX200|
00000020  2c 32 0d 00 28 0c eb 36  3a f2 56 42 4c 45 0d 00  |,2..(..6:.VBLE..|
00000030  32 0b ee 85 e5 8d 74 5c  44 0d 00 3c 1e f5 20 f2  |2.....t\D..<.. .|
00000040  54 49 54 4c 45 3a f7 8d  64 70 45 3a fd a4 4d 45  |TITLE:..dpE:..ME|
00000050  4e 55 28 37 2c 36 29 0d  00 46 05 e0 0d 00 50 09  |NU(7,6)..F....P.|
00000060  dd a4 4e 45 57 0d 00 5a  23 e7 a4 46 4f 55 4e 44  |..NEW..Z#..FOUND|
00000070  28 26 39 36 2c 22 4e 45  57 20 45 4e 54 52 59 22  |(&96,"NEW ENTRY"|
00000080  2c 31 29 8c 8d 44 5a 40  0d 00 64 0d e7 4e 24 3d  |,1)..DZ@..d..N$=|
00000090  22 22 8c 3d a3 0d 00 6e  30 f2 45 44 49 54 3a e7  |"".=...n0.EDIT:.|
000000a0  a4 50 55 54 28 30 2c a4  4c 45 4e 29 8c f2 50 47  |.PUT(0,.LEN)..PG|
000000b0  28 22 4e 61 6d 65 20 22  2b 4e 24 2b 22 20 61 64  |("Name "+N$+" ad|
000000c0  64 65 64 22 29 0d 00 78  09 e5 8d 44 5a 40 0d 00  |ded")..x...DZ@..|
000000d0  82 09 dd a4 41 4d 44 0d  00 8c 55 e7 a4 46 4f 55  |....AMD...U..FOU|
000000e0  4e 44 28 26 39 36 2c 22  41 4d 45 4e 44 20 45 4e  |ND(&96,"AMEND EN|
000000f0  54 52 59 22 2c 32 29 8c  f2 45 44 49 54 3a e7 a4  |TRY",2)..EDIT:..|
00000100  50 55 54 28 3f 4f 25 2c  a4 4c 45 4e 29 8c f2 50  |PUT(?O%,.LEN)..P|
00000110  47 28 22 4e 61 6d 65 20  22 2b 41 31 24 28 30 29  |G("Name "+A1$(0)|
00000120  2b 22 20 61 6d 65 6e 64  65 64 22 29 0d 00 96 0d  |+" amended")....|
00000130  e7 4e 24 3d 22 22 8c 3d  a3 0d 00 a0 09 e5 8d 74  |.N$="".=.......t|
00000140  4c 40 0d 00 aa 09 dd a4  44 45 4c 0d 00 b4 26 e7  |L@......DEL...&.|
00000150  a4 46 4f 55 4e 44 28 26  39 36 2c 22 44 45 4c 45  |.FOUND(&96,"DELE|
00000160  54 45 20 45 4e 54 52 59  22 2c 32 29 8c 8d 64 48  |TE ENTRY",2)..dH|
00000170  40 0d 00 be 13 e7 4e 24  3c 3e 22 22 8c 8d 74 74  |@.....N$<>""..tt|
00000180  40 8b 3d a3 0d 00 c8 79  f1 8a 31 2c 32 34 29 22  |@.=....y..1,24)"|
00000190  4f 4b 20 54 4f 20 44 45  4c 45 54 45 20 28 59 2f  |OK TO DELETE (Y/|
000001a0  4e 29 20 3f 20 22 3b 3a  f5 41 24 3d be 3a 41 24  |N) ? ";:.A$=.:A$|
000001b0  3d bd 28 97 41 24 80 26  44 46 29 3a fd a7 22 59  |=.(.A$.&DF):.."Y|
000001c0  4e 22 2c 41 24 29 3a f1  41 24 3b 3a e7 41 24 3d  |N",A$):.A$;:.A$=|
000001d0  22 59 22 8c f2 42 57 44  28 a4 4c 45 4e 29 3a f2  |"Y"..BWD(.LEN):.|
000001e0  50 47 28 22 4e 61 6d 65  20 22 2b 41 31 24 28 30  |PG("Name "+A1$(0|
000001f0  29 2b 22 20 64 65 6c 65  74 65 64 22 29 0d 00 d2  |)+" deleted")...|
00000200  09 e5 8d 74 74 40 0d 00  dc 0a dd a4 46 49 4e 44  |...tt@......FIND|
00000210  0d 00 e6 48 e7 a4 46 4f  55 4e 44 28 26 39 36 2c  |...H..FOUND(&96,|
00000220  22 46 49 4e 44 20 45 4e  54 52 59 22 2c 32 29 8c  |"FIND ENTRY",2).|
00000230  f2 50 47 28 22 50 72 65  73 73 20 53 50 41 43 45  |.PG("Press SPACE|
00000240  20 42 41 52 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | BAR to continue|
00000250  22 29 3a e5 8d 64 66 40  0d 00 f0 13 e7 4e 24 3c  |"):..df@.....N$<|
00000260  3e 22 22 8c 8d 64 66 40  8b 3d a3 0d 00 fa 18 dd  |>""..df@.=......|
00000270  a4 46 4f 55 4e 44 28 4b  25 2c 41 24 2c 6d 6f 64  |.FOUND(K%,A$,mod|
00000280  65 25 29 0d 01 04 16 ef  31 39 2c 31 2c 4b 25 2d  |e%).....19,1,K%-|
00000290  31 32 38 2c 30 2c 30 2c  30 0d 01 0e 0f db 3a f1  |128,0,0,0.....:.|
000002a0  8a 31 34 2c 32 29 41 24  0d 01 18 33 f2 43 4c 45  |.14,2)A$...3.CLE|
000002b0  41 52 3a f2 46 4d 54 3a  f7 8d 64 66 45 3a 4e 24  |AR:.FMT:..dfE:N$|
000002c0  3d a4 47 45 54 46 3a e7  a7 c4 32 31 2c 22 20 22  |=.GETF:...21," "|
000002d0  29 2c 4e 24 29 8c 4e 24  3d 22 22 0d 01 22 17 41  |),N$).N$=""..".A|
000002e0  31 24 28 30 29 3d 4e 24  3a e7 4e 24 3d 22 22 8c  |1$(0)=N$:.N$="".|
000002f0  3d a3 0d 01 2c 29 66 6f  75 6e 64 25 3d a4 4b 45  |=...,)found%=.KE|
00000300  59 28 6d 6f 64 65 25 2d  31 29 3a ee 6d 6f 64 65  |Y(mode%-1):.mode|
00000310  25 e5 8d 54 76 41 2c 8d  44 4a 41 0d 01 36 28 e7  |%..TvA,.DJA..6(.|
00000320  66 6f 75 6e 64 25 8c f2  50 47 28 22 4e 61 6d 65  |found%..PG("Name|
00000330  20 22 2b 4e 24 2b 22 20  64 75 70 6c 69 63 61 74  | "+N$+" duplicat|
00000340  65 22 29 0d 01 40 0b 3d  66 6f 75 6e 64 25 0d 01  |e")..@.=found%..|
00000350  4a 2d e7 66 6f 75 6e 64  25 8c f2 50 54 20 8b f2  |J-.found%..PT ..|
00000360  50 47 28 22 4e 61 6d 65  20 22 2b 4e 24 2b 22 20  |PG("Name "+N$+" |
00000370  6e 6f 74 20 66 6f 75 6e  64 22 29 0d 01 54 0b 3d  |not found")..T.=|
00000380  66 6f 75 6e 64 25 0d 01  5e 0a dd f2 45 44 49 54  |found%..^...EDIT|
00000390  0d 01 68 34 f7 8d 64 66  45 3a f2 52 45 41 44 46  |..h4..dfE:.READF|
000003a0  3a e3 49 25 3d 31 b8 38  3a 41 24 3d a4 47 45 54  |:.I%=1.8:A$=.GET|
000003b0  46 3a e7 41 24 3c 3e 22  22 8c 41 31 24 28 49 25  |F:.A$<>"".A1$(I%|
000003c0  29 3d 41 24 0d 01 72 07  ed 3a e1 0d 01 7c 2c dd  |)=A$..r..:...|,.|
000003d0  a4 50 55 54 28 4f 4c 25  2c 4c 25 29 3a e7 4c 25  |.PUT(OL%,L%):.L%|
000003e0  3c 4f 4c 25 8c f2 42 57  44 28 4f 4c 25 2d 4c 25  |<OL%..BWD(OL%-L%|
000003f0  29 3a e5 8d 74 64 41 0d  01 86 1f e7 4c 25 3e 4f  |):..tdA.....L%>O|
00000400  4c 25 8c e7 20 a4 46 57  44 28 4c 25 2d 4f 4c 25  |L%.. .FWD(L%-OL%|
00000410  29 8c 8d 74 64 41 0d 01  90 10 e7 4c 25 3d 4f 4c  |)..tdA.....L%=OL|
00000420  25 8c 8d 74 64 41 0d 01  9a 06 3d a3 0d 01 a4 38  |%..tdA....=....8|
00000430  3f 4f 25 3d 4c 25 3a 54  25 3d 4f 25 2b 31 3a e3  |?O%=L%:T%=O%+1:.|
00000440  49 25 3d 30 b8 38 3a 24  54 25 3d 41 31 24 28 49  |I%=0.8:$T%=A1$(I|
00000450  25 29 3a 54 25 3d 54 25  2b a9 24 54 25 2b 31 3a  |%):T%=T%+.$T%+1:|
00000460  ed 3a 3d b9 0d 01 ae 09  dd a4 4d 4e 54 0d 01 b8  |.:=.......MNT...|
00000470  3a f5 f2 54 49 54 4c 45  3a f7 8d 54 44 46 3a f1  |:..TITLE:..TDF:.|
00000480  8a 31 31 2c 35 29 22 46  69 6c 65 20 4d 61 69 6e  |.11,5)"File Main|
00000490  74 65 6e 61 6e 63 65 22  3a fd a4 4d 45 4e 55 28  |tenance":..MENU(|
000004a0  38 2c 38 29 3a 3d a3 0d  01 c2 3c dd a4 52 45 53  |8,8):=....<..RES|
000004b0  54 41 52 54 20 e7 21 4c  41 53 54 3d 26 30 44 46  |TART .!LAST=&0DF|
000004c0  46 46 46 30 34 8c 3d b9  20 8b f2 50 47 28 22 4e  |FFF04.=. ..PG("N|
000004d0  6f 20 66 69 6c 65 20 70  72 65 73 65 6e 74 22 29  |o file present")|
000004e0  3a 3d a3 0d 01 cc 0a dd  a4 49 4e 49 54 0d 01 d6  |:=.......INIT...|
000004f0  4c 4c 41 53 54 3d 4b 4b  3a 21 4c 41 53 54 3d 26  |LLAST=KK:!LAST=&|
00000500  30 44 46 46 46 46 30 34  3a 21 44 42 41 53 45 3d  |0DFFFF04:!DBASE=|
00000510  4c 41 53 54 2d 44 42 41  53 45 3a f2 50 47 28 22  |LAST-DBASE:.PG("|
00000520  4e 65 77 20 66 69 6c 65  20 49 6e 69 74 69 61 6c  |New file Initial|
00000530  69 73 65 64 22 29 3a 3d  b9 0d 01 e0 0d dd a4 53  |ised"):=.......S|
00000540  41 56 45 20 f1 27 0d 01  ea 15 21 44 42 41 53 45  |AVE .'....!DBASE|
00000550  3d 4c 41 53 54 2d 44 42  41 53 45 0d 01 f4 30 f2  |=LAST-DBASE...0.|
00000560  4f 53 43 4c 49 28 22 53  41 56 45 20 41 42 4f 4f  |OSCLI("SAVE ABOO|
00000570  4b 20 22 2b c3 7e 44 42  41 53 45 2b 22 20 22 2b  |K "+.~DBASE+" "+|
00000580  c3 7e 28 4c 41 53 54 2b  35 29 29 0d 01 fe 20 f2  |.~(LAST+5))... .|
00000590  50 47 28 22 43 75 72 72  65 6e 74 20 66 69 6c 65  |PG("Current file|
000005a0  20 53 41 56 45 64 22 29  3a 3d b9 0d 02 08 0d dd  | SAVEd"):=......|
000005b0  a4 4c 4f 41 44 20 f1 27  0d 02 12 4d f2 4f 53 43  |.LOAD .'...M.OSC|
000005c0  4c 49 28 22 4c 4f 41 44  20 41 42 4f 4f 4b 20 22  |LI("LOAD ABOOK "|
000005d0  2b c3 7e 44 42 41 53 45  29 3a 4c 41 53 54 3d 44  |+.~DBASE):LAST=D|
000005e0  42 41 53 45 2b 21 44 42  41 53 45 3a f2 50 47 28  |BASE+!DBASE:.PG(|
000005f0  22 4f 6c 64 20 66 69 6c  65 20 4c 4f 41 44 65 64  |"Old file LOADed|
00000600  22 29 3a 3d b9 0d 02 1c  0f dd f2 4f 53 43 4c 49  |"):=.......OSCLI|
00000610  28 41 24 29 0d 02 26 2d  24 42 4c 4b 25 3d 41 24  |(A$)..&-$BLK%=A$|
00000620  3a 58 25 3d 42 4c 4b 25  80 26 46 46 3a 59 25 3d  |:X%=BLK%.&FF:Y%=|
00000630  42 4c 4b 25 81 32 35 36  3a d6 26 46 46 46 37 3a  |BLK%.256:.&FFF7:|
00000640  e1 0d 02 30 7f dd a4 50  52 54 3a ef 31 39 2c 31  |...0...PRT:.19,1|
00000650  2c 33 2c 30 2c 30 2c 30  3a f2 54 49 54 4c 45 3a  |,3,0,0,0:.TITLE:|
00000660  f1 8a 32 2c 39 29 22 4e  61 6d 65 20 74 6f 20 73  |..2,9)"Name to s|
00000670  74 61 72 74 20 66 72 6f  6d 20 3a 20 22 27 22 20  |tart from : "'" |
00000680  20 20 20 20 45 6e 74 65  72 20 6e 61 6d 65 20 3a  |    Enter name :|
00000690  20 22 3b 3a 4c 25 3d 32  31 3a 4e 24 3d a4 47 45  | ";:L%=21:N$=.GE|
000006a0  54 3a 4b 59 24 3d 22 22  3a 45 25 3d a4 4b 45 59  |T:KY$="":E%=.KEY|
000006b0  28 30 29 3a 4e 25 3d 30  3a 2a 46 58 31 35 2c 31  |(0):N%=0:*FX15,1|
000006c0  0d 02 3a 12 f2 50 50 52  54 3a f2 54 49 54 4c 45  |..:..PPRT:.TITLE|
000006d0  3a f1 0d 02 44 3a e7 4f  25 3c 4c 41 53 54 20 8c  |:...D:.O%<LAST .|
000006e0  20 f2 50 45 4e 54 3a 4f  25 3d 4f 25 2b 3f 4f 25  | .PENT:O%=O%+?O%|
000006f0  3a e5 8d 44 44 42 8b f2  50 47 28 22 45 6e 64 20  |:..DDB..PG("End |
00000700  6f 66 20 64 61 74 61 22  29 3a 3d a3 0d 02 4e 1e  |of data"):=...N.|
00000710  dd a4 52 45 54 3a ef 31  39 2c 31 2c 33 2c 30 2c  |..RET:.19,1,3,0,|
00000720  30 2c 30 3a f2 54 49 54  4c 45 0d 02 58 52 f1 8a  |0,0:.TITLE..XR..|
00000730  32 2c 38 29 22 53 70 65  63 69 66 79 20 72 65 74  |2,8)"Specify ret|
00000740  72 69 65 76 61 6c 20 6b  65 79 20 22 8a 32 2c 31  |rieval key ".2,1|
00000750  30 29 22 69 6e 20 45 58  54 52 41 20 49 4e 46 4f  |0)"in EXTRA INFO|
00000760  20 3a 20 22 3b 3a 4c 25  3d 32 31 3a 4b 59 24 3d  | : ";:L%=21:KY$=|
00000770  a4 47 45 54 3a 2a 46 58  31 35 2c 31 0d 02 62 16  |.GET:*FX15,1..b.|
00000780  e7 4b 59 24 3d 22 22 84  a9 4b 59 24 3e 32 31 8c  |.KY$=""..KY$>21.|
00000790  3d a3 0d 02 6c 2f f2 50  50 52 54 3a f2 54 49 54  |=...l/.PPRT:.TIT|
000007a0  4c 45 3a f2 50 28 22 42  75 73 79 20 73 65 61 72  |LE:.P("Busy sear|
000007b0  63 68 69 6e 67 20 66 69  6c 65 22 29 3a f2 48 44  |ching file"):.HD|
000007c0  47 0d 02 76 0e 4f 25 3d  4b 4b 3a 4e 25 3d 30 0d  |G..v.O%=KK:N%=0.|
000007d0  02 80 64 54 25 3d 4f 25  2b 31 3a e3 4a 25 3d 30  |..dT%=O%+1:.J%=0|
000007e0  b8 38 3a 41 31 24 28 4a  25 29 3d 24 54 25 3a 54  |.8:A1$(J%)=$T%:T|
000007f0  25 3d 54 25 2b a9 24 54  25 2b 31 3a ed 3a e3 49  |%=T%+.$T%+1:.:.I|
00000800  25 3d 37 b8 38 3a e7 a9  41 31 24 28 49 25 29 3e  |%=7.8:..A1$(I%)>|
00000810  3d a9 4b 59 24 e7 a7 41  31 24 28 49 25 29 2c 4b  |=.KY$..A1$(I%),K|
00000820  59 24 29 8c 49 25 3d 39  3a ed 3a f2 50 45 4e 54  |Y$).I%=9:.:.PENT|
00000830  20 8b ed 0d 02 8a 23 e7  4f 25 3d 4c 41 53 54 20  | .....#.O%=LAST |
00000840  8c f2 50 47 28 22 45 6e  64 20 6f 66 20 64 61 74  |..PG("End of dat|
00000850  61 22 29 3a 3d a3 0d 02  94 13 4f 25 3d 4f 25 2b  |a"):=.....O%=O%+|
00000860  3f 4f 25 3a e5 8d 74 40  42 0d 02 9e 0a dd f2 50  |?O%:..t@B......P|
00000870  50 52 54 0d 02 a8 58 f1  8a 32 2c 31 32 29 22 46  |PRT...X..2,12)"F|
00000880  69 65 6c 64 73 20 74 6f  20 62 65 20 6f 75 74 70  |ields to be outp|
00000890  75 74 22 27 8a 39 2c 31  33 29 22 28 4e 2f 41 2f  |ut"'.9,13)"(N/A/|
000008a0  50 2f 54 2f 45 29 20 3a  20 22 3b 3a 4c 25 3d 39  |P/T/E) : ";:L%=9|
000008b0  3a 46 49 24 3d a4 47 45  54 3a e7 46 49 24 3d 22  |:FI$=.GET:.FI$="|
000008c0  22 8c 46 49 24 3d 22 4e  41 50 22 0d 02 b2 11 e7  |".FI$="NAP".....|
000008d0  a4 43 43 4b 3d a3 20 8c  8d 74 68 42 0d 02 bc 44  |.CCK=. ..thB...D|
000008e0  f5 f1 8a 32 2c 31 35 29  22 4f 75 74 70 75 74 20  |...2,15)"Output |
000008f0  20 74 6f 20 20 70 72 69  6e 74 65 72 22 8a 31 35  | to  printer".15|
00000900  2c 31 36 29 3b 3a e8 22  28 59 2f 4e 29 20 3a 20  |,16);:."(Y/N) : |
00000910  22 50 24 3a fd a7 22 4e  6e 59 79 22 2c 50 24 29  |"P$:.."NnYy",P$)|
00000920  0d 02 c6 69 4c 4c 25 3d  30 3a e7 50 24 3d 22 59  |...iLL%=0:.P$="Y|
00000930  22 84 50 24 3d 22 79 22  8c f1 8a 30 2c 31 38 29  |".P$="y"...0,18)|
00000940  22 4e 75 6d 62 65 72 20  6f 66 20 6c 69 6e 65 73  |"Number of lines|
00000950  20 74 6f 20 62 65 22 27  22 20 6c 65 66 74 20 62  | to be"'" left b|
00000960  65 74 77 65 65 6e 20 6c  61 62 65 6c 73 22 3b 3a  |etween labels";:|
00000970  e8 22 20 3a 20 22 4c 4c  25 3a e7 4c 4c 25 3c 30  |." : "LL%:.LL%<0|
00000980  8c ef 37 3a e5 8d 64 46  42 0d 02 d0 05 e1 0d 02  |..7:..dFB.......|
00000990  da 34 dd a4 43 43 4b 3a  f7 8d 64 66 45 3a 4e 25  |.4..CCK:..dfE:N%|
000009a0  3d 30 3a e3 49 25 3d 30  b8 38 3a f2 52 45 41 44  |=0:.I%=0.8:.READ|
000009b0  46 3a e7 46 24 3c 3e 22  22 47 24 3d c0 46 24 2c  |F:.F$<>""G$=.F$,|
000009c0  31 29 0d 02 e4 22 e7 a7  46 49 24 2c 47 24 29 84  |1)..."..FI$,G$).|
000009d0  a7 46 49 24 2c bd 28 97  47 24 84 26 32 30 29 29  |.FI$,.(.G$.&20))|
000009e0  4e 25 3d 31 0d 02 ee 0d  ed 3a e7 4e 25 3e 30 3d  |N%=1.....:.N%>0=|
000009f0  b9 0d 02 f8 06 3d a3 0d  03 02 2c dd a4 4d 45 4e  |.....=....,..MEN|
00000a00  55 28 58 25 2c 59 25 29  3a ef 31 39 2c 31 2c 37  |U(X%,Y%):.19,1,7|
00000a10  2c 30 2c 30 2c 30 3a 4d  24 3d 22 22 3a 2a 46 58  |,0,0,0:M$="":*FX|
00000a20  34 2c 31 0d 03 0c 0e f1  8a 30 2c 59 25 2d 31 29  |4,1......0,Y%-1)|
00000a30  3b 0d 03 16 33 f5 f3 46  24 3a 51 24 3d c0 46 24  |;...3..F$:Q$=.F$|
00000a40  2c 31 29 3a 4d 24 3d 4d  24 2b 51 24 3a f1 27 8a  |,1):M$=M$+Q$:.'.|
00000a50  58 25 29 51 24 8a 58 25  2b 35 29 46 24 3a fd 46  |X%)Q$.X%+5)F$:.F|
00000a60  24 3d 22 22 0d 03 20 1c  f1 8a 58 25 2b 35 29 22  |$="".. ...X%+5)"|
00000a70  59 6f 75 72 20 73 65 6c  65 63 74 69 6f 6e 22 3b  |Your selection";|
00000a80  0d 03 2a 1a f2 4f 4e 3a  49 24 3d 22 20 22 3a 56  |..*..ON:I$=" ":V|
00000a90  50 25 3d bc 3a 48 4c 25  3d 30 0d 03 34 17 f2 48  |P%=.:HL%=0..4..H|
00000aa0  4c 54 3a f1 8a 58 25 2c  56 50 25 29 49 24 bd 38  |LT:..X%,VP%)I$.8|
00000ab0  3b 0d 03 3e 4b 49 49 24  3d be 3a 49 49 24 3d bd  |;..>KII$=.:II$=.|
00000ac0  28 97 49 49 24 80 26 44  46 29 3a 49 25 3d a7 4d  |(.II$.&DF):I%=.M|
00000ad0  24 2c 49 24 29 3a e7 97  49 49 24 3d 31 33 80 49  |$,I$):..II$=13.I|
00000ae0  25 8c e3 4a 25 3d 31 b8  49 25 3a f3 41 24 3a ed  |%..J%=1.I%:.A$:.|
00000af0  3a 3d a0 28 22 46 4e 22  2b 41 24 29 0d 03 48 1b  |:=.("FN"+A$)..H.|
00000b00  e7 97 49 49 24 3e 33 31  80 97 49 49 24 3c 31 32  |..II$>31..II$<12|
00000b10  37 49 24 3d 49 49 24 0d  03 52 09 e5 8d 54 74 43  |7I$=II$..R...TtC|
00000b20  0d 03 5c 1c dd f2 48 4c  54 20 e7 48 4c 25 3c 3e  |..\...HLT .HL%<>|
00000b30  30 f2 69 6e 76 28 b9 2c  48 4c 25 29 0d 03 66 31  |0.inv(.,HL%)..f1|
00000b40  48 4c 25 3d 59 25 2d 32  2b 32 2a a7 4d 24 2c 49  |HL%=Y%-2+2*.M$,I|
00000b50  24 29 3a e7 48 4c 25 3e  3d 59 25 8c f2 69 6e 76  |$):.HL%>=Y%..inv|
00000b60  28 a3 2c 48 4c 25 29 8b  48 4c 25 3d 30 0d 03 70  |(.,HL%).HL%=0..p|
00000b70  05 e1 0d 03 7a 2e dd f2  54 49 54 4c 45 3a db 3a  |....z...TITLE:.:|
00000b80  f1 8a 38 2c 32 29 22 2a  2a 2a 2a 20 41 44 44 52  |..8,2)"**** ADDR|
00000b90  45 53 53 20 42 4f 4f 4b  20 2a 2a 2a 2a 22 3a e1  |ESS BOOK ****":.|
00000ba0  0d 03 84 28 dd f2 46 4d  54 3a fb 31 3a f1 8a 30  |...(..FMT:.1:..0|
00000bb0  2c 33 29 3b 3a e3 49 3d  33 b8 32 33 3a f1 c4 34  |,3);:.I=3.23:..4|
00000bc0  30 2c 42 24 29 3b 3a ed  0d 03 8e 30 f7 8d 64 66  |0,B$);:....0..df|
00000bd0  45 3a e3 49 3d 30 b8 38  3a f2 52 45 41 44 46 3a  |E:.I=0.8:.READF:|
00000be0  f1 8a 33 2c 59 25 29 46  24 8a 31 36 2c 59 25 29  |..3,Y%)F$.16,Y%)|
00000bf0  89 28 4c 25 29 3b 3a ed  0d 03 98 09 f2 4f 4e 3a  |.(L%);:......ON:|
00000c00  e1 0d 03 a2 63 dd f2 56  42 4c 45 3a 53 25 3d 93  |....c..VBLE:S%=.|
00000c10  2d 92 2d 31 36 30 30 3a  de 41 31 24 28 38 29 2c  |-.-1600:.A1$(8),|
00000c20  44 42 41 53 45 20 53 25  2c 42 4c 4b 25 33 31 3a  |DBASE S%,BLK%31:|
00000c30  48 49 47 48 3d 44 42 41  53 45 2b 53 25 2b 31 3a  |HIGH=DBASE+S%+1:|
00000c40  4b 4b 3d 44 42 41 53 45  2b 34 3a 42 24 3d bd 26  |KK=DBASE+4:B$=.&|
00000c50  46 46 3a 4c 41 53 54 3d  44 42 41 53 45 2b 21 44  |FF:LAST=DBASE+!D|
00000c60  42 41 53 45 0d 03 ac 23  ef 32 33 2c 32 35 35 2c  |BASE...#.23,255,|
00000c70  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |-1,-1,-1,-1,-1,-|
00000c80  31 2c 2d 31 2c 2d 31 0d  03 b6 0d 41 25 3d a4 4d  |1,-1,-1....A%=.M|
00000c90  4e 54 3a e1 0d 03 c0 27  dd a4 47 45 54 46 3a f2  |NT:....'..GETF:.|
00000ca0  52 45 41 44 46 3a f1 8a  31 36 2c 59 25 29 3b 3a  |READF:..16,Y%);:|
00000cb0  43 24 3d a4 47 45 54 3a  3d 43 24 0d 03 ca 0f dd  |C$=.GET:=C$.....|
00000cc0  a4 47 45 54 3a 43 24 3d  22 22 0d 03 d4 2e 42 25  |.GET:C$=""....B%|
00000cd0  3d a5 3a e7 42 25 3d 31  32 37 80 a9 43 24 3e 30  |=.:.B%=127..C$>0|
00000ce0  8c 43 24 3d c0 43 24 2c  a9 43 24 2d 31 29 3a ef  |.C$=.C$,.C$-1):.|
00000cf0  42 25 3a e5 8d 64 54 43  0d 03 de 0e e7 42 25 3d  |B%:..dTC.....B%=|
00000d00  31 33 8c 3d 43 24 0d 03  e8 1f e7 42 25 3e 33 31  |13.=C$.....B%>31|
00000d10  80 42 25 3c 31 32 37 8c  43 24 3d 43 24 2b bd 42  |.B%<127.C$=C$+.B|
00000d20  25 3a ef 42 25 0d 03 f2  14 e7 a9 43 24 3c 4c 25  |%:.B%......C$<L%|
00000d30  8c 8d 64 54 43 8b 3d 43  24 0d 03 fc 22 dd f2 43  |..dTC.=C$..."..C|
00000d40  4c 45 41 52 3a e3 49 25  3d 30 b8 38 3a 41 31 24  |LEAR:.I%=0.8:A1$|
00000d50  28 49 25 29 3d 22 22 3a  ed 3a e1 0d 04 06 33 dd  |(I%)="":.:....3.|
00000d60  f2 50 54 3a 54 25 3d 4f  25 2b 31 3a e3 4a 25 3d  |.PT:T%=O%+1:.J%=|
00000d70  30 b8 38 3a 41 31 24 28  4a 25 29 3d 24 54 25 3a  |0.8:A1$(J%)=$T%:|
00000d80  54 25 3d 54 25 2b a9 24  54 25 2b 31 3a ed 0d 04  |T%=T%+.$T%+1:...|
00000d90  10 18 f7 8d 64 66 45 3a  e3 49 25 3d 30 b8 38 3a  |....dfE:.I%=0.8:|
00000da0  f2 52 45 41 44 46 0d 04  1a 16 f1 8a 31 36 2c 59  |.READF......16,Y|
00000db0  25 29 41 31 24 28 49 25  29 3b 3a ed 0d 04 24 05  |%)A1$(I%);:...$.|
00000dc0  e1 0d 04 2e 12 dd a4 4b  45 59 28 53 25 29 4f 25  |.......KEY(S%)O%|
00000dd0  3d 4b 4b 0d 04 38 23 54  25 3d 4f 25 2b 31 3a e7  |=KK..8#T%=O%+1:.|
00000de0  24 54 25 3c 4e 24 8c 4f  25 3d 4f 25 2b 3f 4f 25  |$T%<N$.O%=O%+?O%|
00000df0  3a e5 8d 54 78 44 0d 04  42 0e e7 24 54 25 3d 4e  |:..TxD..B..$T%=N|
00000e00  24 8c 3d b9 0d 04 4c 17  e7 53 25 80 4e 24 3d c0  |$.=...L..S%.N$=.|
00000e10  24 54 25 2c a9 4e 24 29  8c 3d b9 0d 04 56 06 3d  |$T%,.N$).=...V.=|
00000e20  a3 0d 04 60 4a dd a4 46  57 44 28 4c 25 29 3a e7  |...`J..FWD(L%):.|
00000e30  4c 41 53 54 2b 34 2b 4c  25 3e 48 49 47 48 20 f2  |LAST+4+L%>HIGH .|
00000e40  50 47 28 22 46 69 6c 65  20 69 73 20 66 75 6c 6c  |PG("File is full|
00000e50  2d 64 65 6c 65 74 65 20  61 6e 20 65 6e 74 72 79  |-delete an entry|
00000e60  20 66 69 72 73 74 22 29  3a 3d a3 0d 04 6a 1c f2  | first"):=...j..|
00000e70  50 28 22 42 75 73 79 20  75 70 64 61 74 69 6e 67  |P("Busy updating|
00000e80  20 66 69 6c 65 22 29 0d  04 74 5c e3 49 25 3d 4c  | file")..t\.I%=L|
00000e90  41 53 54 2b 34 b8 4f 25  88 2d 34 3a 49 25 21 4c  |AST+4.O%.-4:I%!L|
00000ea0  25 3d 21 49 25 3a ed 3a  4c 41 53 54 3d 4c 41 53  |%=!I%:.:LAST=LAS|
00000eb0  54 2b 4c 25 3a 21 44 42  41 53 45 3d 4c 41 53 54  |T+L%:!DBASE=LAST|
00000ec0  2d 44 42 41 53 45 3a e3  49 3d 31 30 b8 31 30 30  |-DBASE:.I=10.100|
00000ed0  20 88 31 30 3a d4 32 2c  2d 37 2c 49 2c 31 3a ed  | .10:.2,-7,I,1:.|
00000ee0  3a 3d b9 0d 04 7e 25 dd  f2 42 57 44 28 4c 25 29  |:=...~%..BWD(L%)|
00000ef0  f2 50 28 22 42 75 73 79  20 75 70 64 61 74 69 6e  |.P("Busy updatin|
00000f00  67 20 66 69 6c 65 22 29  0d 04 88 5a e3 49 25 3d  |g file")...Z.I%=|
00000f10  4f 25 b8 4c 41 53 54 2b  34 88 34 3a 21 49 25 3d  |O%.LAST+4.4:!I%=|
00000f20  49 25 21 4c 25 3a ed 3a  4c 41 53 54 3d 4c 41 53  |I%!L%:.:LAST=LAS|
00000f30  54 2d 4c 25 3a 21 44 42  41 53 45 3d 4c 41 53 54  |T-L%:!DBASE=LAST|
00000f40  2d 44 42 41 53 45 3a e3  49 3d 31 30 30 b8 31 30  |-DBASE:.I=100.10|
00000f50  88 2d 31 30 3a d4 32 2c  2d 37 2c 49 2c 31 3a ed  |.-10:.2,-7,I,1:.|
00000f60  3a e1 0d 04 92 34 dd a4  4c 45 4e 3a 4c 25 3d 31  |:....4..LEN:L%=1|
00000f70  3a e3 4a 25 3d 30 b8 38  3a 4c 25 3d 4c 25 2b a9  |:.J%=0.8:L%=L%+.|
00000f80  41 31 24 28 4a 25 29 2b  31 3a ed 3a 3d 4c 25 2b  |A1$(J%)+1:.:=L%+|
00000f90  34 2d 4c 25 83 34 0d 04  9c 11 ef 33 3a e7 9f 3d  |4-L%.4.....3:..=|
00000fa0  31 37 e5 8d 54 7c 40 0d  04 a6 18 ee 85 87 3a f6  |17..T|@.......:.|
00000fb0  3a f1 22 20 61 74 20 6c  69 6e 65 22 9e 3a e0 0d  |:." at line".:..|
00000fc0  04 b0 1a dd f2 50 47 28  41 24 29 f2 50 28 41 24  |.....PG(A$).P(A$|
00000fd0  29 3a 2a 46 58 31 35 2c  31 0d 04 ba 1a 49 24 3d  |):*FX15,1....I$=|
00000fe0  be 3a e7 97 28 49 24 29  3d 31 33 20 4f 25 3d 4c  |.:..(I$)=13 O%=L|
00000ff0  41 53 54 0d 04 c4 05 e1  0d 04 ce 35 dd f2 50 28  |AST........5..P(|
00001000  41 24 29 20 f2 4f 46 46  3a 50 25 3d 31 39 2d a9  |A$) .OFF:P%=19-.|
00001010  41 24 81 32 3a f1 8a 30  2c 32 34 29 89 28 50 25  |A$.2:..0,24).(P%|
00001020  29 41 24 89 28 50 25 2d  31 29 3b 3a e1 0d 04 d8  |)A$.(P%-1);:....|
00001030  1a dd f2 4f 46 46 20 ef  32 33 2c 31 2c 30 3b 30  |...OFF .23,1,0;0|
00001040  3b 30 3b 30 3b 3a e1 0d  04 e2 19 dd f2 4f 4e 20  |;0;0;:.......ON |
00001050  ef 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 3a e1  |.23,1,1;0;0;0;:.|
00001060  0d 04 ec 0a dd f2 50 45  4e 54 0d 04 f6 6d e7 bc  |......PENT...m..|
00001070  2b 4e 25 3e 32 34 e7 50  24 3c 3e 22 59 22 8c f2  |+N%>24.P$<>"Y"..|
00001080  50 47 28 22 50 72 65 73  73 20 53 50 41 43 45 20  |PG("Press SPACE |
00001090  42 41 52 20 66 6f 72 20  6e 65 78 74 20 70 61 67  |BAR for next pag|
000010a0  65 22 29 3a f2 54 49 54  4c 45 3a f2 50 28 22 42  |e"):.TITLE:.P("B|
000010b0  75 73 79 20 73 65 61 72  63 68 69 6e 67 20 66 69  |usy searching fi|
000010c0  6c 65 22 29 3a f1 8a 30  2c 34 29 3b 3a e7 a9 4b  |le"):..0,4);:..K|
000010d0  59 24 20 f2 48 44 47 0d  05 00 0e e7 4f 25 3d 4c  |Y$ .HDG.....O%=L|
000010e0  41 53 54 20 e1 0d 05 0a  0e e7 50 24 3d 22 59 22  |AST ......P$="Y"|
000010f0  8c ef 32 0d 05 14 1e 54  25 3d 4f 25 2b 31 3a f7  |..2....T%=O%+1:.|
00001100  8d 64 66 45 3a 4e 25 3d  30 3a e3 49 25 3d 30 b8  |.dfE:N%=0:.I%=0.|
00001110  38 0d 05 1e 1b f2 52 45  41 44 46 3a e7 46 24 3c  |8.....READF:.F$<|
00001120  3e 22 22 47 24 3d c0 46  24 2c 31 29 0d 05 28 2a  |>""G$=.F$,1)..(*|
00001130  e7 a7 46 49 24 2c 47 24  29 84 a7 46 49 24 2c bd  |..FI$,G$)..FI$,.|
00001140  28 97 47 24 84 26 32 30  29 29 4e 25 3d 4e 25 2b  |(.G$.&20))N%=N%+|
00001150  31 3a f1 24 54 25 0d 05  32 12 54 25 3d 54 25 2b  |1:.$T%..2.T%=T%+|
00001160  a9 24 54 25 2b 31 3a ed  0d 05 3c 15 e7 4e 25 3e  |.$T%+1:...<..N%>|
00001170  31 80 4c 4c 25 3d 30 8c  4c 4c 25 3d 31 0d 05 46  |1.LL%=0.LL%=1..F|
00001180  1e e7 4c 4c 25 8c e3 49  25 3d 31 b8 4c 4c 25 3a  |..LL%..I%=1.LL%:|
00001190  f1 3a 4e 25 3d 4e 25 2b  31 3a ed 0d 05 50 0e e7  |.:N%=N%+1:...P..|
000011a0  50 24 3d 22 59 22 8c ef  33 0d 05 5a 05 e1 0d 05  |P$="Y"..3..Z....|
000011b0  64 30 dd f2 48 44 47 3a  f1 8a 32 2c 33 29 22 52  |d0..HDG:..2,3)"R|
000011c0  65 74 72 69 65 76 65 20  6f 6e 20 6b 65 79 20 22  |etrieve on key "|
000011d0  3b 3a f1 4b 59 24 8a 30  2c 34 29 3b 3a e1 0d 05  |;:.KY$.0,4);:...|
000011e0  6e 2c dd f2 69 6e 76 28  46 25 2c 48 4c 25 29 ea  |n,..inv(F%,HL%).|
000011f0  49 25 2c 41 24 2c 41 25  3a 41 25 3d 31 33 35 3a  |I%,A$,A%:A%=135:|
00001200  41 24 3d 22 22 3a f2 4f  46 46 0d 05 78 10 e7 20  |A$="":.OFF..x.. |
00001210  46 25 20 fb 30 3a fb 31  32 39 0d 05 82 38 e3 49  |F% .0:.129...8.I|
00001220  25 3d 30 b8 33 39 3a f1  8a 49 25 2c 48 4c 25 29  |%=0.39:..I%,HL%)|
00001230  3b 3a 41 24 3d 41 24 2b  bd 28 28 ba 26 46 46 46  |;:A$=A$+.((.&FFF|
00001240  34 20 80 20 26 46 46 30  30 29 81 26 31 30 30 29  |4 . &FF00).&100)|
00001250  3a ed 0d 05 8c 19 e7 20  46 25 20 fb 31 3a fb 31  |:...... F% .1:.1|
00001260  32 38 3a 8b fb 30 3a fb  31 32 39 0d 05 96 10 f1  |28:..0:.129.....|
00001270  8a 30 2c 48 4c 25 29 3b  41 24 3b 0d 05 a0 11 fb  |.0,HL%);A$;.....|
00001280  31 3a fb 31 32 38 3a f2  4f 4e 3a e1 0d 05 aa 0e  |1:.128:.ON:.....|
00001290  dd f2 46 49 4e 44 28 41  24 29 0d 05 b4 11 5a 25  |..FIND(A$)....Z%|
000012a0  3d 90 3a f5 41 25 3d 5a  25 2b 34 0d 05 be 26 e7  |=.:.A%=Z%+4...&.|
000012b0  a9 24 41 25 3e 3d a9 41  24 e7 a7 24 41 25 2c 41  |.$A%>=.A$..$A%,A|
000012c0  24 29 f1 5a 25 3f 31 2a  32 35 36 2b 5a 25 3f 32  |$).Z%?1*256+Z%?2|
000012d0  3b 0d 05 c8 1a 5a 25 3d  5a 25 2b 5a 25 3f 33 3a  |;....Z%=Z%+Z%?3:|
000012e0  fd 5a 25 3f 31 3e 26 37  46 3a e1 0d 05 d2 0b dd  |.Z%?1>&7F:......|
000012f0  f2 52 45 41 44 46 0d 05  dc 0f f3 46 24 2c 4c 25  |.READF.....F$,L%|
00001300  2c 59 25 3a e1 0d 05 e6  65 dc 20 4e 41 4d 45 2c  |,Y%:....e. NAME,|
00001310  32 31 2c 35 2c 41 44 44  52 45 53 53 2c 32 31 2c  |21,5,ADDRESS,21,|
00001320  37 2c 2c 32 31 2c 38 2c  2c 32 31 2c 39 2c 2c 32  |7,,21,8,,21,9,,2|
00001330  31 2c 31 30 2c 50 4f 53  54 43 4f 44 45 2c 39 2c  |1,10,POSTCODE,9,|
00001340  31 34 2c 54 45 4c 45 50  48 4f 4e 45 2c 31 32 2c  |14,TELEPHONE,12,|
00001350  31 37 2c 45 58 54 52 41  20 49 4e 46 4f 2c 32 31  |17,EXTRA INFO,21|
00001360  2c 32 30 2c 2c 32 31 2c  32 31 0d 05 f0 80 dc 4e  |,20,,21,21.....N|
00001370  65 77 20 65 6e 74 72 79  2c 41 6d 65 6e 64 20 65  |ew entry,Amend e|
00001380  6e 74 72 79 2c 44 65 6c  65 74 65 20 65 6e 74 72  |ntry,Delete entr|
00001390  79 2c 46 69 6e 64 20 65  6e 74 72 79 20 2d 20 4e  |y,Find entry - N|
000013a0  41 4d 45 20 6b 65 79 2c  52 65 74 72 69 65 76 65  |AME key,Retrieve|
000013b0  20 6f 6e 20 73 70 65 63  69 61 6c 20 6b 65 79 2c  | on special key,|
000013c0  50 72 69 6e 74 2f 64 69  73 70 6c 61 79 20 61 6c  |Print/display al|
000013d0  6c 20 65 6e 74 72 69 65  73 2c 4d 61 69 6e 74 61  |l entries,Mainta|
000013e0  69 6e 20 66 69 6c 65 2c  22 22 0d 05 fa 22 dc 20  |in file,""...". |
000013f0  4e 45 57 2c 41 4d 44 2c  44 45 4c 2c 46 49 4e 44  |NEW,AMD,DEL,FIND|
00001400  2c 52 45 54 2c 50 52 54  2c 4d 4e 54 0d 06 04 54  |,RET,PRT,MNT...T|
00001410  dc 20 49 6e 69 74 69 61  6c 69 73 65 20 6e 65 77  |. Initialise new|
00001420  20 66 69 6c 65 2c 4c 4f  41 44 20 6f 6c 64 20 66  | file,LOAD old f|
00001430  69 6c 65 2c 53 41 56 45  20 63 75 72 72 65 6e 74  |ile,SAVE current|
00001440  20 66 69 6c 65 2c 52 65  73 74 61 72 74 20 6f 6e  | file,Restart on|
00001450  20 70 72 65 73 65 6e 74  20 66 69 6c 65 2c 22 22  | present file,""|
00001460  0d 06 0e 1c dc 20 49 4e  49 54 2c 4c 4f 41 44 2c  |..... INIT,LOAD,|
00001470  53 41 56 45 2c 52 45 53  54 41 52 54 0d 00 ad 10  |SAVE,RESTART....|
00001480  02 8d e1 22 ad 11 02 8d  e2 22 a9 be 8d 10 02 a9  |..."....."......|
00001490  22 8d 11 02 a9 00 8d e0  22 a9 15 20 ee ff a9 81  |".......".. ....|
000014a0  a2 00 a0 ff 20 f4 ff e0  00 f0 10 a9 b4 a2 0e a0  |.... ...........|
000014b0  00 20 f4 ff a2 f6 a0 22  4c f7 ff 4c 00 80 8e df  |. ....."L..L....|
000014c0  22 ae e0 22 bd e3 22 ee  e0 22 e0 12 d0 0c ae e1  |".."..".."......|
000014d0  22 8e 10 02 ae e2 22 8e  11 02 ae df 22 18 60 00  |".....".....".`.|
000014e0  00 00 00 50 41 47 45 3d  26 45 30 30 0d 4f 4c 44  |...PAGE=&E00.OLD|
000014f0  0d 52 55 4e 06 0d 42 41  53 49 43 0d a9 81 a2 00  |.RUN..BASIC.....|
00001500  a0 ff 20 f4 ff e0 00 f0  0c a9 c8 a2 03 a0 00 20  |.. ............ |
00001510  f4 ff ca ca ca 86 70 a2  15 bd 2c 23 9d 00 01 5d  |......p...,#...]|
00001520  86 05 05 70 85 70 ca 10  f0 aa f0 16 a9 0e 85 71  |...p.p.........q|
00001530  a0 00 84 70 91 70 c8 d0  fb e6 71 24 71 50 f5 6c  |...p.p....q$qP.l|
00001540  fc ff 4c 7e 22                                    |..L~"|
00001545