home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-06-14 | 15.4 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2c f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 20 20 |...,. --|------ |
|00000010| 42 65 65 62 20 42 61 73 | 65 20 20 2d 2d 2d 2d 2d |Beeb Bas|e -----|
|00000020| 2d 2d 2d 2d 2d 20 20 20 | 20 20 20 20 0d 00 14 25 |----- | ...%|
|00000030| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00000040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000050| 2d 0d 00 1e 25 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-...%. -|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 0d 00 | 28 19 f4 20 42 79 20 44 |------..|(.. By D|
|00000080| 69 61 6d 6f 6e 64 20 42 | 72 61 67 61 6e 7a 61 0d |iamond B|raganza.|
|00000090| 00 32 25 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.2%. ---|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 0d 00 3c 16 | f4 20 53 65 74 75 70 20 |----..<.|. Setup |
|000000c0| 44 69 6d 65 6e 73 69 6f | 6e 73 0d 00 46 25 f4 20 |Dimensio|ns..F%. |
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000f0| 00 50 07 20 eb 30 0d 00 | 5a 70 20 e9 20 6d 61 78 |.P. .0..|Zp . max|
|00000100| 25 3d 39 39 39 3a de 20 | 66 69 65 6c 64 24 28 31 |%=999:. |field$(1|
|00000110| 30 29 2c 20 72 6e 61 6d | 65 24 28 35 30 2c 31 30 |0), rnam|e$(50,10|
|00000120| 29 2c 20 6e 65 77 24 28 | 31 30 29 2c 20 66 6c 25 |), new$(|10), fl%|
|00000130| 28 31 30 29 2c 20 73 65 | 61 72 63 68 24 28 31 30 |(10), se|arch$(10|
|00000140| 29 2c 20 73 65 61 72 63 | 68 66 6f 75 6e 64 25 28 |), searc|hfound%(|
|00000150| 6d 61 78 25 29 2c 20 64 | 65 6c 65 74 65 25 28 6d |max%), d|elete%(m|
|00000160| 61 78 25 29 20 20 0d 00 | 64 60 20 20 e9 20 66 6c |ax%) ..|d` . fl|
|00000170| 64 24 3d 22 66 6c 64 22 | 3a e9 20 64 61 74 24 3d |d$="fld"|:. dat$=|
|00000180| 22 64 61 74 22 3a e9 20 | 6e 61 6d 65 24 3d 22 22 |"dat":. |name$=""|
|00000190| 3a e9 20 72 63 25 3d 30 | 3a e9 20 6c 65 6e 67 74 |:. rc%=0|:. lengt|
|000001a0| 68 25 3d 30 3a e9 20 74 | 6f 74 61 6c 25 3d 39 3a |h%=0:. t|otal%=9:|
|000001b0| e9 20 63 6f 75 6e 74 65 | 72 25 3d 30 20 20 20 20 |. counte|r%=0 |
|000001c0| 20 20 20 20 20 20 0d 00 | 6e 99 20 20 20 e9 20 66 | ..|n. . f|
|000001d0| 69 6c 65 6c 65 6e 67 74 | 68 25 3d 6d 61 78 25 3a |ilelengt|h%=max%:|
|000001e0| 20 e9 20 72 65 63 75 73 | 65 64 25 3d 30 3a 20 e9 | . recus|ed%=0: .|
|000001f0| 20 73 70 61 63 65 25 3d | 30 3a 20 e9 20 72 65 61 | space%=|0: . rea|
|00000200| 64 6d 6f 64 65 25 3d 30 | 3a 20 e9 20 63 68 65 63 |dmode%=0|: . chec|
|00000210| 6b 25 3d 30 3a 6e 6f 66 | 6f 75 6e 64 25 3d 30 3a |k%=0:nof|ound%=0:|
|00000220| 20 e9 20 64 66 73 25 3d | 30 3a 20 e9 20 66 5f 6c | . dfs%=|0: . f_l|
|00000230| 69 6e 65 73 25 3d 30 3a | 20 e9 20 72 5f 6c 69 6e |ines%=0:| . r_lin|
|00000240| 65 73 25 3d 32 3a 20 e9 | 20 72 5f 61 63 72 6f 73 |es%=2: .| r_acros|
|00000250| 73 25 3d 31 20 20 20 20 | 20 20 20 20 20 20 20 0d |s%=1 | .|
|00000260| 00 78 25 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.x%. ---|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 0d 00 82 05 | f4 0d 00 8c 3d f4 4d 4f |----....|....=.MO|
|00000290| 56 45 20 35 2c 35 3a 44 | 52 41 57 20 31 32 37 35 |VE 5,5:D|RAW 1275|
|000002a0| 2c 35 3a 44 52 41 57 20 | 31 32 37 35 2c 31 30 32 |,5:DRAW |1275,102|
|000002b0| 30 3a 44 52 41 57 20 35 | 2c 31 30 32 30 3a 44 52 |0:DRAW 5|,1020:DR|
|000002c0| 41 57 20 35 2c 35 0d 00 | 96 2d ec 20 37 2c 37 3a |AW 5,5..|.-. 7,7:|
|000002d0| df 20 31 32 37 32 2c 37 | 3a df 20 31 32 37 32 2c |. 1272,7|:. 1272,|
|000002e0| 31 30 31 38 3a df 20 37 | 2c 31 30 31 38 3a df 20 |1018:. 7|,1018:. |
|000002f0| 37 2c 37 0d 00 a0 0c dd | f2 62 65 67 69 6e 20 0d |7,7.....|.begin .|
|00000300| 00 aa 0e 20 ee 85 20 e4 | 20 8d 54 52 4c 0d 00 b4 |... .. .| .TRL...|
|00000310| 26 20 ef 20 31 39 2c 32 | 2c 30 2c 30 2c 30 2c 30 |& . 19,2|,0,0,0,0|
|00000320| 2c 31 39 2c 30 2c 34 2c | 30 2c 30 2c 30 20 20 20 |,19,0,4,|0,0,0 |
|00000330| 20 20 20 0d 00 be 1d 20 | ef 20 31 39 2c 31 2c 37 | .... |. 19,1,7|
|00000340| 2c 30 2c 30 2c 30 20 20 | 20 20 20 20 20 20 20 20 |,0,0,0 | |
|00000350| 0d 00 c8 13 20 ef 20 32 | 38 2c 32 2c 33 30 2c 37 |.... . 2|8,2,30,7|
|00000360| 36 2c 31 0d 00 d2 05 db | 0d 00 dc 06 20 f1 0d 00 |6,1.....|.... ...|
|00000370| e6 50 f1 22 20 20 20 20 | 20 20 20 20 20 20 2d 2d |.P." | --|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 20 20 20 20 42 65 | 65 62 20 20 42 61 73 65 |-- Be|eb Base|
|000003a0| 20 20 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ----|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 22 20 | 20 20 20 20 20 20 0d 00 |------" | ..|
|000003c0| f0 05 f1 0d 00 fa 53 20 | f1 20 22 5f 5f 5f 5f 5f |......S |. "_____|
|000003d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000003e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000003f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000400| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000410| 5f 5f 5f 5f 5f 22 0d 01 | 04 57 20 e7 20 6e 61 6d |_____"..|.W . nam|
|00000420| 65 24 3d 22 22 20 8c 20 | f1 8a 35 30 2c 35 29 22 |e$="" . |..50,5)"|
|00000430| 46 69 6c 65 6e 61 6d 65 | 20 20 20 20 20 3a 28 6e |Filename| :(n|
|00000440| 6f 66 69 6c 65 29 22 20 | 8b 20 f1 8a 35 30 2c 35 |ofile)" |. ..50,5|
|00000450| 29 22 46 69 6c 65 6e 61 | 6d 65 20 20 20 20 20 3a |)"Filena|me :|
|00000460| 22 3b 6e 61 6d 65 24 20 | 20 20 20 20 20 0d 01 0e |";name$ | ...|
|00000470| 6a 20 e7 20 66 69 6c 65 | 6c 65 6e 67 74 68 25 3d |j . file|length%=|
|00000480| 6d 61 78 25 20 8c 20 f1 | 8a 35 30 2c 36 29 22 46 |max% . .|.50,6)"F|
|00000490| 69 6c 65 20 4c 65 6e 67 | 74 68 20 20 3a 28 75 6e |ile Leng|th :(un|
|000004a0| 6b 6e 6f 77 6e 29 22 20 | 8b 20 f1 8a 35 30 2c 36 |known)" |. ..50,6|
|000004b0| 29 22 46 69 6c 65 20 4c | 65 6e 67 74 68 20 20 3a |)"File L|ength :|
|000004c0| 22 3b 66 69 6c 65 6c 65 | 6e 67 74 68 25 20 20 20 |";filele|ngth% |
|000004d0| 20 20 20 20 20 20 20 0d | 01 18 59 20 e7 20 72 65 | .|..Y . re|
|000004e0| 63 75 73 65 64 25 3d 30 | 20 8c 20 f1 8a 35 30 2c |cused%=0| . ..50,|
|000004f0| 37 29 22 52 65 63 6f 72 | 64 73 20 55 73 65 64 20 |7)"Recor|ds Used |
|00000500| 3a 28 6e 6f 6e 65 20 75 | 73 65 64 29 22 20 8b 20 |:(none u|sed)" . |
|00000510| f1 8a 35 30 2c 37 29 22 | 52 65 63 6f 72 64 73 20 |..50,7)"|Records |
|00000520| 55 73 65 64 20 3a 22 3b | 72 65 63 75 73 65 64 25 |Used :";|recused%|
|00000530| 0d 01 22 1b f1 22 20 20 | 31 2e 20 43 72 65 61 74 |..".." |1. Creat|
|00000540| 65 20 4e 65 77 20 46 69 | 6c 65 22 0d 01 2c 16 f1 |e New Fi|le"..,..|
|00000550| 22 20 20 32 2e 20 45 6e | 74 65 72 20 44 61 74 61 |" 2. En|ter Data|
|00000560| 22 0d 01 36 18 f1 22 20 | 20 33 2e 20 52 65 61 64 |"..6.." | 3. Read|
|00000570| 20 52 65 63 6f 72 64 73 | 22 0d 01 40 1b 20 f1 20 | Records|"..@. . |
|00000580| 22 20 20 34 2e 20 44 65 | 6c 65 74 65 20 52 65 63 |" 4. De|lete Rec|
|00000590| 6f 72 64 22 0d 01 4a 1c | 20 f1 20 22 20 20 35 2e |ord"..J.| . " 5.|
|000005a0| 20 53 65 61 72 63 68 20 | 52 65 63 6f 72 64 73 22 | Search |Records"|
|000005b0| 0d 01 54 1a 20 f1 20 22 | 20 20 36 2e 20 44 69 73 |..T. . "| 6. Dis|
|000005c0| 6b 20 4f 70 74 69 6f 6e | 73 22 0d 01 5e 1b 20 f1 |k Option|s"..^. .|
|000005d0| 20 22 20 20 37 2e 20 50 | 72 69 6e 74 20 4f 70 74 | " 7. P|rint Opt|
|000005e0| 69 6f 6e 73 22 0d 01 68 | 2c 20 f1 20 22 20 20 38 |ions"..h|, . " 8|
|000005f0| 2e 20 45 6e 64 20 61 6e | 64 20 53 74 6f 72 65 20 |. End an|d Store |
|00000600| 43 68 61 6e 67 65 73 22 | 20 20 20 20 20 20 20 20 |Changes"| |
|00000610| 20 0d 01 72 5c 20 f1 20 | 22 5f 5f 5f 5f 5f 5f 5f | ..r\ . |"_______|
|00000620| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000630| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000640| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000650| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000660| 5f 5f 5f 22 20 20 20 20 | 20 20 20 20 20 0d 01 7c |___" | ..||
|00000670| 05 f1 0d 01 86 24 f1 22 | 53 65 6c 65 63 74 20 43 |.....$."|Select C|
|00000680| 68 6f 69 63 65 20 42 79 | 20 50 72 65 73 73 69 6e |hoice By| Pressin|
|00000690| 67 20 4b 65 79 22 0d 01 | 90 0a 20 e8 20 63 68 25 |g Key"..|.. . ch%|
|000006a0| 0d 01 9a 15 e7 20 63 68 | 25 3d 31 20 8c 20 f2 63 |..... ch|%=1 . .c|
|000006b0| 72 65 61 74 65 0d 01 a4 | 14 e7 20 63 68 25 3d 32 |reate...|.. ch%=2|
|000006c0| 20 8c 20 f2 69 6e 70 75 | 74 0d 01 ae 13 e7 20 63 | . .inpu|t..... c|
|000006d0| 68 25 3d 33 20 8c 20 f2 | 72 65 61 64 0d 01 b8 15 |h%=3 . .|read....|
|000006e0| e7 20 63 68 25 3d 34 20 | 8c 20 f2 64 65 6c 65 74 |. ch%=4 |. .delet|
|000006f0| 65 0d 01 c2 22 e7 20 63 | 68 25 3d 38 20 8c 20 f2 |e...". c|h%=8 . .|
|00000700| 65 6e 64 5f 61 6e 64 5f | 73 61 76 65 20 20 20 20 |end_and_|save |
|00000710| 20 20 20 0d 01 cc 1b e7 | 20 63 68 25 3d 36 20 8c | .....| ch%=6 .|
|00000720| 20 f2 64 69 73 6b 5f 6f | 70 74 69 6f 6e 73 0d 01 | .disk_o|ptions..|
|00000730| d6 1c e7 20 63 68 25 3d | 35 20 8c 20 f2 70 72 69 |... ch%=|5 . .pri|
|00000740| 6e 74 5f 72 65 63 6f 72 | 64 73 0d 01 e0 1c e7 20 |nt_recor|ds..... |
|00000750| 63 68 25 3d 37 20 8c 20 | f2 70 72 69 6e 74 5f 6f |ch%=7 . |.print_o|
|00000760| 70 74 69 6f 6e 73 0d 01 | ea 0a f2 62 65 67 69 6e |ptions..|...begin|
|00000770| 0d 01 f4 06 20 3a 0d 01 | fe 0c dd f2 63 72 65 61 |.... :..|....crea|
|00000780| 74 65 0d 02 08 0c 20 e9 | 20 72 63 25 3d 31 0d 02 |te.... .| rc%=1..|
|00000790| 12 05 db 0d 02 1c 20 f1 | 20 22 43 52 45 41 54 45 |...... .| "CREATE|
|000007a0| 20 46 49 45 4c 44 53 22 | 20 20 20 20 20 20 20 20 | FIELDS"| |
|000007b0| 20 20 20 0d 02 26 34 f1 | 3a f1 20 22 54 79 70 65 | ..&4.|:. "Type|
|000007c0| 20 69 6e 20 6e 61 6d 65 | 20 6f 66 20 66 69 65 6c | in name| of fiel|
|000007d0| 64 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 3c 52 |d follow|ed by <R|
|000007e0| 45 54 55 52 4e 3e 22 0d | 02 30 45 f1 20 22 54 68 |ETURN>".|.0E. "Th|
|000007f0| 65 6e 20 75 73 65 20 27 | 2a 27 20 61 6e 64 20 70 |en use '|*' and p|
|00000800| 72 65 73 73 20 3c 52 45 | 54 55 52 4e 3e 20 74 77 |ress <RE|TURN> tw|
|00000810| 69 63 65 20 74 6f 20 73 | 69 67 6e 61 6c 20 65 6e |ice to s|ignal en|
|00000820| 64 20 6f 66 20 66 69 65 | 6c 64 73 22 0d 02 3a 05 |d of fie|lds"..:.|
|00000830| f1 0d 02 44 46 20 f1 22 | 20 20 46 69 65 6c 64 20 |...DF ."| Field |
|00000840| 4e 61 6d 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |Name | |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000860| 20 20 20 20 20 20 46 69 | 65 6c 64 20 4c 65 6e 67 | Fi|eld Leng|
|00000870| 74 68 22 20 20 20 20 0d | 02 4e 08 20 78 3d 30 0d |th" .|.N. x=0.|
|00000880| 02 58 05 f5 0d 02 62 12 | 20 78 3d 78 2b 31 20 20 |.X....b.| x=x+1 |
|00000890| 20 20 20 20 20 20 0d 02 | 6c 52 20 f5 3a e8 8a 33 | ..|lR .:..3|
|000008a0| 2c 36 2b 78 29 66 69 65 | 6c 64 24 28 78 29 3a e7 |,6+x)fie|ld$(x):.|
|000008b0| 20 a9 28 66 69 65 6c 64 | 24 28 78 29 29 3e 34 30 | .(field|$(x))>40|
|000008c0| 20 8c 20 f1 8a 33 2c 36 | 2b 78 29 3b 3a f1 8a a9 | . ..3,6|+x);:...|
|000008d0| 28 66 69 65 6c 64 24 28 | 78 29 29 29 20 20 20 20 |(field$(|x))) |
|000008e0| 20 20 20 20 20 20 20 20 | 0d 02 76 16 20 fd 20 a9 | |..v. . .|
|000008f0| 28 66 69 65 6c 64 24 28 | 78 29 29 3c 34 31 0d 02 |(field$(|x))<41..|
|00000900| 80 23 20 f5 3a e8 8a 35 | 30 2c 36 2b 78 29 66 6c |.# .:..5|0,6+x)fl|
|00000910| 25 28 78 29 3a fd 20 66 | 6c 25 28 78 29 3c 32 35 |%(x):. f|l%(x)<25|
|00000920| 30 0d 02 8a 39 20 6c 65 | 6e 25 3d a9 28 66 69 65 |0...9 le|n%=.(fie|
|00000930| 6c 64 24 28 78 29 29 3a | e7 20 6c 65 6e 25 3e 6c |ld$(x)):|. len%>l|
|00000940| 65 6e 67 74 68 25 20 8c | 20 e9 20 6c 65 6e 67 74 |ength% .| . lengt|
|00000950| 68 25 3d 6c 65 6e 25 20 | 20 20 0d 02 94 1d 20 fd |h%=len% | .... .|
|00000960| 20 66 69 65 6c 64 24 28 | 78 29 3d 22 2a 22 20 84 | field$(|x)="*" .|
|00000970| 20 78 3e 39 20 20 20 0d | 02 9e 1b 20 f1 3a f1 22 | x>9 .|... .:."|
|00000980| 45 6e 74 65 72 20 46 69 | 6c 65 6e 61 6d 65 3a 20 |Enter Fi|lename: |
|00000990| 22 3b 0d 02 a8 0c 20 e8 | 20 6e 61 6d 65 24 0d 02 |";.... .| name$..|
|000009a0| b2 1b 20 e7 20 6e 61 6d | 65 24 3d 22 22 20 8c 20 |.. . nam|e$="" . |
|000009b0| f2 62 65 67 69 6e 20 20 | 20 0d 02 bc 40 20 f1 20 |.begin | ...@ . |
|000009c0| 22 45 6e 74 65 72 20 6d | 61 78 69 6d 75 6d 20 6e |"Enter m|aximum n|
|000009d0| 75 6d 62 65 72 20 6f 66 | 20 72 65 63 6f 72 64 73 |umber of| records|
|000009e0| 20 69 6e 20 66 69 6c 65 | 20 28 4d 61 78 20 3a 22 | in file| (Max :"|
|000009f0| 3b 6d 61 78 25 3b 22 29 | 22 0d 02 c6 14 20 e8 20 |;max%;")|".... . |
|00000a00| 66 69 6c 65 6c 65 6e 67 | 74 68 25 20 20 0d 02 d0 |fileleng|th% ...|
|00000a10| 2c 20 e7 20 66 69 6c 65 | 6c 65 6e 67 74 68 25 3e |, . file|length%>|
|00000a20| 6d 61 78 25 20 8c 20 e9 | 20 66 69 6c 65 6c 65 6e |max% . .| filelen|
|00000a30| 67 74 68 25 3d 6d 61 78 | 25 0d 02 da 0d 20 74 6f |gth%=max|%.... to|
|00000a40| 74 61 6c 25 3d 78 0d 02 | e4 10 20 2a 44 49 52 20 |tal%=x..|.. *DIR |
|00000a50| 46 20 20 20 20 20 0d 02 | ee 44 20 e7 20 64 66 73 |F ..|.D . dfs|
|00000a60| 25 3d 31 20 8c 20 66 69 | 6c 65 25 3d ae 28 6e 61 |%=1 . fi|le%=.(na|
|00000a70| 6d 65 24 2b 22 2e 46 4c | 44 22 29 20 8b 20 66 69 |me$+".FL|D") . fi|
|00000a80| 6c 65 25 3d ae 28 6e 61 | 6d 65 24 29 20 20 20 20 |le%=.(na|me$) |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 0d 02 f8 1a 20 f1 | | .... .|
|00000aa0| 20 23 66 69 6c 65 25 2c | 20 66 69 6c 65 6c 65 6e | #file%,| filelen|
|00000ab0| 67 74 68 25 0d 03 02 12 | e3 20 78 3d 31 20 b8 20 |gth%....|. x=1 . |
|00000ac0| 74 6f 74 61 6c 25 0d 03 | 0c 21 20 20 f1 20 23 66 |total%..|.! . #f|
|00000ad0| 69 6c 65 25 2c 20 66 69 | 65 6c 64 24 28 78 29 2c |ile%, fi|eld$(x),|
|00000ae0| 20 66 6c 25 28 78 29 0d | 03 16 07 ed 20 78 0d 03 | fl%(x).|.... x..|
|00000af0| 20 0c d9 20 23 66 69 6c | 65 25 0d 03 2a 35 20 f4 | .. #fil|e%..*5 .|
|00000b00| 20 2d 2d 2d 2d 2d 2d 2d | 2d 20 47 6f 20 74 6f 20 | -------|- Go to |
|00000b10| 44 75 6d 6d 79 20 73 65 | 74 75 70 20 70 72 6f 63 |Dummy se|tup proc|
|00000b20| 65 64 75 72 65 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 0d |edure -|-------.|
|00000b30| 03 34 1a 20 f2 63 72 65 | 61 74 65 5f 64 75 6d 6d |.4. .cre|ate_dumm|
|00000b40| 79 20 20 20 20 20 20 20 | 20 0d 03 3e 06 20 e1 0d |y | ..>. ..|
|00000b50| 03 48 06 20 3a 0d 03 52 | 0b dd f2 69 6e 70 75 74 |.H. :..R|...input|
|00000b60| 0d 03 5c 05 3a 0d 03 66 | 28 f4 20 2d 2d 2d 20 49 |..\.:..f|(. --- I|
|00000b70| 6e 70 75 74 20 4f 66 20 | 44 61 74 61 20 49 6e 74 |nput Of |Data Int|
|00000b80| 6f 20 46 69 65 6c 64 73 | 20 20 2d 2d 2d 0d 03 70 |o Fields| ---..p|
|00000b90| 05 3a 0d 03 7a 1d e7 20 | 6e 61 6d 65 24 3d 22 22 |.:..z.. |name$=""|
|00000ba0| 20 8c 20 f2 6c 6f 61 64 | 5f 66 69 65 6c 64 73 0d | . .load|_fields.|
|00000bb0| 03 84 05 db 0d 03 8e 11 | f1 22 49 6e 70 75 74 20 |........|."Input |
|00000bc0| 44 61 74 61 22 0d 03 98 | 20 f1 8a 32 2c 35 30 29 |Data"...| ..2,50)|
|00000bd0| 22 52 65 63 6f 72 64 20 | 4e 75 6d 62 65 72 3a 20 |"Record |Number: |
|00000be0| 22 3b 72 63 25 0d 03 a2 | 0a 20 e9 20 78 3d 31 0d |";rc%...|. . x=1.|
|00000bf0| 03 ac 06 20 f5 0d 03 b6 | 22 20 e9 20 73 70 61 63 |... ....|" . spac|
|00000c00| 65 25 3d 6c 65 6e 67 74 | 68 25 2d a9 28 66 69 65 |e%=lengt|h%-.(fie|
|00000c10| 6c 64 24 28 78 29 29 0d | 03 c0 23 20 f1 8a 36 2b |ld$(x)).|..# ..6+|
|00000c20| 73 70 61 63 65 25 2c 36 | 2b 78 29 66 69 65 6c 64 |space%,6|+x)field|
|00000c30| 24 28 78 29 3b 22 3a 20 | 22 3b 0d 03 ca 19 20 f1 |$(x);": |";.... .|
|00000c40| 20 89 28 66 6c 25 28 78 | 29 29 3b 22 27 22 20 20 | .(fl%(x|));"'" |
|00000c50| 20 20 20 0d 03 d4 0a 20 | 78 3d 78 2b 31 0d 03 de | .... |x=x+1...|
|00000c60| 16 20 fd 20 66 69 65 6c | 64 24 28 78 29 3d 22 2a |. . fiel|d$(x)="*|
|00000c70| 22 20 20 0d 03 e8 11 20 | e9 20 74 6f 74 61 6c 25 |" .... |. total%|
|00000c80| 3d 78 2d 31 0d 03 f2 13 | 20 e3 20 78 3d 31 20 b8 |=x-1....| . x=1 .|
|00000c90| 20 74 6f 74 61 6c 25 0d | 03 fc 23 20 e8 8a 6c 65 | total%.|..# ..le|
|00000ca0| 6e 67 74 68 25 2b 38 2c | 36 2b 78 29 72 6e 61 6d |ngth%+8,|6+x)rnam|
|00000cb0| 65 24 28 72 63 25 2c 78 | 29 20 0d 04 06 08 20 ed |e$(rc%,x|) .... .|
|00000cc0| 20 78 0d 04 10 55 20 f5 | 3a e8 8a 32 30 2c 32 30 | x...U .|:..20,20|
|00000cd0| 29 22 52 65 63 6f 72 64 | 20 6f 6b 61 79 20 28 59 |)"Record| okay (Y|
|00000ce0| 2f 4e 29 20 20 22 3b 63 | 68 24 3a fd 20 63 68 24 |/N) ";c|h$:. ch$|
|00000cf0| 3d 22 4e 22 20 84 20 63 | 68 24 3d 22 6e 22 20 84 |="N" . c|h$="n" .|
|00000d00| 20 63 68 24 3d 22 59 22 | 20 84 20 63 68 24 3d 22 | ch$="Y"| . ch$="|
|00000d10| 79 22 20 20 20 20 20 0d | 04 1a 2d 20 e7 20 63 68 |y" .|..- . ch|
|00000d20| 24 3d 22 4e 22 20 84 20 | 63 68 24 3d 22 6e 22 20 |$="N" . |ch$="n" |
|00000d30| 8c 20 f2 63 6f 72 72 65 | 63 74 69 6f 6e 20 20 20 |. .corre|ction |
|00000d40| 20 20 20 20 0d 04 24 27 | 20 e7 20 72 65 63 75 73 | ..$'| . recus|
|00000d50| 65 64 25 3c 72 63 25 20 | 8c 20 e9 20 72 65 63 75 |ed%<rc% |. . recu|
|00000d60| 73 65 64 25 3d 72 63 25 | 20 20 20 0d 04 2e 10 20 |sed%=rc%| .... |
|00000d70| e9 20 72 63 25 3d 72 63 | 25 2b 31 0d 04 38 36 20 |. rc%=rc|%+1..86 |
|00000d80| e8 8a 32 30 2c 32 32 29 | 22 41 64 64 20 61 6e 6f |..20,22)|"Add ano|
|00000d90| 74 68 65 72 20 72 65 63 | 6f 72 64 20 28 59 2f 4e |ther rec|ord (Y/N|
|00000da0| 29 20 22 3b 63 68 24 20 | 20 20 20 20 20 20 20 20 |) ";ch$ | |
|00000db0| 20 0d 04 42 25 20 e7 20 | 63 68 24 3d 22 59 22 20 | ..B% . |ch$="Y" |
|00000dc0| 84 20 63 68 24 3d 22 79 | 22 20 8c 20 f2 69 6e 70 |. ch$="y|" . .inp|
|00000dd0| 75 74 20 20 20 20 0d 04 | 4c 21 20 e7 20 63 68 24 |ut ..|L! . ch$|
|00000de0| 3d 22 4e 22 20 84 20 63 | 68 24 3d 22 6e 22 20 8c |="N" . c|h$="n" .|
|00000df0| 20 f2 62 65 67 69 6e 0d | 04 56 06 20 e1 0d 04 60 | .begin.|.V. ...`|
|00000e00| 06 20 3a 0d 04 6a 12 20 | dd f2 6c 6f 61 64 5f 66 |. :..j. |..load_f|
|00000e10| 69 65 6c 64 73 0d 04 74 | 06 20 db 0d 04 7e 27 20 |ields..t|. ...~' |
|00000e20| f1 20 22 4c 6f 61 64 20 | 49 6e 20 4e 65 77 20 44 |. "Load |In New D|
|00000e30| 61 74 61 62 61 73 65 20 | 46 69 72 73 74 22 3a f1 |atabase |First":.|
|00000e40| 3a f1 0d 04 88 0b 20 2a | 44 49 52 20 46 0d 04 92 |:..... *|DIR F...|
|00000e50| 15 20 e7 20 64 66 73 25 | 3d 31 20 8c 20 2a 2e 46 |. . dfs%|=1 . *.F|
|00000e60| 4c 44 0d 04 9c 12 20 e7 | 20 64 66 73 25 3d 30 20 |LD.... .| dfs%=0 |
|00000e70| 8c 20 2a 2e 0d 04 a6 08 | 20 f1 3a f1 0d 04 b0 1b |. *.....| .:.....|
|00000e80| 20 f1 20 22 45 6e 74 65 | 72 20 4e 61 6d 65 20 4f | . "Ente|r Name O|
|00000e90| 66 20 46 69 6c 65 22 0d | 04 ba 17 20 e9 20 6e 61 |f File".|... . na|
|00000ea0| 6d 65 6f 6c 64 24 3d 6e | 61 6d 65 24 20 20 0d 04 |meold$=n|ame$ ..|
|00000eb0| c4 0c 20 e8 20 6e 61 6d | 65 24 0d 04 ce 2c 20 e7 |.. . nam|e$..., .|
|00000ec0| 20 6e 61 6d 65 24 3d 22 | 22 20 8c 20 6e 61 6d 65 | name$="|" . name|
|00000ed0| 24 3d 6e 61 6d 65 6f 6c | 64 24 3a f2 62 65 67 69 |$=nameol|d$:.begi|
|00000ee0| 6e 20 20 20 20 20 0d 04 | d8 0a 20 e9 20 78 3d 30 |n ..|.. . x=0|
|00000ef0| 0d 04 e2 37 20 e7 20 64 | 66 73 25 3d 31 20 8c 20 |...7 . d|fs%=1 . |
|00000f00| 66 69 6c 65 25 3d 8e 28 | 6e 61 6d 65 24 2b 22 2e |file%=.(|name$+".|
|00000f10| 46 4c 44 22 29 20 8b 20 | 66 69 6c 65 25 3d 8e 28 |FLD") . |file%=.(|
|00000f20| 6e 61 6d 65 24 29 20 0d | 04 ec 10 20 e9 20 6c 65 |name$) .|... . le|
|00000f30| 6e 67 74 68 25 3d 30 0d | 04 f6 26 20 db 3a f1 20 |ngth%=0.|..& .:. |
|00000f40| 22 4c 6f 61 64 69 6e 67 | 20 69 6e 20 66 69 65 6c |"Loading| in fiel|
|00000f50| 64 20 6e 61 6d 65 73 20 | 2e 2e 2e 2e 22 0d 05 00 |d names |...."...|
|00000f60| 1a 20 e8 20 23 66 69 6c | 65 25 2c 20 66 69 6c 65 |. . #fil|e%, file|
|00000f70| 6c 65 6e 67 74 68 25 0d | 05 0a 06 20 f5 0d 05 14 |length%.|... ....|
|00000f80| 0a 20 78 3d 78 2b 31 0d | 05 1e 20 20 e8 20 23 66 |. x=x+1.|.. . #f|
|00000f90| 69 6c 65 25 2c 20 66 69 | 65 6c 64 24 28 78 29 2c |ile%, fi|eld$(x),|
|00000fa0| 20 66 6c 25 28 78 29 0d | 05 28 36 20 6c 65 6e 25 | fl%(x).|.(6 len%|
|00000fb0| 3d a9 28 66 69 65 6c 64 | 24 28 78 29 29 3a e7 20 |=.(field|$(x)):. |
|00000fc0| 6c 65 6e 25 3e 6c 65 6e | 67 74 68 25 20 8c 20 e9 |len%>len|gth% . .|
|00000fd0| 20 6c 65 6e 67 74 68 25 | 3d 6c 65 6e 25 0d 05 32 | length%|=len%..2|
|00000fe0| 14 20 fd 20 66 69 65 6c | 64 24 28 78 29 3d 22 2a |. . fiel|d$(x)="*|
|00000ff0| 22 0d 05 3c 0d 20 d9 20 | 23 66 69 6c 65 25 0d 05 |"..<. . |#file%..|
|00001000| 46 11 20 e9 20 74 6f 74 | 61 6c 25 3d 78 2d 31 0d |F. . tot|al%=x-1.|
|00001010| 05 50 1c 20 f4 20 2a 2a | 2a 20 49 6e 70 75 74 20 |.P. . **|* Input |
|00001020| 52 65 63 6f 72 64 73 20 | 2a 2a 2a 0d 05 5a 12 20 |Records |***..Z. |
|00001030| e9 20 78 3d 30 3a e9 20 | 72 63 25 3d 30 0d 05 64 |. x=0:. |rc%=0..d|
|00001040| 0b 20 2a 44 49 52 20 52 | 0d 05 6e 38 20 e7 20 64 |. *DIR R|..n8 . d|
|00001050| 66 73 25 3d 31 20 8c 20 | 66 69 6c 65 25 3d 8e 28 |fs%=1 . |file%=.(|
|00001060| 6e 61 6d 65 24 2b 22 2e | 52 45 43 22 29 20 8b 20 |name$+".|REC") . |
|00001070| 66 69 6c 65 25 3d 8e 28 | 6e 61 6d 65 24 29 20 20 |file%=.(|name$) |
|00001080| 0d 05 78 0a 20 72 63 25 | 3d 30 0d 05 82 08 20 78 |..x. rc%|=0.... x|
|00001090| 3d 31 0d 05 8c 06 20 f5 | 0d 05 96 10 20 e9 20 72 |=1.... .|.... . r|
|000010a0| 63 25 3d 72 63 25 2b 31 | 0d 05 a0 13 20 e3 20 78 |c%=rc%+1|.... . x|
|000010b0| 3d 31 20 b8 20 74 6f 74 | 61 6c 25 0d 05 aa 1c 20 |=1 . tot|al%.... |
|000010c0| e8 20 23 66 69 6c 65 25 | 2c 20 72 6e 61 6d 65 24 |. #file%|, rname$|
|000010d0| 28 72 63 25 2c 78 29 0d | 05 b4 50 20 e7 20 72 6e |(rc%,x).|..P . rn|
|000010e0| 61 6d 65 24 28 72 63 25 | 2c 78 29 3d 22 2a 22 20 |ame$(rc%|,x)="*" |
|000010f0| 8c 20 d9 20 23 66 69 6c | 65 25 3a e9 20 72 6e 61 |. . #fil|e%:. rna|
|00001100| 6d 65 24 28 72 63 25 2c | 31 29 3d 22 20 22 3a e9 |me$(rc%,|1)=" ":.|
|00001110| 20 72 65 63 75 73 65 64 | 25 3d 72 63 25 2d 31 3a | recused|%=rc%-1:|
|00001120| f2 62 65 67 69 6e 20 0d | 05 be 08 20 ed 20 78 0d |.begin .|... . x.|
|00001130| 05 c8 24 20 f1 8a 32 30 | 2c 31 30 29 22 4c 6f 61 |..$ ..20|,10)"Loa|
|00001140| 64 69 6e 67 20 52 65 63 | 6f 72 64 20 3a 20 22 2c |ding Rec|ord : ",|
|00001150| 72 63 25 0d 05 d2 18 20 | fd 20 72 6e 61 6d 65 24 |rc%.... |. rname$|
|00001160| 28 72 63 25 2c 31 29 3d | 22 2a 22 0d 05 dc 0d 20 |(rc%,1)=|"*".... |
|00001170| d9 20 23 66 69 6c 65 25 | 0d 05 e6 06 20 e1 0d 05 |. #file%|.... ...|
|00001180| f0 10 dd f2 63 6f 72 72 | 65 63 74 69 6f 6e 0d 05 |....corr|ection..|
|00001190| fa 3b f4 20 2a 2a 2a 20 | 54 68 69 73 20 61 6c 6c |.;. *** |This all|
|000011a0| 6f 77 73 20 79 6f 75 20 | 74 6f 20 63 6f 72 72 65 |ows you |to corre|
|000011b0| 63 74 20 64 61 74 61 20 | 6a 75 73 74 20 74 79 70 |ct data |just typ|
|000011c0| 65 64 20 69 6e 20 2a 2a | 2a 0d 06 04 29 f4 20 2a |ed in **|*...). *|
|000011d0| 2a 2a 20 46 69 72 73 74 | 20 6d 6f 76 65 20 74 6f |** First| move to|
|000011e0| 20 74 68 65 20 74 6f 70 | 20 66 69 65 6c 64 20 2a | the top| field *|
|000011f0| 2a 2a 0d 06 0e 13 20 e3 | 20 78 3d 31 20 b8 20 74 |**.... .| x=1 . t|
|00001200| 6f 74 61 6c 25 0d 06 18 | 1f e8 8a 6c 65 6e 67 74 |otal%...|...lengt|
|00001210| 68 25 2b 38 2c 36 2b 78 | 29 6e 65 77 24 28 78 29 |h%+8,6+x|)new$(x)|
|00001220| 20 20 20 20 0d 06 22 3e | e7 20 6e 65 77 24 28 78 | ..">|. new$(x|
|00001230| 29 3c 3e 22 22 20 84 20 | 6e 65 77 24 28 78 29 3d |)<>"" . |new$(x)=|
|00001240| 22 20 22 20 8c 20 e9 20 | 72 6e 61 6d 65 24 28 72 |" " . . |rname$(r|
|00001250| 63 25 2c 78 29 3d 6e 65 | 77 24 28 78 29 20 20 20 |c%,x)=ne|w$(x) |
|00001260| 20 20 0d 06 2c 07 ed 20 | 78 0d 06 36 4c 20 f5 3a | ..,.. |x..6L .:|
|00001270| e8 8a 32 30 2c 32 30 29 | 22 52 65 63 6f 72 64 20 |..20,20)|"Record |
|00001280| 6f 6b 61 79 20 28 59 2f | 4e 29 20 20 22 3b 63 68 |okay (Y/|N) ";ch|
|00001290| 24 3a fd 20 63 68 24 3d | 22 4e 22 20 84 20 63 68 |$:. ch$=|"N" . ch|
|000012a0| 24 3d 22 6e 22 20 84 20 | 63 68 24 3d 22 59 22 20 |$="n" . |ch$="Y" |
|000012b0| 20 20 20 20 20 0d 06 40 | 1b e7 20 63 68 24 3d 22 | ..@|.. ch$="|
|000012c0| 4e 22 20 8c 20 f2 63 6f | 72 72 65 63 74 69 6f 6e |N" . .co|rrection|
|000012d0| 0d 06 4a 05 e1 0d 06 54 | 0a dd f2 72 65 61 64 0d |..J....T|...read.|
|000012e0| 06 5e 05 3a 0d 06 68 37 | f4 20 2a 2a 2a 20 54 68 |.^.:..h7|. *** Th|
|000012f0| 69 73 20 77 69 6c 6c 20 | 72 65 61 64 20 69 6e 20 |is will |read in |
|00001300| 70 72 65 76 69 6f 75 73 | 6c 79 20 6d 61 64 65 20 |previous|ly made |
|00001310| 72 65 63 6f 72 64 73 20 | 2a 2a 2a 0d 06 72 29 f4 |records |***..r).|
|00001320| 20 2a 2a 2a 20 46 69 72 | 73 74 20 74 6f 20 6c 6f | *** Fir|st to lo|
|00001330| 61 64 20 69 6e 20 66 69 | 65 6c 64 6e 61 6d 65 73 |ad in fi|eldnames|
|00001340| 20 2a 2a 2a 0d 06 7c 06 | 20 3a 0d 06 86 11 20 f2 | ***..|.| :.... .|
|00001350| 6c 6f 61 64 5f 66 69 65 | 6c 64 73 0d 06 90 1e f1 |load_fie|lds.....|
|00001360| 20 22 4c 6f 61 64 69 6e | 67 20 69 6e 20 52 65 63 | "Loadin|g in Rec|
|00001370| 6f 72 64 73 20 2e 2e 2e | 22 0d 06 9a 10 e9 20 74 |ords ...|"..... t|
|00001380| 6f 74 61 6c 25 3d 78 2d | 31 0d 06 a4 10 20 2a 44 |otal%=x-|1.... *D|
|00001390| 49 52 20 52 20 20 20 20 | 20 0d 06 ae 36 20 e7 20 |IR R | ...6 . |
|000013a0| 64 66 73 25 3d 31 20 8c | 20 66 69 6c 65 25 3d 8e |dfs%=1 .| file%=.|
|000013b0| 28 6e 61 6d 65 24 2b 22 | 2e 52 45 43 22 29 20 8b |(name$+"|.REC") .|
|000013c0| 20 66 69 6c 65 25 3d 8e | 28 6e 61 6d 65 24 29 0d | file%=.|(name$).|
|000013d0| 06 b8 0c 20 e9 20 72 63 | 25 3d 30 0d 06 c2 05 f5 |... . rc|%=0.....|
|000013e0| 0d 06 cc 10 20 e9 20 72 | 63 25 3d 72 63 25 2b 31 |.... . r|c%=rc%+1|
|000013f0| 0d 06 d6 13 20 e3 20 78 | 3d 31 20 b8 20 74 6f 74 |.... . x|=1 . tot|
|00001400| 61 6c 25 0d 06 e0 1d e8 | 20 23 66 69 6c 65 25 2c |al%.....| #file%,|
|00001410| 20 72 6e 61 6d 65 24 28 | 72 63 25 2c 78 29 20 20 | rname$(|rc%,x) |
|00001420| 0d 06 ea 08 20 ed 20 78 | 0d 06 f4 17 fd 20 72 6e |.... . x|..... rn|
|00001430| 61 6d 65 24 28 72 63 25 | 2c 31 29 3d 22 2a 22 0d |ame$(rc%|,1)="*".|
|00001440| 06 fe 0d 20 d9 20 23 66 | 69 6c 65 25 0d 07 08 06 |... . #f|ile%....|
|00001450| 20 e1 0d 07 12 13 20 dd | f2 65 6e 64 5f 61 6e 64 | ..... .|.end_and|
|00001460| 5f 73 61 76 65 0d 07 1c | 16 20 e7 20 6e 61 6d 65 |_save...|. . name|
|00001470| 24 3d 22 22 20 8c 20 f2 | 65 6e 64 0d 07 26 3c f4 |$="" . .|end..&<.|
|00001480| 20 2a 2a 2a 20 48 65 72 | 65 20 79 6f 75 20 65 6e | *** Her|e you en|
|00001490| 64 20 79 6f 75 72 20 73 | 65 73 73 69 6f 6e 20 61 |d your s|ession a|
|000014a0| 6e 64 20 73 61 76 65 20 | 61 6c 6c 20 63 68 61 6e |nd save |all chan|
|000014b0| 67 65 73 20 2a 2a 2a 0d | 07 30 05 3a 0d 07 3a 1a |ges ***.|.0.:..:.|
|000014c0| f1 20 22 53 61 76 65 20 | 43 68 61 6e 67 65 73 20 |. "Save |Changes |
|000014d0| 28 59 2f 4e 29 22 0d 07 | 44 09 e8 20 63 68 24 0d |(Y/N)"..|D.. ch$.|
|000014e0| 07 4e 70 e7 20 63 68 24 | 3d 22 4e 22 20 84 20 63 |.Np. ch$|="N" . c|
|000014f0| 68 24 3d 22 6e 22 20 8c | 20 f1 20 22 41 72 65 20 |h$="n" .| . "Are |
|00001500| 59 6f 75 20 53 75 72 65 | 20 3f 22 3a f1 22 41 6c |You Sure| ?":."Al|
|00001510| 6c 20 77 6f 72 6b 20 64 | 6f 6e 65 20 77 69 6c 6c |l work d|one will|
|00001520| 20 62 65 20 6c 6f 73 74 | 22 3b 3a e8 20 63 68 24 | be lost|";:. ch$|
|00001530| 3a e7 20 63 68 24 3d 22 | 59 22 20 84 20 63 68 24 |:. ch$="|Y" . ch$|
|00001540| 3d 22 79 22 8c 20 f2 65 | 6e 64 20 20 20 20 20 0d |="y". .e|nd .|
|00001550| 07 58 29 e7 20 63 68 24 | 3d 22 59 22 20 84 20 63 |.X). ch$|="Y" . c|
|00001560| 68 24 3d 22 79 22 20 8c | 20 f2 73 61 76 65 5f 64 |h$="y" .| .save_d|
|00001570| 61 74 61 20 20 20 20 20 | 0d 07 62 1c f1 20 22 44 |ata |..b.. "D|
|00001580| 6f 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 65 6e |o you wa|nt to en|
|00001590| 64 20 3f 22 0d 07 6c 09 | e8 20 63 68 24 0d 07 76 |d ?"..l.|. ch$..v|
|000015a0| 27 e7 20 63 68 24 3d 22 | 4e 22 20 84 20 63 68 24 |'. ch$="|N" . ch$|
|000015b0| 3d 22 6e 22 20 8c 20 f2 | 62 65 67 69 6e 20 20 20 |="n" . .|begin |
|000015c0| 20 20 20 20 0d 07 80 27 | 20 e7 20 63 68 24 3d 22 | ...'| . ch$="|
|000015d0| 59 22 20 84 20 63 68 24 | 3d 22 79 22 20 8c 20 f2 |Y" . ch$|="y" . .|
|000015e0| 65 6e 64 20 20 20 20 20 | 20 20 20 0d 07 8a 06 20 |end | .... |
|000015f0| e1 0d 07 94 09 dd f2 65 | 6e 64 0d 07 9e 19 f4 20 |.......e|nd..... |
|00001600| 2a 2a 2a 20 45 6e 64 20 | 50 72 6f 67 72 61 6d 20 |*** End |Program |
|00001610| 2a 2a 2a 0d 07 a8 27 f1 | 20 22 54 68 61 6e 6b 79 |***...'.| "Thanky|
|00001620| 6f 75 20 66 6f 72 20 75 | 73 69 6e 67 20 74 68 69 |ou for u|sing thi|
|00001630| 73 20 70 72 6f 67 72 61 | 6d 22 0d 07 b2 05 e0 0d |s progra|m"......|
|00001640| 07 bc 05 e1 0d 07 c6 06 | 20 3a 0d 07 d0 10 20 dd |........| :.... .|
|00001650| f2 73 61 76 65 5f 64 61 | 74 61 0d 07 da 23 f4 20 |.save_da|ta...#. |
|00001660| 2a 2a 2a 20 53 61 76 65 | 20 54 68 65 20 44 61 74 |*** Save| The Dat|
|00001670| 61 20 74 6f 20 64 69 73 | 6b 20 2a 2a 2a 0d 07 e4 |a to dis|k ***...|
|00001680| 0b 20 2a 44 49 52 20 52 | 0d 07 ee 37 20 e7 20 64 |. *DIR R|...7 . d|
|00001690| 66 73 25 3d 31 20 8c 20 | 66 69 6c 65 25 3d ae 28 |fs%=1 . |file%=.(|
|000016a0| 6e 61 6d 65 24 2b 22 2e | 52 45 43 22 29 20 8b 20 |name$+".|REC") . |
|000016b0| 66 69 6c 65 25 3d ae 28 | 6e 61 6d 65 24 29 20 0d |file%=.(|name$) .|
|000016c0| 07 f8 12 20 e9 20 72 63 | 25 3d 30 3a f5 20 20 20 |... . rc|%=0:. |
|000016d0| 20 0d 08 02 23 20 f5 3a | e9 20 72 63 25 3d 72 63 | ...# .:|. rc%=rc|
|000016e0| 25 2b 31 3a fd 20 64 65 | 6c 65 74 65 25 28 72 63 |%+1:. de|lete%(rc|
|000016f0| 25 29 3d 30 0d 08 0c 12 | e3 20 78 3d 31 20 b8 20 |%)=0....|. x=1 . |
|00001700| 74 6f 74 61 6c 25 0d 08 | 16 1b f1 20 23 66 69 6c |total%..|... #fil|
|00001710| 65 25 2c 20 72 6e 61 6d | 65 24 28 72 63 25 2c 78 |e%, rnam|e$(rc%,x|
|00001720| 29 0d 08 20 07 ed 20 78 | 0d 08 2a 2f 20 f1 8a 32 |).. .. x|..*/ ..2|
|00001730| 2c 32 36 29 22 53 61 76 | 69 6e 67 20 52 65 63 6f |,26)"Sav|ing Reco|
|00001740| 72 64 20 4e 75 6d 62 65 | 72 3a 20 22 3b 72 63 25 |rd Numbe|r: ";rc%|
|00001750| 20 20 20 20 20 20 20 0d | 08 34 13 20 fd 20 72 63 | .|.4. . rc|
|00001760| 25 3d 72 65 63 75 73 65 | 64 25 0d 08 3e 1c 20 e9 |%=recuse|d%..>. .|
|00001770| 20 72 6e 61 6d 65 24 28 | 72 63 25 2c 31 29 3d 22 | rname$(|rc%,1)="|
|00001780| 2a 22 20 20 20 20 0d 08 | 48 1c 20 f1 20 23 66 69 |*" ..|H. . #fi|
|00001790| 6c 65 25 2c 20 72 6e 61 | 6d 65 24 28 72 63 25 2c |le%, rna|me$(rc%,|
|000017a0| 31 29 0d 08 52 12 20 d9 | 20 23 66 69 6c 65 25 20 |1)..R. .| #file% |
|000017b0| 20 20 20 20 0d 08 5c 06 | 20 e1 0d 08 66 06 20 3a | ..\.| ...f. :|
|000017c0| 0d 08 70 13 20 dd f2 63 | 72 65 61 74 65 5f 64 75 |..p. ..c|reate_du|
|000017d0| 6d 6d 79 0d 08 7a 2f 20 | f4 20 2d 2d 2d 2d 2d 20 |mmy..z/ |. ----- |
|000017e0| 20 44 75 6d 6d 79 20 46 | 69 6c 65 20 69 73 20 63 | Dummy F|ile is c|
|000017f0| 72 65 61 74 65 64 20 68 | 65 72 65 20 20 2d 2d 2d |reated h|ere ---|
|00001800| 2d 2d 0d 08 84 06 20 3a | 0d 08 8e 0c 20 e9 20 72 |--.... :|.... . r|
|00001810| 6c 25 3d 30 0d 08 98 17 | 20 e9 20 74 6f 74 61 6c |l%=0....| . total|
|00001820| 25 3d 74 6f 74 61 6c 25 | 2d 31 20 0d 08 a2 1c 20 |%=total%|-1 .... |
|00001830| e3 20 78 3d 31 20 b8 20 | 74 6f 74 61 6c 25 20 20 |. x=1 . |total% |
|00001840| 20 20 20 20 20 20 20 0d | 08 ac 15 20 e9 20 72 6c | .|... . rl|
|00001850| 25 3d 72 6c 25 2b 66 6c | 25 28 78 29 0d 08 b6 08 |%=rl%+fl|%(x)....|
|00001860| 20 ed 20 78 0d 08 c0 10 | 20 e9 20 72 6c 25 3d 72 | . x....| . rl%=r|
|00001870| 6c 25 2b 32 0d 08 ca 0b | 20 2a 44 49 52 20 52 0d |l%+2....| *DIR R.|
|00001880| 08 d4 36 20 e7 20 64 66 | 73 25 3d 31 20 8c 20 66 |..6 . df|s%=1 . f|
|00001890| 69 6c 65 25 3d ae 28 6e | 61 6d 65 24 2b 22 2e 52 |ile%=.(n|ame$+".R|
|000018a0| 45 43 22 29 20 8b 20 66 | 69 6c 65 25 3d ae 28 6e |EC") . f|ile%=.(n|
|000018b0| 61 6d 65 24 29 0d 08 de | 0f 20 72 65 63 75 73 65 |ame$)...|. recuse|
|000018c0| 64 25 3d 30 0d 08 e8 19 | 20 e9 20 72 6e 61 6d 65 |d%=0....| . rname|
|000018d0| 24 28 31 2c 31 29 3d 22 | 2a 22 20 20 20 0d 08 f2 |$(1,1)="|*" ...|
|000018e0| 18 20 e3 20 78 3d 31 20 | b8 20 66 69 6c 65 6c 65 |. . x=1 |. filele|
|000018f0| 6e 67 74 68 25 0d 08 fc | 27 20 f1 8a 35 2c 32 30 |ngth%...|' ..5,20|
|00001900| 29 22 57 72 69 74 69 6e | 67 20 52 65 63 6f 72 64 |)"Writin|g Record|
|00001910| 20 4e 75 6d 62 65 72 20 | 3a 20 20 22 0d 09 06 10 | Number |: "....|
|00001920| 20 f1 8a 33 30 2c 32 30 | 29 78 20 20 0d 09 10 16 | ..30,20|)x ....|
|00001930| 20 e9 20 72 6e 61 6d 65 | 24 28 31 2c 31 29 3d 22 | . rname|$(1,1)="|
|00001940| 2a 22 0d 09 1a 12 20 cf | 23 66 69 6c 65 25 3d 78 |*".... .|#file%=x|
|00001950| 2a 72 6c 25 0d 09 24 26 | 20 e7 20 74 6f 74 61 6c |*rl%..$&| . total|
|00001960| 25 3d 31 20 8c 20 f1 23 | 66 69 6c 65 25 2c 20 72 |%=1 . .#|file%, r|
|00001970| 6e 61 6d 65 24 28 78 2c | 31 29 0d 09 2e 33 20 e7 |name$(x,|1)...3 .|
|00001980| 20 74 6f 74 61 6c 25 3d | 32 20 8c 20 f1 23 66 69 | total%=|2 . .#fi|
|00001990| 6c 65 25 2c 20 72 6e 61 | 6d 65 24 28 78 2c 31 29 |le%, rna|me$(x,1)|
|000019a0| 2c 20 72 6e 61 6d 65 24 | 28 78 2c 32 29 0d 09 38 |, rname$|(x,2)..8|
|000019b0| 40 20 e7 20 74 6f 74 61 | 6c 25 3d 33 20 8c 20 f1 |@ . tota|l%=3 . .|
|000019c0| 23 66 69 6c 65 25 2c 20 | 72 6e 61 6d 65 24 28 78 |#file%, |rname$(x|
|000019d0| 2c 31 29 2c 20 72 6e 61 | 6d 65 24 28 78 2c 32 29 |,1), rna|me$(x,2)|
|000019e0| 2c 20 72 6e 61 6d 65 24 | 28 78 2c 33 29 0d 09 42 |, rname$|(x,3)..B|
|000019f0| 52 20 e7 20 74 6f 74 61 | 6c 25 3d 34 20 8c 20 f1 |R . tota|l%=4 . .|
|00001a00| 23 66 69 6c 65 25 2c 20 | 72 6e 61 6d 65 24 28 78 |#file%, |rname$(x|
|00001a10| 2c 31 29 2c 20 72 6e 61 | 6d 65 24 28 78 2c 32 29 |,1), rna|me$(x,2)|
|00001a20| 2c 20 72 6e 61 6d 65 24 | 28 78 2c 33 29 2c 20 72 |, rname$|(x,3), r|
|00001a30| 6e 61 6d 65 24 28 78 2c | 34 29 20 20 20 20 20 0d |name$(x,|4) .|
|00001a40| 09 4c 5a 20 e7 20 74 6f | 74 61 6c 25 3d 35 20 8c |.LZ . to|tal%=5 .|
|00001a50| 20 f1 23 66 69 6c 65 25 | 2c 20 72 6e 61 6d 65 24 | .#file%|, rname$|
|00001a60| 28 78 2c 31 29 2c 20 72 | 6e 61 6d 65 24 28 78 2c |(x,1), r|name$(x,|
|00001a70| 32 29 2c 20 72 6e 61 6d | 65 24 28 78 2c 33 29 2c |2), rnam|e$(x,3),|
|00001a80| 20 72 6e 61 6d 65 24 28 | 78 2c 34 29 2c 20 72 6e | rname$(|x,4), rn|
|00001a90| 61 6d 65 24 28 78 2c 35 | 29 0d 09 56 69 20 e7 20 |ame$(x,5|)..Vi . |
|00001aa0| 74 6f 74 61 6c 25 3d 36 | 20 8c 20 f1 23 66 69 6c |total%=6| . .#fil|
|00001ab0| 65 25 2c 20 72 6e 61 6d | 65 24 28 78 2c 31 29 2c |e%, rnam|e$(x,1),|
|00001ac0| 20 72 6e 61 6d 65 24 28 | 78 2c 32 29 2c 20 72 6e | rname$(|x,2), rn|
|00001ad0| 61 6d 65 24 28 78 2c 33 | 29 2c 20 72 6e 61 6d 65 |ame$(x,3|), rname|
|00001ae0| 24 28 78 2c 34 29 2c 20 | 72 6e 61 6d 65 24 28 78 |$(x,4), |rname$(x|
|00001af0| 2c 35 29 2c 20 72 6e 61 | 6d 65 24 28 78 2c 36 29 |,5), rna|me$(x,6)|
|00001b00| 20 20 0d 09 60 75 20 e7 | 20 74 6f 74 61 6c 25 3d | ..`u .| total%=|
|00001b10| 37 20 8c 20 f1 23 66 69 | 6c 65 25 2c 20 72 6e 61 |7 . .#fi|le%, rna|
|00001b20| 6d 65 24 28 78 2c 31 29 | 2c 20 72 6e 61 6d 65 24 |me$(x,1)|, rname$|
|00001b30| 28 78 2c 32 29 2c 20 72 | 6e 61 6d 65 24 28 78 2c |(x,2), r|name$(x,|
|00001b40| 33 29 2c 20 72 6e 61 6d | 65 24 28 78 2c 34 29 2c |3), rnam|e$(x,4),|
|00001b50| 20 72 6e 61 6d 65 24 28 | 78 2c 35 29 2c 20 72 6e | rname$(|x,5), rn|
|00001b60| 61 6d 65 24 28 78 2c 36 | 29 2c 20 72 6e 61 6d 65 |ame$(x,6|), rname|
|00001b70| 24 28 78 2c 37 29 20 0d | 09 6a 81 20 e7 20 74 6f |$(x,7) .|.j. . to|
|00001b80| 74 61 6c 25 3d 38 20 8c | 20 f1 23 66 69 6c 65 25 |tal%=8 .| .#file%|
|00001b90| 2c 20 72 6e 61 6d 65 24 | 28 78 2c 31 29 2c 20 72 |, rname$|(x,1), r|
|00001ba0| 6e 61 6d 65 24 28 78 2c | 32 29 2c 20 72 6e 61 6d |name$(x,|2), rnam|
|00001bb0| 65 24 28 78 2c 33 29 2c | 20 72 6e 61 6d 65 24 28 |e$(x,3),| rname$(|
|00001bc0| 78 2c 34 29 2c 20 72 6e | 61 6d 65 24 28 78 2c 35 |x,4), rn|ame$(x,5|
|00001bd0| 29 2c 20 72 6e 61 6d 65 | 24 28 78 2c 36 29 2c 20 |), rname|$(x,6), |
|00001be0| 72 6e 61 6d 65 24 28 78 | 2c 37 29 2c 20 72 6e 61 |rname$(x|,7), rna|
|00001bf0| 6d 65 24 28 78 2c 38 29 | 0d 09 74 8f 20 e7 20 74 |me$(x,8)|..t. . t|
|00001c00| 6f 74 61 6c 25 3d 39 20 | 8c 20 f1 23 66 69 6c 65 |otal%=9 |. .#file|
|00001c10| 25 2c 20 72 6e 61 6d 65 | 24 28 78 2c 31 29 2c 20 |%, rname|$(x,1), |
|00001c20| 72 6e 61 6d 65 24 28 78 | 2c 32 29 2c 20 72 6e 61 |rname$(x|,2), rna|
|00001c30| 6d 65 24 28 78 2c 33 29 | 2c 20 72 6e 61 6d 65 24 |me$(x,3)|, rname$|
|00001c40| 28 78 2c 34 29 2c 20 72 | 6e 61 6d 65 24 28 78 2c |(x,4), r|name$(x,|
|00001c50| 35 29 2c 20 72 6e 61 6d | 65 24 28 78 2c 36 29 2c |5), rnam|e$(x,6),|
|00001c60| 20 72 6e 61 6d 65 24 28 | 78 2c 37 29 2c 20 72 6e | rname$(|x,7), rn|
|00001c70| 61 6d 65 24 28 78 2c 38 | 29 2c 20 72 6e 61 6d 65 |ame$(x,8|), rname|
|00001c80| 24 28 78 2c 39 29 20 0d | 09 7e 08 20 ed 20 78 0d |$(x,9) .|.~. . x.|
|00001c90| 09 88 0e 20 cf 23 66 69 | 6c 65 25 3d 30 0d 09 92 |... .#fi|le%=0...|
|00001ca0| 16 20 f1 23 66 69 6c 65 | 25 2c 20 72 65 63 75 73 |. .#file|%, recus|
|00001cb0| 65 64 25 0d 09 9c 0c 20 | d9 23 66 69 6c 65 25 0d |ed%.... |.#file%.|
|00001cc0| 09 a6 06 20 e1 0d 09 b0 | 14 20 dd f2 70 72 69 6e |... ....|. ..prin|
|00001cd0| 74 5f 72 65 63 6f 72 64 | 73 0d 09 ba 06 20 db 0d |t_record|s.... ..|
|00001ce0| 09 c4 58 20 e7 20 6e 61 | 6d 65 24 3d 22 22 20 8c |..X . na|me$="" .|
|00001cf0| 20 f1 20 22 59 6f 75 20 | 6e 65 65 64 20 74 6f 20 | . "You |need to |
|00001d00| 6c 6f 61 64 20 69 6e 20 | 61 20 66 69 6c 65 22 3a |load in |a file":|
|00001d10| e8 22 50 72 65 73 73 20 | 3c 52 45 54 55 52 4e 3e |."Press |<RETURN>|
|00001d20| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 41 24 3a | to cont|inue"A$:|
|00001d30| f2 62 65 67 69 6e 20 0d | 09 ce 23 20 f1 8a 32 2c |.begin .|..# ..2,|
|00001d40| 35 30 29 22 52 65 63 6f | 72 64 20 4e 75 6d 62 65 |50)"Reco|rd Numbe|
|00001d50| 72 3a 20 22 3b 72 63 25 | 20 20 0d 09 d8 3d 20 e7 |r: ";rc%| ...= .|
|00001d60| 20 64 65 6c 65 74 65 25 | 28 72 63 25 29 3d 31 20 | delete%|(rc%)=1 |
|00001d70| 8c 20 ef 20 31 39 2c 31 | 2c 31 33 2c 30 2c 30 2c |. . 19,1|,13,0,0,|
|00001d80| 30 20 8b 20 ef 20 31 39 | 2c 31 2c 37 2c 30 2c 30 |0 . . 19|,1,7,0,0|
|00001d90| 2c 30 20 20 20 20 20 0d | 09 e2 13 20 e3 20 78 3d |,0 .|... . x=|
|00001da0| 31 20 b8 20 74 6f 74 61 | 6c 25 0d 09 ec 22 20 e9 |1 . tota|l%..." .|
|00001db0| 20 73 70 61 63 65 25 3d | 6c 65 6e 67 74 68 25 2d | space%=|length%-|
|00001dc0| a9 28 66 69 65 6c 64 24 | 28 78 29 29 0d 09 f6 30 |.(field$|(x))...0|
|00001dd0| 20 f1 8a 36 2b 73 70 61 | 63 65 25 2c 36 2b 78 29 | ..6+spa|ce%,6+x)|
|00001de0| 66 69 65 6c 64 24 28 78 | 29 3b 22 3a 20 22 3b 72 |field$(x|);": ";r|
|00001df0| 6e 61 6d 65 24 28 72 63 | 25 2c 78 29 0d 0a 00 0f |name$(rc|%,x)....|
|00001e00| 20 ed 20 78 20 20 20 20 | 20 20 20 0d 0a 0a 36 20 | . x | ...6 |
|00001e10| f4 20 2a 2a 2a 20 53 45 | 54 20 55 50 20 4b 45 59 |. *** SE|T UP KEY|
|00001e20| 53 20 46 4f 52 20 4d 4f | 56 45 20 42 45 54 57 45 |S FOR MO|VE BETWE|
|00001e30| 45 4e 20 46 49 4c 45 53 | 20 45 54 43 2e 20 2a 2a |EN FILES| ETC. **|
|00001e40| 2a 0d 0a 14 67 20 f1 8a | 32 2c 32 34 29 22 3c 55 |*...g ..|2,24)"<U|
|00001e50| 50 20 41 52 52 4f 57 3e | 20 20 20 20 3d 20 53 65 |P ARROW>| = Se|
|00001e60| 65 20 4e 65 78 74 20 52 | 65 63 6f 72 64 20 20 20 |e Next R|ecord |
|00001e70| 20 20 20 20 20 20 3c 4c | 45 46 54 20 41 52 52 4f | <L|EFT ARRO|
|00001e80| 57 3e 20 3d 20 53 65 65 | 20 46 69 72 73 74 20 52 |W> = See| First R|
|00001e90| 65 63 6f 72 64 22 20 20 | 20 20 20 20 20 20 20 20 |ecord" | |
|00001ea0| 20 20 20 20 20 20 20 20 | 0d 0a 1e 5b 20 f1 8a 32 | |...[ ..2|
|00001eb0| 2c 32 35 29 22 3c 44 4f | 57 4e 20 41 52 52 4f 57 |,25)"<DO|WN ARROW|
|00001ec0| 3e 20 20 3d 20 53 65 65 | 20 50 72 65 76 69 6f 75 |> = See| Previou|
|00001ed0| 73 20 52 65 63 6f 72 64 | 20 20 20 20 3c 52 49 47 |s Record| <RIG|
|00001ee0| 48 54 20 41 52 52 4f 57 | 3e 20 3d 20 53 65 65 20 |HT ARROW|> = See |
|00001ef0| 4c 61 73 74 20 52 65 63 | 6f 72 64 22 20 20 20 20 |Last Rec|ord" |
|00001f00| 20 20 20 0d 0a 28 5f 20 | f1 8a 32 2c 32 36 29 22 | ..(_ |..2,26)"|
|00001f10| 5b 43 54 52 4c 5d 20 2d | 20 5b 46 31 5d 20 3d 20 |[CTRL] -| [F1] = |
|00001f20| 45 64 69 74 20 52 65 63 | 6f 72 64 20 20 20 20 20 |Edit Rec|ord |
|00001f30| 20 20 20 20 20 20 20 5b | 43 54 52 4c 5d 20 2d 20 | [|CTRL] - |
|00001f40| 5b 46 32 5d 20 3d 20 50 | 72 69 6e 74 20 52 65 63 |[F2] = P|rint Rec|
|00001f50| 6f 72 64 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |ord" | |
|00001f60| 20 20 0d 0a 32 56 20 f1 | 8a 32 2c 32 37 29 22 5b | ..2V .|.2,27)"[|
|00001f70| 43 54 52 4c 5d 20 2d 20 | 5b 46 33 5d 20 3d 20 50 |CTRL] - |[F3] = P|
|00001f80| 72 69 6e 74 20 53 65 6c | 65 63 74 69 6f 6e 20 20 |rint Sel|ection |
|00001f90| 20 20 20 20 20 20 5b 43 | 54 52 4c 5d 20 2d 20 5b | [C|TRL] - [|
|00001fa0| 46 34 5d 20 3d 20 45 6e | 74 65 72 20 53 65 61 72 |F4] = En|ter Sear|
|00001fb0| 63 68 20 4d 6f 64 65 22 | 0d 0a 3c 53 20 f1 8a 32 |ch Mode"|..<S ..2|
|00001fc0| 2c 32 38 29 22 5b 43 54 | 52 4c 5d 20 2d 20 5b 46 |,28)"[CT|RL] - [F|
|00001fd0| 35 5d 20 3d 20 44 65 6c | 65 74 65 2f 55 6e 64 65 |5] = Del|ete/Unde|
|00001fe0| 6c 65 74 65 20 52 65 63 | 6f 72 64 20 5b 43 54 52 |lete Rec|ord [CTR|
|00001ff0| 4c 5d 20 2d 20 5b 46 36 | 5d 20 3d 20 4d 6f 76 65 |L] - [F6|] = Move|
|00002000| 20 54 6f 20 52 65 63 6f | 72 64 22 0d 0a 46 0c 20 | To Reco|rd"..F. |
|00002010| 2a 46 58 20 34 2c 31 0d | 0a 50 0d 20 2a 46 58 20 |*FX 4,1.|.P. *FX |
|00002020| 31 35 2c 31 0d 0a 5a 09 | 20 63 68 3d a5 0d 0a 64 |15,1..Z.| ch=...d|
|00002030| 34 20 20 e7 20 63 68 3d | 31 33 38 20 80 20 72 65 |4 . ch=|138 . re|
|00002040| 61 64 6d 6f 64 65 25 3d | 30 20 8c 20 72 63 25 3d |admode%=|0 . rc%=|
|00002050| 72 63 25 2d 31 3a e9 20 | 6f 6c 64 72 63 25 3d 2d |rc%-1:. |oldrc%=-|
|00002060| 31 0d 0a 6e 33 20 20 e7 | 20 63 68 3d 31 33 39 20 |1..n3 .| ch=139 |
|00002070| 80 20 72 65 61 64 6d 6f | 64 65 25 3d 30 20 8c 20 |. readmo|de%=0 . |
|00002080| 72 63 25 3d 72 63 25 2b | 31 3a e9 20 6f 6c 64 72 |rc%=rc%+|1:. oldr|
|00002090| 63 25 3d 31 0d 0a 78 2f | 20 20 20 e7 20 63 68 3d |c%=1..x/| . ch=|
|000020a0| 31 34 34 20 8c 20 e9 20 | 72 65 61 64 6d 6f 64 65 |144 . . |readmode|
|000020b0| 25 3d 30 3a f2 62 65 67 | 69 6e 20 20 20 20 20 20 |%=0:.beg|in |
|000020c0| 20 20 20 0d 0a 82 23 20 | e7 20 63 68 3d 31 33 36 | ...# |. ch=136|
|000020d0| 20 80 20 72 65 61 64 6d | 6f 64 65 25 3d 30 20 8c | . readm|ode%=0 .|
|000020e0| 20 72 63 25 3d 31 0d 0a | 8c 2d 20 e7 20 63 68 3d | rc%=1..|.- . ch=|
|000020f0| 31 33 37 20 80 20 72 65 | 61 64 6d 6f 64 65 25 3d |137 . re|admode%=|
|00002100| 30 20 8c 20 72 63 25 3d | 66 69 6c 65 6c 65 6e 67 |0 . rc%=|fileleng|
|00002110| 74 68 25 0d 0a 96 23 20 | e7 20 63 68 3d 31 34 35 |th%...# |. ch=145|
|00002120| 20 8c 20 f2 63 6f 72 72 | 65 63 74 69 6f 6e 20 20 | . .corr|ection |
|00002130| 20 20 20 20 20 20 0d 0a | a0 1d 20 e7 20 63 68 3d | ..|.. . ch=|
|00002140| 31 34 36 20 8c 20 f2 70 | 72 5f 72 65 63 20 20 20 |146 . .p|r_rec |
|00002150| 20 20 20 0d 0a aa 1e 20 | e7 20 63 68 3d 31 34 37 | .... |. ch=147|
|00002160| 20 8c 20 f2 70 72 5f 73 | 65 6c 65 63 74 20 20 20 | . .pr_s|elect |
|00002170| 20 0d 0a b4 17 20 e7 20 | 63 68 3d 31 34 38 20 8c | .... . |ch=148 .|
|00002180| 20 f2 73 65 61 72 63 68 | 0d 0a be 1c 20 e7 20 63 | .search|.... . c|
|00002190| 68 3d 31 34 39 20 8c 20 | f2 64 65 6c 65 74 65 5f |h=149 . |.delete_|
|000021a0| 73 77 6f 70 0d 0a c8 15 | 20 e7 20 63 68 3d 31 35 |swop....| . ch=15|
|000021b0| 30 20 8c 20 f2 6d 6f 76 | 65 0d 0a d2 31 20 20 20 |0 . .mov|e...1 |
|000021c0| e7 20 72 65 61 64 6d 6f | 64 65 25 3d 31 20 8c 20 |. readmo|de%=1 . |
|000021d0| f2 72 65 61 64 5f 73 65 | 61 72 63 68 5f 72 65 63 |.read_se|arch_rec|
|000021e0| 6f 72 64 73 20 20 20 20 | 20 20 0d 0a dc 15 20 20 |ords | .... |
|000021f0| e7 20 72 63 25 3c 31 20 | 8c 20 72 63 25 3d 31 0d |. rc%<1 |. rc%=1.|
|00002200| 0a e6 27 20 e7 20 72 63 | 25 3e 66 69 6c 65 6c 65 |..' . rc|%>filele|
|00002210| 6e 67 74 68 25 20 8c 20 | e9 20 72 63 25 3d 72 63 |ngth% . |. rc%=rc|
|00002220| 25 2d 31 20 20 20 0d 0a | f0 13 20 f2 70 72 69 6e |%-1 ..|.. .prin|
|00002230| 74 5f 72 65 63 6f 72 64 | 73 0d 0a fa 06 20 e1 0d |t_record|s.... ..|
|00002240| 0b 04 13 20 dd f2 64 69 | 73 6b 5f 6f 70 74 69 6f |... ..di|sk_optio|
|00002250| 6e 73 0d 0b 0e 06 20 3a | 0d 0b 18 44 20 f4 20 2a |ns.... :|...D . *|
|00002260| 2a 20 48 45 52 45 20 59 | 4f 55 20 41 52 45 20 4f |* HERE Y|OU ARE O|
|00002270| 46 46 45 52 45 44 20 4f | 50 54 49 4f 4e 53 20 53 |FFERED O|PTIONS S|
|00002280| 55 43 48 20 41 53 20 44 | 52 49 56 45 20 4e 41 4d |UCH AS D|RIVE NAM|
|00002290| 45 20 43 48 41 4e 47 45 | 53 20 2a 2a 0d 0b 22 06 |E CHANGE|S **..".|
|000022a0| 20 db 0d 0b 2c 14 f1 20 | 22 44 69 73 6b 20 4f 70 | ...,.. |"Disk Op|
|000022b0| 74 69 6f 6e 73 22 0d 0b | 36 1b f1 8a 35 2c 37 29 |tions"..|6...5,7)|
|000022c0| 22 31 2e 20 43 68 61 6e | 67 65 20 44 72 69 76 65 |"1. Chan|ge Drive|
|000022d0| 22 0d 0b 40 21 f1 8a 35 | 2c 38 29 22 32 2e 20 43 |"..@!..5|,8)"2. C|
|000022e0| 68 61 6e 67 65 20 44 46 | 53 20 73 65 74 74 69 6e |hange DF|S settin|
|000022f0| 67 22 0d 0b 4a 24 20 f1 | 8a 30 2c 31 33 29 20 22 |g"..J$ .|.0,13) "|
|00002300| 50 6c 65 61 73 65 20 45 | 6e 74 65 72 20 4f 70 74 |Please E|nter Opt|
|00002310| 69 6f 6e 22 20 20 0d 0b | 54 0c 20 e8 20 63 68 25 |ion" ..|T. . ch%|
|00002320| 20 20 0d 0b 5e 1c 20 e7 | 20 63 68 25 3d 31 20 8c | ..^. .| ch%=1 .|
|00002330| 20 f2 63 68 61 6e 67 65 | 5f 64 72 69 76 65 0d 0b | .change|_drive..|
|00002340| 68 1a 20 e7 20 63 68 25 | 3d 32 20 8c 20 f2 63 68 |h. . ch%|=2 . .ch|
|00002350| 61 6e 67 65 5f 44 46 53 | 0d 0b 72 06 20 e1 0d 0b |ange_DFS|..r. ...|
|00002360| 7c 13 20 dd f2 63 68 61 | 6e 67 65 5f 64 72 69 76 ||. ..cha|nge_driv|
|00002370| 65 0d 0b 86 05 3a 0d 0b | 90 20 f4 20 2a 2a 20 43 |e....:..|. . ** C|
|00002380| 48 41 4e 47 45 53 20 44 | 52 49 56 45 20 49 4e 20 |HANGES D|RIVE IN |
|00002390| 55 53 45 20 2a 2a 0d 0b | 9a 06 20 db 0d 0b a4 19 |USE **..|.. .....|
|000023a0| f1 20 22 45 6e 74 65 72 | 20 4e 65 77 20 44 72 69 |. "Enter| New Dri|
|000023b0| 76 65 22 3a f1 0d 0b ae | 4b 20 f1 20 22 30 2e 20 |ve":....|K . "0. |
|000023c0| 44 72 69 76 65 20 5a 65 | 72 6f 22 3a f1 20 22 31 |Drive Ze|ro":. "1|
|000023d0| 2e 20 44 72 69 76 65 20 | 4f 6e 65 22 3a f1 20 22 |. Drive |One":. "|
|000023e0| 32 2e 20 44 72 69 76 65 | 20 54 77 6f 22 3a f1 22 |2. Drive| Two":."|
|000023f0| 33 2e 20 44 72 69 76 65 | 20 54 68 72 65 65 22 20 |3. Drive| Three" |
|00002400| 0d 0b b8 10 f1 3a f1 3a | e8 20 63 68 20 20 20 20 |.....:.:|. ch |
|00002410| 0d 0b c2 16 20 e7 20 63 | 68 3d 30 20 8c 20 2a 44 |.... . c|h=0 . *D|
|00002420| 52 49 56 45 20 30 0d 0b | cc 16 20 e7 20 63 68 3d |RIVE 0..|.. . ch=|
|00002430| 31 20 8c 20 2a 44 52 49 | 56 45 20 31 0d 0b d6 16 |1 . *DRI|VE 1....|
|00002440| 20 e7 20 63 68 3d 32 20 | 8c 20 2a 44 52 49 56 45 | . ch=2 |. *DRIVE|
|00002450| 20 32 0d 0b e0 16 20 e7 | 20 63 68 3d 33 20 8c 20 | 2.... .| ch=3 . |
|00002460| 2a 44 52 49 56 45 20 33 | 0d 0b ea 09 20 2a 43 41 |*DRIVE 3|.... *CA|
|00002470| 54 0d 0b f4 2d 20 f1 22 | 50 72 65 73 73 20 3c 52 |T...- ."|Press <R|
|00002480| 45 54 55 52 4e 3e 20 74 | 6f 20 67 6f 20 74 6f 20 |ETURN> t|o go to |
|00002490| 74 68 65 20 6d 61 69 6e | 20 6d 65 6e 75 22 0d 0b |the main| menu"..|
|000024a0| fe 0a 20 e8 20 63 68 24 | 0d 0c 08 05 e1 0d 0c 12 |.. . ch$|........|
|000024b0| 1a 20 f4 20 2a 2a 2a 20 | 65 72 72 6f 72 20 43 68 |. . *** |error Ch|
|000024c0| 65 63 6b 20 2a 2a 2a 0d | 0c 1c 06 20 3a 0d 0c 26 |eck ***.|... :..&|
|000024d0| 0e 20 e9 20 65 72 72 6f | 72 3d 9f 0d 0c 30 60 20 |. . erro|r=...0` |
|000024e0| e7 20 65 72 72 6f 72 3d | 32 32 32 20 8c 20 db 3a |. error=|222 . .:|
|000024f0| f1 20 22 46 69 6c 65 20 | 6e 6f 74 20 66 6f 75 6e |. "File |not foun|
|00002500| 64 21 22 3a f1 22 50 72 | 65 73 73 20 3c 52 45 54 |d!":."Pr|ess <RET|
|00002510| 55 52 4e 3e 20 74 6f 20 | 72 65 74 75 72 6e 20 74 |URN> to |return t|
|00002520| 6f 20 6d 61 69 6e 20 6d | 65 6e 75 22 3a e8 20 41 |o main m|enu":. A|
|00002530| 24 3a f2 62 65 67 69 6e | 20 20 20 0d 0c 3a 12 20 |$:.begin| ..:. |
|00002540| d9 23 30 3a 2a 46 58 20 | 34 2c 30 20 20 0d 0c 44 |.#0:*FX |4,0 ..D|
|00002550| 06 20 f8 0d 0c 4e 0d 20 | dd f2 70 72 5f 72 65 63 |. ...N. |..pr_rec|
|00002560| 0d 0c 58 06 20 3a 0d 0c | 62 0c 20 2a 46 58 20 33 |..X. :..|b. *FX 3|
|00002570| 2c 33 0d 0c 6c 0a 20 2a | 46 58 20 36 0d 0c 76 08 |,3..l. *|FX 6..v.|
|00002580| 20 ef 20 32 0d 0c 80 15 | 20 e3 20 78 3d 31 20 b8 | . 2....| . x=1 .|
|00002590| 20 74 6f 74 61 6c 25 20 | 20 0d 0c 8a 25 20 e9 20 | total% | ...% . |
|000025a0| 73 70 61 63 65 25 3d 6c | 65 6e 67 74 68 25 2d a9 |space%=l|ength%-.|
|000025b0| 28 66 69 65 6c 64 24 28 | 78 29 29 20 20 20 0d 0c |(field$(|x)) ..|
|000025c0| 94 32 20 f1 20 8a 36 2b | 73 70 61 63 65 25 29 66 |.2 . .6+|space%)f|
|000025d0| 69 65 6c 64 24 28 78 29 | 3b 22 3a 20 22 3b 72 6e |ield$(x)|;": ";rn|
|000025e0| 61 6d 65 24 28 72 63 25 | 2c 78 29 20 20 20 20 20 |ame$(rc%|,x) |
|000025f0| 0d 0c 9e 23 20 e3 20 61 | 3d 31 20 b8 20 66 5f 6c |...# . a|=1 . f_l|
|00002600| 69 6e 65 73 25 3a f1 3a | ed 20 61 20 20 20 20 20 |ines%:.:|. a |
|00002610| 20 20 20 0d 0c a8 0a 20 | ed 20 78 20 20 0d 0c b2 | .... |. x ...|
|00002620| 1b 20 e3 20 61 3d 31 20 | b8 20 72 5f 6c 69 6e 65 |. . a=1 |. r_line|
|00002630| 73 25 3a f1 3a ed 20 61 | 0d 0c bc 08 20 ef 20 33 |s%:.:. a|.... . 3|
|00002640| 0d 0c c6 0c 20 2a 46 58 | 20 33 2c 31 0d 0c d0 06 |.... *FX| 3,1....|
|00002650| 20 e1 0d 0c da 10 20 dd | f2 70 72 5f 73 65 6c 65 | ..... .|.pr_sele|
|00002660| 63 74 0d 0c e4 06 20 3a | 0d 0c ee 12 20 f2 73 63 |ct.... :|.... .sc|
|00002670| 61 6e 5f 72 65 63 6f 72 | 64 73 0d 0c f8 44 20 f4 |an_recor|ds...D .|
|00002680| 20 2a 2a 2a 20 57 69 6c | 6c 20 61 6c 6c 6f 77 20 | *** Wil|l allow |
|00002690| 75 73 65 72 20 74 6f 20 | 70 72 69 6e 74 20 72 65 |user to |print re|
|000026a0| 63 6f 72 64 73 20 77 69 | 74 68 69 6e 20 63 65 72 |cords wi|thin cer|
|000026b0| 74 61 69 6e 20 72 61 6e | 67 65 20 2a 2a 2a 0d 0d |tain ran|ge ***..|
|000026c0| 02 06 20 db 0d 0d 0c 38 | 20 e7 20 72 65 61 64 6d |.. ....8| . readm|
|000026d0| 6f 64 65 25 3d 30 20 8c | 20 e9 20 6c 6f 77 25 3d |ode%=0 .| . low%=|
|000026e0| 31 3a e9 20 68 69 67 68 | 25 3d 66 69 6c 65 6c 65 |1:. high|%=filele|
|000026f0| 6e 67 74 68 25 20 20 20 | 20 20 20 20 0d 0d 16 2d |ngth% | ...-|
|00002700| 20 f1 20 22 50 72 69 6e | 74 20 73 65 6c 65 63 74 | . "Prin|t select|
|00002710| 69 6f 6e 20 6f 66 20 72 | 65 63 6f 72 64 73 22 3a |ion of r|ecords":|
|00002720| f1 3a f1 20 20 20 20 20 | 20 0d 0d 20 24 20 f1 20 |.:. | .. $ . |
|00002730| 22 52 65 63 6f 72 64 73 | 20 73 74 61 72 74 20 66 |"Records| start f|
|00002740| 72 6f 6d 20 3a 22 3b 6c | 6f 77 25 20 20 0d 0d 2a |rom :";l|ow% ..*|
|00002750| 23 20 f1 20 22 52 65 63 | 6f 72 64 73 20 66 69 6e |# . "Rec|ords fin|
|00002760| 69 73 68 20 61 74 20 20 | 3a 22 3b 68 69 67 68 25 |ish at |:";high%|
|00002770| 0d 0d 34 08 20 f1 3a f1 | 0d 0d 3e 28 20 e8 20 22 |..4. .:.|..>( . "|
|00002780| 53 74 61 72 74 20 70 72 | 69 6e 74 69 6e 67 20 61 |Start pr|inting a|
|00002790| 74 20 72 65 63 6f 72 64 | 20 20 3a 20 22 73 25 20 |t record| : "s% |
|000027a0| 0d 0d 48 27 20 e8 20 22 | 45 6e 64 20 70 72 69 6e |..H' . "|End prin|
|000027b0| 74 69 6e 67 20 61 74 20 | 72 65 63 6f 72 64 20 20 |ting at |record |
|000027c0| 20 20 3a 20 22 66 25 0d | 0d 52 1a 20 e7 20 66 25 | : "f%.|.R. . f%|
|000027d0| 3d 30 20 8c 20 e1 20 20 | 20 20 20 20 20 20 20 20 |=0 . . | |
|000027e0| 20 0d 0d 5c 0b 20 2a 46 | 58 33 2c 33 0d 0d 66 0a | ..\. *F|X3,3..f.|
|000027f0| 20 2a 46 58 20 36 0d 0d | 70 08 20 ef 20 32 0d 0d | *FX 6..|p. . 2..|
|00002800| 7a 22 20 e7 20 72 65 61 | 64 6d 6f 64 65 25 3d 30 |z" . rea|dmode%=0|
|00002810| 20 8c 20 f2 70 72 69 6e | 74 5f 63 6f 6c 75 6d 73 | . .prin|t_colums|
|00002820| 0d 0d 84 24 20 e7 20 72 | 65 61 64 6d 6f 64 65 25 |...$ . r|eadmode%|
|00002830| 3d 31 20 8c 20 f2 70 72 | 69 6e 74 5f 63 6f 6c 75 |=1 . .pr|int_colu|
|00002840| 6d 73 5f 32 0d 0d 8e 08 | 20 ef 20 33 0d 0d 98 0b |ms_2....| . 3....|
|00002850| 20 2a 46 58 33 2c 31 0d | 0d a2 0d 20 e9 20 72 63 | *FX3,1.|... . rc|
|00002860| 25 3d 66 25 0d 0d ac 06 | 20 e1 0d 0d b6 0c dd f2 |%=f%....| .......|
|00002870| 73 65 61 72 63 68 0d 0d | c0 05 3a 0d 0d ca 44 f4 |search..|..:...D.|
|00002880| 20 2a 2a 2a 20 54 68 69 | 73 20 72 6f 75 74 69 6e | *** Thi|s routin|
|00002890| 65 20 77 69 6c 6c 20 61 | 6c 6c 6f 77 20 75 73 65 |e will a|llow use|
|000028a0| 72 20 74 6f 20 73 65 61 | 72 63 68 20 61 6c 6c 20 |r to sea|rch all |
|000028b0| 74 68 65 20 72 65 63 6f | 72 64 73 20 2a 2a 2a 0d |the reco|rds ***.|
|000028c0| 0d d4 43 f4 20 2a 2a 2a | 20 61 6e 64 20 66 69 6e |..C. ***| and fin|
|000028d0| 64 20 61 20 6d 61 74 63 | 68 20 77 69 74 68 20 61 |d a matc|h with a|
|000028e0| 6e 20 69 6e 70 75 74 65 | 64 20 73 74 72 69 6e 67 |n inpute|d string|
|000028f0| 2c 20 69 6e 20 61 20 63 | 65 72 74 61 69 6e 20 2a |, in a c|ertain *|
|00002900| 2a 2a 0d 0d de 36 f4 20 | 2a 2a 2a 20 66 69 65 6c |**...6. |*** fiel|
|00002910| 64 20 61 6e 64 20 74 68 | 65 6e 20 64 69 73 70 6c |d and th|en displ|
|00002920| 61 79 20 6f 6e 6c 79 20 | 74 68 6f 73 65 20 66 69 |ay only |those fi|
|00002930| 65 6c 64 73 20 2a 2a 2a | 0d 0d e8 05 3a 0d 0d f2 |elds ***|....:...|
|00002940| 39 f4 20 2a 2a 2a 20 46 | 69 72 73 74 20 64 69 73 |9. *** F|irst dis|
|00002950| 70 6c 61 79 20 61 6c 6c | 20 74 68 65 20 66 69 65 |play all| the fie|
|00002960| 6c 64 20 6e 61 6d 65 20 | 63 61 74 61 67 6f 72 69 |ld name |catagori|
|00002970| 65 73 20 2a 2a 2a 0d 0d | fc 06 20 db 0d 0e 06 17 |es ***..|.. .....|
|00002980| 20 f1 20 22 53 65 61 72 | 63 68 20 52 65 63 6f 72 | . "Sear|ch Recor|
|00002990| 64 73 22 0d 0e 10 79 20 | f1 3a f1 20 22 45 6e 74 |ds"...y |.:. "Ent|
|000029a0| 65 72 20 65 61 63 68 20 | 73 74 72 69 6e 67 20 61 |er each |string a|
|000029b0| 6e 64 20 50 72 65 73 73 | 20 3c 52 45 54 55 52 4e |nd Press| <RETURN|
|000029c0| 3e 22 3a f1 20 22 54 6f | 20 6c 65 61 76 65 20 6f |>":. "To| leave o|
|000029d0| 75 74 20 61 20 73 65 61 | 72 63 68 20 73 74 72 69 |ut a sea|rch stri|
|000029e0| 6e 67 20 66 6f 72 20 61 | 20 66 69 65 6c 64 2c 20 |ng for a| field, |
|000029f0| 6a 75 73 74 20 70 72 65 | 73 73 20 3c 52 45 54 55 |just pre|ss <RETU|
|00002a00| 52 4e 3e 22 20 20 20 20 | 20 20 20 20 0d 0e 1a 15 |RN>" | ....|
|00002a10| 20 e3 20 78 3d 31 20 b8 | 20 74 6f 74 61 6c 25 20 | . x=1 .| total% |
|00002a20| 20 0d 0e 24 29 20 e9 20 | 73 70 61 63 65 25 3d 6c | ..$) . |space%=l|
|00002a30| 65 6e 67 74 68 25 2d a9 | 28 66 69 65 6c 64 24 28 |ength%-.|(field$(|
|00002a40| 78 29 29 20 20 20 20 20 | 20 20 0d 0e 2e 21 f1 8a |x)) | ...!..|
|00002a50| 36 2b 73 70 61 63 65 25 | 2c 36 2b 78 29 66 69 65 |6+space%|,6+x)fie|
|00002a60| 6c 64 24 28 78 29 3b 22 | 3a 20 22 0d 0e 38 0e 20 |ld$(x);"|: "..8. |
|00002a70| ed 20 78 20 20 20 20 20 | 20 0d 0e 42 17 20 e3 20 |. x | ..B. . |
|00002a80| 78 3d 31 20 b8 20 74 6f | 74 61 6c 25 20 20 20 20 |x=1 . to|tal% |
|00002a90| 0d 0e 4c 1f 20 e8 8a 6c | 65 6e 67 74 68 25 2b 38 |..L. ..l|ength%+8|
|00002aa0| 2c 36 2b 78 29 73 65 61 | 72 63 68 24 28 78 29 0d |,6+x)sea|rch$(x).|
|00002ab0| 0e 56 08 20 ed 20 78 0d | 0e 60 2a 20 f4 20 2a 2a |.V. . x.|.`* . **|
|00002ac0| 2a 20 4e 6f 77 20 75 73 | 65 20 64 61 74 61 20 74 |* Now us|e data t|
|00002ad0| 6f 20 73 65 61 72 63 68 | 20 77 69 74 68 20 2a 2a |o search| with **|
|00002ae0| 2a 0d 0e 6a 06 20 3a 0d | 0e 74 0f 20 e9 20 63 68 |*..j. :.|.t. . ch|
|00002af0| 65 63 6b 25 3d 30 0d 0e | 7e 1f 20 e3 20 78 3d 30 |eck%=0..|~. . x=0|
|00002b00| 20 b8 20 74 6f 74 61 6c | 25 20 20 20 20 20 20 20 | . total|% |
|00002b10| 20 20 20 20 20 0d 0e 88 | 1f 20 f5 3a e9 20 78 3d | ...|. .:. x=|
|00002b20| 78 2b 31 3a fd 20 73 65 | 61 72 63 68 24 28 78 29 |x+1:. se|arch$(x)|
|00002b30| 3c 3e 22 22 0d 0e 92 16 | 20 e3 20 78 78 3d 31 20 |<>""....| . xx=1 |
|00002b40| b8 20 72 65 63 75 73 65 | 64 25 0d 0e 9c 3f 20 e7 |. recuse|d%...? .|
|00002b50| 20 63 68 65 63 6b 25 3d | 30 20 8c 20 73 65 61 72 | check%=|0 . sear|
|00002b60| 63 68 66 6f 75 6e 64 25 | 28 78 78 29 3d a7 72 6e |chfound%|(xx)=.rn|
|00002b70| 61 6d 65 24 28 78 78 2c | 78 29 2c 73 65 61 72 63 |ame$(xx,|x),searc|
|00002b80| 68 24 28 78 29 29 20 20 | 20 0d 0e a6 64 20 20 20 |h$(x)) | ...d |
|00002b90| 20 20 20 20 e7 20 73 65 | 61 72 63 68 66 6f 75 6e | . se|archfoun|
|00002ba0| 64 25 28 78 78 29 3e 30 | 20 8c 20 e9 20 73 65 61 |d%(xx)>0| . . sea|
|00002bb0| 72 63 68 66 6f 75 6e 64 | 25 28 78 78 29 3d a7 72 |rchfound|%(xx)=.r|
|00002bc0| 6e 61 6d 65 24 28 78 78 | 2c 78 29 2c 73 65 61 72 |name$(xx|,x),sear|
|00002bd0| 63 68 24 28 78 29 29 3a | e9 20 6e 6f 66 6f 75 6e |ch$(x)):|. nofoun|
|00002be0| 64 25 3d 6e 6f 66 6f 75 | 6e 64 25 2b 31 0d 0e b0 |d%=nofou|nd%+1...|
|00002bf0| 09 20 ed 20 78 78 0d 0e | ba 0f 20 e9 20 63 68 65 |. . xx..|.. . che|
|00002c00| 63 6b 25 3d 31 0d 0e c4 | 08 20 ed 20 78 0d 0e ce |ck%=1...|. . x...|
|00002c10| 44 20 f4 20 2a 2a 2a 20 | 4e 6f 77 20 73 65 74 20 |D . *** |Now set |
|00002c20| 72 65 61 64 20 72 6f 75 | 74 69 6e 65 20 74 6f 20 |read rou|tine to |
|00002c30| 64 69 73 70 6c 61 79 20 | 6f 6e 6c 79 20 66 69 6c |display |only fil|
|00002c40| 65 73 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 2a 2a |es conta|ining **|
|00002c50| 2a 0d 0e d8 1a 20 f4 20 | 2a 2a 2a 20 53 65 61 72 |*.... . |*** Sear|
|00002c60| 63 68 20 4b 65 79 73 20 | 2a 2a 2a 0d 0e e2 27 20 |ch Keys |***...' |
|00002c70| 20 20 e9 20 72 65 61 64 | 6d 6f 64 65 25 3d 31 3a | . read|mode%=1:|
|00002c80| e9 20 6f 6c 64 72 63 25 | 3d 31 3a e9 20 72 63 25 |. oldrc%|=1:. rc%|
|00002c90| 3d 30 0d 0e ec 12 20 f5 | 3a e9 20 72 63 25 3d 72 |=0.... .|:. rc%=r|
|00002ca0| 63 25 2b 31 0d 0e f6 2c | 20 fd 20 73 65 61 72 63 |c%+1...,| . searc|
|00002cb0| 68 66 6f 75 6e 64 25 28 | 72 63 25 29 3e 30 20 84 |hfound%(|rc%)>0 .|
|00002cc0| 20 72 63 25 3e 66 69 6c | 65 6c 65 6e 67 74 68 25 | rc%>fil|elength%|
|00002cd0| 0d 0f 00 34 20 e7 20 73 | 65 61 72 63 68 66 6f 75 |...4 . s|earchfou|
|00002ce0| 6e 64 25 28 72 63 25 29 | 3e 30 20 8c 20 e9 20 66 |nd%(rc%)|>0 . . f|
|00002cf0| 6f 75 6e 64 25 3d 31 20 | 8b 20 e9 20 66 6f 75 6e |ound%=1 |. . foun|
|00002d00| 64 25 3d 30 0d 0f 0a 6d | 20 e7 20 66 6f 75 6e 64 |d%=0...m| . found|
|00002d10| 25 3d 30 20 8c 20 db 3a | f1 20 22 4e 6f 20 6d 61 |%=0 . .:|. "No ma|
|00002d20| 74 63 68 20 66 6f 75 6e | 64 20 69 6e 20 72 65 63 |tch foun|d in rec|
|00002d30| 6f 72 64 73 20 22 3a f1 | 22 50 72 65 73 73 20 3c |ords ":.|"Press <|
|00002d40| 52 45 54 55 52 4e 3e 20 | 74 6f 20 63 6f 6e 74 69 |RETURN> |to conti|
|00002d50| 6e 75 65 20 22 3b 3a e8 | 20 41 24 3a e9 20 72 65 |nue ";:.| A$:. re|
|00002d60| 61 64 6d 6f 64 65 25 3d | 30 3a e9 20 72 63 25 3d |admode%=|0:. rc%=|
|00002d70| 31 0d 0f 14 1d 20 e7 20 | 66 6f 75 6e 64 25 3d 31 |1.... . |found%=1|
|00002d80| 20 8c 20 f2 73 65 74 5f | 76 61 6c 75 65 73 0d 0f | . .set_|values..|
|00002d90| 1e 06 20 e1 0d 0f 28 06 | 20 3a 0d 0f 32 1e 20 dd |.. ...(.| :..2. .|
|00002da0| f2 72 65 61 64 5f 73 65 | 61 72 63 68 5f 72 65 63 |.read_se|arch_rec|
|00002db0| 6f 72 64 73 20 20 20 20 | 0d 0f 3c 3e 20 e7 20 63 |ords |..<> . c|
|00002dc0| 68 3d 31 33 38 20 8c 20 | f5 3a e9 20 72 63 25 3d |h=138 . |.:. rc%=|
|00002dd0| 72 63 25 2d 31 3a fd 20 | 73 65 61 72 63 68 66 6f |rc%-1:. |searchfo|
|00002de0| 75 6e 64 25 28 72 63 25 | 29 3e 30 20 84 20 72 63 |und%(rc%|)>0 . rc|
|00002df0| 25 3c 6c 6f 77 25 0d 0f | 46 3f 20 e7 20 63 68 3d |%<low%..|F? . ch=|
|00002e00| 31 33 39 20 8c 20 f5 3a | e9 20 72 63 25 3d 72 63 |139 . .:|. rc%=rc|
|00002e10| 25 2b 31 3a fd 20 73 65 | 61 72 63 68 66 6f 75 6e |%+1:. se|archfoun|
|00002e20| 64 25 28 72 63 25 29 3e | 30 20 84 20 72 63 25 3e |d%(rc%)>|0 . rc%>|
|00002e30| 68 69 67 68 25 0d 0f 50 | 28 20 e7 20 63 68 3d 31 |high%..P|( . ch=1|
|00002e40| 33 37 20 8c 20 72 63 25 | 3d 68 69 67 68 25 3a f2 |37 . rc%|=high%:.|
|00002e50| 70 72 69 6e 74 5f 72 65 | 63 6f 72 64 73 0d 0f 5a |print_re|cords..Z|
|00002e60| 2b 20 e7 20 63 68 3d 31 | 33 36 20 8c 20 72 63 25 |+ . ch=1|36 . rc%|
|00002e70| 3d 6c 6f 77 25 3a f2 70 | 72 69 6e 74 5f 72 65 63 |=low%:.p|rint_rec|
|00002e80| 6f 72 64 73 20 20 20 20 | 0d 0f 64 37 20 e7 20 6f |ords |..d7 . o|
|00002e90| 6c 64 72 63 25 3e 72 63 | 25 20 80 20 72 63 25 3d |ldrc%>rc|% . rc%=|
|00002ea0| 6c 6f 77 25 20 8c 20 e9 | 20 72 63 25 3d 6c 6f 77 |low% . .| rc%=low|
|00002eb0| 25 3a e9 20 6f 6c 64 72 | 63 25 3d 6c 6f 77 25 0d |%:. oldr|c%=low%.|
|00002ec0| 0f 6e 3a 20 e7 20 6f 6c | 64 72 63 25 3c 72 63 25 |.n: . ol|drc%<rc%|
|00002ed0| 20 80 20 72 63 25 3d 68 | 69 67 68 25 20 8c 20 e9 | . rc%=h|igh% . .|
|00002ee0| 20 72 63 25 3d 68 69 67 | 68 25 3a e9 20 6f 6c 64 | rc%=hig|h%:. old|
|00002ef0| 72 63 25 3d 68 69 67 68 | 25 0d 0f 78 69 20 e7 20 |rc%=high|%..xi . |
|00002f00| 6f 6c 64 72 63 25 3c 72 | 63 25 20 8c 20 e9 20 72 |oldrc%<r|c% . . r|
|00002f10| 63 25 3d 6f 6c 64 72 63 | 25 3a f5 3a e9 20 72 63 |c%=oldrc|%:.:. rc|
|00002f20| 25 3d 72 63 25 2b 31 3a | fd 20 73 65 61 72 63 68 |%=rc%+1:|. search|
|00002f30| 66 6f 75 6e 64 25 28 72 | 63 25 29 3e 30 20 84 20 |found%(r|c%)>0 . |
|00002f40| 72 63 25 3e 68 69 67 68 | 25 3a e9 20 6f 6c 64 72 |rc%>high|%:. oldr|
|00002f50| 63 25 3d 72 63 25 20 20 | 20 20 20 20 20 20 20 20 |c%=rc% | |
|00002f60| 20 20 0d 0f 82 65 20 e7 | 20 6f 6c 64 72 63 25 3e | ...e .| oldrc%>|
|00002f70| 72 63 25 20 8c 20 e9 20 | 72 63 25 3d 6f 6c 64 72 |rc% . . |rc%=oldr|
|00002f80| 63 25 3a f5 3a e9 20 72 | 63 25 3d 72 63 25 2d 31 |c%:.:. r|c%=rc%-1|
|00002f90| 3a fd 20 73 65 61 72 63 | 68 66 6f 75 6e 64 25 28 |:. searc|hfound%(|
|00002fa0| 72 63 25 29 3e 30 20 84 | 20 72 63 25 3c 6c 6f 77 |rc%)>0 .| rc%<low|
|00002fb0| 25 3a e9 20 6f 6c 64 72 | 63 25 3d 72 63 25 20 20 |%:. oldr|c%=rc% |
|00002fc0| 20 20 20 20 20 20 20 0d | 0f 8c 2a 20 e7 20 72 63 | .|..* . rc|
|00002fd0| 25 3c 6c 6f 77 25 20 8c | 20 e9 20 72 63 25 3d 6c |%<low% .| . rc%=l|
|00002fe0| 6f 77 25 3a e9 20 6f 6c | 64 72 63 25 3d 6c 6f 77 |ow%:. ol|drc%=low|
|00002ff0| 25 0d 0f 96 2d 20 e7 20 | 72 63 25 3e 68 69 67 68 |%...- . |rc%>high|
|00003000| 25 20 8c 20 e9 20 72 63 | 25 3d 68 69 67 68 25 3a |% . . rc|%=high%:|
|00003010| e9 20 6f 6c 64 72 63 25 | 3d 68 69 67 68 25 0d 0f |. oldrc%|=high%..|
|00003020| a0 06 20 e1 0d 0f aa 06 | 20 3a 0d 0f b4 10 dd f2 |.. .....| :......|
|00003030| 73 65 74 5f 76 61 6c 75 | 65 73 0d 0f be 05 3a 0d |set_valu|es....:.|
|00003040| 0f c8 43 f4 20 2a 2a 2a | 20 54 68 69 73 20 77 69 |..C. ***| This wi|
|00003050| 6c 6c 20 73 65 74 20 6c | 6f 77 65 73 74 20 61 6e |ll set l|owest an|
|00003060| 64 20 68 69 67 68 65 73 | 74 20 76 61 6c 75 65 73 |d highes|t values|
|00003070| 20 69 6e 20 74 68 65 20 | 73 65 61 72 63 68 20 2a | in the |search *|
|00003080| 2a 2a 0d 0f d2 05 3a 0d | 0f dc 0e e9 20 6c 6f 77 |**....:.|.... low|
|00003090| 25 3d 72 63 25 0d 0f e6 | 15 e9 20 72 63 25 3d 66 |%=rc%...|.. rc%=f|
|000030a0| 69 6c 65 6c 65 6e 67 74 | 68 25 0d 0f f0 12 f5 3a |ilelengt|h%.....:|
|000030b0| e9 20 72 63 25 3d 72 63 | 25 2d 31 20 0d 0f fa 21 |. rc%=rc|%-1 ...!|
|000030c0| fd 20 73 65 61 72 63 68 | 66 6f 75 6e 64 25 28 72 |. search|found%(r|
|000030d0| 63 25 29 3e 30 20 84 20 | 72 63 25 3d 30 0d 10 04 |c%)>0 . |rc%=0...|
|000030e0| 0f e9 20 68 69 67 68 25 | 3d 72 63 25 0d 10 0e 1c |.. high%|=rc%....|
|000030f0| e9 20 72 63 25 3d 6c 6f | 77 25 3a e9 20 6f 6c 64 |. rc%=lo|w%:. old|
|00003100| 72 63 25 3d 6c 6f 77 25 | 0d 10 18 05 e1 0d 10 22 |rc%=low%|......."|
|00003110| 05 3a 0d 10 2c 10 dd f2 | 63 68 61 6e 67 65 5f 44 |.:..,...|change_D|
|00003120| 46 53 0d 10 36 05 3a 0d | 10 40 41 f4 20 2a 2a 2a |FS..6.:.|.@A. ***|
|00003130| 20 54 68 69 73 20 77 69 | 6c 6c 20 63 68 61 6e 67 | This wi|ll chang|
|00003140| 65 20 74 68 65 20 77 61 | 79 20 74 68 65 20 70 72 |e the wa|y the pr|
|00003150| 6f 67 72 61 6d 20 61 63 | 63 65 73 73 65 73 20 66 |ogram ac|cesses f|
|00003160| 69 6c 65 73 20 2a 2a 2a | 0d 10 4a 44 f4 20 2a 2a |iles ***|..JD. **|
|00003170| 2a 20 49 6e 6f 72 64 65 | 72 20 74 6f 20 62 65 20 |* Inorde|r to be |
|00003180| 63 6f 6d 70 61 74 69 62 | 6c 65 20 77 69 74 68 20 |compatib|le with |
|00003190| 74 68 65 20 42 42 43 20 | 6d 6f 64 65 6c 20 42 20 |the BBC |model B |
|000031a0| 63 6f 6d 70 75 74 65 72 | 20 2a 2a 2a 0d 10 54 05 |computer| ***..T.|
|000031b0| 3a 0d 10 5e 06 20 db 0d | 10 68 19 f1 20 22 31 2e |:..^. ..|.h.. "1.|
|000031c0| 20 55 73 65 20 4d 61 73 | 74 65 72 20 44 46 53 22 | Use Mas|ter DFS"|
|000031d0| 0d 10 72 1a f1 20 22 32 | 2e 20 55 73 65 20 4d 6f |..r.. "2|. Use Mo|
|000031e0| 64 65 6c 20 42 20 44 46 | 53 22 0d 10 7c 09 e8 20 |del B DF|S"..|.. |
|000031f0| 63 68 25 0d 10 86 14 e7 | 20 63 68 25 3d 31 20 8c |ch%.....| ch%=1 .|
|00003200| 20 64 66 73 25 3d 30 0d | 10 90 14 e7 20 63 68 25 | dfs%=0.|.... ch%|
|00003210| 3d 32 20 8c 20 64 66 73 | 25 3d 31 0d 10 9a 05 e1 |=2 . dfs|%=1.....|
|00003220| 0d 10 a4 05 3a 0d 10 ae | 13 dd f2 70 72 69 6e 74 |....:...|...print|
|00003230| 5f 6f 70 74 69 6f 6e 73 | 0d 10 b8 05 3a 0d 10 c2 |_options|....:...|
|00003240| 41 f4 20 2a 2a 2a 20 54 | 68 69 73 20 77 69 6c 6c |A. *** T|his will|
|00003250| 20 61 6c 6c 6f 77 20 75 | 73 65 72 20 74 6f 20 73 | allow u|ser to s|
|00003260| 65 6c 65 63 74 20 64 69 | 66 66 65 72 65 6e 74 20 |elect di|fferent |
|00003270| 6f 75 74 70 75 74 73 20 | 6f 6e 20 2a 2a 2a 0d 10 |outputs |on ***..|
|00003280| cc 33 f4 20 2a 2a 2a 20 | 54 68 65 20 70 72 69 6e |.3. *** |The prin|
|00003290| 74 65 72 2c 20 65 67 2e | 20 63 6f 6c 6f 75 72 2c |ter, eg.| colour,|
|000032a0| 20 73 70 61 63 69 6e 67 | 20 65 74 63 2e 20 2a 2a | spacing| etc. **|
|000032b0| 2a 0d 10 d6 05 3a 0d 10 | e0 05 db 0d 10 ea 17 f1 |*....:..|........|
|000032c0| 20 22 50 72 69 6e 74 65 | 72 20 4f 70 74 69 6f 6e | "Printe|r Option|
|000032d0| 73 22 0d 10 f4 05 f1 0d | 10 fe 19 f1 20 22 31 2e |s"......|.... "1.|
|000032e0| 20 43 68 61 6e 67 65 20 | 53 70 61 63 69 6e 67 22 | Change |Spacing"|
|000032f0| 0d 11 08 1f f1 20 22 32 | 2e 20 53 65 74 20 52 65 |..... "2|. Set Re|
|00003300| 63 6f 72 64 73 20 50 65 | 72 20 4c 69 6e 65 22 0d |cords Pe|r Line".|
|00003310| 11 12 08 e8 20 41 25 0d | 11 1c 1c e7 20 41 25 3d |.... A%.|.... A%=|
|00003320| 31 20 8c 20 f2 63 68 61 | 6e 67 65 5f 73 70 61 63 |1 . .cha|nge_spac|
|00003330| 69 6e 67 0d 11 26 16 e7 | 20 41 25 3d 32 20 8c 20 |ing..&..| A%=2 . |
|00003340| f2 73 65 74 5f 6c 69 6e | 65 0d 11 30 05 e1 0d 11 |.set_lin|e..0....|
|00003350| 3a 05 3a 0d 11 44 14 dd | f2 63 68 61 6e 67 65 5f |:.:..D..|.change_|
|00003360| 73 70 61 63 69 6e 67 0d | 11 4e 05 db 0d 11 58 16 |spacing.|.N....X.|
|00003370| f1 20 22 43 68 61 6e 67 | 65 20 53 70 61 63 69 6e |. "Chang|e Spacin|
|00003380| 67 22 0d 11 62 05 f1 0d | 11 6c 28 f1 8a 36 2c 36 |g"..b...|.l(..6,6|
|00003390| 29 22 4c 69 6e 65 73 20 | 62 65 74 77 65 65 6e 20 |)"Lines |between |
|000033a0| 65 61 63 68 20 66 69 65 | 6c 64 20 20 20 3a 22 0d |each fie|ld :".|
|000033b0| 11 76 28 f1 8a 36 2c 37 | 29 22 4c 69 6e 65 73 20 |.v(..6,7|)"Lines |
|000033c0| 61 66 74 65 72 20 65 61 | 63 68 20 72 65 63 6f 72 |after ea|ch recor|
|000033d0| 64 20 20 20 20 3a 22 0d | 11 80 13 f1 8a 33 30 2c |d :".|.....30,|
|000033e0| 36 29 66 5f 6c 69 6e 65 | 73 25 0d 11 8a 18 f1 8a |6)f_line|s%......|
|000033f0| 33 30 2c 37 29 72 5f 6c | 69 6e 65 73 25 20 20 20 |30,7)r_l|ines% |
|00003400| 20 20 0d 11 94 1b 20 e8 | 8a 33 39 2c 36 29 20 66 | .... .|.39,6) f|
|00003410| 5f 6c 69 6e 65 73 25 20 | 20 20 20 20 20 0d 11 9e |_lines% | ...|
|00003420| 1d e8 8a 33 39 2c 37 29 | 20 72 5f 6c 69 6e 65 73 |...39,7)| r_lines|
|00003430| 25 20 20 20 20 20 20 20 | 20 20 0d 11 a8 06 20 e1 |% | .... .|
|00003440| 0d 11 b2 07 2c 20 3a 0d | 11 bc 0e dd f2 73 65 74 |...., :.|.....set|
|00003450| 5f 6c 69 6e 65 0d 11 c6 | 05 3a 0d 11 d0 05 db 0d |_line...|.:......|
|00003460| 11 da 05 f1 0d 11 e4 23 | f1 8a 36 2c 36 29 22 52 |.......#|..6,6)"R|
|00003470| 65 63 6f 72 64 73 20 61 | 63 72 6f 73 73 20 70 61 |ecords a|cross pa|
|00003480| 67 65 20 20 20 3a 22 0d | 11 ee 14 f1 8a 33 30 2c |ge :".|.....30,|
|00003490| 36 29 72 5f 61 63 72 6f | 73 73 25 0d 11 f8 1a e8 |6)r_acro|ss%.....|
|000034a0| 8a 33 39 2c 36 29 20 72 | 5f 61 63 72 6f 73 73 25 |.39,6) r|_across%|
|000034b0| 20 20 20 20 20 0d 12 02 | 05 e1 0d 12 0c 05 3a 0d | ...|......:.|
|000034c0| 12 16 12 dd f2 73 63 61 | 6e 5f 72 65 63 6f 72 64 |.....sca|n_record|
|000034d0| 73 0d 12 20 05 3a 0d 12 | 2a 13 20 e3 20 78 3d 31 |s.. .:..|*. . x=1|
|000034e0| 20 b8 20 74 6f 74 61 6c | 25 0d 12 34 33 20 e7 20 | . total|%..43 . |
|000034f0| 66 6c 25 28 78 29 3e 66 | 6c 25 28 78 2d 31 29 20 |fl%(x)>f|l%(x-1) |
|00003500| 8c 20 e9 20 73 70 61 63 | 65 5f 75 73 65 64 25 3d |. . spac|e_used%=|
|00003510| 66 6c 25 28 78 29 20 20 | 20 20 20 20 0d 12 3e 08 |fl%(x) | ..>.|
|00003520| 20 ed 20 78 0d 12 48 29 | 20 20 e9 20 73 70 61 63 | . x..H)| . spac|
|00003530| 65 5f 75 73 65 64 25 3d | 73 70 61 63 65 5f 75 73 |e_used%=|space_us|
|00003540| 65 64 25 2b 6c 65 6e 67 | 74 68 25 2b 36 0d 12 52 |ed%+leng|th%+6..R|
|00003550| 06 20 e1 0d 12 5c 06 20 | 3a 0d 12 66 12 dd f2 70 |. ...\. |:..f...p|
|00003560| 72 69 6e 74 5f 63 6f 6c | 75 6d 73 0d 12 70 05 3a |rint_col|ums..p.:|
|00003570| 0d 12 7a 39 f4 20 2a 2a | 2a 20 57 69 6c 6c 20 70 |..z9. **|* Will p|
|00003580| 72 69 6e 74 20 69 6e 20 | 73 65 76 65 72 61 6c 20 |rint in |several |
|00003590| 63 6f 6c 75 6d 73 20 69 | 66 20 75 73 65 72 20 77 |colums i|f user w|
|000035a0| 69 73 68 65 73 20 2a 2a | 2a 0d 12 84 05 3a 0d 12 |ishes **|*....:..|
|000035b0| 8e 12 20 e3 20 72 63 25 | 3d 73 25 20 b8 20 66 25 |.. . rc%|=s% . f%|
|000035c0| 0d 12 98 13 20 e3 20 78 | 3d 31 20 b8 20 74 6f 74 |.... . x|=1 . tot|
|000035d0| 61 6c 25 0d 12 a2 27 20 | e9 20 73 70 61 63 65 25 |al%...' |. space%|
|000035e0| 3d 6c 65 6e 67 74 68 25 | 2d a9 28 66 69 65 6c 64 |=length%|-.(field|
|000035f0| 24 28 78 29 29 20 20 20 | 20 20 0d 12 ac 1e 20 e9 |$(x)) | .... .|
|00003600| 20 72 5f 61 63 72 6f 73 | 73 5f 6f 6c 64 25 3d 72 | r_acros|s_old%=r|
|00003610| 5f 61 63 72 6f 73 73 25 | 0d 12 b6 2c 20 e7 20 72 |_across%|..., . r|
|00003620| 5f 61 63 72 6f 73 73 25 | 3d 31 20 8c 20 e9 20 73 |_across%|=1 . . s|
|00003630| 70 61 63 65 5f 75 73 65 | 64 25 3d 30 20 20 20 20 |pace_use|d%=0 |
|00003640| 20 20 20 20 0d 12 c0 24 | 20 20 20 20 20 e7 20 72 | ...$| . r|
|00003650| 63 25 3d 66 25 20 8c 20 | e9 20 72 5f 61 63 72 6f |c%=f% . |. r_acro|
|00003660| 73 73 25 3d 31 20 20 20 | 0d 12 ca 17 e3 20 61 3d |ss%=1 |..... a=|
|00003670| 30 20 b8 20 72 5f 61 63 | 72 6f 73 73 25 2d 31 0d |0 . r_ac|ross%-1.|
|00003680| 12 d4 70 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..p | |
|00003690| 20 20 20 20 20 20 20 20 | 20 e7 20 66 25 3e 30 20 | | . f%>0 |
|000036a0| 80 20 72 63 25 2b 61 2d | 31 3c 66 25 20 8c 20 f1 |. rc%+a-|1<f% . .|
|000036b0| 8a 73 70 61 63 65 25 2b | 28 61 2a 73 70 61 63 65 |.space%+|(a*space|
|000036c0| 5f 75 73 65 64 25 29 29 | 66 69 65 6c 64 24 28 78 |_used%))|field$(x|
|000036d0| 29 3b 22 3a 20 22 3b 72 | 6e 61 6d 65 24 28 72 63 |);": ";r|name$(rc|
|000036e0| 25 2b 61 2c 78 29 3b 20 | 20 20 20 20 20 20 20 0d |%+a,x); | .|
|000036f0| 12 de 08 20 ed 20 61 0d | 12 e8 1e 20 e9 20 72 5f |... . a.|... . r_|
|00003700| 61 63 72 6f 73 73 25 3d | 72 5f 61 63 72 6f 73 73 |across%=|r_across|
|00003710| 5f 6f 6c 64 25 0d 12 f2 | 1b 20 e3 20 61 3d 31 20 |_old%...|. . a=1 |
|00003720| b8 20 66 5f 6c 69 6e 65 | 73 25 3a f1 3a ed 20 61 |. f_line|s%:.:. a|
|00003730| 0d 12 fc 08 20 ed 20 78 | 0d 13 06 24 20 e7 20 66 |.... . x|...$ . f|
|00003740| 25 3e 30 20 8c 20 e3 20 | 61 3d 31 20 b8 20 72 5f |%>0 . . |a=1 . r_|
|00003750| 6c 69 6e 65 73 25 3a f1 | 3a ed 20 61 0d 13 10 31 |lines%:.|:. a...1|
|00003760| 20 e9 20 72 63 25 3d 72 | 63 25 2b 72 5f 61 63 72 | . rc%=r|c%+r_acr|
|00003770| 6f 73 73 25 2d 31 3a ed | 20 72 63 25 20 20 20 20 |oss%-1:.| rc% |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 13 1a | | ...|
|00003790| 06 20 e1 0d 13 24 06 20 | 3a 0d 13 2e 15 20 dd f2 |. ...$. |:.... ..|
|000037a0| 70 72 69 6e 74 5f 63 6f | 6c 75 6d 73 5f 32 0d 13 |print_co|lums_2..|
|000037b0| 38 06 20 3a 0d 13 42 16 | 20 20 20 20 20 e3 20 72 |8. :..B.| . r|
|000037c0| 63 25 3d 73 25 20 b8 20 | 66 25 0d 13 4c 17 20 20 |c%=s% . |f%..L. |
|000037d0| 20 20 20 20 20 e9 20 63 | 6f 75 6e 74 65 72 25 3d | . c|ounter%=|
|000037e0| 30 0d 13 56 1a 20 e3 20 | 78 3d 31 20 b8 20 74 6f |0..V. . |x=1 . to|
|000037f0| 74 61 6c 25 20 20 20 20 | 20 20 20 0d 13 60 16 20 |tal% | ..`. |
|00003800| 20 20 20 20 20 e9 20 63 | 6f 75 6e 74 65 72 25 3d | . c|ounter%=|
|00003810| 30 0d 13 6a 24 20 e9 20 | 73 70 61 63 65 25 3d 6c |0..j$ . |space%=l|
|00003820| 65 6e 67 74 68 25 2d a9 | 28 66 69 65 6c 64 24 28 |ength%-.|(field$(|
|00003830| 78 29 29 20 20 0d 13 74 | 23 e9 20 72 5f 61 63 72 |x)) ..t|#. r_acr|
|00003840| 6f 73 73 5f 6f 6c 64 25 | 3d 72 5f 61 63 72 6f 73 |oss_old%|=r_acros|
|00003850| 73 25 20 20 20 20 20 20 | 0d 13 7e 29 e7 20 72 5f |s% |..~). r_|
|00003860| 61 63 72 6f 73 73 25 3d | 31 20 8c 20 e9 20 73 70 |across%=|1 . . sp|
|00003870| 61 63 65 5f 75 73 65 64 | 25 3d 30 20 20 20 20 20 |ace_used|%=0 |
|00003880| 20 0d 13 88 46 20 20 20 | 20 f4 20 20 20 20 20 20 | ...F | . |
|00003890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 46 20 | | IF |
|000038a0| 72 63 25 2b 63 6f 75 6e | 74 65 72 25 3d 66 25 20 |rc%+coun|ter%=f% |
|000038b0| 54 48 45 4e 20 4c 45 54 | 20 72 5f 61 63 72 6f 73 |THEN LET| r_acros|
|000038c0| 73 25 3d 31 20 20 20 0d | 13 92 12 20 20 20 20 6f |s%=1 .|... o|
|000038d0| 6c 64 72 63 25 3d 72 63 | 25 0d 13 9c 18 e3 20 61 |ldrc%=rc|%..... a|
|000038e0| 3d 30 20 b8 20 72 5f 61 | 63 72 6f 73 73 25 2d 31 |=0 . r_a|cross%-1|
|000038f0| 20 0d 13 a6 6d 20 20 20 | 20 20 20 20 20 20 20 20 | ...m | |
|00003900| 20 20 20 20 20 20 20 20 | 20 20 20 f5 3a e9 20 63 | | .:. c|
|00003910| 6f 75 6e 74 65 72 25 3d | 63 6f 75 6e 74 65 72 25 |ounter%=|counter%|
|00003920| 2b 31 3a fd 20 73 65 61 | 72 63 68 66 6f 75 6e 64 |+1:. sea|rchfound|
|00003930| 25 28 72 63 25 2b 63 6f | 75 6e 74 65 72 25 2d 31 |%(rc%+co|unter%-1|
|00003940| 29 3e 30 20 84 20 63 6f | 75 6e 74 65 72 25 2b 72 |)>0 . co|unter%+r|
|00003950| 63 25 2d 31 3e 66 25 20 | 20 20 20 20 20 20 0d 13 |c%-1>f% | ..|
|00003960| b0 cc 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003970| 20 20 20 20 20 20 20 20 | e7 20 66 25 3e 30 20 80 | |. f%>0 .|
|00003980| 20 72 63 25 2b 63 6f 75 | 6e 74 65 72 25 2d 31 3c | rc%+cou|nter%-1<|
|00003990| 66 25 2b 31 20 8c 20 f1 | 20 8a 73 70 61 63 65 25 |f%+1 . .| .space%|
|000039a0| 2b 28 61 2a 73 70 61 63 | 65 5f 75 73 65 64 25 29 |+(a*spac|e_used%)|
|000039b0| 29 66 69 65 6c 64 24 28 | 78 29 3b 22 3a 20 22 3b |)field$(|x);": ";|
|000039c0| 72 6e 61 6d 65 24 28 72 | 63 25 2b 63 6f 75 6e 74 |rname$(r|c%+count|
|000039d0| 65 72 25 2d 31 2c 78 29 | 3b 3a f4 22 20 72 63 25 |er%-1,x)|;:." rc%|
|000039e0| 3d 20 22 3b 72 63 25 3b | 22 20 72 63 25 2b 63 6f |= ";rc%;|" rc%+co|
|000039f0| 75 6e 74 65 72 25 2d 31 | 3d 20 22 3b 72 63 25 2b |unter%-1|= ";rc%+|
|00003a00| 63 6f 75 6e 74 65 72 25 | 2d 31 3b 22 20 78 3d 20 |counter%|-1;" x= |
|00003a10| 22 3b 78 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |";x; | |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 0d 13 ba 0c ed 20 | | ..... |
|00003a30| 61 20 20 20 20 20 0d 13 | c4 23 20 20 20 20 20 20 |a ..|.# |
|00003a40| e9 20 72 5f 61 63 72 6f | 73 73 25 3d 72 5f 61 63 |. r_acro|ss%=r_ac|
|00003a50| 72 6f 73 73 5f 6f 6c 64 | 25 0d 13 ce 23 20 e3 20 |ross_old|%...# . |
|00003a60| 61 3d 31 20 b8 20 66 5f | 6c 69 6e 65 73 25 3a f1 |a=1 . f_|lines%:.|
|00003a70| 3a ed 20 61 20 20 20 20 | 20 20 20 20 0d 13 d8 14 |:. a | ....|
|00003a80| 20 ed 20 78 20 20 20 20 | 20 20 20 20 20 20 20 20 | . x | |
|00003a90| 0d 13 e2 28 20 e7 20 66 | 25 3e 30 20 8c 20 e3 20 |...( . f|%>0 . . |
|00003aa0| 61 3d 31 20 b8 20 72 5f | 6c 69 6e 65 73 25 3a f1 |a=1 . r_|lines%:.|
|00003ab0| 3a ed 20 61 20 20 20 20 | 0d 13 ec 25 20 20 20 20 |:. a |...% |
|00003ac0| 20 20 20 20 20 20 20 20 | 20 e9 20 72 63 25 3d 72 | | . rc%=r|
|00003ad0| 63 25 2b 63 6f 75 6e 74 | 65 72 25 2d 31 0d 13 f6 |c%+count|er%-1...|
|00003ae0| 18 20 ed 20 72 63 25 20 | 20 20 20 20 20 20 20 20 |. . rc% | |
|00003af0| 20 20 20 20 20 0d 14 00 | 11 20 e1 20 20 20 20 20 | ...|. . |
|00003b00| 20 20 20 20 20 20 0d 14 | 0a 06 20 3a 0d 14 14 0c | ..|.. :....|
|00003b10| dd f2 64 65 6c 65 74 65 | 0d 14 1e 05 3a 0d 14 28 |..delete|....:..(|
|00003b20| 46 20 f4 20 2a 2a 2a 20 | 54 68 69 73 20 77 69 6c |F . *** |This wil|
|00003b30| 6c 20 61 6c 6c 6f 77 20 | 74 68 65 20 75 73 65 72 |l allow |the user|
|00003b40| 20 74 6f 20 73 65 6c 65 | 63 74 20 72 65 63 6f 72 | to sele|ct recor|
|00003b50| 64 73 20 68 65 20 64 6f | 65 73 20 6e 6f 74 20 2a |ds he do|es not *|
|00003b60| 2a 2a 20 0d 14 32 18 f4 | 20 2a 2a 2a 20 77 61 6e |** ..2..| *** wan|
|00003b70| 74 20 73 61 76 65 64 20 | 2a 2a 2a 0d 14 3c 05 3a |t saved |***..<.:|
|00003b80| 0d 14 46 05 db 0d 14 50 | 1f f1 20 22 44 65 6c 65 |..F....P|.. "Dele|
|00003b90| 74 65 2f 55 6e 64 65 6c | 65 74 65 20 52 65 63 6f |te/Undel|ete Reco|
|00003ba0| 72 64 73 22 0d 14 5a 39 | f1 3a f1 20 22 45 6e 74 |rds"..Z9|.:. "Ent|
|00003bb0| 65 72 20 72 61 6e 67 65 | 20 74 6f 20 74 6f 67 67 |er range| to togg|
|00003bc0| 6c 65 20 62 65 74 77 65 | 65 6e 20 64 65 6c 65 74 |le betwe|en delet|
|00003bd0| 65 2f 75 6e 64 65 6c 65 | 74 65 22 3a f1 0d 14 64 |e/undele|te":...d|
|00003be0| 05 f1 0d 14 6e 21 e8 20 | 22 45 6e 74 65 72 20 53 |....n!. |"Enter S|
|00003bf0| 74 61 72 74 20 4f 66 20 | 52 61 6e 67 65 20 3a 20 |tart Of |Range : |
|00003c00| 22 73 25 0d 14 78 21 e8 | 20 22 45 6e 74 65 72 20 |"s%..x!.| "Enter |
|00003c10| 45 6e 64 20 4f 66 20 52 | 61 6e 67 65 20 20 20 3a |End Of R|ange :|
|00003c20| 20 22 66 25 0d 14 82 0f | e3 20 78 3d 73 25 20 b8 | "f%....|. x=s% .|
|00003c30| 20 66 25 0d 14 8c 37 20 | e7 20 64 65 6c 65 74 65 | f%...7 |. delete|
|00003c40| 25 28 78 29 3d 31 20 8c | 20 e9 20 64 65 6c 65 74 |%(x)=1 .| . delet|
|00003c50| 65 25 28 78 29 3d 30 20 | 8b 20 64 65 6c 65 74 65 |e%(x)=0 |. delete|
|00003c60| 25 28 78 29 3d 31 20 20 | 20 20 0d 14 96 07 ed 20 |%(x)=1 | ..... |
|00003c70| 78 0d 14 a0 05 e1 0d 14 | aa 05 3a 0d 14 b4 11 dd |x.......|..:.....|
|00003c80| f2 64 65 6c 65 74 65 5f | 73 77 6f 70 0d 14 be 05 |.delete_|swop....|
|00003c90| 3a 0d 14 c8 3b 20 e7 20 | 64 65 6c 65 74 65 25 28 |:...; . |delete%(|
|00003ca0| 72 63 25 29 3d 31 20 8c | 20 e9 20 64 65 6c 65 74 |rc%)=1 .| . delet|
|00003cb0| 65 25 28 72 63 25 29 3d | 30 20 8b 20 64 65 6c 65 |e%(rc%)=|0 . dele|
|00003cc0| 74 65 25 28 72 63 25 29 | 3d 31 20 20 0d 14 d2 05 |te%(rc%)|=1 ....|
|00003cd0| e1 0d 14 dc 05 3a 0d 14 | e6 0a dd f2 6d 6f 76 65 |.....:..|....move|
|00003ce0| 0d 14 f0 05 3a 0d 14 fa | 05 db 0d 15 04 16 f1 20 |....:...|....... |
|00003cf0| 22 4d 6f 76 65 20 74 6f | 20 72 65 63 6f 72 64 22 |"Move to| record"|
|00003d00| 0d 15 0e 05 f1 0d 15 18 | 24 e8 20 22 45 6e 74 65 |........|$. "Ente|
|00003d10| 72 20 72 65 63 6f 72 64 | 20 74 6f 20 6d 6f 76 65 |r record| to move|
|00003d20| 20 74 6f 20 3a 22 72 63 | 25 0d 15 22 28 20 e7 20 | to :"rc|%.."( . |
|00003d30| 72 63 25 3e 66 69 6c 65 | 6c 65 6e 67 74 68 25 20 |rc%>file|length% |
|00003d40| 8c 20 72 63 25 3d 66 69 | 6c 65 6c 65 6e 67 74 68 |. rc%=fi|lelength|
|00003d50| 25 0d 15 2c 14 20 e7 20 | 72 63 25 3c 31 20 8c 20 |%..,. . |rc%<1 . |
|00003d60| 72 63 25 3d 31 0d 15 36 | 06 20 e1 0d ff |rc%=1..6|. ... |
+--------+-------------------------+-------------------------+--------+--------+
