/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / databases / progs / maxifile / MAXIFILE3

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 24 | 2e 4d 41 58 49 46 49 4c |..... >$|.MAXIFIL|
|00000010| 45 33 0d 00 14 1f f4 20 | 4d 41 58 49 46 49 4c 45 |E3..... |MAXIFILE|
|00000020| 20 28 43 29 20 43 20 57 | 72 61 67 67 20 31 39 39 | (C) C W|ragg 199|
|00000030| 30 0d 00 1e 17 f4 20 41 | 33 30 30 30 20 4e 65 77 |0..... A|3000 New|
|00000040| 20 76 65 72 73 69 6f 6e | 0d 00 28 05 3a 0d 00 32 | version|..(.:..2|
|00000050| 07 eb 31 32 0d 00 3c 0c | f2 63 6f 6c 6f 75 72 73 |..12..<.|.colours|
|00000060| 0d 00 46 27 ee 85 20 f6 | 3a f1 22 20 61 74 20 6c |..F'.. .|:." at l|
|00000070| 69 6e 65 20 22 3b 9e 3a | ff 28 22 46 58 20 32 32 |ine ";.:|.("FX 22|
|00000080| 39 20 30 22 29 3a e0 0d | 00 50 0a f2 73 74 61 72 |9 0"):..|.P..star|
|00000090| 74 0d 00 5a 05 f5 0d 00 | 64 0d f2 6d 61 69 6e 6d |t..Z....|d..mainm|
|000000a0| 65 6e 75 0d 00 6e 0b c8 | 8e 20 5a 25 20 ca 0d 00 |enu..n..|. Z% ...|
|000000b0| 78 0d c9 20 31 3a f2 76 | 69 65 77 0d 00 82 0d c9 |x.. 1:.v|iew.....|
|000000c0| 20 32 3a f2 73 61 76 65 | 0d 00 8c 0e c9 20 33 3a | 2:.save|..... 3:|
|000000d0| f2 70 72 69 6e 74 0d 00 | 96 0d c9 20 34 3a f2 71 |.print..|... 4:.q|
|000000e0| 75 69 74 0d 00 a0 0c 7f | 20 f2 65 72 72 6f 72 0d |uit.....| .error.|
|000000f0| 00 aa 3b e7 70 6f 73 25 | 3d 46 6e 61 6d 65 25 28 |..;.pos%|=Fname%(|
|00000100| 59 25 29 20 6c 25 3d 59 | 25 3a 59 25 3d 46 25 3a |Y%) l%=Y|%:Y%=F%:|
|00000110| fb 36 3a f1 8a 31 2c 46 | 6e 61 6d 65 25 28 6c 25 |.6:..1,F|name%(l%|
|00000120| 29 29 3b 22 3a 20 22 3b | fb 30 0d 00 b4 05 cb 0d |));": ";|.0......|
|00000130| 00 be 07 fd 20 a3 0d 00 | c8 05 3a 0d 00 d2 0d dd |.... ...|..:.....|
|00000140| f2 63 6f 6c 6f 75 72 73 | 0d 00 dc 1e fb 20 31 2c |.colours|..... 1,|
|00000150| 34 2a 31 36 2c 34 2a 31 | 36 2c 34 2a 31 36 3a f4 |4*16,4*1|6,4*16:.|
|00000160| 20 47 72 65 79 73 0d 00 | e6 16 fb 20 32 2c 38 2a | Greys..|... 2,8*|
|00000170| 31 36 2c 38 2a 31 36 2c | 38 2a 31 36 0d 00 f0 19 |16,8*16,|8*16....|
|00000180| fb 20 33 2c 31 32 2a 31 | 36 2c 31 32 2a 31 36 2c |. 3,12*1|6,12*16,|
|00000190| 31 32 2a 31 36 0d 00 fa | 21 fb 20 34 2c 31 32 2a |12*16...|!. 4,12*|
|000001a0| 31 36 2c 38 2a 31 36 2c | 34 2a 31 36 3a f4 20 59 |16,8*16,|4*16:. Y|
|000001b0| 65 6c 6c 6f 77 73 0d 01 | 04 18 fb 20 35 2c 31 35 |ellows..|... 5,15|
|000001c0| 2a 31 36 2c 31 32 2a 31 | 36 2c 34 2a 31 36 0d 01 |*16,12*1|6,4*16..|
|000001d0| 0e 18 fb 20 36 2c 31 32 | 2a 31 36 2c 31 32 2a 31 |... 6,12|*16,12*1|
|000001e0| 36 2c 36 2a 31 36 0d 01 | 18 1f fb 20 37 2c 36 2a |6,6*16..|... 7,6*|
|000001f0| 31 36 2c 38 2a 31 36 2c | 36 2a 31 36 3a f4 20 47 |16,8*16,|6*16:. G|
|00000200| 72 65 65 6e 73 0d 01 22 | 17 fb 20 38 2c 34 2a 31 |reens.."|.. 8,4*1|
|00000210| 36 2c 31 30 2a 31 36 2c | 32 2a 31 36 0d 01 2c 14 |6,10*16,|2*16..,.|
|00000220| fb 20 39 2c 36 2a 31 36 | 2c 31 32 2a 31 36 2c 30 |. 9,6*16|,12*16,0|
|00000230| 0d 01 36 1a fb 20 31 30 | 2c 30 2c 30 2c 31 35 2a |..6.. 10|,0,0,15*|
|00000240| 31 36 3a f4 20 42 6c 75 | 65 73 0d 01 40 16 fb 20 |16:. Blu|es..@.. |
|00000250| 31 31 2c 30 2c 31 32 2a | 31 36 2c 31 32 2a 31 36 |11,0,12*|16,12*16|
|00000260| 0d 01 4a 19 fb 20 31 32 | 2c 31 32 2a 31 36 2c 36 |..J.. 12|,12*16,6|
|00000270| 2a 31 36 2c 31 32 2a 31 | 36 0d 01 54 1f fb 20 31 |*16,12*1|6..T.. 1|
|00000280| 33 2c 31 30 2a 31 36 2c | 32 2a 31 36 2c 32 2a 31 |3,10*16,|2*16,2*1|
|00000290| 36 3a f4 20 52 65 64 73 | 0d 01 5e 15 fb 20 31 34 |6:. Reds|..^.. 14|
|000002a0| 2c 31 35 2a 31 36 2c 34 | 2a 31 36 2c 30 0d 01 68 |,15*16,4|*16,0..h|
|000002b0| 22 fb 20 31 35 2c 31 35 | 2a 31 36 2c 31 35 2a 31 |". 15,15|*16,15*1|
|000002c0| 36 2c 31 35 2a 31 36 3a | f4 20 57 68 69 74 65 0d |6,15*16:|. White.|
|000002d0| 01 72 05 e1 0d 01 7c 05 | 3a 0d 01 86 0b dd f2 73 |.r....|.|:......s|
|000002e0| 74 61 72 74 0d 01 90 0c | 2a 46 58 32 32 39 20 31 |tart....|*FX229 1|
|000002f0| 0d 01 9a 49 f2 62 6f 78 | 28 32 2c 30 2c 30 2c 31 |...I.box|(2,0,0,1|
|00000300| 32 37 39 2c 31 30 32 33 | 29 3a f2 62 6f 78 28 36 |279,1023|):.box(6|
|00000310| 2c 32 34 2c 32 34 2c 32 | 34 30 2c 31 30 30 30 29 |,24,24,2|40,1000)|
|00000320| 3a f2 62 6f 78 28 36 2c | 32 36 34 2c 32 34 2c 31 |:.box(6,|264,24,1|
|00000330| 32 35 36 2c 31 30 30 30 | 29 0d 01 a4 1a f2 74 65 |256,1000|).....te|
|00000340| 78 74 28 37 2c 31 33 34 | 2c 33 2c 32 36 2c 31 34 |xt(7,134|,3,26,14|
|00000350| 2c 36 29 0d 01 ae 1c e3 | 58 25 3d 31 b8 32 30 3a |,6).....|X%=1.20:|
|00000360| f1 22 4d 41 58 49 46 49 | 4c 45 2d 33 22 3a ed 0d |."MAXIFI|LE-3":..|
|00000370| 01 b8 1c f2 74 65 78 74 | 28 31 33 2c 31 33 34 2c |....text|(13,134,|
|00000380| 32 38 2c 32 38 2c 37 32 | 2c 34 29 0d 01 c2 3c f1 |28,28,72|,4)...<.|
|00000390| 8a 38 2c 34 29 22 57 45 | 4c 43 4f 4d 45 20 54 4f |.8,4)"WE|LCOME TO|
|000003a0| 20 4d 41 58 49 46 49 4c | 45 2d 33 22 27 8a 38 29 | MAXIFIL|E-3"'.8)|
|000003b0| 22 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |"_______|________|
|000003c0| 5f 5f 5f 5f 5f 5f 22 0d | 01 cc 1a f1 8a 30 2c 37 |______".|.....0,7|
|000003d0| 29 22 50 6c 65 61 73 65 | 20 73 65 6c 65 63 74 3a |)"Please| select:|
|000003e0| 22 0d 01 d6 46 f1 8a 34 | 2c 31 30 29 22 4f 70 65 |"...F..4|,10)"Ope|
|000003f0| 6e 20 61 6e 20 65 78 69 | 73 74 69 6e 67 20 66 69 |n an exi|sting fi|
|00000400| 6c 65 22 8a 34 2c 31 34 | 29 22 53 74 61 72 74 20 |le".4,14|)"Start |
|00000410| 61 20 6e 65 77 20 66 69 | 6c 65 22 8a 34 2c 31 38 |a new fi|le".4,18|
|00000420| 29 22 51 75 69 74 22 0d | 01 e0 38 f2 62 6f 78 28 |)"Quit".|..8.box(|
|00000430| 31 34 2c 39 39 32 2c 35 | 32 30 2c 31 30 37 32 2c |14,992,5|20,1072,|
|00000440| 36 30 30 29 3a f2 62 6f | 78 28 31 33 2c 31 30 30 |600):.bo|x(13,100|
|00000450| 30 2c 35 32 38 2c 31 30 | 36 34 2c 35 39 32 29 0d |0,528,10|64,592).|
|00000460| 01 ea 38 f2 62 6f 78 28 | 31 34 2c 39 39 32 2c 33 |..8.box(|14,992,3|
|00000470| 39 32 2c 31 30 37 32 2c | 34 37 32 29 3a f2 62 6f |92,1072,|472):.bo|
|00000480| 78 28 31 33 2c 31 30 30 | 30 2c 34 30 30 2c 31 30 |x(13,100|0,400,10|
|00000490| 36 34 2c 34 36 34 29 0d | 01 f4 38 f2 62 6f 78 28 |64,464).|..8.box(|
|000004a0| 31 34 2c 39 39 32 2c 32 | 36 34 2c 31 30 37 32 2c |14,992,2|64,1072,|
|000004b0| 33 34 34 29 3a f2 62 6f | 78 28 31 33 2c 31 30 30 |344):.bo|x(13,100|
|000004c0| 30 2c 32 37 32 2c 31 30 | 36 34 2c 33 33 36 29 0d |0,272,10|64,336).|
|000004d0| 01 fe 0c fb 31 34 3a fb | 31 34 31 0d 02 08 2b f1 |....14:.|141...+.|
|000004e0| 8a 33 36 2c 31 30 29 3b | 22 31 22 3b 8a 33 36 2c |.36,10);|"1";.36,|
|000004f0| 31 34 29 3b 22 32 22 3b | 8a 33 36 2c 31 38 29 3b |14);"2";|.36,18);|
|00000500| 22 33 22 3b 3a 87 0d 02 | 12 19 ef 32 34 2c 39 39 |"3";:...|...24,99|
|00000510| 32 3b 32 36 34 3b 31 30 | 37 32 3b 36 30 30 3b 0d |2;264;10|72;600;.|
|00000520| 02 1c 05 f5 0d 02 26 14 | f2 61 6e 73 77 65 72 28 |......&.|.answer(|
|00000530| 22 31 32 33 22 2c 30 29 | 0d 02 30 0b e7 5a 25 3d |"123",0)|..0..Z%=|
|00000540| 30 20 8c 0d 02 3a 1b e7 | 28 79 3e 35 32 30 20 80 |0 ...:..|(y>520 .|
|00000550| 20 79 3c 36 30 30 29 20 | 8c 20 5a 25 3d 31 0d 02 | y<600) |. Z%=1..|
|00000560| 44 1b e7 28 79 3e 33 39 | 32 20 80 20 79 3c 34 37 |D..(y>39|2 . y<47|
|00000570| 32 29 20 8c 20 5a 25 3d | 32 0d 02 4e 1b e7 28 79 |2) . Z%=|2..N..(y|
|00000580| 3e 32 36 34 20 80 20 79 | 3c 33 34 34 29 20 8c 20 |>264 . y|<344) . |
|00000590| 5a 25 3d 33 0d 02 58 05 | cd 0d 02 62 0a fd 5a 25 |Z%=3..X.|...b..Z%|
|000005a0| 3c 3e 30 0d 02 6c 0b c8 | 8e 20 5a 25 20 ca 0d 02 |<>0..l..|. Z% ...|
|000005b0| 76 0d c9 20 31 3a f2 6c | 6f 61 64 0d 02 80 0c c9 |v.. 1:.l|oad.....|
|000005c0| 20 32 3a f2 6e 65 77 0d | 02 8a 0d c9 20 33 3a f2 | 2:.new.|.... 3:.|
|000005d0| 71 75 69 74 0d 02 94 05 | cb 0d 02 9e 1b e7 5a 25 |quit....|......Z%|
|000005e0| 3d 33 20 f2 70 61 75 73 | 65 28 31 30 30 29 3a e5 |=3 .paus|e(100):.|
|000005f0| 8d 74 5a 41 0d 02 a8 05 | e1 0d 02 b2 05 3a 0d 02 |.tZA....|.....:..|
|00000600| bc 0a dd f2 6c 6f 61 64 | 0d 02 c6 05 f5 0d 02 d0 |....load|........|
|00000610| 0e fb 31 33 3a fb 31 33 | 34 3a db 0d 02 da 12 ef |..13:.13|4:......|
|00000620| 32 38 2c 33 30 2c 32 38 | 2c 36 39 2c 34 0d 02 e4 |28,30,28|,69,4...|
|00000630| 2e ff 28 22 4d 4f 55 4e | 54 20 30 22 29 3a ff 28 |..("MOUN|T 0"):.(|
|00000640| 22 44 49 52 20 24 2e 44 | 41 54 41 46 49 4c 45 53 |"DIR $.D|ATAFILES|
|00000650| 22 29 3a ff 28 22 43 41 | 54 22 29 0d 02 ee 05 ee |"):.("CA|T").....|
|00000660| 0d 02 f8 42 f1 27 27 22 | 45 6e 74 65 72 20 6e 61 |...B.''"|Enter na|
|00000670| 6d 65 20 6f 66 20 66 69 | 6c 65 2c 20 6f 72 22 27 |me of fi|le, or"'|
|00000680| 22 70 72 65 73 73 20 52 | 45 54 55 52 4e 20 74 6f |"press R|ETURN to|
|00000690| 20 63 68 61 6e 67 65 20 | 74 68 65 20 64 69 73 63 | change |the disc|
|000006a0| 2e 22 0d 03 02 13 e8 27 | 8a 31 30 29 22 89 20 22 |.".....'|.10)". "|
|000006b0| 46 69 6c 65 24 0d 03 0c | 3e e7 46 69 6c 65 24 3d |File$...|>.File$=|
|000006c0| 22 22 20 f1 22 49 6e 73 | 65 72 74 20 64 69 73 63 |"" ."Ins|ert disc|
|000006d0| 20 61 6e 64 20 70 72 65 | 73 73 20 61 6e 79 20 6b | and pre|ss any k|
|000006e0| 65 79 22 3a ff 28 22 46 | 58 31 35 20 30 22 29 3a |ey":.("F|X15 0"):|
|000006f0| 47 3d a5 0d 03 16 1b fd | a9 28 46 69 6c 65 24 29 |G=......|.(File$)|
|00000700| 3e 30 80 a9 28 46 69 6c | 65 24 29 3c 31 31 0d 03 |>0..(Fil|e$)<11..|
|00000710| 20 05 87 0d 03 2a 0d 49 | 3d ad 20 46 69 6c 65 24 | ....*.I|=. File$|
|00000720| 0d 03 34 0a e8 23 49 2c | 46 25 0d 03 3e 18 de 20 |..4..#I,|F%..>.. |
|00000730| 46 24 28 46 25 29 2c 4c | 25 28 46 25 29 3a 4d 25 |F$(F%),L|%(F%):M%|
|00000740| 3d 30 0d 03 48 0c e3 58 | 25 3d 31 b8 46 25 0d 03 |=0..H..X|%=1.F%..|
|00000750| 52 2a e8 23 49 2c 46 24 | 28 58 25 29 2c 4c 25 28 |R*.#I,F$|(X%),L%(|
|00000760| 58 25 29 3a e7 4d 25 3c | 4c 25 28 58 25 29 20 4d |X%):.M%<|L%(X%) M|
|00000770| 25 3d 4c 25 28 58 25 29 | 0d 03 5c 05 ed 0d 03 66 |%=L%(X%)|..\....f|
|00000780| 0c 4c 25 28 30 29 3d 4d | 25 0d 03 70 10 e8 23 49 |.L%(0)=M|%..p..#I|
|00000790| 2c 54 25 3a f2 69 6e 69 | 74 0d 03 7a 15 e3 58 25 |,T%:.ini|t..z..X%|
|000007a0| 3d 31 b8 54 25 3a e3 59 | 25 3d 31 b8 46 25 0d 03 |=1.T%:.Y|%=1.F%..|
|000007b0| 84 11 e8 23 49 2c 52 24 | 28 58 25 2c 59 25 29 0d |...#I,R$|(X%,Y%).|
|000007c0| 03 8e 05 ed 0d 03 98 23 | f4 20 49 46 4c 45 46 54 |.......#|. IFLEFT|
|000007d0| 24 28 52 24 28 58 25 2c | 31 29 2c 31 29 3d 22 2a |$(R$(X%,|1),1)="*|
|000007e0| 22 20 58 25 3d 54 25 0d | 03 a2 05 ed 0d 03 ac 07 |" X%=T%.|........|
|000007f0| d9 23 49 0d 03 b6 0a 2a | 44 49 52 20 24 0d 03 c0 |.#I....*|DIR $...|
|00000800| 05 e1 0d 03 ca 05 3a 0d | 03 d4 09 dd f2 6e 65 77 |......:.|.....new|
|00000810| 0d 03 de 1f db 3a fb 39 | 3a fb 31 33 35 3a ef 32 |.....:.9|:.135:.2|
|00000820| 38 2c 33 30 2c 32 38 2c | 37 30 2c 34 2c 31 32 0d |8,30,28,|70,4,12.|
|00000830| 03 e8 45 f1 8a 38 2c 31 | 29 22 4e 45 57 20 46 49 |..E..8,1|)"NEW FI|
|00000840| 4c 45 20 43 52 45 41 54 | 49 4f 4e 20 52 4f 55 54 |LE CREAT|ION ROUT|
|00000850| 49 4e 45 22 27 8a 38 29 | 22 2d 2d 2d 2d 2d 2d 2d |INE"'.8)|"-------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 22 27 0d 03 f2 3a | fb 31 35 3a ee 3a e8 22 |--"'...:|.15:.:."|
|00000880| 20 20 45 6e 74 65 72 20 | 6e 75 6d 62 65 72 20 6f |  Enter |number o|
|00000890| 66 20 66 69 65 6c 64 73 | 3a 20 22 46 25 27 3a de |f fields|: "F%':.|
|000008a0| 20 46 24 28 46 25 29 2c | 4c 25 28 46 25 29 0d 03 | F$(F%),|L%(F%)..|
|000008b0| fc 79 fb 33 3a f1 22 28 | 4e 4f 54 45 3a 20 63 6f |.y.3:."(|NOTE: co|
|000008c0| 6d 70 6c 65 74 65 20 74 | 68 65 20 66 75 6c 6c 20 |mplete t|he full |
|000008d0| 6c 69 73 74 20 6f 66 20 | 66 69 65 6c 64 22 27 22 |list of |field"'"|
|000008e0| 6e 61 6d 65 73 20 61 6e | 64 20 6c 65 6e 67 74 68 |names an|d length|
|000008f0| 73 2e 20 43 6f 72 72 65 | 63 74 69 6f 6e 73 20 63 |s. Corre|ctions c|
|00000900| 61 6e 20 62 65 22 27 22 | 6d 61 64 65 20 69 6d 6d |an be"'"|made imm|
|00000910| 65 64 69 61 74 65 6c 79 | 20 61 66 74 65 72 77 61 |ediately| afterwa|
|00000920| 72 64 73 2e 29 22 27 0d | 04 06 38 fb 31 35 3a f1 |rds.)"'.|..8.15:.|
|00000930| 22 45 6e 74 65 72 20 20 | 20 4e 61 6d 65 20 6f 66 |"Enter  | Name of|
|00000940| 20 66 69 65 6c 64 22 3b | 8a 32 35 29 3b 22 4c 65 | field";|.25);"Le|
|00000950| 6e 67 74 68 20 6f 66 20 | 66 69 65 6c 64 22 27 0d |ngth of |field"'.|
|00000960| 04 10 0c e3 58 25 3d 31 | b8 46 25 0d 04 1a 2d f1 |....X%=1|.F%...-.|
|00000970| 8a 35 29 3b 58 25 3b 22 | 3a 20 20 22 3b 3a e8 22 |.5);X%;"|:  ";:."|
|00000980| 22 46 24 28 58 25 29 3b | 8a 33 32 2c bc 2d 31 29 |"F$(X%);|.32,.-1)|
|00000990| 22 22 4c 25 28 58 25 29 | 0d 04 24 2b e7 4c 25 28 |""L%(X%)|..$+.L%(|
|000009a0| 58 25 29 3e 32 35 35 20 | 4c 25 28 58 25 29 3d 32 |X%)>255 |L%(X%)=2|
|000009b0| 35 35 3a f1 8a 33 32 2c | bc 2d 31 29 3b 4c 25 28 |55:..32,|.-1);L%(|
|000009c0| 58 25 29 0d 04 2e 05 ed | 0d 04 38 34 db 3a 87 3a |X%).....|..84.:.:|
|000009d0| f1 3a e3 58 25 3d 31 b8 | 46 25 3a f1 8a 32 29 3b |.:.X%=1.|F%:..2);|
|000009e0| 58 25 3b 22 2e 20 22 3b | 46 24 28 58 25 29 3b 8a |X%;". ";|F$(X%);.|
|000009f0| 32 35 29 3b 4c 25 28 58 | 25 29 3a ed 0d 04 42 20 |25);L%(X|%):...B |
|00000a00| f1 27 22 44 69 64 20 79 | 6f 75 20 65 6e 74 65 72 |.'"Did y|ou enter|
|00000a10| 20 63 6f 72 72 65 63 74 | 6c 79 3f 22 0d 04 4c 2f | correct|ly?"..L/|
|00000a20| f2 62 6f 78 28 39 2c 35 | 38 38 2c 32 34 2c 36 37 |.box(9,5|88,24,67|
|00000a30| 36 2c 37 32 29 3a f2 62 | 6f 78 28 37 2c 35 39 36 |6,72):.b|ox(7,596|
|00000a40| 2c 33 32 2c 36 36 38 2c | 36 34 29 0d 04 56 30 f2 |,32,668,|64)..V0.|
|00000a50| 62 6f 78 28 39 2c 39 31 | 36 2c 32 34 2c 31 30 30 |box(9,91|6,24,100|
|00000a60| 34 2c 37 32 29 3a f2 62 | 6f 78 28 37 2c 39 32 34 |4,72):.b|ox(7,924|
|00000a70| 2c 33 32 2c 39 39 36 2c | 36 34 29 0d 04 60 22 ef |,32,996,|64)..`".|
|00000a80| 32 36 3a f1 8a 33 38 2c | 33 30 29 22 59 45 53 22 |26:..38,|30)"YES"|
|00000a90| 3b 8a 35 39 2c 33 30 29 | 22 4e 4f 22 3b 0d 04 6a |;.59,30)|"NO";..j|
|00000aa0| 17 ef 32 34 2c 35 38 38 | 3b 32 34 3b 31 30 30 34 |..24,588|;24;1004|
|00000ab0| 3b 37 32 3b 0d 04 74 05 | f5 0d 04 7e 15 f2 61 6e |;72;..t.|...~..an|
|00000ac0| 73 77 65 72 28 22 79 59 | 6e 4e 22 2c 30 29 0d 04 |swer("yY|nN",0)..|
|00000ad0| 88 09 e7 7a 3d 34 8c 0d | 04 92 0f e7 78 3c 36 37 |...z=4..|....x<67|
|00000ae0| 36 20 5a 25 3d 31 0d 04 | 9c 0f e7 78 3e 38 31 36 |6 Z%=1..|...x>816|
|00000af0| 20 5a 25 3d 33 0d 04 a6 | 05 cd 0d 04 b0 0a fd 5a | Z%=3...|.......Z|
|00000b00| 25 3c 3e 30 0d 04 ba 12 | ef 32 38 2c 33 30 2c 32 |%<>0....|.28,30,2|
|00000b10| 38 2c 37 30 2c 34 0d 04 | c4 44 e7 5a 25 3e 32 20 |8,70,4..|.D.Z%>2 |
|00000b20| f2 62 6f 78 28 36 2c 35 | 38 38 2c 32 34 2c 36 37 |.box(6,5|88,24,67|
|00000b30| 36 2c 37 32 29 3a f2 62 | 6f 78 28 36 2c 39 31 36 |6,72):.b|ox(6,916|
|00000b40| 2c 32 34 2c 31 30 30 34 | 2c 37 32 29 3a f2 6d 6f |,24,1004|,72):.mo|
|00000b50| 64 69 66 79 3a e5 8d 54 | 78 44 0d 04 ce 24 4c 25 |dify:..T|xD...$L%|
|00000b60| 3d 30 3a e3 58 25 3d 31 | b8 46 25 3a 4c 25 2b 3d |=0:.X%=1|.F%:L%+=|
|00000b70| 4c 25 28 58 25 29 3a 4c | 25 2b 3d 32 3a ed 0d 04 |L%(X%):L|%+=2:...|
|00000b80| d8 15 54 25 3d a8 28 28 | 93 2d 92 29 2a 2e 39 2f |..T%=.((|.-.)*.9/|
|00000b90| 4c 25 29 0d 04 e2 35 db | 3a f1 8a 31 2c 31 30 29 |L%)...5.|:..1,10)|
|00000ba0| 22 52 65 63 6f 6d 6d 65 | 6e 64 65 64 20 6d 61 78 |"Recomme|nded max|
|00000bb0| 69 6d 75 6d 20 6e 6f 20 | 6f 66 20 72 65 63 6f 72 |imum no |of recor|
|00000bc0| 64 73 20 22 3b 54 25 27 | 0d 04 ec 25 e8 22 20 45 |ds ";T%'|...%." E|
|00000bd0| 6e 74 65 72 20 6d 61 78 | 69 6d 75 6d 20 6e 6f 20 |nter max|imum no |
|00000be0| 72 65 71 75 69 72 65 64 | 3a 20 22 54 25 0d 04 f6 |required|: "T%...|
|00000bf0| 0c 46 69 6c 65 24 3d 22 | 22 0d 05 00 09 f2 69 6e |.File$="|".....in|
|00000c00| 69 74 0d 05 0a 15 e3 58 | 25 3d 31 b8 54 25 3a e3 |it.....X|%=1.T%:.|
|00000c10| 59 25 3d 31 b8 46 25 0d | 05 14 1a 52 24 28 58 25 |Y%=1.F%.|...R$(X%|
|00000c20| 2c 59 25 29 3d c4 4c 25 | 28 59 25 29 2c 22 2a 22 |,Y%)=.L%|(Y%),"*"|
|00000c30| 29 0d 05 1e 07 ed 3a ed | 0d 05 28 05 e1 0d 05 32 |).....:.|..(....2|
|00000c40| 05 3a 0d 05 3c 0c dd f2 | 6d 6f 64 69 66 79 0d 05 |.:..<...|modify..|
|00000c50| 46 32 e8 8a 32 2c 46 25 | 2b 34 29 22 45 6e 74 65 |F2..2,F%|+4)"Ente|
|00000c60| 72 20 6e 6f 20 6f 66 20 | 66 69 65 6c 64 20 74 6f |r no of |field to|
|00000c70| 20 62 65 20 63 68 61 6e | 67 65 64 3a 20 22 58 25 | be chan|ged: "X%|
|00000c80| 0d 05 50 53 db 3a f1 8a | 31 2c 31 30 29 22 45 6e |..PS.:..|1,10)"En|
|00000c90| 74 65 72 20 72 65 76 69 | 73 65 64 20 6e 61 6d 65 |ter revi|sed name|
|00000ca0| 20 6f 72 20 70 72 65 73 | 73 20 52 45 54 55 52 4e | or pres|s RETURN|
|00000cb0| 22 27 22 74 6f 20 6c 65 | 61 76 65 20 75 6e 63 68 |"'"to le|ave unch|
|00000cc0| 61 6e 67 65 64 2e 22 27 | 27 8a 31 30 29 46 24 28 |anged."'|'.10)F$(|
|00000cd0| 58 25 29 0d 05 5a 10 e8 | 8a 31 30 29 22 22 46 24 |X%)..Z..|.10)""F$|
|00000ce0| 28 30 29 0d 05 64 1b e7 | 46 24 28 30 29 3c 3e 22 |(0)..d..|F$(0)<>"|
|00000cf0| 22 20 46 24 28 58 25 29 | 3d 46 24 28 30 29 0d 05 |" F$(X%)|=F$(0)..|
|00000d00| 6e 22 f1 27 22 50 72 65 | 73 65 6e 74 20 6c 65 6e |n".'"Pre|sent len|
|00000d10| 67 74 68 20 69 73 20 22 | 3b 4c 25 28 58 25 29 27 |gth is "|;L%(X%)'|
|00000d20| 0d 05 78 2e e8 22 45 6e | 74 65 72 20 4e 45 57 20 |..x.."En|ter NEW |
|00000d30| 6c 65 6e 67 74 68 20 6f | 72 20 70 72 65 73 73 20 |length o|r press |
|00000d40| 52 45 54 55 52 4e 3a 20 | 22 4c 25 28 30 29 0d 05 |RETURN: |"L%(0)..|
|00000d50| 82 18 e7 4c 25 28 30 29 | 3e 32 35 35 20 4c 25 28 |...L%(0)|>255 L%(|
|00000d60| 30 29 3d 32 35 35 0d 05 | 8c 1a e7 4c 25 28 30 29 |0)=255..|...L%(0)|
|00000d70| 3c 3e 30 20 4c 25 28 58 | 25 29 3d 4c 25 28 30 29 |<>0 L%(X|%)=L%(0)|
|00000d80| 0d 05 96 05 e1 0d 05 a0 | 05 3a 0d 05 aa 0a dd f2 |........|.:......|
|00000d90| 69 6e 69 74 0d 05 b4 57 | de 20 52 24 28 54 25 2c |init...W|. R$(T%,|
|00000da0| 46 25 29 2c 49 6e 64 65 | 78 25 28 32 2c 54 25 29 |F%),Inde|x%(2,T%)|
|00000db0| 2c 46 6e 61 6d 65 25 28 | 46 25 29 2c 46 78 25 28 |,Fname%(|F%),Fx%(|
|00000dc0| 46 25 29 2c 46 79 25 28 | 46 25 29 2c 53 46 25 28 |F%),Fy%(|F%),SF%(|
|00000dd0| 32 29 2c 53 53 24 28 32 | 29 2c 43 74 25 28 31 29 |2),SS$(2|),Ct%(1)|
|00000de0| 2c 4c 69 73 74 28 31 2c | 54 25 29 0d 05 be 20 46 |,List(1,|T%)... F|
|00000df0| 24 28 30 29 3d c4 4d 25 | 2c 22 2a 22 29 3a 52 24 |$(0)=.M%|,"*"):R$|
|00000e00| 28 30 2c 30 29 3d 46 24 | 28 30 29 0d 05 c8 1e e3 |(0,0)=F$|(0).....|
|00000e10| 58 25 3d 30 b8 54 25 3a | 49 6e 64 65 78 25 28 30 |X%=0.T%:|Index%(0|
|00000e20| 2c 58 25 29 3d 58 25 3a | ed 0d 05 d2 24 e3 58 25 |,X%)=X%:|....$.X%|
|00000e30| 3d 30 b8 46 25 3a 52 24 | 28 30 2c 58 25 29 3d c4 |=0.F%:R$|(0,X%)=.|
|00000e40| 4c 25 28 58 25 29 2c 22 | 2a 22 29 3a ed 0d 05 dc |L%(X%),"|*"):....|
|00000e50| 16 52 25 3d 32 3a 50 61 | 67 65 25 3d 31 3a 49 6e |.R%=2:Pa|ge%=1:In|
|00000e60| 64 3d 30 0d 05 e6 0c e3 | 58 25 3d 31 b8 46 25 0d |d=0.....|X%=1.F%.|
|00000e70| 05 f0 11 46 6e 61 6d 65 | 25 28 58 25 29 3d 52 25 |...Fname|%(X%)=R%|
|00000e80| 0d 05 fa 19 4c 25 3d a9 | 28 46 24 28 58 25 29 29 |....L%=.|(F$(X%))|
|00000e90| 2b 4c 25 28 58 25 29 2b | 33 0d 06 04 33 e7 4c 25 |+L%(X%)+|3...3.L%|
|00000ea0| 3e 35 38 20 46 78 25 28 | 58 25 29 3d 30 3a 46 79 |>58 Fx%(|X%)=0:Fy|
|00000eb0| 25 28 58 25 29 3d 52 25 | 2b 31 3a 52 25 3d 52 25 |%(X%)=R%|+1:R%=R%|
|00000ec0| 2b 4c 25 28 58 25 29 81 | 35 38 2b 33 0d 06 0e 31 |+L%(X%).|58+3...1|
|00000ed0| e7 4c 25 3c 35 39 20 46 | 78 25 28 58 25 29 3d a9 |.L%<59 F|x%(X%)=.|
|00000ee0| 28 46 24 28 58 25 29 29 | 2b 33 3a 46 79 25 28 58 |(F$(X%))|+3:Fy%(X|
|00000ef0| 25 29 3d 52 25 3a 52 25 | 3d 52 25 2b 32 0d 06 18 |%)=R%:R%|=R%+2...|
|00000f00| 7c e7 52 25 3e 3d 32 38 | 20 50 61 67 65 25 2b 3d ||.R%>=28| Page%+=|
|00000f10| 31 3a f1 22 4e 6f 20 72 | 6f 6f 6d 20 6f 6e 20 70 |1:."No r|oom on p|
|00000f20| 61 67 65 20 66 6f 72 20 | 6d 6f 72 65 20 66 69 65 |age for |more fie|
|00000f30| 6c 64 73 2e 22 27 22 52 | 6f 75 74 69 6e 65 20 74 |lds."'"R|outine t|
|00000f40| 6f 20 61 63 63 6f 6d 6f | 64 61 74 65 20 74 68 69 |o accomo|date thi|
|00000f50| 73 20 6e 6f 74 20 79 65 | 74 22 27 22 61 76 61 69 |s not ye|t"'"avai|
|00000f60| 6c 61 62 6c 65 2e 22 3a | f2 70 61 75 73 65 28 34 |lable.":|.pause(4|
|00000f70| 30 30 29 3a 58 25 3d 46 | 25 0d 06 22 05 ed 0d 06 |00):X%=F|%.."....|
|00000f80| 2c 05 e1 0d 06 36 05 3a | 0d 06 40 19 dd f2 62 6f |,....6.:|..@...bo|
|00000f90| 78 28 63 25 2c 78 25 2c | 79 25 2c 72 25 2c 74 25 |x(c%,x%,|y%,r%,t%|
|00000fa0| 29 0d 06 4a 24 e6 20 63 | 25 3a e6 20 63 25 2b 31 |)..J$. c|%:. c%+1|
|00000fb0| 32 38 3a ef 32 34 2c 78 | 25 3b 79 25 3b 72 25 3b |28:.24,x|%;y%;r%;|
|00000fc0| 74 25 3b 31 36 0d 06 54 | 05 e1 0d 06 5e 05 3a 0d |t%;16..T|....^.:.|
|00000fd0| 06 68 1d dd f2 74 65 78 | 74 28 70 25 2c 62 25 2c |.h...tex|t(p%,b%,|
|00000fe0| 78 25 2c 79 25 2c 72 25 | 2c 74 25 29 0d 06 72 0d |x%,y%,r%|,t%)..r.|
|00000ff0| fb 20 70 25 3a fb 20 62 | 25 0d 06 7c 16 ef 32 38 |. p%:. b|%..|..28|
|00001000| 2c 78 25 2c 79 25 2c 72 | 25 2c 74 25 2c 31 32 0d |,x%,y%,r|%,t%,12.|
|00001010| 06 86 05 e1 0d 06 90 05 | 3a 0d 06 9a 13 dd f2 61 |........|:......a|
|00001020| 6e 73 77 65 72 28 73 24 | 2c 70 25 29 0d 06 a4 07 |nswer(s$|,p%)....|
|00001030| ea 59 25 0d 06 ae 0c 2a | 50 4f 49 4e 54 45 52 0d |.Y%....*|POINTER.|
|00001040| 06 b8 0e f2 70 61 75 73 | 65 28 31 30 29 0d 06 c2 |....paus|e(10)...|
|00001050| 15 56 25 3d 30 3a 5a 25 | 3d 30 3a 2a 46 58 31 35 |.V%=0:Z%|=0:*FX15|
|00001060| 20 30 0d 06 cc 05 f5 0d | 06 d6 0c c8 97 20 78 2c | 0......|..... x,|
|00001070| 79 2c 7a 0d 06 e0 0b 5a | 24 3d bf 28 30 29 0d 06 |y,z....Z|$=.(0)..|
|00001080| ea 16 e7 5a 24 3c 3e 22 | 22 20 56 25 3d a7 73 24 |...Z$<>"|" V%=.s$|
|00001090| 2c 5a 24 29 0d 06 f4 10 | e7 56 25 3c 3e 30 20 5a |,Z$)....|.V%<>0 Z|
|000010a0| 25 3d 56 25 0d 06 fe 0f | e7 70 25 3d 31 80 7a 3d |%=V%....|.p%=1.z=|
|000010b0| 31 20 8c 0d 07 08 15 70 | 6f 73 25 3d 32 38 2d 28 |1 .....p|os%=28-(|
|000010c0| 79 2d 33 32 29 2f 33 32 | 0d 07 12 0c e3 59 25 3d |y-32)/32|.....Y%=|
|000010d0| 31 b8 46 25 0d 07 1c 42 | e7 70 6f 73 25 3d 46 6e |1.F%...B|.pos%=Fn|
|000010e0| 61 6d 65 25 28 59 25 29 | 20 6c 25 3d 59 25 3a 59 |ame%(Y%)| l%=Y%:Y|
|000010f0| 25 3d 46 25 3a fb 36 3a | f1 8a 31 2c 46 6e 61 6d |%=F%:.6:|..1,Fnam|
|00001100| 65 25 28 6c 25 29 29 3b | 46 24 28 6c 25 29 3b 22 |e%(l%));|F$(l%);"|
|00001110| 3a 20 22 3a fb 30 0d 07 | 26 05 ed 0d 07 30 0e f2 |: ":.0..|&....0..|
|00001120| 70 61 75 73 65 28 31 35 | 29 0d 07 3a 05 cd 0d 07 |pause(15|)..:....|
|00001130| 44 10 fd 5a 25 3c 3e 30 | 20 84 20 7a 3e 30 0d 07 |D..Z%<>0| . z>0..|
|00001140| 4e 08 c8 97 20 87 0d 07 | 58 05 e1 0d 07 62 05 3a |N... ...|X....b.:|
|00001150| 0d 07 6c 0e dd f2 6d 61 | 69 6e 6d 65 6e 75 0d 07 |..l...ma|inmenu..|
|00001160| 76 49 f2 62 6f 78 28 32 | 2c 30 2c 30 2c 31 32 37 |vI.box(2|,0,0,127|
|00001170| 39 2c 31 30 32 33 29 3a | f2 62 6f 78 28 36 2c 32 |9,1023):|.box(6,2|
|00001180| 34 2c 32 34 2c 32 34 30 | 2c 31 30 30 30 29 3a f2 |4,24,240|,1000):.|
|00001190| 62 6f 78 28 36 2c 32 36 | 34 2c 32 34 2c 31 32 35 |box(6,26|4,24,125|
|000011a0| 36 2c 31 30 30 30 29 0d | 07 80 1a f2 74 65 78 74 |6,1000).|....text|
|000011b0| 28 37 2c 31 33 34 2c 33 | 2c 32 36 2c 31 34 2c 36 |(7,134,3|,26,14,6|
|000011c0| 29 0d 07 8a 33 f2 74 65 | 78 74 28 37 2c 31 33 34 |)...3.te|xt(7,134|
|000011d0| 2c 33 2c 32 36 2c 31 34 | 2c 36 29 3a e3 58 25 3d |,3,26,14|,6):.X%=|
|000011e0| 31 b8 32 30 3a f1 22 4d | 41 58 49 46 49 4c 45 2d |1.20:."M|AXIFILE-|
|000011f0| 33 22 3a ed 0d 07 94 1c | f2 74 65 78 74 28 31 33 |3":.....|.text(13|
|00001200| 2c 31 33 34 2c 32 38 2c | 32 38 2c 37 32 2c 34 29 |,134,28,|28,72,4)|
|00001210| 0d 07 9e 28 f1 8a 31 36 | 2c 34 29 22 4d 41 49 4e |...(..16|,4)"MAIN|
|00001220| 20 20 4d 45 4e 55 22 27 | 8a 31 36 29 22 5f 5f 5f |  MENU"'|.16)"___|
|00001230| 5f 5f 5f 5f 5f 5f 5f 22 | 0d 07 a8 1a f1 8a 30 2c |_______"|......0,|
|00001240| 37 29 22 50 6c 65 61 73 | 65 20 73 65 6c 65 63 74 |7)"Pleas|e select|
|00001250| 3a 22 0d 07 b2 60 f1 8a | 34 2c 31 30 29 22 56 69 |:"...`..|4,10)"Vi|
|00001260| 65 77 20 52 65 63 6f 72 | 64 73 22 8a 34 2c 31 34 |ew Recor|ds".4,14|
|00001270| 29 22 53 61 76 65 20 46 | 69 6c 65 20 6f 72 20 73 |)"Save F|ile or s|
|00001280| 75 62 2d 46 69 6c 65 22 | 8a 34 2c 31 38 29 22 50 |ub-File"|.4,18)"P|
|00001290| 72 69 6e 74 20 46 69 6c | 65 20 6f 72 20 73 75 62 |rint Fil|e or sub|
|000012a0| 2d 46 69 6c 65 22 8a 34 | 2c 32 32 29 22 51 75 69 |-File".4|,22)"Qui|
|000012b0| 74 22 0d 07 bc 38 f2 62 | 6f 78 28 31 30 2c 39 39 |t"...8.b|ox(10,99|
|000012c0| 32 2c 35 32 30 2c 31 30 | 37 32 2c 36 30 30 29 3a |2,520,10|72,600):|
|000012d0| f2 62 6f 78 28 31 31 2c | 31 30 30 30 2c 35 32 38 |.box(11,|1000,528|
|000012e0| 2c 31 30 36 34 2c 35 39 | 32 29 0d 07 c6 38 f2 62 |,1064,59|2)...8.b|
|000012f0| 6f 78 28 31 30 2c 39 39 | 32 2c 33 39 32 2c 31 30 |ox(10,99|2,392,10|
|00001300| 37 32 2c 34 37 32 29 3a | f2 62 6f 78 28 31 31 2c |72,472):|.box(11,|
|00001310| 31 30 30 30 2c 34 30 30 | 2c 31 30 36 34 2c 34 36 |1000,400|,1064,46|
|00001320| 34 29 0d 07 d0 38 f2 62 | 6f 78 28 31 30 2c 39 39 |4)...8.b|ox(10,99|
|00001330| 32 2c 32 36 34 2c 31 30 | 37 32 2c 33 34 34 29 3a |2,264,10|72,344):|
|00001340| f2 62 6f 78 28 31 31 2c | 31 30 30 30 2c 32 37 32 |.box(11,|1000,272|
|00001350| 2c 31 30 36 34 2c 33 33 | 36 29 0d 07 da 38 f2 62 |,1064,33|6)...8.b|
|00001360| 6f 78 28 31 30 2c 39 39 | 32 2c 31 33 36 2c 31 30 |ox(10,99|2,136,10|
|00001370| 37 32 2c 32 31 36 29 3a | f2 62 6f 78 28 31 31 2c |72,216):|.box(11,|
|00001380| 31 30 30 30 2c 31 34 34 | 2c 31 30 36 34 2c 32 30 |1000,144|,1064,20|
|00001390| 38 29 0d 07 e4 0c fb 31 | 30 3a fb 31 33 39 0d 07 |8).....1|0:.139..|
|000013a0| ee 37 f1 8a 33 36 2c 31 | 30 29 3b 22 31 22 3b 8a |.7..36,1|0);"1";.|
|000013b0| 33 36 2c 31 34 29 3b 22 | 32 22 3b 8a 33 36 2c 31 |36,14);"|2";.36,1|
|000013c0| 38 29 3b 22 33 22 3b 8a | 33 36 2c 32 32 29 3b 22 |8);"3";.|36,22);"|
|000013d0| 34 22 3b 3a 87 0d 07 f8 | 19 ef 32 34 2c 39 39 32 |4";:....|..24,992|
|000013e0| 3b 31 33 36 3b 31 30 37 | 32 3b 36 30 30 3b 0d 08 |;136;107|2;600;..|
|000013f0| 02 05 f5 0d 08 0c 15 f2 | 61 6e 73 77 65 72 28 22 |........|answer("|
|00001400| 31 32 33 34 22 2c 30 29 | 0d 08 16 09 e7 7a 3d 34 |1234",0)|.....z=4|
|00001410| 8c 0d 08 20 1b e7 28 79 | 3e 35 32 30 20 80 20 79 |... ..(y|>520 . y|
|00001420| 3c 36 30 30 29 20 8c 20 | 5a 25 3d 31 0d 08 2a 1b |<600) . |Z%=1..*.|
|00001430| e7 28 79 3e 33 39 32 20 | 80 20 79 3c 34 37 32 29 |.(y>392 |. y<472)|
|00001440| 20 8c 20 5a 25 3d 32 0d | 08 34 1b e7 28 79 3e 32 | . Z%=2.|.4..(y>2|
|00001450| 36 34 20 80 20 79 3c 33 | 34 34 29 20 8c 20 5a 25 |64 . y<3|44) . Z%|
|00001460| 3d 33 0d 08 3e 1b e7 28 | 79 3e 31 33 36 20 80 20 |=3..>..(|y>136 . |
|00001470| 79 3c 32 31 36 29 20 8c | 20 5a 25 3d 34 0d 08 48 |y<216) .| Z%=4..H|
|00001480| 05 cd 0d 08 52 0a fd 5a | 25 3c 3e 30 0d 08 5c 05 |....R..Z|%<>0..\.|
|00001490| e1 0d 08 66 05 3a 0d 08 | 70 23 f4 20 4d 65 6e 75 |...f.:..|p#. Menu|
|000014a0| 20 6f 70 74 69 6f 6e 20 | 31 20 2d 20 56 69 65 77 | option |1 - View|
|000014b0| 20 72 6f 75 74 69 6e 65 | 73 0d 08 7a 05 3a 0d 08 | routine|s..z.:..|
|000014c0| 84 0a dd f2 76 69 65 77 | 0d 08 8e 61 f2 62 6f 78 |....view|...a.box|
|000014d0| 28 32 2c 30 2c 30 2c 31 | 32 37 39 2c 31 30 32 33 |(2,0,0,1|279,1023|
|000014e0| 29 3a f2 62 6f 78 28 31 | 33 2c 32 34 2c 32 34 2c |):.box(1|3,24,24,|
|000014f0| 32 38 30 2c 31 30 30 30 | 29 3a f2 62 6f 78 28 33 |280,1000|):.box(3|
|00001500| 2c 33 30 34 2c 32 34 2c | 31 32 35 36 2c 39 35 32 |,304,24,|1256,952|
|00001510| 29 3a f2 62 6f 78 28 32 | 2c 33 32 30 2c 34 30 2c |):.box(2|,320,40,|
|00001520| 31 32 34 38 2c 39 33 36 | 29 0d 08 98 0f fb 36 3a |1248,936|).....6:|
|00001530| fb 31 33 32 3a ef 32 36 | 0d 08 a2 0b e3 58 25 3d |.132:.26|.....X%=|
|00001540| 30 b8 39 0d 08 ac 47 f2 | 62 6f 78 28 36 2c 34 38 |0.9...G.|box(6,48|
|00001550| 2c 39 36 2a 58 25 2b 34 | 38 2c 32 35 36 2c 39 36 |,96*X%+4|8,256,96|
|00001560| 2a 58 25 2b 31 31 32 29 | 3a f2 62 6f 78 28 34 2c |*X%+112)|:.box(4,|
|00001570| 35 36 2c 39 36 2a 58 25 | 2b 35 36 2c 32 34 38 2c |56,96*X%|+56,248,|
|00001580| 39 36 2a 58 25 2b 31 30 | 34 29 0d 08 b6 05 ed 0d |96*X%+10|4)......|
|00001590| 08 c0 ac f1 8a 34 2c 32 | 29 22 31 20 4e 45 58 54 |.....4,2|)"1 NEXT|
|000015a0| 22 3b 8a 34 2c 35 29 22 | 32 20 4c 41 53 54 22 3b |";.4,5)"|2 LAST";|
|000015b0| 8a 34 2c 38 29 22 33 20 | 44 45 4c 45 54 45 22 3b |.4,8)"3 |DELETE";|
|000015c0| 8a 34 2c 31 31 29 22 34 | 20 49 4e 53 45 52 54 22 |.4,11)"4| INSERT"|
|000015d0| 3b 8a 34 2c 31 34 29 22 | 35 20 4d 41 49 4e 20 46 |;.4,14)"|5 MAIN F|
|000015e0| 49 4c 45 22 3b 8a 34 2c | 31 37 29 22 36 20 53 55 |ILE";.4,|17)"6 SU|
|000015f0| 42 20 46 49 4c 45 22 3b | 8a 34 2c 32 30 29 22 37 |B FILE";|.4,20)"7|
|00001600| 20 53 4f 52 54 22 3b 8a | 34 2c 32 33 29 22 38 20 | SORT";.|4,23)"8 |
|00001610| 47 4f 20 54 4f 22 3b 8a | 34 2c 32 36 29 22 39 20 |GO TO";.|4,26)"9 |
|00001620| 50 52 49 4e 54 22 3b 8a | 34 2c 32 39 29 22 30 20 |PRINT";.|4,29)"0 |
|00001630| 4d 41 49 4e 20 4d 45 4e | 55 22 3b 0d 08 ca 0c fb |MAIN MEN|U";.....|
|00001640| 31 35 3a fb 31 33 30 0d | 08 d4 42 f1 8a 32 35 2c |15:.130.|..B..25,|
|00001650| 31 29 22 46 69 6c 65 3a | 20 22 46 69 6c 65 24 3b |1)"File:| "File$;|
|00001660| 8a 34 35 2c 31 29 22 52 | 65 63 6f 72 64 73 3a 20 |.45,1)"R|ecords: |
|00001670| 22 3b 54 25 3b 8a 36 35 | 2c 31 29 22 49 6e 64 65 |";T%;.65|,1)"Inde|
|00001680| 78 3a 20 22 3b 49 6e 64 | 3b 0d 08 de 1b f2 74 65 |x: ";Ind|;.....te|
|00001690| 78 74 28 30 2c 31 33 30 | 2c 32 30 2c 33 30 2c 37 |xt(0,130|,20,30,7|
|000016a0| 37 2c 33 29 0d 08 e8 0c | e3 58 25 3d 31 b8 54 25 |7,3)....|.X%=1.T%|
|000016b0| 0d 08 f2 21 6c 25 3d 30 | 3a f2 64 69 73 70 6c 61 |...!l%=0|:.displa|
|000016c0| 79 28 49 6e 64 65 78 25 | 28 49 6e 64 2c 58 25 29 |y(Index%|(Ind,X%)|
|000016d0| 29 0d 08 fc 05 ed 0d 09 | 06 05 e1 0d 09 10 05 3a |).......|.......:|
|000016e0| 0d 09 1a 11 dd f2 64 69 | 73 70 6c 61 79 28 78 25 |......di|splay(x%|
|000016f0| 29 0d 09 24 32 db 3a f1 | 8a 33 2c 30 29 22 41 6c |)..$2.:.|.3,0)"Al|
|00001700| 74 65 72 20 72 65 63 6f | 72 64 22 3b 8a 34 30 2c |ter reco|rd";.40,|
|00001710| 30 29 22 52 65 63 6f 72 | 64 20 6e 6f 3a 20 22 3b |0)"Recor|d no: ";|
|00001720| 58 25 3b 0d 09 2e 33 f2 | 62 6f 78 28 36 2c 35 38 |X%;...3.|box(6,58|
|00001730| 34 2c 39 30 30 2c 36 30 | 38 2c 39 32 34 29 3a f2 |4,900,60|8,924):.|
|00001740| 62 6f 78 28 30 2c 35 38 | 38 2c 39 30 34 2c 36 30 |box(0,58|8,904,60|
|00001750| 34 2c 39 32 30 29 0d 09 | 38 0c e3 59 25 3d 31 b8 |4,920)..|8..Y%=1.|
|00001760| 46 25 0d 09 42 57 fb 39 | 3a f1 8a 31 2c 46 6e 61 |F%..BW.9|:..1,Fna|
|00001770| 6d 65 25 28 59 25 29 29 | 3b 46 24 28 59 25 29 3b |me%(Y%))|;F$(Y%);|
|00001780| 22 3a 20 22 3b 3a fb 30 | 3a f1 8a 46 78 25 28 59 |": ";:.0|:..Fx%(Y|
|00001790| 25 29 2c 46 79 25 28 59 | 25 29 29 3b 3a c8 99 22 |%),Fy%(Y|%));:.."|
|000017a0| 4f 53 5f 50 72 65 74 74 | 79 50 72 69 6e 74 22 2c |OS_Prett|yPrint",|
|000017b0| 52 24 28 78 25 2c 59 25 | 29 0d 09 4c 05 f1 0d 09 |R$(x%,Y%|)..L....|
|000017c0| 56 05 ed 0d 09 60 21 f2 | 70 61 75 73 65 28 35 29 |V....`!.|pause(5)|
|000017d0| 3a ef 32 34 2c 34 38 3b | 34 38 3b 31 32 35 36 3b |:.24,48;|48;1256;|
|000017e0| 39 37 36 3b 0d 09 6a 09 | 5a 25 3d 32 30 0d 09 74 |976;..j.|Z%=20..t|
|000017f0| 05 f5 0d 09 7e 1c f2 61 | 6e 73 77 65 72 28 22 31 |....~..a|nswer("1|
|00001800| 32 33 34 35 36 37 38 39 | 30 20 22 2c 31 29 0d 09 |23456789|0 ",1)..|
|00001810| 88 12 e7 7a 3d 34 20 80 | 20 78 3c 32 35 36 20 8c |...z=4 .| x<256 .|
|00001820| 0d 09 92 1b e7 28 79 3e | 39 31 32 20 80 20 79 3c |.....(y>|912 . y<|
|00001830| 39 37 36 29 20 8c 20 5a | 25 3d 31 0d 09 9c 1b e7 |976) . Z|%=1.....|
|00001840| 28 79 3e 38 31 36 20 80 | 20 79 3c 38 38 30 29 20 |(y>816 .| y<880) |
|00001850| 8c 20 5a 25 3d 32 0d 09 | a6 1b e7 28 79 3e 37 32 |. Z%=2..|...(y>72|
|00001860| 30 20 80 20 79 3c 37 38 | 34 29 20 8c 20 5a 25 3d |0 . y<78|4) . Z%=|
|00001870| 33 0d 09 b0 1b e7 28 79 | 3e 36 32 34 20 80 20 79 |3.....(y|>624 . y|
|00001880| 3c 36 38 38 29 20 8c 20 | 5a 25 3d 34 0d 09 ba 1b |<688) . |Z%=4....|
|00001890| e7 28 79 3e 35 32 38 20 | 80 20 79 3c 35 39 32 29 |.(y>528 |. y<592)|
|000018a0| 20 8c 20 5a 25 3d 35 0d | 09 c4 1b e7 28 79 3e 34 | . Z%=5.|....(y>4|
|000018b0| 33 32 20 80 20 79 3c 34 | 39 36 29 20 8c 20 5a 25 |32 . y<4|96) . Z%|
|000018c0| 3d 36 0d 09 ce 1b e7 28 | 79 3e 33 33 36 20 80 20 |=6.....(|y>336 . |
|000018d0| 79 3c 34 30 30 29 20 8c | 20 5a 25 3d 37 0d 09 d8 |y<400) .| Z%=7...|
|000018e0| 1b e7 28 79 3e 32 34 30 | 20 80 20 79 3c 33 30 34 |..(y>240| . y<304|
|000018f0| 29 20 8c 20 5a 25 3d 38 | 0d 09 e2 1b e7 28 79 3e |) . Z%=8|.....(y>|
|00001900| 31 34 34 20 80 20 79 3c | 32 30 38 29 20 8c 20 5a |144 . y<|208) . Z|
|00001910| 25 3d 39 0d 09 ec 1b e7 | 28 79 3e 34 38 20 80 20 |%=9.....|(y>48 . |
|00001920| 79 3c 31 31 32 29 20 8c | 20 5a 25 3d 31 30 0d 09 |y<112) .| Z%=10..|
|00001930| f6 05 cd 0d 0a 00 2b e7 | 28 79 3e 39 30 30 80 79 |......+.|(y>900.y|
|00001940| 3c 39 32 34 29 80 28 78 | 3e 35 38 34 80 78 3c 36 |<924).(x|>584.x<6|
|00001950| 30 38 29 80 7a 3d 34 20 | 8c 5a 25 3d 35 35 0d 0a |08).z=4 |.Z%=55..|
|00001960| 0a 15 e7 6c 25 3c 3e 30 | 80 7a 3d 31 20 8c 5a 25 |...l%<>0|.z=1 .Z%|
|00001970| 3d 36 36 0d 0a 14 0e e7 | 7a 3d 32 20 5a 25 3d 34 |=66.....|z=2 Z%=4|
|00001980| 34 0d 0a 1e 0b c8 8e 20 | 5a 25 20 ca 0d 0a 28 13 |4...... |Z% ...(.|
|00001990| c9 20 31 30 3a 58 25 3d | 54 25 3a 5a 25 3d 31 0d |. 10:X%=|T%:Z%=1.|
|000019a0| 0a 32 0d c9 20 32 3a 58 | 25 2d 3d 32 0d 0a 3c 0f |.2.. 2:X|%-=2..<.|
|000019b0| c9 20 33 3a f2 64 65 6c | 65 74 65 0d 0a 46 0f c9 |. 3:.del|ete..F..|
|000019c0| 20 34 3a f2 69 6e 73 65 | 72 74 0d 0a 50 11 c9 20 | 4:.inse|rt..P.. |
|000019d0| 35 3a f2 6d 61 69 6e 66 | 69 6c 65 0d 0a 5a 10 c9 |5:.mainf|ile..Z..|
|000019e0| 20 36 3a f2 73 75 62 66 | 69 6c 65 0d 0a 64 0d c9 | 6:.subf|ile..d..|
|000019f0| 20 37 3a f2 73 6f 72 74 | 0d 0a 6e 0d c9 20 38 3a | 7:.sort|..n.. 8:|
|00001a00| f2 67 6f 74 6f 0d 0a 78 | 11 c9 20 39 3a f2 70 72 |.goto..x|.. 9:.pr|
|00001a10| 69 6e 74 6f 6e 65 0d 0a | 82 0d c9 20 31 31 3a 5a |intone..|... 11:Z|
|00001a20| 25 3d 31 0d 0a 8c 1a c9 | 20 34 34 3a 49 6e 64 2b |%=1.....| 44:Ind+|
|00001a30| 3d 31 3a 58 25 3d 54 25 | 3a 5a 25 3d 31 0d 0a 96 |=1:X%=T%|:Z%=1...|
|00001a40| 0f c9 20 35 35 3a f2 65 | 6e 74 65 72 0d 0a a0 0f |.. 55:.e|nter....|
|00001a50| c9 20 36 36 3a f2 66 69 | 65 6c 64 0d 0a aa 05 cb |. 66:.fi|eld.....|
|00001a60| 0d 0a b4 0e fd 5a 25 3c | 33 80 5a 25 3e 30 0d 0a |.....Z%<|3.Z%>0..|
|00001a70| be 0e e7 58 25 3c 30 20 | 58 25 3d 30 0d 0a c8 05 |...X%<0 |X%=0....|
|00001a80| e1 0d 0a d2 05 3a 0d 0a | dc 0b dd f2 65 6e 74 65 |.....:..|....ente|
|00001a90| 72 0d 0a e6 0c e3 59 25 | 3d 31 b8 46 25 0d 0a f0 |r.....Y%|=1.F%...|
|00001aa0| 43 fb 31 35 3a f1 8a 31 | 2c 46 6e 61 6d 65 25 28 |C.15:..1|,Fname%(|
|00001ab0| 59 25 29 29 3b 46 24 28 | 59 25 29 3b 22 3a 20 22 |Y%));F$(|Y%);": "|
|00001ac0| 3b 8a 46 78 25 28 59 25 | 29 2c 46 79 25 28 59 25 |;.Fx%(Y%|),Fy%(Y%|
|00001ad0| 29 29 3b c4 4c 25 28 59 | 25 29 2c 22 5f 22 29 3b |));.L%(Y|%),"_");|
|00001ae0| 0d 0a fa 24 fb 36 3a e8 | 86 8a 46 78 25 28 59 25 |...$.6:.|..Fx%(Y%|
|00001af0| 29 2c 46 79 25 28 59 25 | 29 29 22 22 52 24 28 30 |),Fy%(Y%|))""R$(0|
|00001b00| 2c 59 25 29 0d 0b 04 23 | e7 52 24 28 30 2c 59 25 |,Y%)...#|.R$(0,Y%|
|00001b10| 29 3d 22 22 20 52 24 28 | 30 2c 59 25 29 3d 52 24 |)="" R$(|0,Y%)=R$|
|00001b20| 28 78 25 2c 59 25 29 0d | 0b 0e 19 c8 95 20 a9 28 |(x%,Y%).|..... .(|
|00001b30| 52 24 28 30 2c 59 25 29 | 29 3c 4c 25 28 59 25 29 |R$(0,Y%)|)<L%(Y%)|
|00001b40| 0d 0b 18 11 52 24 28 30 | 2c 59 25 29 2b 3d 22 20 |....R$(0|,Y%)+=" |
|00001b50| 22 0d 0b 22 05 ce 0d 0b | 2c 18 c8 95 a9 28 52 24 |".."....|,....(R$|
|00001b60| 28 30 2c 59 25 29 29 3e | 4c 25 28 59 25 29 0d 0b |(0,Y%))>|L%(Y%)..|
|00001b70| 36 17 52 24 28 30 2c 59 | 25 29 3d c0 52 24 28 30 |6.R$(0,Y|%)=.R$(0|
|00001b80| 2c 59 25 29 29 0d 0b 40 | 05 ce 0d 0b 4a 2c 52 24 |,Y%))..@|....J,R$|
|00001b90| 28 78 25 2c 59 25 29 3d | 52 24 28 30 2c 59 25 29 |(x%,Y%)=|R$(0,Y%)|
|00001ba0| 3a 52 24 28 30 2c 59 25 | 29 3d c4 4c 25 28 59 25 |:R$(0,Y%|)=.L%(Y%|
|00001bb0| 29 2c 22 2a 22 29 0d 0b | 54 52 fb 30 3a f1 8a 31 |),"*")..|TR.0:..1|
|00001bc0| 2c 46 6e 61 6d 65 25 28 | 59 25 29 29 3b 46 24 28 |,Fname%(|Y%));F$(|
|00001bd0| 59 25 29 3b 22 3a 20 22 | 3b 8a 46 78 25 28 59 25 |Y%);": "|;.Fx%(Y%|
|00001be0| 29 2c 46 79 25 28 59 25 | 29 29 3b 3a c8 99 22 4f |),Fy%(Y%|));:.."O|
|00001bf0| 53 5f 50 72 65 74 74 79 | 50 72 69 6e 74 22 2c 52 |S_Pretty|Print",R|
|00001c00| 24 28 78 25 2c 59 25 29 | 0d 0b 5e 05 ed 0d 0b 68 |$(x%,Y%)|..^....h|
|00001c10| 0e 5a 25 3d 31 3a 58 25 | 2d 3d 31 0d 0b 72 05 e1 |.Z%=1:X%|-=1..r..|
|00001c20| 0d 0b 7c 05 3a 0d 0b 86 | 0b dd f2 66 69 65 6c 64 |..|.:...|...field|
|00001c30| 0d 0b 90 12 ea 20 6c 78 | 25 2c 72 78 25 2c 63 75 |..... lx|%,rx%,cu|
|00001c40| 72 25 0d 0b 9a 17 6c 78 | 25 3d 30 3a 72 78 25 3d |r%....lx|%=0:rx%=|
|00001c50| 4c 25 28 6c 25 29 2d 35 | 38 0d 0b a4 10 53 24 3d |L%(l%)-5|8....S$=|
|00001c60| 52 24 28 78 25 2c 6c 25 | 29 0d 0b ae 0a 2a 46 58 |R$(x%,l%|)....*FX|
|00001c70| 34 20 31 0d 0b b8 34 f2 | 74 65 78 74 28 30 2c 31 |4 1...4.|text(0,1|
|00001c80| 34 33 2c 32 30 2c 31 2c | 37 38 2c 31 29 3a f2 62 |43,20,1,|78,1):.b|
|00001c90| 6f 78 28 32 2c 33 30 34 | 2c 39 35 32 2c 31 32 37 |ox(2,304|,952,127|
|00001ca0| 39 2c 31 30 30 30 29 0d | 0b c2 0d f1 c0 53 24 2c |9,1000).|.....S$,|
|00001cb0| 35 38 29 3b 0d 0b cc 14 | ef 33 31 2c 30 2c 30 3a |58);....|.31,0,0:|
|00001cc0| ee 3a 63 75 72 25 3d 30 | 0d 0b d6 0b 2a 46 58 31 |.:cur%=0|....*FX1|
|00001cd0| 35 20 30 0d 0b e0 05 f5 | 0d 0b ea 08 c8 97 20 ee |5 0.....|...... .|
|00001ce0| 0d 0b f4 0c c8 97 20 78 | 2c 79 2c 7a 0d 0b fe 09 |...... x|,y,z....|
|00001cf0| e7 7a 3d 34 8c 0d 0c 08 | 22 63 75 72 25 3d 28 78 |.z=4....|"cur%=(x|
|00001d00| 2d 33 32 30 29 2f 31 36 | 3a e7 63 75 72 25 3c 30 |-320)/16|:.cur%<0|
|00001d10| 20 63 75 72 25 3d 30 0d | 0c 12 0e ef 33 31 2c 63 | cur%=0.|....31,c|
|00001d20| 75 72 25 2c 30 0d 0c 1c | 05 cd 0d 0c 26 0a 47 3d |ur%,0...|....&.G=|
|00001d30| a6 28 30 29 0d 0c 30 0b | e7 47 3d 31 32 37 8c 0d |.(0)..0.|.G=127..|
|00001d40| 0c 3a 67 e7 63 75 72 25 | 3c 3e 30 20 53 24 3d c0 |.:g.cur%|<>0 S$=.|
|00001d50| 53 24 2c 6c 78 25 2b 63 | 75 72 25 2d 31 29 2b c2 |S$,lx%+c|ur%-1)+.|
|00001d60| 53 24 2c 4c 25 28 6c 25 | 29 2d 28 6c 78 25 2b 63 |S$,L%(l%|)-(lx%+c|
|00001d70| 75 72 25 29 29 2b 22 20 | 22 3a f1 8a 30 2c 30 29 |ur%))+" |":..0,0)|
|00001d80| c1 53 24 2c 6c 78 25 2b | 31 2c 35 38 29 3b 3a 63 |.S$,lx%+|1,58);:c|
|00001d90| 75 72 25 2d 3d 31 3a ef | 33 31 2c 63 75 72 25 2c |ur%-=1:.|31,cur%,|
|00001da0| 30 20 8b 20 ef 37 0d 0c | 44 0d f2 70 61 75 73 65 |0 . .7..|D..pause|
|00001db0| 28 35 29 0d 0c 4e 05 cd | 0d 0c 58 0b e7 47 3d 31 |(5)..N..|..X..G=1|
|00001dc0| 33 36 8c 0d 0c 62 14 e7 | 63 75 72 25 3d 30 80 6c |36...b..|cur%=0.l|
|00001dd0| 78 25 3d 30 20 ef 37 0d | 0c 6c 40 e7 63 75 72 25 |x%=0 .7.|.l@.cur%|
|00001de0| 3d 30 80 6c 78 25 3c 3e | 30 20 6c 78 25 2d 3d 31 |=0.lx%<>|0 lx%-=1|
|00001df0| 3a 72 78 25 2b 3d 31 3a | f1 8a 30 2c 30 29 c1 53 |:rx%+=1:|..0,0).S|
|00001e00| 24 2c 6c 78 25 2b 31 2c | 35 38 29 3b 3a ef 33 31 |$,lx%+1,|58);:.31|
|00001e10| 2c 63 75 72 25 2c 30 0d | 0c 76 16 e7 63 75 72 25 |,cur%,0.|.v..cur%|
|00001e20| 3e 30 20 63 75 72 25 2d | 3d 31 3a ef 38 0d 0c 80 |>0 cur%-|=1:.8...|
|00001e30| 0d f2 70 61 75 73 65 28 | 35 29 0d 0c 8a 05 cd 0d |..pause(|5)......|
|00001e40| 0c 94 58 e7 47 3d 31 33 | 35 20 53 24 3d c0 53 24 |..X.G=13|5 S$=.S$|
|00001e50| 2c 6c 78 25 2b 63 75 72 | 25 29 2b c2 53 24 2c 4c |,lx%+cur|%)+.S$,L|
|00001e60| 25 28 6c 25 29 2d 28 6c | 78 25 2b 63 75 72 25 2b |%(l%)-(l|x%+cur%+|
|00001e70| 31 29 29 2b 22 20 22 3a | f1 8a 30 2c 30 29 c1 53 |1))+" ":|..0,0).S|
|00001e80| 24 2c 6c 78 25 2b 31 2c | 35 38 29 3b 3a ef 33 31 |$,lx%+1,|58);:.31|
|00001e90| 2c 63 75 72 25 2c 30 0d | 0c 9e 0b e7 47 3d 31 33 |,cur%,0.|....G=13|
|00001ea0| 37 8c 0d 0c a8 15 e7 63 | 75 72 25 3d 35 37 80 72 |7......c|ur%=57.r|
|00001eb0| 78 25 3d 30 20 ef 37 0d | 0c b2 3e e7 63 75 72 25 |x%=0 .7.|..>.cur%|
|00001ec0| 3d 35 37 80 72 78 25 3e | 30 20 72 78 25 2d 3d 31 |=57.rx%>|0 rx%-=1|
|00001ed0| 3a 6c 78 25 2b 3d 31 3a | f1 8a 30 2c 30 29 c1 53 |:lx%+=1:|..0,0).S|
|00001ee0| 24 2c 6c 78 25 2b 31 2c | 35 38 29 3b 3a ef 33 31 |$,lx%+1,|58);:.31|
|00001ef0| 2c 35 37 2c 30 0d 0c b7 | 23 e7 63 75 72 25 3c 35 |,57,0...|#.cur%<5|
|00001f00| 37 80 28 4c 25 28 6c 25 | 29 2d 6c 78 25 2d 31 29 |7.(L%(l%|)-lx%-1)|
|00001f10| 3d 63 75 72 25 20 ef 37 | 0d 0c bc 2b e7 63 75 72 |=cur% .7|...+.cur|
|00001f20| 25 3c 35 37 80 28 4c 25 | 28 6c 25 29 2d 6c 78 25 |%<57.(L%|(l%)-lx%|
|00001f30| 2d 31 29 3e 63 75 72 25 | 20 63 75 72 25 2b 3d 31 |-1)>cur%| cur%+=1|
|00001f40| 3a ef 39 0d 0c c6 0d f2 | 70 61 75 73 65 28 35 29 |:.9.....|pause(5)|
|00001f50| 0d 0c d0 05 cd 0d 0c da | 4b e7 47 3d 32 31 20 53 |........|K.G=21 S|
|00001f60| 24 3d c4 4c 25 28 6c 25 | 29 2c 22 20 22 29 3a 6c |$=.L%(l%|)," "):l|
|00001f70| 78 25 3d 30 3a 63 75 72 | 25 3d 30 3a 72 78 25 3d |x%=0:cur|%=0:rx%=|
|00001f80| 4c 25 28 6c 25 29 2d 35 | 38 3a f1 8a 30 2c 30 29 |L%(l%)-5|8:..0,0)|
|00001f90| c0 53 24 2c 35 38 29 3b | 3a ef 33 31 2c 30 2c 30 |.S$,58);|:.31,0,0|
|00001fa0| 0d 0c e4 10 e7 47 3e 33 | 31 80 47 3c 31 32 37 8c |.....G>3|1.G<127.|
|00001fb0| 0d 0c ee 19 e7 28 4c 25 | 28 6c 25 29 2d 6c 78 25 |.....(L%|(l%)-lx%|
|00001fc0| 2d 31 29 3e 63 75 72 25 | 8c 0d 0c f8 72 e7 63 75 |-1)>cur%|....r.cu|
|00001fd0| 72 25 3d 35 37 20 53 24 | 3d c0 53 24 2c 6c 78 25 |r%=57 S$|=.S$,lx%|
|00001fe0| 2b 63 75 72 25 29 2b bd | 28 47 29 2b c1 53 24 2c |+cur%)+.|(G)+.S$,|
|00001ff0| 6c 78 25 2b 63 75 72 25 | 2b 31 2c 4c 25 28 6c 25 |lx%+cur%|+1,L%(l%|
|00002000| 29 2d 6c 78 25 2d 63 75 | 72 25 2d 31 29 3a 6c 78 |)-lx%-cu|r%-1):lx|
|00002010| 25 2b 3d 31 3a 72 78 25 | 2d 3d 31 3a f1 8a 30 2c |%+=1:rx%|-=1:..0,|
|00002020| 30 29 c1 53 24 2c 6c 78 | 25 2b 31 2c 35 38 29 3b |0).S$,lx|%+1,58);|
|00002030| 3a ef 33 31 2c 63 75 72 | 25 2c 30 0d 0d 02 6c e7 |:.31,cur|%,0...l.|
|00002040| 63 75 72 25 3c 35 37 20 | 53 24 3d c0 53 24 2c 6c |cur%<57 |S$=.S$,l|
|00002050| 78 25 2b 63 75 72 25 29 | 2b bd 28 47 29 2b c1 53 |x%+cur%)|+.(G)+.S|
|00002060| 24 2c 6c 78 25 2b 63 75 | 72 25 2b 31 2c 4c 25 28 |$,lx%+cu|r%+1,L%(|
|00002070| 6c 25 29 2d 6c 78 25 2d | 63 75 72 25 2d 31 29 3a |l%)-lx%-|cur%-1):|
|00002080| 63 75 72 25 2b 3d 31 3a | f1 8a 30 2c 30 29 c1 53 |cur%+=1:|..0,0).S|
|00002090| 24 2c 6c 78 25 2b 31 2c | 35 38 29 3b 3a ef 33 31 |$,lx%+1,|58);:.31|
|000020a0| 2c 63 75 72 25 2c 30 0d | 0d 0c 05 cd 0d 0d 16 05 |,cur%,0.|........|
|000020b0| cd 0d 0d 20 21 e7 63 75 | 72 25 3c 3e b1 20 84 20 |... !.cu|r%<>. . |
|000020c0| a9 28 53 24 29 3c 3e 4c | 25 28 6c 25 29 20 47 3d |.(S$)<>L|%(l%) G=|
|000020d0| 32 37 0d 0d 2a 0e fd 47 | 3d 31 33 84 47 3d 32 37 |27..*..G|=13.G=27|
|000020e0| 0d 0d 34 08 c8 97 20 87 | 0d 0d 3e 16 e7 47 3d 31 |..4... .|..>..G=1|
|000020f0| 33 20 52 24 28 78 25 2c | 6c 25 29 3d 53 24 0d 0d |3 R$(x%,|l%)=S$..|
|00002100| 48 0e 58 25 2d 3d 31 3a | 5a 25 3d 32 0d 0d 52 81 |H.X%-=1:|Z%=2..R.|
|00002110| f2 62 6f 78 28 32 2c 33 | 30 34 2c 39 35 32 2c 31 |.box(2,3|04,952,1|
|00002120| 32 35 36 2c 31 30 30 30 | 29 3a fb 31 35 3a fb 31 |256,1000|):.15:.1|
|00002130| 33 30 3a ef 32 36 3a f1 | 8a 32 35 2c 31 29 22 46 |30:.26:.|.25,1)"F|
|00002140| 69 6c 65 3a 20 22 46 69 | 6c 65 24 3b 8a 34 35 2c |ile: "Fi|le$;.45,|
|00002150| 31 29 22 52 65 63 6f 72 | 64 73 3a 20 22 3b 54 25 |1)"Recor|ds: ";T%|
|00002160| 3b 8a 36 35 2c 31 29 22 | 49 6e 64 65 78 3a 20 22 |;.65,1)"|Index: "|
|00002170| 3b 49 6e 64 3b 3a f2 74 | 65 78 74 28 30 2c 31 33 |;Ind;:.t|ext(0,13|
|00002180| 30 2c 32 30 2c 33 30 2c | 37 37 2c 33 29 0d 0d 5c |0,20,30,|77,3)..\|
|00002190| 0a 2a 46 58 34 20 30 0d | 0d 66 05 87 0d 0d 70 05 |.*FX4 0.|.f....p.|
|000021a0| e1 0d 0d 7a 05 3a 0d 0d | 84 0c dd f2 64 65 6c 65 |...z.:..|....dele|
|000021b0| 74 65 0d 0d 8e 1c ef 32 | 36 3a fb 31 34 3a f1 8a |te.....2|6:.14:..|
|000021c0| 32 35 2c 31 29 c4 35 33 | 2c 22 20 22 29 3b 0d 0d |25,1).53|," ");..|
|000021d0| 98 39 f2 62 6f 78 28 36 | 2c 31 31 32 38 2c 39 35 |.9.box(6|,1128,95|
|000021e0| 32 2c 31 31 36 30 2c 31 | 30 30 30 29 3a f2 62 6f |2,1160,1|000):.bo|
|000021f0| 78 28 31 33 2c 31 31 33 | 32 2c 39 35 36 2c 31 31 |x(13,113|2,956,11|
|00002200| 35 36 2c 39 39 36 29 0d | 0d a2 38 f2 62 6f 78 28 |56,996).|..8.box(|
|00002210| 36 2c 31 31 39 32 2c 39 | 35 32 2c 31 32 32 34 2c |6,1192,9|52,1224,|
|00002220| 31 30 30 30 29 3a f2 62 | 6f 78 28 30 2c 31 31 39 |1000):.b|ox(0,119|
|00002230| 36 2c 39 35 36 2c 31 32 | 32 30 2c 39 39 36 29 0d |6,956,12|20,996).|
|00002240| 0d ac 5c f1 8a 32 35 2c | 31 29 22 41 72 65 20 79 |..\..25,|1)"Are y|
|00002250| 6f 75 20 73 75 72 65 20 | 79 6f 75 20 77 69 73 68 |ou sure |you wish|
|00002260| 20 74 6f 20 64 65 6c 65 | 74 65 20 74 68 69 73 20 | to dele|te this |
|00002270| 72 65 63 6f 72 64 3f 22 | 3b 3a fb 31 34 31 3a f1 |record?"|;:.141:.|
|00002280| 8a 37 31 2c 31 29 22 59 | 22 3b 3a fb 31 32 38 3a |.71,1)"Y|";:.128:|
|00002290| f1 8a 37 35 2c 31 29 22 | 4e 22 3b 0d 0d b6 07 ef |..75,1)"|N";.....|
|000022a0| 32 36 0d 0d c0 05 f5 0d | 0d ca 15 f2 61 6e 73 77 |26......|....answ|
|000022b0| 65 72 28 22 79 59 6e 4e | 22 2c 30 29 0d 0d d4 1b |er("yYnN|",0)....|
|000022c0| e7 7a 3d 34 20 80 20 28 | 79 3e 39 35 32 80 79 3c |.z=4 . (|y>952.y<|
|000022d0| 31 30 30 30 29 20 8c 0d | 0d de 11 e7 78 3c 31 31 |1000) ..|....x<11|
|000022e0| 36 30 20 8c 5a 25 3d 31 | 0d 0d e8 11 e7 78 3e 31 |60 .Z%=1|.....x>1|
|000022f0| 31 39 32 20 8c 5a 25 3d | 33 0d 0d f2 05 cd 0d 0d |192 .Z%=|3.......|
|00002300| fc 0a fd 5a 25 3c 3e 30 | 0d 0e 06 14 e7 5a 25 3c |...Z%<>0|.....Z%<|
|00002310| 33 20 f2 6f 75 74 3a 58 | 25 2d 3d 31 0d 0e 10 69 |3 .out:X|%-=1...i|
|00002320| f2 62 6f 78 28 32 2c 33 | 30 34 2c 39 35 32 2c 31 |.box(2,3|04,952,1|
|00002330| 32 35 36 2c 31 30 30 30 | 29 3a fb 31 35 3a fb 31 |256,1000|):.15:.1|
|00002340| 33 30 3a ef 32 36 3a f1 | 8a 32 35 2c 31 29 22 46 |30:.26:.|.25,1)"F|
|00002350| 69 6c 65 3a 20 22 46 69 | 6c 65 24 3b 8a 34 35 2c |ile: "Fi|le$;.45,|
|00002360| 31 29 22 52 65 63 6f 72 | 64 73 3a 20 22 3b 54 25 |1)"Recor|ds: ";T%|
|00002370| 3b 8a 36 35 2c 31 29 22 | 49 6e 64 65 78 3a 20 22 |;.65,1)"|Index: "|
|00002380| 3b 49 6e 64 3b 0d 0e 1a | 1b f2 74 65 78 74 28 30 |;Ind;...|..text(0|
|00002390| 2c 31 33 30 2c 32 30 2c | 33 30 2c 37 37 2c 33 29 |,130,20,|30,77,3)|
|000023a0| 0d 0e 24 0e 5a 25 3d 31 | 3a 58 25 2d 3d 31 0d 0e |..$.Z%=1|:X%-=1..|
|000023b0| 2e 05 e1 0d 0e 38 05 3a | 0d 0e 42 09 dd f2 6f 75 |.....8.:|..B...ou|
|000023c0| 74 0d 0e 4c 0c e7 49 6e | 64 3d 30 20 8c 0d 0e 56 |t..L..In|d=0 ...V|
|000023d0| 32 e3 55 25 3d 58 25 b8 | 54 25 2d 31 3a e3 56 25 |2.U%=X%.|T%-1:.V%|
|000023e0| 3d 31 b8 46 25 3a 52 24 | 28 55 25 2c 56 25 29 3d |=1.F%:R$|(U%,V%)=|
|000023f0| 52 24 28 55 25 2b 31 2c | 56 25 29 3a ed 3a ed 0d |R$(U%+1,|V%):.:..|
|00002400| 0e 60 25 e3 56 25 3d 31 | b8 46 25 3a 52 24 28 54 |.`%.V%=1|.F%:R$(T|
|00002410| 25 2c 56 25 29 3d c4 4c | 25 28 56 25 29 2c 22 2a |%,V%)=.L|%(V%),"*|
|00002420| 22 29 3a ed 0d 0e 6a 05 | cc 0d 0e 74 2e e3 55 25 |"):...j.|...t..U%|
|00002430| 3d 58 25 b8 54 25 3a 49 | 6e 64 65 78 25 28 49 6e |=X%.T%:I|ndex%(In|
|00002440| 64 2c 58 25 29 3d 49 6e | 64 65 78 28 49 6e 64 2c |d,X%)=In|dex(Ind,|
|00002450| 58 25 2b 31 29 3a ed 0d | 0e 7e 14 49 6e 64 65 78 |X%+1):..|.~.Index|
|00002460| 25 28 49 6e 64 2c 54 25 | 29 3d 30 0d 0e 88 05 cd |%(Ind,T%|)=0.....|
|00002470| 0d 0e 92 05 e1 0d 0e 9c | 05 3a 0d 0e a6 0c dd f2 |........|.:......|
|00002480| 69 6e 73 65 72 74 0d 0e | b0 08 5a 25 3d 30 0d 0e |insert..|..Z%=0..|
|00002490| ba 77 e7 49 6e 64 3c 3e | 30 20 db 3a f1 8a 32 2c |.w.Ind<>|0 .:..2,|
|000024a0| 31 30 29 22 59 6f 75 20 | 63 61 6e 20 6f 6e 6c 79 |10)"You |can only|
|000024b0| 20 69 6e 73 65 72 74 20 | 69 6e 20 49 6e 64 65 78 | insert |in Index|
|000024c0| 20 5a 65 72 6f 2e 22 27 | 27 22 20 20 53 65 6c 65 | Zero."'|'"  Sele|
|000024d0| 63 74 20 4d 61 69 6e 20 | 46 69 6c 65 20 61 6e 64 |ct Main |File and|
|000024e0| 20 74 72 79 20 61 67 61 | 69 6e 2e 22 3a f2 70 61 | try aga|in.":.pa|
|000024f0| 75 73 65 28 34 30 30 29 | 3a 58 25 2d 3d 31 3a 5a |use(400)|:X%-=1:Z|
|00002500| 25 3d 31 3a e1 0d 0e c4 | 17 e7 c0 52 24 28 54 25 |%=1:....|...R$(T%|
|00002510| 2c 31 29 2c 31 29 3c 3e | 22 2a 22 8c 0d 0e ce 5a |,1),1)<>|"*"....Z|
|00002520| db 3a fb 31 34 3a f1 8a | 32 2c 31 30 29 22 57 41 |.:.14:..|2,10)"WA|
|00002530| 52 4e 49 4e 47 21 21 20 | 2d 20 4c 61 73 74 20 64 |RNING!! |- Last d|
|00002540| 61 74 61 20 69 74 65 6d | 20 77 69 6c 6c 20 62 65 |ata item| will be|
|00002550| 20 4c 4f 53 54 21 22 27 | 27 8a 32 29 22 44 6f 20 | LOST!"'|'.2)"Do |
|00002560| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 63 6f 6e 74 |you wish| to cont|
|00002570| 69 6e 75 65 3f 22 0d 0e | d8 12 f2 79 65 73 6e 6f |inue?"..|...yesno|
|00002580| 3a fb 30 3a fb 31 33 30 | 0d 0e e2 05 cd 0d 0e ec |:.0:.130|........|
|00002590| 16 e7 5a 25 3e 32 20 58 | 25 2d 3d 31 3a 5a 25 3d |..Z%>2 X|%-=1:Z%=|
|000025a0| 31 3a e1 0d 0e f6 12 e3 | 55 25 3d 54 25 b8 58 25 |1:......|U%=T%.X%|
|000025b0| 2b 32 88 2d 31 0d 0f 00 | 0c e3 56 25 3d 31 b8 46 |+2.-1...|..V%=1.F|
|000025c0| 25 0d 0f 0a 19 52 24 28 | 55 25 2c 56 25 29 3d 52 |%....R$(|U%,V%)=R|
|000025d0| 24 28 55 25 2d 31 2c 56 | 25 29 0d 0f 14 07 ed 3a |$(U%-1,V|%).....:|
|000025e0| ed 0d 0f 1e 27 e3 56 25 | 3d 31 b8 46 25 3a 52 24 |....'.V%|=1.F%:R$|
|000025f0| 28 58 25 2b 31 2c 56 25 | 29 3d c4 4c 25 28 56 25 |(X%+1,V%|)=.L%(V%|
|00002600| 29 2c 22 2a 22 29 3a ed | 0d 0f 28 08 5a 25 3d 31 |),"*"):.|..(.Z%=1|
|00002610| 0d 0f 32 05 e1 0d 0f 3c | 05 3a 0d 0f 46 0e dd f2 |..2....<|.:..F...|
|00002620| 6d 61 69 6e 66 69 6c 65 | 0d 0f 50 17 49 6e 64 2d |mainfile|..P.Ind-|
|00002630| 3d 31 3a e7 49 6e 64 3c | 30 20 49 6e 64 3d 30 0d |=1:.Ind<|0 Ind=0.|
|00002640| 0f 5a 0e 58 25 3d 54 25 | 3a 5a 25 3d 31 0d 0f 64 |.Z.X%=T%|:Z%=1..d|
|00002650| 05 e1 0d 0f 6e 05 3a 0d | 0f 78 0d dd f2 73 75 62 |....n.:.|.x...sub|
|00002660| 66 69 6c 65 0d 0f 82 61 | f2 62 6f 78 28 32 2c 30 |file...a|.box(2,0|
|00002670| 2c 30 2c 31 32 37 39 2c | 31 30 32 33 29 3a f2 62 |,0,1279,|1023):.b|
|00002680| 6f 78 28 31 33 2c 32 34 | 2c 32 34 2c 32 38 30 2c |ox(13,24|,24,280,|
|00002690| 31 30 30 30 29 3a f2 62 | 6f 78 28 33 2c 33 30 34 |1000):.b|ox(3,304|
|000026a0| 2c 32 34 2c 31 32 35 36 | 2c 39 35 32 29 3a f2 62 |,24,1256|,952):.b|
|000026b0| 6f 78 28 34 2c 33 32 30 | 2c 34 30 2c 31 32 34 38 |ox(4,320|,40,1248|
|000026c0| 2c 39 33 36 29 0d 0f 8c | 45 fb 31 30 3a fb 31 33 |,936)...|E.10:.13|
|000026d0| 32 3a f1 8a 32 30 2c 31 | 29 22 54 4f 20 43 52 45 |2:..20,1|)"TO CRE|
|000026e0| 41 54 45 20 41 20 53 55 | 42 2d 46 49 4c 45 22 27 |ATE A SU|B-FILE"'|
|000026f0| 8a 32 30 29 22 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.20)"---|--------|
|00002700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 22 0d 0f 96 0b 2a 46 |--------|-"....*F|
|00002710| 58 31 35 20 30 0d 0f a0 | 20 f2 63 6f 6e 64 28 22 |X15 0...| .cond("|
|00002720| 46 49 52 53 54 22 2c 53 | 46 25 28 30 29 2c 53 53 |FIRST",S|F%(0),SS|
|00002730| 24 28 30 29 29 0d 0f aa | 1a f2 74 79 70 65 28 30 |$(0))...|..type(0|
|00002740| 2c 53 46 25 28 30 29 2c | 53 53 24 28 30 29 29 0d |,SF%(0),|SS$(0)).|
|00002750| 0f b4 37 db 3a f1 8a 32 | 2c 31 30 29 22 44 6f 20 |..7.:..2|,10)"Do |
|00002760| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 61 70 70 6c |you wish| to appl|
|00002770| 79 20 61 20 73 65 63 6f | 6e 64 20 63 6f 6e 64 69 |y a seco|nd condi|
|00002780| 74 69 6f 6e 3f 22 0d 0f | be 13 f2 79 65 73 6e 6f |tion?"..|...yesno|
|00002790| 3a fb 31 30 3a fb 31 33 | 32 0d 0f c8 2a e7 5a 25 |:.10:.13|2...*.Z%|
|000027a0| 3e 32 20 49 6e 64 2b 3d | 31 3a f2 63 6f 70 79 28 |>2 Ind+=|1:.copy(|
|000027b0| 49 6e 64 2c 30 29 3a 5a | 25 3d 31 3a 58 25 3d 54 |Ind,0):Z|%=1:X%=T|
|000027c0| 25 3a e1 0d 0f d2 23 db | 3a f2 63 6f 6e 64 28 22 |%:....#.|:.cond("|
|000027d0| 53 45 43 4f 4e 44 22 2c | 53 46 25 28 31 29 2c 53 |SECOND",|SF%(1),S|
|000027e0| 53 24 28 31 29 29 0d 0f | dc 1a f2 74 79 70 65 28 |S$(1))..|...type(|
|000027f0| 31 2c 53 46 25 28 31 29 | 2c 53 53 24 28 31 29 29 |1,SF%(1)|,SS$(1))|
|00002800| 0d 0f e6 33 db 3a f1 8a | 32 2c 31 30 29 22 48 6f |...3.:..|2,10)"Ho|
|00002810| 77 20 64 6f 20 79 6f 75 | 20 77 69 73 68 20 74 6f |w do you| wish to|
|00002820| 20 6c 69 6e 6b 20 74 68 | 65 20 66 69 6c 65 73 3f | link th|e files?|
|00002830| 22 27 27 0d 0f f0 0b e3 | 55 25 3d 31 b8 33 0d 0f |"''.....|U%=1.3..|
|00002840| fa 4d f2 62 6f 78 28 31 | 31 2c 36 31 36 2c 39 36 |.M.box(1|1,616,96|
|00002850| 2a 55 25 2b 32 30 38 2c | 38 34 38 2c 39 36 2a 55 |*U%+208,|848,96*U|
|00002860| 25 2b 32 37 32 29 3a f2 | 62 6f 78 28 31 30 2c 36 |%+272):.|box(10,6|
|00002870| 32 34 2c 39 36 2a 55 25 | 2b 32 31 36 2c 38 34 30 |24,96*U%|+216,840|
|00002880| 2c 39 36 2a 55 25 2b 32 | 36 34 29 0d 10 04 05 ed |,96*U%+2|64).....|
|00002890| 0d 10 0e 54 fb 35 3a fb | 31 33 38 3a f1 8a 32 30 |...T.5:.|138:..20|
|000028a0| 2c 31 32 29 22 31 20 43 | 4f 4d 42 49 4e 45 22 3b |,12)"1 C|OMBINE";|
|000028b0| 8a 32 30 2c 31 35 29 22 | 32 2e 20 4e 4f 54 20 42 |.20,15)"|2. NOT B|
|000028c0| 4f 54 48 22 3b 8a 32 30 | 2c 31 38 29 22 33 2e 20 |OTH";.20|,18)"3. |
|000028d0| 4f 4e 4c 59 20 42 4f 54 | 48 22 3b 3a fb 31 30 3a |ONLY BOT|H";:.10:|
|000028e0| fb 31 33 32 0d 10 18 18 | ef 32 34 2c 36 31 36 3b |.132....|.24,616;|
|000028f0| 33 30 34 3b 38 33 32 3b | 35 36 30 3b 0d 10 22 05 |304;832;|560;..".|
|00002900| f5 0d 10 2c 14 f2 61 6e | 73 77 65 72 28 22 31 32 |...,..an|swer("12|
|00002910| 33 22 2c 30 29 0d 10 36 | 09 e7 7a 3d 34 8c 0d 10 |3",0)..6|..z=4...|
|00002920| 40 11 e7 79 3e 34 39 36 | 20 8c 20 5a 25 3d 31 0d |@..y>496| . Z%=1.|
|00002930| 10 4a 18 e7 28 79 3e 34 | 30 30 80 79 3c 34 36 34 |.J..(y>4|00.y<464|
|00002940| 29 20 8c 5a 25 3d 32 0d | 10 54 10 e7 79 3c 33 36 |) .Z%=2.|.T..y<36|
|00002950| 38 20 8c 5a 25 3d 33 0d | 10 5e 05 cd 0d 10 68 0a |8 .Z%=3.|.^....h.|
|00002960| fd 5a 25 3c 3e 30 0d 10 | 72 0b e7 5a 25 3c 3e 33 |.Z%<>0..|r..Z%<>3|
|00002970| 8c 0d 10 7c 10 e3 55 25 | 3d 31 b8 43 74 25 28 31 |...|..U%|=1.Ct%(1|
|00002980| 29 0d 10 86 13 e7 4c 69 | 73 74 28 31 2c 55 25 29 |).....Li|st(1,U%)|
|00002990| 3c 3e 30 8c 0d 10 90 17 | 68 69 74 25 3d 30 3a e3 |<>0.....|hit%=0:.|
|000029a0| 56 25 3d 31 b8 43 74 25 | 28 30 29 0d 10 9a 2e e7 |V%=1.Ct%|(0).....|
|000029b0| 4c 69 73 74 28 31 2c 55 | 25 29 3d 4c 69 73 74 28 |List(1,U|%)=List(|
|000029c0| 30 2c 56 25 29 20 68 69 | 74 25 3d 31 3a 66 6c 25 |0,V%) hi|t%=1:fl%|
|000029d0| 3d 56 25 3a 56 25 3d 54 | 25 0d 10 a4 05 ed 0d 10 |=V%:V%=T|%.......|
|000029e0| ae 2f e7 68 69 74 25 3d | 30 20 43 74 25 28 30 29 |./.hit%=|0 Ct%(0)|
|000029f0| 2b 3d 31 3a 4c 69 73 74 | 28 30 2c 43 74 25 28 30 |+=1:List|(0,Ct%(0|
|00002a00| 29 29 3d 4c 69 73 74 28 | 31 2c 55 25 29 0d 10 b8 |))=List(|1,U%)...|
|00002a10| 44 e7 5a 25 3d 32 20 80 | 68 69 74 25 3d 31 20 e3 |D.Z%=2 .|hit%=1 .|
|00002a20| 56 25 3d 66 6c 25 b8 43 | 74 25 28 30 29 3a 4c 69 |V%=fl%.C|t%(0):Li|
|00002a30| 73 74 28 30 2c 56 25 29 | 3d 4c 69 73 74 28 30 2c |st(0,V%)|=List(0,|
|00002a40| 56 25 2b 31 29 3a ed 3a | 43 74 25 28 30 29 2d 3d |V%+1):.:|Ct%(0)-=|
|00002a50| 31 0d 10 c2 05 cd 0d 10 | cc 05 ed 0d 10 d6 22 49 |1.......|......"I|
|00002a60| 6e 64 2b 3d 31 3a f2 63 | 6f 70 79 28 49 6e 64 2c |nd+=1:.c|opy(Ind,|
|00002a70| 30 29 3a 5a 25 3d 31 3a | 58 25 3d 54 25 0d 10 e0 |0):Z%=1:|X%=T%...|
|00002a80| 05 cd 0d 10 ea 0b e7 5a | 25 3c 33 20 e1 0d 10 f4 |.......Z|%<3 ....|
|00002a90| 10 e3 55 25 3d 31 b8 43 | 74 25 28 31 29 0d 10 fe |..U%=1.C|t%(1)...|
|00002aa0| 13 e7 4c 69 73 74 28 31 | 2c 55 25 29 3c 3e 30 8c |..List(1|,U%)<>0.|
|00002ab0| 0d 11 08 17 68 69 74 25 | 3d 30 3a e3 56 25 3d 31 |....hit%|=0:.V%=1|
|00002ac0| b8 43 74 25 28 30 29 0d | 11 12 2b e7 4c 69 73 74 |.Ct%(0).|..+.List|
|00002ad0| 28 31 2c 55 25 29 3d 4c | 69 73 74 28 30 2c 56 25 |(1,U%)=L|ist(0,V%|
|00002ae0| 29 20 68 69 74 25 3d 31 | 3a 56 25 3d 43 74 25 28 |) hit%=1|:V%=Ct%(|
|00002af0| 30 29 0d 11 1c 05 ed 0d | 11 26 18 e7 68 69 74 25 |0)......|.&..hit%|
|00002b00| 3d 30 20 4c 69 73 74 28 | 31 2c 55 25 29 3d 30 0d |=0 List(|1,U%)=0.|
|00002b10| 11 30 05 cd 0d 11 3a 05 | ed 0d 11 44 05 f5 0d 11 |.0....:.|...D....|
|00002b20| 4e 0a 68 69 74 25 3d 30 | 0d 11 58 10 e3 55 25 3d |N.hit%=0|..X..U%=|
|00002b30| 31 b8 43 74 25 28 31 29 | 0d 11 62 4a e7 4c 69 73 |1.Ct%(1)|..bJ.Lis|
|00002b40| 74 28 31 2c 55 25 29 3d | 30 20 e3 56 25 3d 55 25 |t(1,U%)=|0 .V%=U%|
|00002b50| b8 43 74 25 28 31 29 3a | 4c 69 73 74 28 31 2c 56 |.Ct%(1):|List(1,V|
|00002b60| 25 29 3d 4c 69 73 74 28 | 31 2c 56 25 2b 31 29 3a |%)=List(|1,V%+1):|
|00002b70| ed 3a 43 74 25 28 31 29 | 2d 3d 31 3a 68 69 74 25 |.:Ct%(1)|-=1:hit%|
|00002b80| 3d 31 0d 11 6c 05 ed 0d | 11 76 17 fd 68 69 74 25 |=1..l...|.v..hit%|
|00002b90| 3d 30 20 84 20 43 74 25 | 28 31 29 3c 3d 30 0d 11 |=0 . Ct%|(1)<=0..|
|00002ba0| 80 22 49 6e 64 2b 3d 31 | 3a f2 63 6f 70 79 28 49 |."Ind+=1|:.copy(I|
|00002bb0| 6e 64 2c 31 29 3a 5a 25 | 3d 31 3a 58 25 3d 54 25 |nd,1):Z%|=1:X%=T%|
|00002bc0| 0d 11 8a 05 e1 0d 11 94 | 05 3a 0d 11 9e 11 dd f2 |........|.:......|
|00002bd0| 63 6f 70 79 28 63 25 2c | 64 25 29 0d 11 a8 28 e3 |copy(c%,|d%)...(.|
|00002be0| 55 25 3d 31 b8 54 25 3a | 49 6e 64 65 78 25 28 63 |U%=1.T%:|Index%(c|
|00002bf0| 25 2c 55 25 29 3d 4c 69 | 73 74 28 64 25 2c 55 25 |%,U%)=Li|st(d%,U%|
|00002c00| 29 3a ed 0d 11 b2 05 e1 | 0d 11 bc 05 3a 0d 11 c6 |):......|....:...|
|00002c10| 17 dd f2 63 6f 6e 64 28 | 61 24 2c f8 20 41 2c f8 |...cond(|a$,. A,.|
|00002c20| 20 54 24 29 0d 11 d0 27 | e3 55 25 3d 31 b8 46 25 | T$)...'|.U%=1.F%|
|00002c30| 3a f1 8a 35 2c 55 25 2b | 33 29 3b 55 25 3b 22 2e |:..5,U%+|3);U%;".|
|00002c40| 20 22 3b 46 24 28 55 25 | 29 3a ed 0d 11 da 05 f5 | ";F$(U%|):......|
|00002c50| 0d 11 e4 3a 41 3d 39 39 | 3a f1 8a 30 2c 46 25 2b |...:A=99|:..0,F%+|
|00002c60| 35 29 3b 61 24 3b 22 20 | 43 6f 6e 64 69 74 69 6f |5);a$;" |Conditio|
|00002c70| 6e 20 22 3b 3a e8 22 20 | 2d 20 53 65 6c 65 63 74 |n ";:." |- Select|
|00002c80| 20 66 69 65 6c 64 3a 20 | 22 41 0d 11 ee 16 f1 8a | field: |"A......|
|00002c90| 31 36 2c 46 25 2b 35 29 | c4 32 34 2c 22 20 22 29 |16,F%+5)|.24," ")|
|00002ca0| 0d 11 f8 0e fd 41 3e 30 | 80 41 3c 3d 46 25 0d 12 |.....A>0|.A<=F%..|
|00002cb0| 02 05 f5 0d 12 0c 24 e8 | 8a 35 2c 46 25 2b 37 29 |......$.|.5,F%+7)|
|00002cc0| 22 45 6e 74 65 72 20 74 | 65 73 74 20 73 74 72 69 |"Enter t|est stri|
|00002cd0| 6e 67 3a 20 22 54 24 0d | 12 16 23 e7 a9 28 54 24 |ng: "T$.|..#..(T$|
|00002ce0| 29 3e 4c 25 28 41 29 20 | f1 8a 32 34 2c 46 25 2b |)>L%(A) |..24,F%+|
|00002cf0| 37 29 c4 34 30 2c 22 20 | 22 29 0d 12 20 11 fd a9 |7).40," |").. ...|
|00002d00| 28 54 24 29 3c 3d 4c 25 | 28 41 29 0d 12 2a 05 e1 |(T$)<=L%|(A)..*..|
|00002d10| 0d 12 34 05 3a 0d 12 3e | 16 dd f2 74 79 70 65 28 |..4.:..>|...type(|
|00002d20| 66 6c 25 2c 66 25 2c 73 | 74 24 29 0d 12 48 2a db |fl%,f%,s|t$)..H*.|
|00002d30| 3a f1 8a 34 2c 33 29 22 | 53 65 6c 65 63 74 20 72 |:..4,3)"|Select r|
|00002d40| 65 6c 61 74 69 6f 6e 3a | 22 27 27 8a 36 29 46 24 |elation:|"''.6)F$|
|00002d50| 28 66 25 29 3b 0d 12 52 | 0b e3 55 25 3d 31 b8 34 |(f%);..R|..U%=1.4|
|00002d60| 0d 12 5c 4d f2 62 6f 78 | 28 31 31 2c 36 31 36 2c |..\M.box|(11,616,|
|00002d70| 39 36 2a 55 25 2b 32 30 | 38 2c 38 33 32 2c 39 36 |96*U%+20|8,832,96|
|00002d80| 2a 55 25 2b 32 37 32 29 | 3a f2 62 6f 78 28 31 30 |*U%+272)|:.box(10|
|00002d90| 2c 36 32 34 2c 39 36 2a | 55 25 2b 32 31 36 2c 38 |,624,96*|U%+216,8|
|00002da0| 32 34 2c 39 36 2a 55 25 | 2b 32 36 34 29 0d 12 66 |24,96*U%|+264)..f|
|00002db0| 05 ed 0d 12 70 65 fb 35 | 3a fb 31 33 38 3a f1 8a |....pe.5|:.138:..|
|00002dc0| 32 30 2c 39 29 22 31 2e | 20 3e 20 54 48 41 4e 22 |20,9)"1.| > THAN"|
|00002dd0| 3b 8a 32 30 2c 31 32 29 | 22 32 2e 20 3c 20 54 48 |;.20,12)|"2. < TH|
|00002de0| 41 4e 22 3b 8a 32 30 2c | 31 35 29 22 33 2e 20 43 |AN";.20,|15)"3. C|
|00002df0| 4f 4e 54 41 49 4e 53 22 | 3b 8a 32 30 2c 31 38 29 |ONTAINS"|;.20,18)|
|00002e00| 22 34 2e 20 45 58 43 4c | 55 44 45 53 22 3b 3a fb |"4. EXCL|UDES";:.|
|00002e10| 31 30 3a fb 31 33 32 0d | 12 7a 10 f1 8a 33 32 2c |10:.132.|.z...32,|
|00002e20| 32 32 29 73 74 24 3b 0d | 12 84 18 ef 32 34 2c 36 |22)st$;.|....24,6|
|00002e30| 31 36 3b 33 30 34 3b 38 | 33 32 3b 36 35 36 3b 0d |16;304;8|32;656;.|
|00002e40| 12 8e 05 f5 0d 12 98 15 | f2 61 6e 73 77 65 72 28 |........|.answer(|
|00002e50| 22 31 32 33 34 22 2c 30 | 29 0d 12 a2 09 e7 7a 3d |"1234",0|).....z=|
|00002e60| 34 8c 0d 12 ac 11 e7 79 | 3e 35 39 32 20 8c 20 5a |4......y|>592 . Z|
|00002e70| 25 3d 31 0d 12 b6 18 e7 | 28 79 3e 34 39 36 80 79 |%=1.....|(y>496.y|
|00002e80| 3c 35 36 30 29 20 8c 5a | 25 3d 32 0d 12 c0 18 e7 |<560) .Z|%=2.....|
|00002e90| 28 79 3e 34 30 30 80 79 | 3c 34 36 34 29 20 8c 5a |(y>400.y|<464) .Z|
|00002ea0| 25 3d 33 0d 12 ca 10 e7 | 79 3c 33 36 38 20 8c 5a |%=3.....|y<368 .Z|
|00002eb0| 25 3d 34 0d 12 d4 05 cd | 0d 12 de 0a fd 5a 25 3c |%=4.....|.....Z%<|
|00002ec0| 3e 30 0d 12 e8 0f f2 73 | 65 6c 65 63 74 28 5a 25 |>0.....s|elect(Z%|
|00002ed0| 29 0d 12 f2 05 e1 0d 12 | fc 05 3a 0d 13 06 10 dd |).......|..:.....|
|00002ee0| f2 73 65 6c 65 63 74 28 | 7a 25 29 0d 13 10 12 43 |.select(|z%)....C|
|00002ef0| 74 25 3d 31 3a e3 55 25 | 3d 31 b8 54 25 0d 13 1a |t%=1:.U%|=1.T%...|
|00002f00| 0a 68 69 74 25 3d 30 0d | 13 24 24 e7 c0 52 24 28 |.hit%=0.|.$$..R$(|
|00002f10| 49 6e 64 65 78 25 28 49 | 6e 64 2c 55 25 29 2c 66 |Index%(I|nd,U%),f|
|00002f20| 25 29 2c 31 29 3c 3e 22 | 2a 22 8c 0d 13 2e 2c e7 |%),1)<>"|*"....,.|
|00002f30| 7a 25 3d 31 20 80 20 52 | 24 28 49 6e 64 65 78 25 |z%=1 . R|$(Index%|
|00002f40| 28 49 6e 64 2c 55 25 29 | 2c 66 25 29 3e 73 74 24 |(Ind,U%)|,f%)>st$|
|00002f50| 20 68 69 74 25 3d 31 0d | 13 38 2c e7 7a 25 3d 32 | hit%=1.|.8,.z%=2|
|00002f60| 20 80 20 52 24 28 49 6e | 64 65 78 25 28 49 6e 64 | . R$(In|dex%(Ind|
|00002f70| 2c 55 25 29 2c 66 25 29 | 3c 73 74 24 20 68 69 74 |,U%),f%)|<st$ hit|
|00002f80| 25 3d 31 0d 13 42 0b e7 | 7a 25 3d 33 20 8c 0d 13 |%=1..B..|z%=3 ...|
|00002f90| 4c 22 5a 25 3d a7 52 24 | 28 49 6e 64 65 78 25 28 |L"Z%=.R$|(Index%(|
|00002fa0| 49 6e 64 2c 55 25 29 2c | 66 25 29 2c 73 74 24 29 |Ind,U%),|f%),st$)|
|00002fb0| 0d 13 56 11 e7 5a 25 3c | 3e 30 20 68 69 74 25 3d |..V..Z%<|>0 hit%=|
|00002fc0| 31 0d 13 60 05 cd 0d 13 | 6a 0b e7 7a 25 3d 34 20 |1..`....|j..z%=4 |
|00002fd0| 8c 0d 13 74 22 5a 25 3d | a7 52 24 28 49 6e 64 65 |...t"Z%=|.R$(Inde|
|00002fe0| 78 25 28 49 6e 64 2c 55 | 25 29 2c 66 25 29 2c 73 |x%(Ind,U|%),f%),s|
|00002ff0| 74 24 29 0d 13 7e 10 e7 | 5a 25 3d 30 20 68 69 74 |t$)..~..|Z%=0 hit|
|00003000| 25 3d 31 0d 13 88 05 cd | 0d 13 92 05 cd 0d 13 9c |%=1.....|........|
|00003010| 2f e7 68 69 74 25 3d 31 | 20 4c 69 73 74 28 66 6c |/.hit%=1| List(fl|
|00003020| 25 2c 43 74 25 29 3d 49 | 6e 64 65 78 25 28 49 6e |%,Ct%)=I|ndex%(In|
|00003030| 64 2c 55 25 29 3a 43 74 | 25 2b 3d 31 0d 13 a6 05 |d,U%):Ct|%+=1....|
|00003040| ed 0d 13 b0 12 43 74 25 | 28 66 6c 25 29 3d 43 74 |.....Ct%|(fl%)=Ct|
|00003050| 25 2d 31 0d 13 ba 0d c8 | 95 43 74 25 3c 3d 54 25 |%-1.....|.Ct%<=T%|
|00003060| 0d 13 c4 1a 4c 69 73 74 | 28 66 6c 25 2c 43 74 25 |....List|(fl%,Ct%|
|00003070| 29 3d 30 3a 43 74 25 2b | 3d 31 0d 13 ce 05 ce 0d |)=0:Ct%+|=1......|
|00003080| 13 d8 05 e1 0d 13 e2 05 | 3a 0d 13 ec 0a dd f2 73 |........|:......s|
|00003090| 6f 72 74 0d 13 f6 1b f2 | 74 65 78 74 28 30 2c 31 |ort.....|text(0,1|
|000030a0| 33 30 2c 32 30 2c 33 30 | 2c 37 37 2c 33 29 0d 14 |30,20,30|,77,3)..|
|000030b0| 00 2c f1 8a 31 33 2c 33 | 29 22 53 4f 52 54 20 52 |.,..13,3|)"SORT R|
|000030c0| 4f 55 54 49 4e 45 22 27 | 8a 31 33 29 22 2d 2d 2d |OUTINE"'|.13)"---|
|000030d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 22 0d 14 0a 34 f1 8a |--------|-"...4..|
|000030e0| 32 2c 37 29 22 53 65 6c | 65 63 74 20 46 49 45 4c |2,7)"Sel|ect FIEL|
|000030f0| 44 20 66 6f 72 20 73 6f | 72 74 20 74 6f 20 62 65 |D for so|rt to be|
|00003100| 20 62 61 73 65 64 20 75 | 70 6f 6e 3a 22 27 0d 14 | based u|pon:"'..|
|00003110| 14 22 e3 55 25 3d 31 b8 | 46 25 3a f1 8a 35 29 3b |.".U%=1.|F%:..5);|
|00003120| 55 25 3b 22 2e 20 22 3b | 46 24 28 55 25 29 3a ed |U%;". ";|F$(U%):.|
|00003130| 0d 14 1e 1b e8 27 8a 35 | 29 22 45 6e 74 65 72 20 |.....'.5|)"Enter |
|00003140| 6e 75 6d 62 65 72 3a 20 | 22 51 25 0d 14 28 17 e7 |number: |"Q%..(..|
|00003150| 51 25 3c 31 84 51 25 3e | 46 25 20 db 3a e5 8d 54 |Q%<1.Q%>|F% .:..T|
|00003160| 40 54 0d 14 32 23 f1 27 | 8a 35 29 22 46 69 65 6c |@T..2#.'|.5)"Fiel|
|00003170| 64 20 63 68 6f 73 65 6e | 20 69 73 20 22 3b 46 24 |d chosen| is ";F$|
|00003180| 28 51 25 29 27 0d 14 3c | 35 e8 27 8a 35 29 22 45 |(Q%)'..<|5.'.5)"E|
|00003190| 6e 74 65 72 20 73 75 62 | 2d 66 69 65 6c 64 20 69 |nter sub|-field i|
|000031a0| 66 20 72 65 71 75 69 72 | 65 64 20 28 30 20 69 66 |f requir|ed (0 if|
|000031b0| 20 6e 6f 74 29 3a 20 22 | 52 25 0d 14 46 15 e7 52 | not): "|R%..F..R|
|000031c0| 25 3c 30 84 52 25 3e 46 | 25 20 e5 8d 54 7c 54 0d |%<0.R%>F|% ..T|T.|
|000031d0| 14 50 0a 2a 46 58 34 20 | 31 0d 14 5a 28 e8 27 8a |.P.*FX4 |1..Z(.'.|
|000031e0| 35 29 22 41 20 89 20 5a | 20 28 31 29 20 20 4f 52 |5)"A . Z| (1)  OR|
|000031f0| 20 20 5a 20 89 20 41 20 | 28 32 29 3f 22 4f 72 64 |  Z . A |(2)?"Ord|
|00003200| 25 0d 14 64 18 e7 4f 72 | 64 25 3c 31 84 4f 72 64 |%..d..Or|d%<1.Ord|
|00003210| 25 3e 32 20 e5 8d 44 5a | 54 0d 14 6e 05 f5 0d 14 |%>2 ..DZ|T..n....|
|00003220| 78 0b 46 6c 61 67 25 3d | 30 0d 14 82 0e e3 55 25 |x.Flag%=|0.....U%|
|00003230| 3d 31 b8 54 25 2d 31 0d | 14 8c 5c e7 52 24 28 49 |=1.T%-1.|..\.R$(I|
|00003240| 6e 64 65 78 25 28 49 6e | 64 2c 55 25 29 2c 51 25 |ndex%(In|d,U%),Q%|
|00003250| 29 3e 52 24 28 49 6e 64 | 65 78 25 28 49 6e 64 2c |)>R$(Ind|ex%(Ind,|
|00003260| 55 25 2b 31 29 2c 51 25 | 29 20 c8 94 49 6e 64 65 |U%+1),Q%|) ..Inde|
|00003270| 78 25 28 49 6e 64 2c 55 | 25 29 2c 49 6e 64 65 78 |x%(Ind,U|%),Index|
|00003280| 25 28 49 6e 64 2c 55 25 | 2b 31 29 3a 46 6c 61 67 |%(Ind,U%|+1):Flag|
|00003290| 25 3d 31 0d 14 96 05 ed | 0d 14 a0 0c fd 46 6c 61 |%=1.....|.....Fla|
|000032a0| 67 25 3d 30 0d 14 aa 0b | e7 52 25 3c 3e 30 8c 0d |g%=0....|.R%<>0..|
|000032b0| 14 b4 05 f5 0d 14 be 0b | 46 6c 61 67 25 3d 30 0d |........|Flag%=0.|
|000032c0| 14 c8 0e e3 55 25 3d 31 | b8 54 25 2d 31 0d 14 d2 |....U%=1|.T%-1...|
|000032d0| 34 e7 52 24 28 49 6e 64 | 65 78 25 28 49 6e 64 2c |4.R$(Ind|ex%(Ind,|
|000032e0| 55 25 29 2c 51 25 29 3d | 52 24 28 49 6e 64 65 78 |U%),Q%)=|R$(Index|
|000032f0| 25 28 49 6e 64 2c 55 25 | 2b 31 29 2c 51 25 29 20 |%(Ind,U%|+1),Q%) |
|00003300| 8c 0d 14 dc 5c e7 52 24 | 28 49 6e 64 65 78 25 28 |....\.R$|(Index%(|
|00003310| 49 6e 64 2c 55 25 29 2c | 52 25 29 3e 52 24 28 49 |Ind,U%),|R%)>R$(I|
|00003320| 6e 64 65 78 25 28 49 6e | 64 2c 55 25 2b 31 29 2c |ndex%(In|d,U%+1),|
|00003330| 52 25 29 20 c8 94 49 6e | 64 65 78 25 28 49 6e 64 |R%) ..In|dex%(Ind|
|00003340| 2c 55 25 29 2c 49 6e 64 | 65 78 25 28 49 6e 64 2c |,U%),Ind|ex%(Ind,|
|00003350| 55 25 2b 31 29 3a 46 6c | 61 67 25 3d 31 0d 14 e6 |U%+1):Fl|ag%=1...|
|00003360| 05 cd 0d 14 f0 05 ed 0d | 14 fa 0c fd 46 6c 61 67 |........|....Flag|
|00003370| 25 3d 30 0d 15 04 05 cd | 0d 15 0e 0b 56 25 3d 54 |%=0.....|....V%=T|
|00003380| 25 81 32 0d 15 18 3b e7 | 4f 72 64 25 3d 32 20 e3 |%.2...;.|Ord%=2 .|
|00003390| 55 25 3d 31 b8 56 25 3a | c8 94 49 6e 64 65 78 25 |U%=1.V%:|..Index%|
|000033a0| 28 49 6e 64 2c 55 25 29 | 2c 49 6e 64 65 78 25 28 |(Ind,U%)|,Index%(|
|000033b0| 49 6e 64 2c 54 25 2d 55 | 25 2b 31 29 3a ed 0d 15 |Ind,T%-U|%+1):...|
|000033c0| 22 05 f5 0d 15 2c 76 e7 | c0 52 24 28 49 6e 64 65 |"....,v.|.R$(Inde|
|000033d0| 78 25 28 49 6e 64 2c 31 | 29 2c 31 29 2c 31 29 3d |x%(Ind,1|),1),1)=|
|000033e0| 22 2a 22 20 4c 25 28 30 | 29 3d 49 6e 64 65 78 25 |"*" L%(0|)=Index%|
|000033f0| 28 49 6e 64 2c 31 29 3a | e3 57 25 3d 31 b8 54 25 |(Ind,1):|.W%=1.T%|
|00003400| 2d 31 3a 49 6e 64 65 78 | 25 28 49 6e 64 2c 57 25 |-1:Index|%(Ind,W%|
|00003410| 29 3d 49 6e 64 65 78 25 | 28 49 6e 64 2c 57 25 2b |)=Index%|(Ind,W%+|
|00003420| 31 29 3a ed 3a 49 6e 64 | 65 78 25 28 49 6e 64 2c |1):.:Ind|ex%(Ind,|
|00003430| 54 25 29 3d 4c 25 28 30 | 29 0d 15 36 21 fd c0 52 |T%)=L%(0|)..6!..R|
|00003440| 24 28 49 6e 64 65 78 25 | 28 49 6e 64 2c 31 29 2c |$(Index%|(Ind,1),|
|00003450| 31 29 2c 31 29 3c 3e 22 | 2a 22 0d 15 40 0e 58 25 |1),1)<>"|*"..@.X%|
|00003460| 3d 54 25 3a 5a 25 3d 31 | 0d 15 4a 0a 2a 46 58 34 |=T%:Z%=1|..J.*FX4|
|00003470| 20 30 0d 15 54 05 e1 0d | 15 5e 05 3a 0d 15 68 0a | 0..T...|.^.:..h.|
|00003480| dd f2 67 6f 74 6f 0d 15 | 72 1b f2 74 65 78 74 28 |..goto..|r..text(|
|00003490| 30 2c 31 33 30 2c 32 30 | 2c 33 30 2c 37 37 2c 33 |0,130,20|,30,77,3|
|000034a0| 29 0d 15 7c 30 f1 8a 31 | 32 2c 37 29 22 53 45 41 |)..|0..1|2,7)"SEA|
|000034b0| 52 43 48 20 52 4f 55 54 | 49 4e 45 22 27 8a 31 32 |RCH ROUT|INE"'.12|
|000034c0| 29 22 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)"------|--------|
|000034d0| 22 0d 15 86 3a f1 8a 34 | 2c 31 31 29 22 4e 75 6d |"...:..4|,11)"Num|
|000034e0| 62 65 72 20 6f 66 20 72 | 65 63 6f 72 64 20 72 65 |ber of r|ecord re|
|000034f0| 71 75 69 72 65 64 22 8a | 34 2c 31 35 29 22 46 69 |quired".|4,15)"Fi|
|00003500| 65 6c 64 20 73 65 61 72 | 63 68 22 0d 15 90 38 f2 |eld sear|ch"...8.|
|00003510| 62 6f 78 28 31 34 2c 39 | 39 32 2c 35 32 30 2c 31 |box(14,9|92,520,1|
|00003520| 30 37 32 2c 36 30 30 29 | 3a f2 62 6f 78 28 31 33 |072,600)|:.box(13|
|00003530| 2c 31 30 30 30 2c 35 32 | 38 2c 31 30 36 34 2c 35 |,1000,52|8,1064,5|
|00003540| 39 32 29 0d 15 9a 38 f2 | 62 6f 78 28 31 34 2c 39 |92)...8.|box(14,9|
|00003550| 39 32 2c 33 39 32 2c 31 | 30 37 32 2c 34 37 32 29 |92,392,1|072,472)|
|00003560| 3a f2 62 6f 78 28 31 33 | 2c 31 30 30 30 2c 34 30 |:.box(13|,1000,40|
|00003570| 30 2c 31 30 36 34 2c 34 | 36 34 29 0d 15 a4 0c fb |0,1064,4|64).....|
|00003580| 31 34 3a fb 31 34 31 0d | 15 ae 1d f1 8a 34 34 2c |14:.141.|.....44,|
|00003590| 31 31 29 3b 22 31 22 3b | 8a 34 34 2c 31 35 29 3b |11);"1";|.44,15);|
|000035a0| 22 32 22 3b 0d 15 b8 19 | ef 32 34 2c 39 39 32 3b |"2";....|.24,992;|
|000035b0| 33 39 32 3b 31 30 37 32 | 3b 36 30 30 3b 0d 15 c2 |392;1072|;600;...|
|000035c0| 05 f5 0d 15 cc 13 f2 61 | 6e 73 77 65 72 28 22 31 |.......a|nswer("1|
|000035d0| 32 22 2c 30 29 0d 15 d6 | 0a e7 7a 3d 34 20 8c 0d |2",0)...|..z=4 ..|
|000035e0| 15 e0 1b e7 28 79 3e 35 | 32 30 20 80 20 79 3c 36 |....(y>5|20 . y<6|
|000035f0| 30 30 29 20 8c 20 5a 25 | 3d 31 0d 15 ea 1b e7 28 |00) . Z%|=1.....(|
|00003600| 79 3e 33 39 32 20 80 20 | 79 3c 34 37 32 29 20 8c |y>392 . |y<472) .|
|00003610| 20 5a 25 3d 32 0d 15 f4 | 05 cd 0d 15 fe 0a fd 5a | Z%=2...|.......Z|
|00003620| 25 3c 3e 30 0d 16 08 0b | fb 30 3a fb 31 33 30 0d |%<>0....|.0:.130.|
|00003630| 16 12 0b e7 5a 25 3d 31 | 20 8c 0d 16 1c 1d e8 8a |....Z%=1| .......|
|00003640| 31 2c 32 30 29 22 45 6e | 74 65 72 20 6e 75 6d 62 |1,20)"En|ter numb|
|00003650| 65 72 3a 20 22 4e 25 0d | 16 26 14 e7 4e 25 3c 31 |er: "N%.|.&..N%<1|
|00003660| 84 4e 25 3e 54 25 20 4e | 25 3d 31 0d 16 30 0b 58 |.N%>T% N|%=1..0.X|
|00003670| 25 3d 4e 25 2d 31 0d 16 | 3a 05 cd 0d 16 44 0b e7 |%=N%-1..|:....D..|
|00003680| 5a 25 3d 31 20 e1 0d 16 | 4e 23 db 3a f2 63 6f 6e |Z%=1 ...|N#.:.con|
|00003690| 64 28 22 53 65 61 72 63 | 68 22 2c 53 46 25 28 30 |d("Searc|h",SF%(0|
|000036a0| 29 2c 53 53 24 28 30 29 | 29 0d 16 58 28 db 3a f1 |),SS$(0)|)..X(.:.|
|000036b0| 8a 35 2c 35 29 22 56 69 | 65 77 20 6f 72 20 52 65 |.5,5)"Vi|ew or Re|
|000036c0| 70 6c 61 63 65 3f 20 28 | 56 20 4f 52 20 52 29 3f |place? (|V OR R)?|
|000036d0| 22 0d 16 62 67 f2 62 6f | 78 28 31 34 2c 35 38 38 |"..bg.bo|x(14,588|
|000036e0| 2c 32 36 34 2c 36 37 36 | 2c 33 34 34 29 3a f2 62 |,264,676|,344):.b|
|000036f0| 6f 78 28 31 33 2c 35 39 | 36 2c 32 37 32 2c 36 36 |ox(13,59|6,272,66|
|00003700| 38 2c 33 33 36 29 3a f2 | 62 6f 78 28 31 34 2c 38 |8,336):.|box(14,8|
|00003710| 31 36 2c 32 36 34 2c 39 | 30 34 2c 33 34 34 29 3a |16,264,9|04,344):|
|00003720| f2 62 6f 78 28 31 33 2c | 38 32 34 2c 32 37 32 2c |.box(13,|824,272,|
|00003730| 38 39 36 2c 33 33 36 29 | 0d 16 6c 41 fb 31 34 3a |896,336)|..lA.14:|
|00003740| fb 31 34 31 3a f1 8a 31 | 39 2c 31 39 29 22 56 22 |.141:..1|9,19)"V"|
|00003750| 3b 8a 33 34 2c 31 39 29 | 22 52 22 3b 3a ef 32 34 |;.34,19)|"R";:.24|
|00003760| 2c 35 38 38 3b 32 36 34 | 3b 39 30 34 3b 33 34 34 |,588;264|;904;344|
|00003770| 3b 3a fb 30 3a fb 31 33 | 32 0d 16 76 05 f5 0d 16 |;:.0:.13|2..v....|
|00003780| 80 08 5a 25 3d 30 0d 16 | 8a 15 f2 61 6e 73 77 65 |..Z%=0..|...answe|
|00003790| 72 28 22 76 56 72 52 22 | 2c 30 29 0d 16 94 09 e7 |r("vVrR"|,0).....|
|000037a0| 7a 3d 34 8c 0d 16 9e 0f | e7 78 3c 36 37 36 8c 5a |z=4.....|.x<676.Z|
|000037b0| 25 3d 31 0d 16 a8 15 e7 | 78 3e 38 31 36 80 78 3c |%=1.....|x>816.x<|
|000037c0| 39 30 34 8c 5a 25 3d 33 | 0d 16 b2 05 cd 0d 16 bc |904.Z%=3|........|
|000037d0| 0a fd 5a 25 3c 3e 30 0d | 16 c6 0a 68 69 74 25 3d |..Z%<>0.|...hit%=|
|000037e0| 30 0d 16 d0 0a e7 5a 25 | 3c 33 8c 0d 16 da 0c e3 |0.....Z%|<3......|
|000037f0| 55 25 3d 31 b8 54 25 0d | 16 e4 29 5a 25 3d a7 52 |U%=1.T%.|..)Z%=.R|
|00003800| 24 28 49 6e 64 65 78 25 | 28 49 6e 64 2c 55 25 29 |$(Index%|(Ind,U%)|
|00003810| 2c 53 46 25 28 30 29 29 | 2c 53 53 24 28 30 29 29 |,SF%(0))|,SS$(0))|
|00003820| 0d 16 ee 18 e7 5a 25 3c | 3e 30 20 68 69 74 25 3d |.....Z%<|>0 hit%=|
|00003830| 55 25 3a 55 25 3d 54 25 | 0d 16 f8 05 ed 0d 17 02 |U%:U%=T%|........|
|00003840| 05 cd 0d 17 0c 1d e7 68 | 69 74 25 3c 3e 30 20 58 |.......h|it%<>0 X|
|00003850| 25 3d 68 69 74 25 2d 31 | 3a 5a 25 3d 31 3a e1 0d |%=hit%-1|:Z%=1:..|
|00003860| 17 16 27 db 3a f1 8a 35 | 2c 35 29 22 52 65 70 6c |..'.:..5|,5)"Repl|
|00003870| 61 63 65 20 22 3b 53 53 | 24 28 30 29 3b 22 20 77 |ace ";SS|$(0);" w|
|00003880| 69 74 68 3a 22 27 0d 17 | 20 0a 2a 46 58 34 20 31 |ith:"'..| .*FX4 1|
|00003890| 0d 17 2a 12 e8 8a 38 29 | 22 89 20 22 53 53 24 28 |..*...8)|". "SS$(|
|000038a0| 31 29 0d 17 34 0a 2a 46 | 58 34 20 30 0d 17 3e 19 |1)..4.*F|X4 0..>.|
|000038b0| e7 a9 28 53 53 24 28 31 | 29 29 3e a9 28 53 53 24 |..(SS$(1|))>.(SS$|
|000038c0| 28 30 29 29 8c 0d 17 48 | 4c f1 27 22 57 41 52 4e |(0))...H|L.'"WARN|
|000038d0| 49 4e 47 21 20 43 68 61 | 72 61 63 74 65 72 73 20 |ING! Cha|racters |
|000038e0| 6d 69 67 68 74 20 62 65 | 20 6c 6f 73 74 21 22 27 |might be| lost!"'|
|000038f0| 22 44 6f 20 79 6f 75 20 | 77 69 73 68 20 74 6f 20 |"Do you |wish to |
|00003900| 63 6f 6e 74 69 6e 75 65 | 3f 22 3a f2 79 65 73 6e |continue|?":.yesn|
|00003910| 6f 0d 17 52 10 e7 5a 25 | 3e 32 20 68 69 74 25 3d |o..R..Z%|>2 hit%=|
|00003920| 31 0d 17 5c 05 cd 0d 17 | 66 18 e7 68 69 74 25 3d |1..\....|f..hit%=|
|00003930| 31 20 58 25 2d 3d 31 3a | 5a 25 3d 31 3a e1 0d 17 |1 X%-=1:|Z%=1:...|
|00003940| 70 0c e3 55 25 3d 31 b8 | 54 25 0d 17 7a 29 5a 25 |p..U%=1.|T%..z)Z%|
|00003950| 3d a7 52 24 28 49 6e 64 | 65 78 25 28 49 6e 64 2c |=.R$(Ind|ex%(Ind,|
|00003960| 55 25 29 2c 53 46 25 28 | 30 29 29 2c 53 53 24 28 |U%),SF%(|0)),SS$(|
|00003970| 30 29 29 0d 17 84 0b e7 | 5a 25 3c 3e 30 8c 0d 17 |0)).....|Z%<>0...|
|00003980| 8e 7b 52 24 28 49 6e 64 | 65 78 25 28 49 6e 64 2c |.{R$(Ind|ex%(Ind,|
|00003990| 55 25 29 2c 53 46 25 28 | 30 29 29 3d c0 52 24 28 |U%),SF%(|0))=.R$(|
|000039a0| 49 6e 64 65 78 25 28 49 | 6e 64 2c 55 25 29 2c 53 |Index%(I|nd,U%),S|
|000039b0| 46 25 28 30 29 29 2c 5a | 25 2d 31 29 2b 53 53 24 |F%(0)),Z|%-1)+SS$|
|000039c0| 28 31 29 2b c2 52 24 28 | 49 6e 64 65 78 25 28 49 |(1)+.R$(|Index%(I|
|000039d0| 6e 64 2c 55 25 29 2c 53 | 46 25 28 30 29 29 2c 4c |nd,U%),S|F%(0)),L|
|000039e0| 25 28 53 46 25 28 30 29 | 29 2d a9 28 53 53 24 28 |%(SF%(0)|)-.(SS$(|
|000039f0| 30 29 29 2d 5a 25 2b 31 | 29 0d 17 98 2e c8 95 20 |0))-Z%+1|)...... |
|00003a00| a9 28 52 24 28 49 6e 64 | 65 78 25 28 49 6e 64 2c |.(R$(Ind|ex%(Ind,|
|00003a10| 55 25 29 2c 53 46 25 28 | 30 29 29 29 3e 4c 25 28 |U%),SF%(|0)))>L%(|
|00003a20| 53 46 25 28 30 29 29 0d | 17 a2 39 52 24 28 49 6e |SF%(0)).|..9R$(In|
|00003a30| 64 65 78 25 28 49 6e 64 | 2c 55 25 29 2c 53 46 25 |dex%(Ind|,U%),SF%|
|00003a40| 28 30 29 29 3d c0 52 24 | 28 49 6e 64 65 78 25 28 |(0))=.R$|(Index%(|
|00003a50| 49 6e 64 2c 55 25 29 2c | 53 46 25 28 30 29 29 29 |Ind,U%),|SF%(0)))|
|00003a60| 0d 17 ac 05 ce 0d 17 b6 | 2e c8 95 20 a9 28 52 24 |........|... .(R$|
|00003a70| 28 49 6e 64 65 78 25 28 | 49 6e 64 2c 55 25 29 2c |(Index%(|Ind,U%),|
|00003a80| 53 46 25 28 30 29 29 29 | 3c 4c 25 28 53 46 25 28 |SF%(0)))|<L%(SF%(|
|00003a90| 30 29 29 0d 17 c0 22 52 | 24 28 49 6e 64 65 78 25 |0))..."R|$(Index%|
|00003aa0| 28 49 6e 64 2c 55 25 29 | 2c 53 46 25 28 30 29 29 |(Ind,U%)|,SF%(0))|
|00003ab0| 2b 3d 22 20 22 0d 17 ca | 05 ce 0d 17 d4 05 cd 0d |+=" "...|........|
|00003ac0| 17 de 05 ed 0d 17 e8 0e | 58 25 2d 3d 31 3a 5a 25 |........|X%-=1:Z%|
|00003ad0| 3d 31 0d 17 f2 05 e1 0d | 17 fc 05 3a 0d 18 06 0e |=1......|...:....|
|00003ae0| dd f2 70 72 69 6e 74 6f | 6e 65 0d 18 10 23 ef 32 |..printo|ne...#.2|
|00003af0| 2c 31 2c 31 37 2c 31 2c | 32 37 2c 31 2c 36 34 2c |,1,17,1,|27,1,64,|
|00003b00| 31 2c 32 37 2c 31 2c 34 | 35 2c 31 2c 31 0d 18 1a |1,27,1,4|5,1,1...|
|00003b10| 0b 2a 46 58 33 20 31 30 | 0d 18 24 32 f1 22 52 65 |.*FX3 10|..$2."Re|
|00003b20| 63 6f 72 64 20 22 3b 58 | 25 3b 22 2c 20 46 69 6c |cord ";X|%;", Fil|
|00003b30| 65 20 22 3b 46 69 6c 65 | 24 3b 22 20 2d 20 49 6e |e ";File|$;" - In|
|00003b40| 64 65 78 20 22 3b 49 6e | 64 3b 0d 18 2e 0a 2a 46 |dex ";In|d;....*F|
|00003b50| 58 33 20 30 0d 18 38 15 | ef 31 2c 32 37 2c 31 2c |X3 0..8.|.1,27,1,|
|00003b60| 34 35 2c 31 2c 30 2c 31 | 33 0d 18 42 0c e3 59 25 |45,1,0,1|3..B..Y%|
|00003b70| 3d 31 b8 46 25 0d 18 4c | 0a 2a 46 58 33 20 30 0d |=1.F%..L|.*FX3 0.|
|00003b80| 18 56 0e ef 31 2c 32 37 | 2c 31 2c 35 32 0d 18 60 |.V..1,27|,1,52..`|
|00003b90| 0b 2a 46 58 33 20 31 30 | 0d 18 6a 0e f1 8a 31 29 |.*FX3 10|..j...1)|
|00003ba0| 46 24 28 59 25 29 0d 18 | 74 0a 2a 46 58 33 20 30 |F$(Y%)..|t.*FX3 0|
|00003bb0| 0d 18 7e 0e ef 31 2c 32 | 37 2c 31 2c 35 33 0d 18 |..~..1,2|7,1,53..|
|00003bc0| 88 0b 2a 46 58 33 20 31 | 30 0d 18 92 28 e7 4c 25 |..*FX3 1|0...(.L%|
|00003bd0| 28 59 25 29 3c 37 38 20 | f1 8a 32 29 52 24 28 49 |(Y%)<78 |..2)R$(I|
|00003be0| 6e 64 65 78 25 28 49 6e | 64 2c 58 25 29 2c 59 25 |ndex%(In|d,X%),Y%|
|00003bf0| 29 0d 18 9c 0f e7 4c 25 | 28 59 25 29 3e 37 37 8c |).....L%|(Y%)>77.|
|00003c00| 0d 18 a6 20 53 53 24 28 | 30 29 3d 52 24 28 49 6e |... SS$(|0)=R$(In|
|00003c10| 64 65 78 25 28 49 6e 64 | 2c 58 25 29 2c 59 25 29 |dex%(Ind|,X%),Y%)|
|00003c20| 0d 18 b0 12 c8 95 a9 28 | 53 53 24 28 30 29 29 3e |.......(|SS$(0))>|
|00003c30| 37 37 0d 18 ba 16 53 53 | 24 28 31 29 3d c0 53 53 |77....SS|$(1)=.SS|
|00003c40| 24 28 30 29 2c 37 38 29 | 0d 18 c4 13 c8 95 c2 53 |$(0),78)|.......S|
|00003c50| 53 24 28 31 29 29 3c 3e | 22 20 22 0d 18 ce 13 53 |S$(1))<>|" "....S|
|00003c60| 53 24 28 31 29 3d c0 53 | 53 24 28 31 29 29 0d 18 |S$(1)=.S|S$(1))..|
|00003c70| d8 05 ce 0d 18 e2 32 f1 | 8a 32 29 53 53 24 28 31 |......2.|.2)SS$(1|
|00003c80| 29 3a 53 53 24 28 30 29 | 3d c2 53 53 24 28 30 29 |):SS$(0)|=.SS$(0)|
|00003c90| 2c a9 28 53 53 24 28 30 | 29 29 2d a9 28 53 53 24 |,.(SS$(0|))-.(SS$|
|00003ca0| 28 31 29 29 29 0d 18 ec | 05 ce 0d 18 f6 0e f1 8a |(1)))...|........|
|00003cb0| 32 29 53 53 24 28 30 29 | 0d 19 00 05 cd 0d 19 0a |2)SS$(0)|........|
|00003cc0| 05 ed 0d 19 14 07 f1 27 | 27 0d 19 1e 0a 2a 46 58 |.......'|'....*FX|
|00003cd0| 33 20 30 0d 19 28 06 ef | 33 0d 19 32 05 e1 0d 19 |3 0..(..|3..2....|
|00003ce0| 3c 05 3a 0d 19 46 23 f4 | 20 4d 65 6e 75 20 6f 70 |<.:..F#.| Menu op|
|00003cf0| 74 69 6f 6e 20 32 20 2d | 20 73 61 76 65 20 72 6f |tion 2 -| save ro|
|00003d00| 75 74 69 6e 65 73 0d 19 | 50 0a dd f2 73 61 76 65 |utines..|P...save|
|00003d10| 0d 19 5a 07 ea 20 85 0d | 19 64 1c f2 74 65 78 74 |..Z.. ..|.d..text|
|00003d20| 28 31 33 2c 31 33 34 2c | 32 38 2c 32 38 2c 37 32 |(13,134,|28,28,72|
|00003d30| 2c 34 29 0d 19 6e 0a 2a | 4d 4f 55 4e 54 0d 19 78 |,4)..n.*|MOUNT..x|
|00003d40| 0a ee 85 20 ea 20 e1 0d | 19 82 14 2a 44 49 52 20 |... . ..|...*DIR |
|00003d50| 24 2e 44 41 54 41 46 49 | 4c 45 53 0d 19 8c 11 e7 |$.DATAFI|LES.....|
|00003d60| a9 28 46 69 6c 65 24 29 | 3d 30 20 8c 0d 19 96 22 |.(File$)|=0 ...."|
|00003d70| e8 8a 35 2c 31 30 29 22 | 45 6e 74 65 72 20 46 69 |..5,10)"|Enter Fi|
|00003d80| 6c 65 6e 61 6d 65 3a 20 | 22 46 69 6c 65 24 0d 19 |lename: |"File$..|
|00003d90| a0 05 cc 0d 19 aa 67 f1 | 8a 31 2c 31 30 29 22 43 |......g.|.1,10)"C|
|00003da0| 75 72 72 65 6e 74 20 6e | 61 6d 65 20 69 73 20 22 |urrent n|ame is "|
|00003db0| 3b 46 69 6c 65 24 27 27 | 22 20 50 72 65 73 73 20 |;File$''|" Press |
|00003dc0| 52 45 54 55 52 4e 20 74 | 6f 20 75 73 65 20 74 68 |RETURN t|o use th|
|00003dd0| 65 20 73 61 6d 65 20 6e | 61 6d 65 2c 22 27 22 20 |e same n|ame,"'" |
|00003de0| 6f 72 20 65 6e 74 65 72 | 20 61 20 6e 65 77 20 46 |or enter| a new F|
|00003df0| 69 6c 65 6e 61 6d 65 3a | 22 27 0d 19 b4 05 f5 0d |ilename:|"'......|
|00003e00| 19 be 26 f1 8a 32 30 2c | 31 35 29 c4 32 30 2c 22 |..&..20,|15).20,"|
|00003e10| 20 22 29 3a e8 8a 32 30 | 2c 31 35 29 22 89 20 22 | "):..20|,15)". "|
|00003e20| 46 24 28 30 29 0d 19 c8 | 10 fd a9 28 46 24 28 30 |F$(0)...|...(F$(0|
|00003e30| 29 29 3c 31 31 0d 19 d2 | 1a e7 46 24 28 30 29 3c |))<11...|..F$(0)<|
|00003e40| 3e 22 22 20 46 69 6c 65 | 24 3d 46 24 28 30 29 0d |>"" File|$=F$(0).|
|00003e50| 19 dc 05 cd 0d 19 e6 6d | f1 8a 30 2c 31 38 29 22 |.......m|..0,18)"|
|00003e60| 45 6e 74 65 72 20 72 61 | 6e 67 65 20 74 6f 20 62 |Enter ra|nge to b|
|00003e70| 65 20 73 61 76 65 64 2c | 20 6f 72 20 70 72 65 73 |e saved,| or pres|
|00003e80| 73 20 52 45 54 55 52 4e | 20 74 6f 22 27 22 61 63 |s RETURN| to"'"ac|
|00003e90| 63 65 70 74 20 64 65 66 | 61 75 6c 74 73 20 65 71 |cept def|aults eq|
|00003ea0| 75 69 76 61 6c 65 6e 74 | 20 74 6f 20 74 68 65 20 |uivalent| to the |
|00003eb0| 63 6f 6d 70 6c 65 74 65 | 22 27 22 66 69 6c 65 2e |complete|"'"file.|
|00003ec0| 22 0d 19 f0 35 f1 8a 31 | 30 2c 32 31 29 22 46 69 |"...5..1|0,21)"Fi|
|00003ed0| 72 73 74 20 72 65 63 6f | 72 64 3a 20 31 22 3a e8 |rst reco|rd: 1":.|
|00003ee0| 8a 32 34 2c 32 31 29 22 | 22 41 25 3a e7 41 25 3d |.24,21)"|"A%:.A%=|
|00003ef0| 30 20 41 25 3d 31 0d 19 | fa 3a f1 8a 31 30 2c 32 |0 A%=1..|.:..10,2|
|00003f00| 32 29 22 53 65 63 6f 6e | 64 20 72 65 63 6f 72 64 |2)"Secon|d record|
|00003f10| 3a 20 22 3b 54 25 3b 3a | e8 8a 32 35 2c 32 32 29 |: ";T%;:|..25,22)|
|00003f20| 22 22 42 25 3a e7 42 25 | 3d 30 20 42 25 3d 54 25 |""B%:.B%|=0 B%=T%|
|00003f30| 0d 1a 04 0e e7 41 25 3c | 31 20 41 25 3d 31 0d 1a |.....A%<|1 A%=1..|
|00003f40| 0e 10 e7 42 25 3e 54 25 | 20 42 25 3d 54 25 0d 1a |...B%>T%| B%=T%..|
|00003f50| 18 0e 43 25 3d 42 25 2b | 31 2d 41 25 0d 1a 22 0d |..C%=B%+|1-A%..".|
|00003f60| 4f 3d ae 20 46 69 6c 65 | 24 0d 1a 2c 0a f1 23 4f |O=. File|$..,..#O|
|00003f70| 2c 46 25 0d 1a 36 20 e3 | 58 25 3d 31 b8 46 25 3a |,F%..6 .|X%=1.F%:|
|00003f80| f1 23 4f 2c 46 24 28 58 | 25 29 2c 4c 25 28 58 25 |.#O,F$(X|%),L%(X%|
|00003f90| 29 3a ed 0d 1a 40 0a f1 | 23 4f 2c 43 25 0d 1a 4a |):...@..|#O,C%..J|
|00003fa0| 16 e3 58 25 3d 41 25 b8 | 42 25 3a e3 59 25 3d 31 |..X%=A%.|B%:.Y%=1|
|00003fb0| b8 46 25 0d 1a 54 1a ee | 85 20 ea 20 59 25 3d 46 |.F%..T..|. . Y%=F|
|00003fc0| 25 3a 58 25 3d 43 25 3a | e5 8d 44 68 5a 0d 1a 5e |%:X%=C%:|..DhZ..^|
|00003fd0| 1d f1 23 4f 2c 52 24 28 | 49 6e 64 65 78 25 28 49 |..#O,R$(|Index%(I|
|00003fe0| 6e 64 2c 58 25 29 2c 59 | 25 29 0d 1a 68 07 ed 3a |nd,X%),Y|%)..h..:|
|00003ff0| ed 0d 1a 72 07 d9 23 4f | 0d 1a 7c 0a 2a 44 49 52 |...r..#O|..|.*DIR|
|00004000| 20 24 0d 1a 86 05 e1 0d | 1a 90 05 3a 0d 1a 9a 24 | $......|...:...$|
|00004010| f4 20 4d 65 6e 75 20 6f | 70 74 69 6f 6e 20 33 20 |. Menu o|ption 3 |
|00004020| 2d 20 50 72 69 6e 74 20 | 72 6f 75 74 69 6e 65 73 |- Print |routines|
|00004030| 0d 1a a4 0b dd f2 70 72 | 69 6e 74 0d 1a ae 25 f2 |......pr|int...%.|
|00004040| 62 6f 78 28 35 2c 32 36 | 34 2c 32 34 2c 31 32 35 |box(5,26|4,24,125|
|00004050| 36 2c 31 30 30 30 29 3a | fb 31 33 3a fb 31 33 33 |6,1000):|.13:.133|
|00004060| 0d 1a b8 2d f1 8a 31 36 | 2c 32 29 22 50 52 49 4e |...-..16|,2)"PRIN|
|00004070| 54 20 52 4f 55 54 49 4e | 45 22 8a 31 36 29 22 2d |T ROUTIN|E".16)"-|
|00004080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 22 0d 1a c2 |--------|----"...|
|00004090| 48 f1 8a 32 2c 35 29 22 | 46 69 65 6c 64 73 20 77 |H..2,5)"|Fields w|
|000040a0| 69 6c 6c 20 62 65 20 70 | 72 69 6e 74 65 64 20 69 |ill be p|rinted i|
|000040b0| 6e 20 6f 72 64 65 72 20 | 73 65 6c 65 63 74 65 64 |n order |selected|
|000040c0| 2e 22 27 22 20 20 53 65 | 6c 65 63 74 20 66 69 65 |."'"  Se|lect fie|
|000040d0| 6c 64 73 3a 22 0d 1a cc | 17 53 53 24 28 30 29 3d |lds:"...|.SS$(0)=|
|000040e0| 22 22 3a 53 53 24 28 31 | 29 3d 22 22 0d 1a d6 3f |"":SS$(1|)=""...?|
|000040f0| e3 58 25 3d 31 b8 46 25 | 3a f1 8a 31 30 2c 37 2b |.X%=1.F%|:..10,7+|
|00004100| 58 25 29 3b bd 28 36 34 | 2b 58 25 29 3b 22 20 20 |X%);.(64|+X%);"  |
|00004110| 22 3b 46 24 28 58 25 29 | 3a 53 53 24 28 30 29 2b |";F$(X%)|:SS$(0)+|
|00004120| 3d bd 28 36 34 2b 58 25 | 29 3a ed 0d 1a e0 65 f1 |=.(64+X%|):....e.|
|00004130| 8a 31 30 29 3b bd 28 36 | 34 2b 58 25 29 3b 22 20 |.10);.(6|4+X%);" |
|00004140| 20 41 6c 6c 20 66 69 65 | 6c 64 73 22 3a 53 53 24 | All fie|lds":SS$|
|00004150| 28 30 29 2b 3d bd 28 36 | 34 2b 58 25 29 3a f1 8a |(0)+=.(6|4+X%):..|
|00004160| 31 30 29 3b bd 28 36 35 | 2b 58 25 29 3b 22 20 20 |10);.(65|+X%);"  |
|00004170| 4e 6f 20 6d 6f 72 65 20 | 66 69 65 6c 64 73 22 3a |No more |fields":|
|00004180| 53 53 24 28 30 29 2b 3d | bd 28 36 35 2b 58 25 29 |SS$(0)+=|.(65+X%)|
|00004190| 0d 1a ea 05 f5 0d 1a f4 | 05 f5 0d 1a fe 1b f2 61 |........|.......a|
|000041a0| 6e 73 77 65 72 28 53 53 | 24 28 30 29 2b bd 28 31 |nswer(SS|$(0)+.(1|
|000041b0| 33 29 2c 30 29 0d 1b 08 | 09 e7 7a 3d 34 8c 0d 1b |3),0)...|..z=4...|
|000041c0| 12 0e 79 3d 32 30 2d 79 | 20 81 33 32 0d 1b 1c 10 |..y=20-y| .32....|
|000041d0| e7 79 3c 46 25 2b 39 20 | 5a 25 3d 79 0d 1b 26 05 |.y<F%+9 |Z%=y..&.|
|000041e0| cd 0d 1b 30 0a fd 5a 25 | 3c 3e 30 0d 1b 3a 12 e7 |...0..Z%|<>0..:..|
|000041f0| 5a 25 3d 46 25 2b 33 20 | 5a 25 2d 3d 31 0d 1b 44 |Z%=F%+3 |Z%-=1..D|
|00004200| 0d e7 5a 25 3c 46 25 2b | 31 8c 0d 1b 4e 0f 43 24 |..Z%<F%+|1...N.C$|
|00004210| 3d bd 28 5a 25 2b 36 34 | 29 0d 1b 58 3d e7 53 53 |=.(Z%+64|)..X=.SS|
|00004220| 24 28 31 29 3d 22 50 72 | 69 6e 74 20 61 6c 6c 22 |$(1)="Pr|int all"|
|00004230| 20 53 53 24 28 31 29 3d | 43 24 20 8b 20 e7 a7 53 | SS$(1)=|C$ . ..S|
|00004240| 53 24 28 31 29 2c 43 24 | 29 3d 30 20 53 53 24 28 |S$(1),C$|)=0 SS$(|
|00004250| 31 29 2b 3d 43 24 0d 1b | 62 15 f1 8a 35 2c 32 32 |1)+=C$..|b...5,22|
|00004260| 29 53 53 24 28 31 29 3b | 89 38 3b 0d 1b 6c 05 cd |)SS$(1);|.8;..l..|
|00004270| 0d 1b 76 2e e7 5a 25 3d | 46 25 2b 31 20 53 53 24 |..v..Z%=|F%+1 SS$|
|00004280| 28 31 29 3d 22 50 72 69 | 6e 74 20 61 6c 6c 22 3a |(1)="Pri|nt all":|
|00004290| f1 8a 35 2c 32 32 29 53 | 53 24 28 31 29 3b 0d 1b |..5,22)S|S$(1);..|
|000042a0| 80 16 f2 70 61 75 73 65 | 28 31 30 29 3a 2a 66 78 |...pause|(10):*fx|
|000042b0| 31 35 20 30 0d 1b 8a 0c | fd 5a 25 3d 46 25 2b 32 |15 0....|.Z%=F%+2|
|000042c0| 0d 1b 94 2a e7 53 53 24 | 28 31 29 3d 22 50 72 69 |...*.SS$|(1)="Pri|
|000042d0| 6e 74 20 61 6c 6c 22 20 | 53 53 24 28 31 29 3d c0 |nt all" |SS$(1)=.|
|000042e0| 53 53 24 28 30 29 2c 46 | 25 29 0d 1b 9e 10 e7 53 |SS$(0),F|%).....S|
|000042f0| 53 24 28 31 29 3d 22 22 | 20 e1 0d 1b a8 21 4c 25 |S$(1)=""| ....!L%|
|00004300| 3d a9 28 53 53 24 28 31 | 29 29 3a 53 53 24 28 30 |=.(SS$(1|)):SS$(0|
|00004310| 29 3d 22 22 3a 6c 65 6e | 25 3d 30 0d 1b b2 0c e3 |)="":len|%=0.....|
|00004320| 58 25 3d 31 b8 4c 25 0d | 1b bc 14 54 24 3d c1 53 |X%=1.L%.|...T$=.S|
|00004330| 53 24 28 31 29 2c 58 25 | 2c 31 29 0d 1b c6 20 59 |S$(1),X%|,1)... Y|
|00004340| 25 3d 97 28 54 24 29 2d | 36 34 3a 6c 65 6e 25 2b |%=.(T$)-|64:len%+|
|00004350| 3d 28 4c 25 28 59 25 29 | 2b 33 29 0d 1b d0 05 ed |=(L%(Y%)|+3).....|
|00004360| 0d 1b da 55 db 3a f1 8a | 30 2c 31 30 29 22 45 6e |...U.:..|0,10)"En|
|00004370| 74 65 72 20 72 61 6e 67 | 65 20 74 6f 20 62 65 20 |ter rang|e to be |
|00004380| 70 72 69 6e 74 65 64 2c | 20 6f 72 20 70 72 65 73 |printed,| or pres|
|00004390| 73 20 52 45 54 55 52 4e | 22 27 22 74 6f 20 61 63 |s RETURN|"'"to ac|
|000043a0| 63 65 70 74 20 64 65 66 | 61 75 6c 74 73 20 73 68 |cept def|aults sh|
|000043b0| 6f 77 6e 2e 22 0d 1b e4 | 35 f1 8a 31 30 2c 31 35 |own."...|5..10,15|
|000043c0| 29 22 46 69 72 73 74 20 | 72 65 63 6f 72 64 3a 20 |)"First |record: |
|000043d0| 31 22 3a e8 8a 32 34 2c | 31 35 29 22 22 41 25 3a |1":..24,|15)""A%:|
|000043e0| e7 41 25 3d 30 20 41 25 | 3d 31 0d 1b ee 3a f1 8a |.A%=0 A%|=1...:..|
|000043f0| 31 30 2c 31 36 29 22 53 | 65 63 6f 6e 64 20 72 65 |10,16)"S|econd re|
|00004400| 63 6f 72 64 3a 20 22 3b | 54 25 3b 3a e8 8a 32 35 |cord: ";|T%;:..25|
|00004410| 2c 31 36 29 22 22 42 25 | 3a e7 42 25 3d 30 20 42 |,16)""B%|:.B%=0 B|
|00004420| 25 3d 54 25 0d 1b f8 0e | e7 41 25 3c 31 20 41 25 |%=T%....|.A%<1 A%|
|00004430| 3d 31 0d 1c 02 10 e7 42 | 25 3e 54 25 20 42 25 3d |=1.....B|%>T% B%=|
|00004440| 54 25 0d 1c 0c 0e 43 25 | 3d 42 25 2b 31 2d 41 25 |T%....C%|=B%+1-A%|
|00004450| 0d 1c 16 08 5a 25 3d 30 | 0d 1c 20 71 e7 6c 65 6e |....Z%=0|.. q.len|
|00004460| 25 3e 31 33 32 20 f2 74 | 65 78 74 28 31 33 2c 31 |%>132 .t|ext(13,1|
|00004470| 33 33 2c 32 30 2c 33 30 | 2c 37 37 2c 33 29 3a f1 |33,20,30|,77,3):.|
|00004480| 8a 32 2c 31 30 29 22 57 | 41 52 4e 49 4e 47 21 20 |.2,10)"W|ARNING! |
|00004490| 54 6f 6f 20 77 69 64 65 | 20 66 6f 72 20 63 6f 6c |Too wide| for col|
|000044a0| 75 6d 6e 20 70 72 69 6e | 74 69 6e 67 22 27 22 43 |umn prin|ting"'"C|
|000044b0| 6f 6e 74 69 6e 75 65 3f | 22 3a f2 79 65 73 6e 6f |ontinue?|":.yesno|
|000044c0| 3a fb 31 33 3a fb 31 33 | 33 0d 1c 2a 0b e7 5a 25 |:.13:.13|3..*..Z%|
|000044d0| 3e 32 20 e1 0d 1c 34 20 | e7 6c 65 6e 25 3c 38 30 |>2 ...4 |.len%<80|
|000044e0| 20 ef 32 2c 31 2c 32 37 | 2c 31 2c 36 34 2c 33 3a | .2,1,27|,1,64,3:|
|000044f0| 50 25 3d 30 0d 1c 3e 36 | e7 28 6c 65 6e 25 3e 37 |P%=0..>6|.(len%>7|
|00004500| 39 20 80 20 6c 65 6e 25 | 3c 39 36 29 20 ef 32 2c |9 . len%|<96) .2,|
|00004510| 31 2c 32 37 2c 31 2c 36 | 34 2c 31 2c 32 37 2c 31 |1,27,1,6|4,1,27,1|
|00004520| 2c 37 37 2c 33 3a 50 25 | 3d 31 0d 1c 48 32 e7 28 |,77,3:P%|=1..H2.(|
|00004530| 6c 65 6e 25 3e 39 35 20 | 80 20 6c 65 6e 25 3c 31 |len%>95 |. len%<1|
|00004540| 33 33 29 20 ef 32 2c 31 | 2c 32 37 2c 31 2c 36 34 |33) .2,1|,27,1,64|
|00004550| 2c 31 2c 31 35 2c 33 3a | 50 25 3d 32 0d 1c 52 0e |,1,15,3:|P%=2..R.|
|00004560| f1 8a 32 29 53 53 24 28 | 30 29 0d 1c 5c 0f e7 6c |..2)SS$(|0)..\..l|
|00004570| 65 6e 25 3e 31 33 32 20 | 8c 0d 1c 66 70 ef 32 2c |en%>132 |...fp.2,|
|00004580| 31 2c 32 37 2c 31 2c 36 | 34 2c 31 2c 32 37 2c 31 |1,27,1,6|4,1,27,1|
|00004590| 2c 34 35 2c 31 2c 31 3a | ff 28 22 46 58 33 20 31 |,45,1,1:|.("FX3 1|
|000045a0| 30 22 29 3a f1 46 69 6c | 65 24 3b 22 20 49 6e 64 |0"):.Fil|e$;" Ind|
|000045b0| 65 78 20 6c 65 76 65 6c | 20 22 3b 49 6e 64 3b 22 |ex level| ";Ind;"|
|000045c0| 20 6f 6e 20 22 3b 91 24 | 3b 3a ff 28 22 46 58 33 | on ";.$|;:.("FX3|
|000045d0| 20 30 22 29 3a ef 31 2c | 32 37 2c 31 2c 34 35 2c | 0"):.1,|27,1,45,|
|000045e0| 31 2c 30 2c 31 33 2c 31 | 33 0d 1c 70 0d e3 58 25 |1,0,13,1|3..p..X%|
|000045f0| 3d 41 25 b8 42 25 0d 1c | 7a 2d e7 c0 52 24 28 49 |=A%.B%..|z-..R$(I|
|00004600| 6e 64 65 78 25 28 49 6e | 64 2c 58 25 29 2c 31 29 |ndex%(In|d,X%),1)|
|00004610| 2c 31 29 3d 22 2a 22 20 | 58 25 3d 42 25 3a e5 8d |,1)="*" |X%=B%:..|
|00004620| 44 42 5d 0d 1c 84 0c e3 | 59 25 3d 31 b8 4c 25 0d |DB].....|Y%=1.L%.|
|00004630| 1c 8e 1a 5a 25 3d 97 28 | c1 53 53 24 28 31 29 2c |...Z%=.(|.SS$(1),|
|00004640| 59 25 2c 31 29 29 2d 36 | 34 0d 1c 98 25 ff 28 22 |Y%,1))-6|4...%.("|
|00004650| 46 58 33 20 30 22 29 3a | ef 31 2c 32 37 2c 31 2c |FX3 0"):|.1,27,1,|
|00004660| 35 32 3a ff 28 22 46 58 | 33 20 31 30 22 29 0d 1c |52:.("FX|3 10")..|
|00004670| a2 0b f1 46 24 28 5a 25 | 29 0d 1c ac 25 ff 28 22 |...F$(Z%|)...%.("|
|00004680| 46 58 33 20 30 22 29 3a | ef 31 2c 32 37 2c 31 2c |FX3 0"):|.1,27,1,|
|00004690| 35 33 3a ff 28 22 46 58 | 33 20 31 30 22 29 0d 1c |53:.("FX|3 10")..|
|000046a0| b6 28 e7 4c 25 28 5a 25 | 29 3c 37 38 20 f1 8a 32 |.(.L%(Z%|)<78 ..2|
|000046b0| 29 52 24 28 49 6e 64 65 | 78 25 28 49 6e 64 2c 58 |)R$(Inde|x%(Ind,X|
|000046c0| 25 29 2c 5a 25 29 0d 1c | c0 0f e7 4c 25 28 5a 25 |%),Z%)..|...L%(Z%|
|000046d0| 29 3e 37 37 8c 0d 1c ca | 20 53 53 24 28 30 29 3d |)>77....| SS$(0)=|
|000046e0| 52 24 28 49 6e 64 65 78 | 25 28 49 6e 64 2c 58 25 |R$(Index|%(Ind,X%|
|000046f0| 29 2c 5a 25 29 0d 1c d4 | 12 c8 95 a9 28 53 53 24 |),Z%)...|....(SS$|
|00004700| 28 30 29 29 3e 37 37 0d | 1c de 17 52 24 28 30 2c |(0))>77.|...R$(0,|
|00004710| 30 29 3d c0 53 53 24 28 | 30 29 2c 37 38 29 0d 1c |0)=.SS$(|0),78)..|
|00004720| e8 14 c8 95 c2 52 24 28 | 30 2c 30 29 29 3c 3e 22 |.....R$(|0,0))<>"|
|00004730| 20 22 0d 1c f2 15 52 24 | 28 30 2c 30 29 3d c0 52 | "....R$|(0,0)=.R|
|00004740| 24 28 30 2c 30 29 29 0d | 1c fc 05 ce 0d 1d 06 34 |$(0,0)).|.......4|
|00004750| f1 8a 32 29 52 24 28 30 | 2c 30 29 3a 53 53 24 28 |..2)R$(0|,0):SS$(|
|00004760| 30 29 3d c2 53 53 24 28 | 30 29 2c a9 28 53 53 24 |0)=.SS$(|0),.(SS$|
|00004770| 28 30 29 29 2d a9 28 52 | 24 28 30 2c 30 29 29 29 |(0))-.(R|$(0,0)))|
|00004780| 0d 1d 10 05 ce 0d 1d 1a | 0e f1 8a 32 29 53 53 24 |........|...2)SS$|
|00004790| 28 30 29 0d 1d 24 05 cd | 0d 1d 2e 05 ed 0d 1d 38 |(0)..$..|.......8|
|000047a0| 05 f1 0d 1d 42 05 ed 0d | 1d 4c 0a 2a 46 58 33 20 |....B...|.L.*FX3 |
|000047b0| 30 0d 1d 56 09 ef 31 32 | 2c 33 0d 1d 60 05 cd 0d |0..V..12|,3..`...|
|000047c0| 1d 6a 0f e7 6c 65 6e 25 | 3e 31 33 32 20 e1 0d 1d |.j..len%|>132 ...|
|000047d0| 74 09 50 24 3d 22 22 0d | 1d 7e 0c e3 59 25 3d 31 |t.P$="".|.~..Y%=1|
|000047e0| b8 4c 25 0d 1d 88 1a 5a | 25 3d 97 28 c1 53 53 24 |.L%....Z|%=.(.SS$|
|000047f0| 28 31 29 2c 59 25 2c 31 | 29 29 2d 36 34 0d 1d 92 |(1),Y%,1|))-64...|
|00004800| 5b e7 a9 28 46 24 28 5a | 25 29 29 3e 4c 25 28 5a |[..(F$(Z|%))>L%(Z|
|00004810| 25 29 20 50 24 3d 50 24 | 2b bd 28 5a 25 2b 36 34 |%) P$=P$|+.(Z%+64|
|00004820| 29 2b c4 4c 25 28 5a 25 | 29 2b 32 2c 22 20 22 29 |)+.L%(Z%|)+2," ")|
|00004830| 20 8b 20 50 24 3d 50 24 | 2b 46 24 28 5a 25 29 2b | . P$=P$|+F$(Z%)+|
|00004840| c4 4c 25 28 5a 25 29 2b | 33 2d a9 28 46 24 28 5a |.L%(Z%)+|3-.(F$(Z|
|00004850| 25 29 29 2c 22 20 22 29 | 0d 1d 9c 05 ed 0d 1d a6 |%))," ")|........|
|00004860| 0e ef 32 3a 2a 46 58 33 | 20 31 30 0d 1d b0 12 f1 |..2:*FX3| 10.....|
|00004870| 50 24 27 c4 6c 65 6e 25 | 2c 22 2d 22 29 0d 1d ba |P$'.len%|,"-")...|
|00004880| 09 43 74 25 3d 30 0d 1d | c4 0d e3 58 25 3d 41 25 |.Ct%=0..|...X%=A%|
|00004890| b8 42 25 0d 1d ce 2d e7 | c0 52 24 28 49 6e 64 65 |.B%...-.|.R$(Inde|
|000048a0| 78 25 28 49 6e 64 2c 58 | 25 29 2c 31 29 2c 31 29 |x%(Ind,X|%),1),1)|
|000048b0| 3d 22 2a 22 20 58 25 3d | 42 25 3a e5 8d 54 54 5e |="*" X%=|B%:..TT^|
|000048c0| 0d 1d d8 0c e3 59 25 3d | 31 b8 4c 25 0d 1d e2 1a |.....Y%=|1.L%....|
|000048d0| 5a 25 3d 97 28 c1 53 53 | 24 28 31 29 2c 59 25 2c |Z%=.(.SS|$(1),Y%,|
|000048e0| 31 29 29 2d 36 34 0d 1d | ec 21 f1 52 24 28 49 6e |1))-64..|.!.R$(In|
|000048f0| 64 65 78 25 28 49 6e 64 | 2c 58 25 29 2c 5a 25 29 |dex%(Ind|,X%),Z%)|
|00004900| 3b 22 20 20 20 22 3b 0d | 1d f6 05 ed 0d 1e 00 0c |;"   ";.|........|
|00004910| 43 74 25 2b 3d 31 3a f1 | 0d 1e 0a 3f e7 20 58 25 |Ct%+=1:.|...?. X%|
|00004920| 83 36 30 3d 30 20 ff 28 | 22 46 58 33 20 30 22 29 |.60=0 .(|"FX3 0")|
|00004930| 3a ef 31 32 2c 33 2c 37 | 3a ff 28 22 46 58 31 35 |:.12,3,7|:.("FX15|
|00004940| 20 31 22 29 3a 47 3d a5 | 3a ef 32 3a ff 28 22 46 | 1"):G=.|:.2:.("F|
|00004950| 58 33 20 31 30 22 29 0d | 1e 14 05 ed 0d 1e 1e 40 |X3 10").|.......@|
|00004960| f1 27 22 50 72 69 6e 74 | 65 64 20 6f 6e 20 22 3b |.'"Print|ed on ";|
|00004970| 91 24 3b 22 2e 20 54 6f | 74 61 6c 20 6e 75 6d 62 |.$;". To|tal numb|
|00004980| 65 72 20 6f 66 20 72 65 | 63 6f 72 64 73 20 6c 69 |er of re|cords li|
|00004990| 73 74 65 64 20 3d 20 22 | 3b 43 74 25 0d 1e 28 0a |sted = "|;Ct%..(.|
|000049a0| 2a 46 58 33 20 30 0d 1e | 32 09 ef 31 32 2c 33 0d |*FX3 0..|2..12,3.|
|000049b0| 1e 3c 05 e1 0d 1e 46 05 | 3a 0d 1e 50 0a dd f2 71 |.<....F.|:..P...q|
|000049c0| 75 69 74 0d 1e 5a 1c f2 | 74 65 78 74 28 31 33 2c |uit..Z..|text(13,|
|000049d0| 31 33 34 2c 32 30 2c 33 | 30 2c 37 37 2c 33 29 0d |134,20,3|0,77,3).|
|000049e0| 1e 64 28 f1 8a 33 2c 31 | 30 29 22 44 6f 20 79 6f |.d(..3,1|0)"Do yo|
|000049f0| 75 20 72 65 61 6c 6c 79 | 20 77 61 6e 74 20 74 6f |u really| want to|
|00004a00| 20 71 75 69 74 3f 22 0d | 1e 6e 0a f2 79 65 73 6e | quit?".|.n..yesn|
|00004a10| 6f 0d 1e 78 0b e7 5a 25 | 3e 32 20 e1 0d 1e 82 21 |o..x..Z%|>2 ....!|
|00004a20| f2 62 6f 78 28 31 33 2c | 32 34 2c 32 34 2c 31 32 |.box(13,|24,24,12|
|00004a30| 35 36 2c 31 30 30 30 29 | 3a fb 31 34 31 0d 1e 8c |56,1000)|:.141...|
|00004a40| 23 e3 58 25 3d 31 b8 32 | 35 3a f1 8a 31 32 2c 58 |#.X%=1.2|5:..12,X|
|00004a50| 25 29 22 20 46 49 4e 49 | 53 48 45 44 20 22 3a ed |%)" FINI|SHED ":.|
|00004a60| 0d 1e 96 1c fb 31 35 3a | f1 8a 31 32 2c 31 29 22 |.....15:|..12,1)"|
|00004a70| 4d 41 58 49 46 49 4c 45 | 2d 33 22 3b 0d 1e a0 28 |MAXIFILE|-3";...(|
|00004a80| e3 58 25 3d 32 b8 32 35 | 3a fb 31 34 3a f1 8a 31 |.X%=2.25|:.14:..1|
|00004a90| 32 2c 58 25 2d 31 29 22 | 20 46 49 4e 49 53 48 45 |2,X%-1)"| FINISHE|
|00004aa0| 44 20 22 3b 0d 1e aa 1d | fb 31 35 3a f1 8a 31 32 |D ";....|.15:..12|
|00004ab0| 2c 58 25 29 22 4d 41 58 | 49 46 49 4c 45 2d 33 22 |,X%)"MAX|IFILE-3"|
|00004ac0| 3b 0d 1e b4 0e f2 70 61 | 75 73 65 28 31 30 29 0d |;.....pa|use(10).|
|00004ad0| 1e be 05 ed 0d 1e c8 0f | f2 70 61 75 73 65 28 32 |........|.pause(2|
|00004ae0| 30 30 29 0d 1e d2 10 d9 | 23 30 3a 2a 46 58 32 32 |00).....|#0:*FX22|
|00004af0| 39 20 30 0d 1e dc 05 ee | 0d 1e e6 0d ef 32 30 2c |9 0.....|.....20,|
|00004b00| 32 36 2c 31 32 0d 1e f0 | 09 2a 44 45 53 2e 0d 1e |26,12...|.*DES...|
|00004b10| fa 05 e0 0d 1f 04 05 3a | 0d 1f 0e 0f dd f2 70 61 |.......:|......pa|
|00004b20| 75 73 65 28 74 25 29 0d | 1f 18 12 54 3d 91 3a f5 |use(t%).|...T=.:.|
|00004b30| 20 fd 20 91 3e 54 2b 74 | 25 0d 1f 22 05 e1 0d 1f | . .>T+t|%.."....|
|00004b40| 2c 05 3a 0d 1f 36 0b dd | f2 79 65 73 6e 6f 0d 1f |,.:..6..|.yesno..|
|00004b50| 40 67 f2 62 6f 78 28 31 | 34 2c 35 38 38 2c 32 36 |@g.box(1|4,588,26|
|00004b60| 34 2c 36 37 36 2c 33 34 | 34 29 3a f2 62 6f 78 28 |4,676,34|4):.box(|
|00004b70| 31 33 2c 35 39 36 2c 32 | 37 32 2c 36 36 38 2c 33 |13,596,2|72,668,3|
|00004b80| 33 36 29 3a f2 62 6f 78 | 28 31 34 2c 38 31 36 2c |36):.box|(14,816,|
|00004b90| 32 36 34 2c 39 30 34 2c | 33 34 34 29 3a f2 62 6f |264,904,|344):.bo|
|00004ba0| 78 28 31 33 2c 38 32 34 | 2c 32 37 32 2c 38 39 36 |x(13,824|,272,896|
|00004bb0| 2c 33 33 36 29 0d 1f 4a | 3c fb 31 34 3a fb 31 34 |,336)..J|<.14:.14|
|00004bc0| 31 3a f1 8a 31 38 2c 31 | 39 29 22 59 45 53 22 3b |1:..18,1|9)"YES";|
|00004bd0| 8a 33 33 2c 31 39 29 22 | 4e 4f 22 3b 3a ef 32 34 |.33,19)"|NO";:.24|
|00004be0| 2c 35 38 38 3b 32 36 34 | 3b 39 30 34 3b 33 34 34 |,588;264|;904;344|
|00004bf0| 3b 0d 1f 54 05 f5 0d 1f | 5e 08 5a 25 3d 30 0d 1f |;..T....|^.Z%=0..|
|00004c00| 68 15 f2 61 6e 73 77 65 | 72 28 22 79 59 6e 4e 22 |h..answe|r("yYnN"|
|00004c10| 2c 30 29 0d 1f 72 09 e7 | 7a 3d 34 8c 0d 1f 7c 0f |,0)..r..|z=4...|.|
|00004c20| e7 78 3c 36 37 36 8c 5a | 25 3d 31 0d 1f 86 15 e7 |.x<676.Z|%=1.....|
|00004c30| 78 3e 38 31 36 80 78 3c | 39 30 34 8c 5a 25 3d 33 |x>816.x<|904.Z%=3|
|00004c40| 0d 1f 90 05 cd 0d 1f 9a | 0a fd 5a 25 3c 3e 30 0d |........|..Z%<>0.|
|00004c50| 1f a4 05 e1 0d 1f ae 0a | 46 58 33 20 31 30 0d ff |........|FX3 10..|
+--------+-------------------------+-------------------------+--------+--------+