home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: DOSIMG Disk Image
(archive/dosimg).
You can browse this item here: xy.img
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| DOSIMG Disk Image (archive/dosimg)
| magic
| Supported |
| 66%
| dexvert
| Alias PIX Image (image/aliasPIX)
| ext
| Supported |
| 66%
| dexvert
| GEM Raster Bitmap (image/gem)
| ext
| Supported |
| 66%
| dexvert
| DaVinci (image/daVinci)
| ext
| Supported |
| 46%
| dexvert
| Disk Image (archive/diskImage)
| ext
| Supported |
| 1%
| dexvert
| AIX/BFF backup/restore (archive/aixBackupRestore)
| ext
| Unsupported |
| 1%
| dexvert
| The Duplicator Toolkit disk image (archive/duplicatorToolkitDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| PTS-DOS disk image (archive/ptsDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QNX volume disk image (archive/qnxVolumeDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| SNATCH-IT Disk Image (archive/snatchItDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| Android boot image (archive/androidBootImage)
| ext
| Unsupported |
| 1%
| dexvert
| Paragon DOS disk image (archive/paragonDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QEMU QCOW Image (archive/qemuQCOWImage)
| ext
| Unsupported |
| 1%
| dexvert
| Davilex Games game data format (other/davilexGamesGameDataFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Eclipse Image (other/eclipseImage)
| ext
| Unsupported |
| 1%
| dexvert
| InfoComics game data (other/infoComicsGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Garmin map (other/garminMap)
| ext
| Unsupported |
| 1%
| dexvert
| Piklib/BlooMoo graphic data (other/piklibGraphicData)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| DOSIMG disk image (80t/15s)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4f 0f 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |O.......|........|
|00000010| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000020| 01 01 01 01 01 01 01 01 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 68 08 | f8 eb 3e 90 50 43 20 54 |......h.|..>.PC T|
|000000b0| 6f 6f 6c 73 00 02 01 01 | 00 02 e0 00 60 09 f9 07 |ools....|....`...|
|000000c0| 00 0f 00 02 f8 00 09 0f | f8 00 04 01 f8 00 07 01 |........|........|
|000000d0| 01 00 01 0f 1d f8 00 09 | fa fc 33 c0 8e d0 bc 00 |........|..3.....|
|000000e0| 7c 36 c5 36 78 00 1e 56 | 8e c0 8d 3e 20 7c b9 0b ||6.6x..V|...> |..|
|000000f0| 00 ac 26 80 3d 00 74 03 | 26 8a 05 aa e2 f3 33 c0 |..&.=.t.|&.....3.|
|00000100| 8e d8 a3 7a 00 c7 06 78 | 00 20 7c fb cd 13 73 03 |...z...x|. |...s.|
|00000110| e9 b4 00 8a 2e 30 7c 8a | 0e 32 7c 8a 36 31 7c b2 |.....0|.|.2|.61|.|
|00000120| 00 bb 00 05 b8 01 02 cd | 13 72 e5 8d 36 62 7d 8b |........|.r..6b}.|
|00000130| fb b9 0b 00 f3 a6 75 0d | bf 20 05 b9 0b 00 f3 a6 |......u.|. ......|
|00000140| 74 1a e9 89 00 8d 36 78 | 7d 8b fb b9 0b 00 f3 a6 |t.....6x|}.......|
|00000150| 75 7c bf 20 05 b9 0b 00 | f3 a6 75 72 33 d2 a1 1c |u|. ....|..ur3...|
|00000160| 05 f7 36 0b 7c fe c0 a2 | 38 7c bb 00 07 8a 2e 33 |..6.|...|8|.....3|
|00000170| 7c 8a 0e 35 7c 8a 36 34 | 7c b2 00 a1 18 7c 2a c1 ||..5|.64||....|*.|
|00000180| fe c0 50 b4 02 cd 13 58 | 72 3d 28 06 38 7c 76 1a |..P....X|r=(.8|v.|
|00000190| b4 00 52 f7 26 0b 7c 5a | 03 d8 b1 01 fe c6 3a 36 |..R.&.|Z|......:6|
|000001a0| 1a 7c 72 d7 fe c5 b6 00 | eb d1 cd 11 d0 c0 d0 c0 |.|r.....|........|
|000001b0| 25 03 00 75 01 40 40 8b | c8 b8 00 00 b2 00 8b 1e |%..u.@@.|........|
|000001c0| 36 7c ea 00 00 70 00 8d | 36 8e 7d eb 05 90 8d 36 |6|...p..|6.}....6|
|000001d0| a2 7d ac 0a c0 74 09 bb | 07 00 b4 0e cd 10 eb f2 |.}...t..|........|
|000001e0| 8d 1e c2 7d 3b f3 77 04 | 8b f3 eb e6 32 e4 cd 16 |...};.w.|....2...|
|000001f0| 8f 06 78 00 8f 06 7a 00 | cd 19 49 42 4d 42 49 4f |..x...z.|..IBMBIO|
|00000200| 20 20 43 4f 4d 49 42 4d | 44 4f 53 20 20 43 4f 4d | COMIBM|DOS COM|
|00000210| 49 4f f8 20 06 53 59 53 | 4d 53 44 4f 53 f8 20 03 |IO. .SYS|MSDOS. .|
|00000220| 53 59 53 0a 0d 44 69 73 | 6b 20 42 6f 6f 74 20 46 |SYS..Dis|k Boot F|
|00000230| 61 69 6c 75 72 65 00 0a | 0d 4e 6f 6e 2d 53 79 73 |ailure..|.Non-Sys|
|00000240| 74 65 6d 20 64 69 73 6b | 20 6f 72 20 64 69 73 6b |tem disk| or disk|
|00000250| 20 65 72 72 6f 72 00 0a | 0d 52 65 70 6c 61 63 65 | error..|.Replace|
|00000260| 20 61 6e 64 20 70 72 65 | 73 73 20 61 6e 79 20 6b | and pre|ss any k|
|00000270| 65 79 20 77 68 65 6e 20 | 72 65 61 64 79 0a 0d f8 |ey when |ready...|
|00000280| 00 14 55 aa f9 f8 ff 03 | 6f 02 05 60 00 07 80 00 |..U.....|o..`....|
|00000290| ff af 00 0b f0 ff 0d e0 | 00 f8 ff 04 2f 01 13 f0 |........|..../...|
|000002a0| ff ff 6f 01 17 f0 ff 19 | a0 01 1b f0 ff 1d f0 ff |..o.....|........|
|000002b0| 1f f0 ff ff 2f 02 ff 4f | 02 25 f0 ff 53 80 02 f8 |..../..O|.%..S...|
|000002c0| ff 03 2b c0 02 2d f0 ff | 2f 00 03 31 20 03 33 f0 |..+..-..|/..1 .3.|
|000002d0| ff ff 6f 03 37 80 03 39 | a0 03 ff cf 03 3d e0 03 |..o.7..9|.....=..|
|000002e0| ff 0f 04 41 20 04 ff 4f | 04 45 60 04 ff 8f 04 ff |...A ..O|.E`.....|
|000002f0| af 04 ff cf 04 ff ef 04 | f8 ff 04 2f 05 ff 5f 08 |........|.../.._.|
|00000300| 55 60 05 57 80 05 59 a0 | 05 5b c0 05 ff ef 05 5f |U`.W..Y.|.[....._|
|00000310| 00 06 ff 2f 06 f8 ff 03 | 65 60 06 ff 8f 06 ff af |.../....|e`......|
|00000320| 06 ff cf 06 f8 ff 03 6f | 00 07 ff 2f 07 ff 4f 07 |.......o|.../..O.|
|00000330| f8 ff 04 8f 07 79 a0 07 | ff cf 07 7d e0 07 7f 00 |.....y..|...}....|
|00000340| 08 81 20 08 83 40 08 ff | 4f 0e 87 80 08 89 a0 08 |.. ..@..|O.......|
|00000350| 8b c0 08 8d e0 08 8f 00 | 09 91 20 09 93 40 09 95 |........|.. ..@..|
|00000360| 60 09 97 80 09 99 a0 09 | 9b c0 09 9d e0 09 9f 00 |`.......|........|
|00000370| 0a a1 20 0a a3 40 0a a5 | 60 0a a7 80 0a a9 a0 0a |.. ..@..|`.......|
|00000380| ff cf 0a ad e0 0a af 00 | 0b b1 20 0b b3 40 0b ff |........|.. ..@..|
|00000390| 6f 0b b7 80 0b b9 a0 0b | bb c0 0b bd e0 0b f8 ff |o.......|........|
|000003a0| 03 c1 20 0c c3 f0 ff c5 | f0 f8 ff 04 c9 a0 0c cb |.. .....|........|
|000003b0| c0 0c cd e0 0c cf 00 0d | ff 2f 0d d3 f0 ff d5 60 |........|./.....`|
|000003c0| 0d f8 ff 06 db c0 0d dd | e0 0d df f0 ff e1 20 0e |........|...... .|
|000003d0| e3 f0 ff 2f f1 ff e7 80 | 0e f8 ff 06 ed e0 0e ef |.../....|........|
|000003e0| 00 0f f1 20 0f f3 40 0f | f5 60 0f f7 80 0f f9 a0 |... ..@.|.`......|
|000003f0| 0f fb c0 0f fd e0 0f ff | 00 10 01 21 10 03 41 10 |........|...!..A.|
|00000400| 05 f1 ff 07 81 10 09 a1 | 10 ff cf 10 0d f1 ff 0f |........|........|
|00000410| 01 11 11 21 11 13 41 11 | 15 61 11 ff 8f 11 ff af |...!..A.|.a......|
|00000420| 11 1b f1 ff 1d e1 11 ff | 0f 12 21 f1 ff 23 41 12 |........|..!..#A.|
|00000430| ff 6f 12 27 f1 ff 29 a1 | 12 2b c1 12 2d e1 12 f8 |.o.'..).|.+..-...|
|00000440| ff 03 31 21 13 33 41 13 | 35 61 13 ff 8f 13 39 a1 |..1!.3A.|5a....9.|
|00000450| 13 3b c1 13 3d f1 ff 3f | f1 ff 41 21 14 ff 4f 14 |.;..=..?|..A!..O.|
|00000460| 45 f1 ff 47 81 14 49 a1 | 14 4b c1 14 4d e1 14 4f |E..G..I.|.K..M..O|
|00000470| 01 15 51 21 15 53 41 15 | 55 61 15 57 81 15 59 a1 |..Q!.SA.|Ua.W..Y.|
|00000480| 15 5b c1 15 5d e1 15 5f | 01 16 61 21 16 63 41 16 |.[..].._|..a!.cA.|
|00000490| 65 61 16 67 81 16 69 a1 | 16 6b c1 16 6d e1 16 6f |ea.g..i.|.k..m..o|
|000004a0| 01 17 71 f1 ff 73 41 17 | 75 61 17 77 81 17 79 a1 |..q..sA.|ua.w..y.|
|000004b0| 17 7b c1 17 7d e1 17 7f | 01 18 81 21 18 83 41 18 |.{..}...|...!..A.|
|000004c0| 85 61 18 87 81 18 89 a1 | 18 8b c1 18 8d e1 18 8f |.a......|........|
|000004d0| 01 19 91 21 19 93 41 19 | 95 61 19 97 81 19 99 a1 |...!..A.|.a......|
|000004e0| 19 9b c1 19 9d e1 19 9f | 01 1a a1 21 1a a3 41 1a |........|...!..A.|
|000004f0| a5 61 1a a7 81 1a a9 a1 | 1a ab c1 1a ff ef 1a af |.a......|........|
|00000500| 01 1b b1 21 1b b3 41 1b | b5 61 1b b7 81 1b b9 a1 |...!..A.|.a......|
|00000510| 1b bb c1 1b bd e1 1b bf | 01 1c c1 21 1c c3 41 1c |........|...!..A.|
|00000520| c5 61 1c c7 81 1c c9 a1 | 1c cb c1 1c cd e1 1c cf |.a......|........|
|00000530| 01 1d d1 21 1d d3 41 1d | d5 61 1d d7 81 1d d9 a1 |...!..A.|.a......|
|00000540| 1d db c1 1d dd e1 1d f8 | ff 03 e1 21 1e e3 41 1e |........|...!..A.|
|00000550| e5 61 1e e7 81 1e e9 a1 | 1e eb c1 1e ed e1 1e ef |.a......|........|
|00000560| 01 1f f1 21 1f f3 41 1f | f5 61 1f f7 81 1f f9 a1 |...!..A.|.a......|
|00000570| 1f fb c1 1f fd e1 1f ff | 01 20 01 22 20 03 42 20 |........|. ." .B |
|00000580| 05 62 20 07 82 20 09 a2 | 20 0b c2 20 0d e2 20 0f |.b .. ..| .. .. .|
|00000590| 02 21 11 22 21 13 42 21 | 15 62 21 17 82 21 19 a2 |.!."!.B!|.b!..!..|
|000005a0| 21 1b c2 21 1d e2 21 ff | 0f f8 00 ff f8 00 ff f8 |!..!..!.|........|
|000005b0| 00 ff f8 00 ff f8 00 ff | f8 00 ff f8 00 ff f8 00 |........|........|
|000005c0| ff f8 00 ff f8 00 ff f8 | 00 db f9 f8 ff 03 6f 02 |........|......o.|
|000005d0| 05 60 00 07 80 00 ff af | 00 0b f0 ff 0d e0 00 f8 |.`......|........|
|000005e0| ff 04 2f 01 13 f0 ff ff | 6f 01 17 f0 ff 19 a0 01 |../.....|o.......|
|000005f0| 1b f0 ff 1d f0 ff 1f f0 | ff ff 2f 02 ff 4f 02 25 |........|../..O.%|
|00000600| f0 ff 53 80 02 f8 ff 03 | 2b c0 02 2d f0 ff 2f 00 |..S.....|+..-../.|
|00000610| 03 31 20 03 33 f0 ff ff | 6f 03 37 80 03 39 a0 03 |.1 .3...|o.7..9..|
|00000620| ff cf 03 3d e0 03 ff 0f | 04 41 20 04 ff 4f 04 45 |...=....|.A ..O.E|
|00000630| 60 04 ff 8f 04 ff af 04 | ff cf 04 ff ef 04 f8 ff |`.......|........|
|00000640| 04 2f 05 ff 5f 08 55 60 | 05 57 80 05 59 a0 05 5b |./.._.U`|.W..Y..[|
|00000650| c0 05 ff ef 05 5f 00 06 | ff 2f 06 f8 ff 03 65 60 |....._..|./....e`|
|00000660| 06 ff 8f 06 ff af 06 ff | cf 06 f8 ff 03 6f 00 07 |........|.....o..|
|00000670| ff 2f 07 ff 4f 07 f8 ff | 04 8f 07 79 a0 07 ff cf |./..O...|...y....|
|00000680| 07 7d e0 07 7f 00 08 81 | 20 08 83 40 08 ff 4f 0e |.}......| ..@..O.|
|00000690| 87 80 08 89 a0 08 8b c0 | 08 8d e0 08 8f 00 09 91 |........|........|
|000006a0| 20 09 93 40 09 95 60 09 | 97 80 09 99 a0 09 9b c0 | ..@..`.|........|
|000006b0| 09 9d e0 09 9f 00 0a a1 | 20 0a a3 40 0a a5 60 0a |........| ..@..`.|
|000006c0| a7 80 0a a9 a0 0a ff cf | 0a ad e0 0a af 00 0b b1 |........|........|
|000006d0| 20 0b b3 40 0b ff 6f 0b | b7 80 0b b9 a0 0b bb c0 | ..@..o.|........|
|000006e0| 0b bd e0 0b f8 ff 03 c1 | 20 0c c3 f0 ff c5 f0 f8 |........| .......|
|000006f0| ff 04 c9 a0 0c cb c0 0c | cd e0 0c cf 00 0d ff 2f |........|......./|
|00000700| 0d d3 f0 ff d5 60 0d f8 | ff 06 db c0 0d dd e0 0d |.....`..|........|
|00000710| df f0 ff e1 20 0e e3 f0 | ff 2f f1 ff e7 80 0e f8 |.... ...|./......|
|00000720| ff 06 ed e0 0e ef 00 0f | f1 20 0f f3 40 0f f5 60 |........|. ..@..`|
|00000730| 0f f7 80 0f f9 a0 0f fb | c0 0f fd e0 0f ff 00 10 |........|........|
|00000740| 01 21 10 03 41 10 05 f1 | ff 07 81 10 09 a1 10 ff |.!..A...|........|
|00000750| cf 10 0d f1 ff 0f 01 11 | 11 21 11 13 41 11 15 61 |........|.!..A..a|
|00000760| 11 ff 8f 11 ff af 11 1b | f1 ff 1d e1 11 ff 0f 12 |........|........|
|00000770| 21 f1 ff 23 41 12 ff 6f | 12 27 f1 ff 29 a1 12 2b |!..#A..o|.'..)..+|
|00000780| c1 12 2d e1 12 f8 ff 03 | 31 21 13 33 41 13 35 61 |..-.....|1!.3A.5a|
|00000790| 13 ff 8f 13 39 a1 13 3b | c1 13 3d f1 ff 3f f1 ff |....9..;|..=..?..|
|000007a0| 41 21 14 ff 4f 14 45 f1 | ff 47 81 14 49 a1 14 4b |A!..O.E.|.G..I..K|
|000007b0| c1 14 4d e1 14 4f 01 15 | 51 21 15 53 41 15 55 61 |..M..O..|Q!.SA.Ua|
|000007c0| 15 57 81 15 59 a1 15 5b | c1 15 5d e1 15 5f 01 16 |.W..Y..[|..].._..|
|000007d0| 61 21 16 63 41 16 65 61 | 16 67 81 16 69 a1 16 6b |a!.cA.ea|.g..i..k|
|000007e0| c1 16 6d e1 16 6f 01 17 | 71 f1 ff 73 41 17 75 61 |..m..o..|q..sA.ua|
|000007f0| 17 77 81 17 79 a1 17 7b | c1 17 7d e1 17 7f 01 18 |.w..y..{|..}.....|
|00000800| 81 21 18 83 41 18 85 61 | 18 87 81 18 89 a1 18 8b |.!..A..a|........|
|00000810| c1 18 8d e1 18 8f 01 19 | 91 21 19 93 41 19 95 61 |........|.!..A..a|
|00000820| 19 97 81 19 99 a1 19 9b | c1 19 9d e1 19 9f 01 1a |........|........|
|00000830| a1 21 1a a3 41 1a a5 61 | 1a a7 81 1a a9 a1 1a ab |.!..A..a|........|
|00000840| c1 1a ff ef 1a af 01 1b | b1 21 1b b3 41 1b b5 61 |........|.!..A..a|
|00000850| 1b b7 81 1b b9 a1 1b bb | c1 1b bd e1 1b bf 01 1c |........|........|
|00000860| c1 21 1c c3 41 1c c5 61 | 1c c7 81 1c c9 a1 1c cb |.!..A..a|........|
|00000870| c1 1c cd e1 1c cf 01 1d | d1 21 1d d3 41 1d d5 61 |........|.!..A..a|
|00000880| 1d d7 81 1d d9 a1 1d db | c1 1d dd e1 1d f8 ff 03 |........|........|
|00000890| e1 21 1e e3 41 1e e5 61 | 1e e7 81 1e e9 a1 1e eb |.!..A..a|........|
|000008a0| c1 1e ed e1 1e ef 01 1f | f1 21 1f f3 41 1f f5 61 |........|.!..A..a|
|000008b0| 1f f7 81 1f f9 a1 1f fb | c1 1f fd e1 1f ff 01 20 |........|....... |
|000008c0| 01 22 20 03 42 20 05 62 | 20 07 82 20 09 a2 20 0b |." .B .b| .. .. .|
|000008d0| c2 20 0d e2 20 0f 02 21 | 11 22 21 13 42 21 15 62 |. .. ..!|."!.B!.b|
|000008e0| 21 17 82 21 19 a2 21 1b | c2 21 1d e2 21 ff 0f f8 |!..!..!.|.!..!...|
|000008f0| 00 ff f8 00 ff f8 00 ff | f8 00 ff f8 00 ff f8 00 |........|........|
|00000900| ff f8 00 ff f8 00 ff f8 | 00 ff f8 00 ff f8 00 db |........|........|
|00000910| 35 04 ff 53 32 ff 20 09 | 10 ff 00 0a 36 10 72 1a |5..S2. .|....6.r.|
|00000920| 02 ff 00 05 53 34 ff 20 | 09 10 ff 00 0a 39 10 72 |....S4. |.....9.r|
|00000930| 1a 03 ff 00 06 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000940| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000950| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000960| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000970| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000980| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000990| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009a0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009b0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009c0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009d0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009e0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|000009f0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a00| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a10| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a20| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a30| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a40| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a50| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a60| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a70| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a80| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000a90| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000aa0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ab0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ac0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ad0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ae0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000af0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b00| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b10| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b20| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b30| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b40| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b50| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b60| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b70| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b80| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000b90| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ba0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000bb0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000bc0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000bd0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000be0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000bf0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c00| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c10| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c20| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c30| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c40| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c50| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c60| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c70| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c80| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000c90| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 00 ff f6 1f |........|........|
|00000ca0| 00 ff f6 1f 00 ff f6 1f | 00 ff f6 1f 2e ff 20 0a |........|...... .|
|00000cb0| 10 ff 00 0a 36 10 72 1a | 02 ff 00 05 2e 2e ff 20 |....6.r.|....... |
|00000cc0| 09 10 ff 00 0a 36 10 72 | 1a ff 00 06 49 42 4d 42 |.....6.r|....IBMB|
|00000cd0| 49 4f 20 20 43 4f 4d 27 | ff 00 0b 60 72 0e 46 01 |IO COM'|...`r.F.|
|00000ce0| 54 56 00 00 49 42 4d 44 | 4f 53 20 20 43 4f 4d 27 |TV..IBMD|OS COM'|
|00000cf0| ff 00 0b 60 71 0e 72 01 | cf 75 00 00 43 4f 4d 4d |...`q.r.|.u..COMM|
|00000d00| 41 4e 44 20 43 4f 4d 20 | ff 00 0b 60 71 0e ad 01 |AND COM |...`q...|
|00000d10| db 62 00 00 41 55 54 4f | 45 58 45 43 42 41 54 20 |.b..AUTO|EXECBAT |
|00000d20| ff 00 0a 40 00 21 00 df | 01 80 ff 00 03 43 4d ff |...@.!..|.....CM.|
|00000d30| 20 06 45 58 45 20 ff 00 | 0a d8 96 d5 12 e0 01 10 | .EXE ..|........|
|00000d40| 7c ff 00 ff ff 00 23 e6 | 16 ff 2e ff 20 0a 10 ff ||.....#.|.... ...|
|00000d50| 00 0a 39 10 72 1a 03 ff | 00 05 2e 2e ff 20 09 10 |..9.r...|..... ..|
|00000d60| ff 00 0a 39 10 72 1a ff | 00 06 58 5a 43 ff 20 05 |...9.r..|..XZC. .|
|00000d70| 50 52 47 20 ff 00 0a 07 | 23 21 00 04 00 4c 08 00 |PRG ....|#!...L..|
|00000d80| 00 43 55 41 4e 44 41 4e | 47 50 52 47 20 ff 00 0a |.CUANDAN|GPRG ...|
|00000d90| 54 06 21 00 09 00 d1 05 | 00 00 4d 41 49 ff 20 05 |T.!.....|..MAI. .|
|00000da0| 50 52 47 20 ff 00 0a 45 | 02 21 00 0c 00 b1 05 00 |PRG ...E|.!......|
|00000db0| 00 58 4a 47 47 ff 20 04 | 50 52 47 20 ff 00 0a d3 |.XJGG. .|PRG ....|
|00000dc0| 02 21 00 0f 00 00 02 00 | 00 5a 48 55 43 45 ff 20 |.!......|.ZHUCE. |
|00000dd0| 03 50 52 47 20 ff 00 0a | af 24 21 00 10 00 f6 01 |.PRG ...|.$!.....|
|00000de0| 00 00 58 49 4e ff 20 05 | 50 52 47 20 ff 00 0a 54 |..XIN. .|PRG ...T|
|00000df0| 27 21 00 11 00 83 05 00 | 00 4a 4c ff 20 06 50 52 |'!......|.JL. .PR|
|00000e00| 47 20 ff 00 0a b2 00 21 | 00 14 00 3d ff 00 03 4a |G .....!|...=...J|
|00000e10| 49 55 ff 20 05 50 52 47 | 20 ff 00 0a 26 0a 21 00 |IU. .PRG| ...&.!.|
|00000e20| 15 00 69 04 00 00 58 48 | 43 5a ff 20 04 50 52 47 |..i...XH|CZ. .PRG|
|00000e30| 20 ff 00 0a 55 24 21 00 | 18 00 55 06 00 00 47 5a | ...U$!.|..U...GZ|
|00000e40| ff 20 06 50 52 47 20 ff | 00 0a 39 04 21 00 1c 00 |. .PRG .|..9.!...|
|00000e50| bf 02 00 00 5a 54 ff 20 | 06 50 52 47 20 ff 00 0a |....ZT. |.PRG ...|
|00000e60| c0 04 21 00 1e 00 27 03 | 00 00 4a 42 ff 20 06 50 |..!...'.|..JB. .P|
|00000e70| 52 47 20 ff 00 0a ef 02 | 21 00 20 00 32 01 00 00 |RG .....|!. .2...|
|00000e80| 5a 43 ff 20 06 50 52 47 | 20 ff 00 0a e2 04 21 00 |ZC. .PRG| .....!.|
|00000e90| 21 00 b4 02 00 00 54 4a | 4c ff 20 05 50 52 47 20 |!.....TJ|L. .PRG |
|00000ea0| ff 00 0a ec 00 21 00 23 | 00 3a 04 00 00 ff 20 08 |.....!.#|.:.... .|
|00000eb0| ff 2a 05 d7 a8 d2 b5 d1 | a1 d4 f1 28 5a 58 43 29 |.*......|...(ZXC)|
|00000ec0| ff 2a 05 0d 0a 53 45 54 | 20 54 41 4c 4b 20 4f 46 |.*...SET| TALK OF|
|00000ed0| 46 0d 0a 43 4c 45 41 52 | 0d 0a 40 20 31 2c 20 31 |F..CLEAR|..@ 1, 1|
|00000ee0| 34 20 73 61 79 20 20 27 | ff 20 04 c7 eb b0 b4 cf |4 say '|. ......|
|00000ef0| c2 c1 d0 cf b5 2c d7 a8 | d2 b5 d1 a1 d4 f1 b9 a6 |.....,..|........|
|00000f00| c4 dc ba c5 20 28 31 2d | 2d 32 30 29 3a 20 27 0d |.... (1-|-20): '.|
|00000f10| 0a 40 20 32 2c 20 31 34 | 20 53 41 59 20 27 31 2d |.@ 2, 14| SAY '1-|
|00000f20| 2d d6 d0 ce c4 ff 20 0b | 38 2d 2d ca fd d1 a7 ff |-..... .|8--.....|
|00000f30| 20 09 31 35 2d 2d ce a2 | bb fa 20 27 0d 0a 40 20 | .15--..|.. '..@ |
|00000f40| 33 2c 20 31 34 20 53 41 | 59 20 27 32 2d 2d d5 fe |3, 14 SA|Y '2--..|
|00000f50| d6 ce ff 20 0b 39 2d 2d | ca fd bb fa ff 20 09 31 |... .9--|..... .1|
|00000f60| 36 2d 2d d6 d0 ce c4 c3 | d8 ca e9 20 27 0d 0a 40 |6--.....|... '..@|
|00000f70| 20 34 2c 20 31 34 20 53 | 41 59 20 27 33 2d 2d be | 4, 14 S|AY '3--.|
|00000f80| ad bc c3 b9 dc c0 ed ff | 20 07 31 30 2d 2d ce ef |........| .10--..|
|00000f90| c0 ed ff 20 08 31 37 2d | 2d c8 d5 d3 ef 20 20 27 |... .17-|-.... '|
|00000fa0| 0d 0a 40 20 35 2c 20 31 | 34 20 53 41 59 20 27 34 |..@ 5, 1|4 SAY '4|
|00000fb0| 2d 2d be ad bc c3 b7 a8 | ff 20 09 31 31 2d 2d ce |--......|. .11--.|
|00000fc0| ef bb fa ff 20 08 31 38 | 2d 2d d1 a7 d0 a3 bd cc |.... .18|--......|
|00000fd0| d3 fd 20 27 0d 0a 40 20 | 36 2c 20 31 34 20 53 41 |.. '..@ |6, 14 SA|
|00000fe0| 59 20 27 35 2d 2d b6 d4 | cd e2 be ad bc c3 c3 b3 |Y '5--..|........|
|00000ff0| d2 d7 ff 20 03 31 32 2d | 2d bb af d1 a7 ff 20 08 |... .12-|-..... .|
|00001000| 31 39 2d 2d d3 a6 d3 c3 | bb af d1 a7 20 27 0d 0a |19--....|.... '..|
|00001010| 40 20 37 2c 20 31 34 20 | 53 41 59 20 27 36 2d 2d |@ 7, 14 |SAY '6--|
|00001020| b5 d8 c0 ed ff 20 0b 31 | 33 2d 2d c9 fa ce ef ff |..... .1|3--.....|
|00001030| 20 08 32 30 2d 2d bc c6 | cb e3 bb fa b9 dc c0 ed | .20--..|........|
|00001040| 20 27 0d 0a 40 20 38 2c | 20 31 34 20 53 41 59 20 | '..@ 8,| 14 SAY |
|00001050| 27 37 2d 2d c0 fa ca b7 | ff 20 0b 31 34 2d 2d cc |'7--....|. .14--.|
|00001060| e5 d3 fd ff 20 04 27 0d | 0a 53 54 4f 52 45 20 30 |.... .'.|.STORE 0|
|00001070| 20 54 4f 20 4c 4c 4f 0d | 0a 40 20 39 2c 30 20 53 | TO LLO.|.@ 9,0 S|
|00001080| 41 59 20 27 c7 eb ca e4 | c8 eb b9 a6 c4 dc b1 e0 |AY '....|........|
|00001090| ba c5 3a 20 28 31 5f 5f | 32 30 29 27 47 45 54 20 |..: (1__|20)'GET |
|000010a0| 4c 4c 4f 20 52 41 4e 47 | 45 20 31 2c 32 30 20 0d |LLO RANG|E 1,20 .|
|000010b0| 0a 52 45 41 44 0d 0a 20 | 20 44 4f 20 43 41 53 45 |.READ.. | DO CASE|
|000010c0| 0d 0a ff 20 05 43 41 53 | 45 20 4c 4c 4f 3d 31 20 |... .CAS|E LLO=1 |
|000010d0| 0d 0a ff 20 0a 5a 3d 27 | 30 31 27 0d 0a ff 20 0a |... .Z='|01'... .|
|000010e0| 5a 5a 3d 27 d6 d0 ce c4 | 27 ff 20 03 0d 0a ff 20 |ZZ='....|'. .... |
|000010f0| 05 43 41 53 45 20 4c 4c | 4f 3d 32 20 0d 0a ff 20 |.CASE LL|O=2 ... |
|00001100| 0a 5a 3d 27 30 32 27 0d | 0a ff 20 0a 5a 5a 3d 27 |.Z='02'.|.. .ZZ='|
|00001110| d5 fe d6 ce 27 0d 0a ff | 20 05 43 41 53 45 20 4c |....'...| .CASE L|
|00001120| 4c 4f 3d 20 33 0d 0a ff | 20 0a 5a 3d 27 30 33 27 |LO= 3...| .Z='03'|
|00001130| 0d 0a ff 20 0a 5a 5a 3d | 27 be ad bc c3 b9 dc c0 |... .ZZ=|'.......|
|00001140| ed 27 0d 0a ff 20 05 43 | 41 53 45 20 4c 4c 4f 3d |.'... .C|ASE LLO=|
|00001150| 20 34 20 0d 0a ff 20 0a | 5a 3d 27 30 34 27 0d 0a | 4 ... .|Z='04'..|
|00001160| ff 20 0a 5a 5a 3d 27 be | ad bc c3 b7 a8 27 0d 0a |. .ZZ='.|.....'..|
|00001170| ff 20 06 43 41 53 45 20 | 4c 4c 4f 3d 35 0d 0a ff |. .CASE |LLO=5...|
|00001180| 20 0a 5a 3d 27 30 35 27 | 0d 0a ff 20 0a 5a 5a 3d | .Z='05'|... .ZZ=|
|00001190| 27 b6 d4 cd e2 be ad bc | c3 c3 b3 d2 d7 27 0d 0a |'.......|.....'..|
|000011a0| ff 20 06 43 41 53 45 20 | 4c 4c 4f 3d 20 36 20 20 |. .CASE |LLO= 6 |
|000011b0| 0d 0a ff 20 0a 5a 3d 27 | 30 36 27 0d 0a ff 20 0a |... .Z='|06'... .|
|000011c0| 5a 5a 3d 20 27 b5 d8 c0 | ed 27 0d 0a ff 20 06 43 |ZZ= '...|.'... .C|
|000011d0| 41 53 45 20 4c 4c 4f 3d | 37 0d 0a ff 20 0a 5a 3d |ASE LLO=|7... .Z=|
|000011e0| 27 30 37 27 20 0d 0a ff | 20 0a 5a 5a 3d 20 27 c0 |'07' ...| .ZZ= '.|
|000011f0| fa ca b7 27 0d 0a ff 20 | 06 43 41 53 45 20 4c 4c |...'... |.CASE LL|
|00001200| 4f 3d 38 0d 0a ff 20 0a | 5a 3d 27 30 38 27 0d 0a |O=8... .|Z='08'..|
|00001210| ff 20 0a 5a 5a 3d 27 ca | fd d1 a7 27 0d 0a ff 20 |. .ZZ='.|...'... |
|00001220| 06 43 41 53 45 20 4c 4c | 4f 3d 39 0d 0a ff 20 0a |.CASE LL|O=9... .|
|00001230| 5a 3d 27 30 39 27 0d 0a | ff 20 0a 5a 5a 3d 27 ca |Z='09'..|. .ZZ='.|
|00001240| fd bb fa 27 0d 0a ff 20 | 06 43 41 53 45 20 4c 4c |...'... |.CASE LL|
|00001250| 4f 3d 31 30 0d 0a ff 20 | 0a 5a 3d 27 31 30 27 0d |O=10... |.Z='10'.|
|00001260| 0a ff 20 0a 5a 5a 3d 27 | ce ef c0 ed 27 0d 0a ff |.. .ZZ='|....'...|
|00001270| 20 06 43 41 53 45 20 4c | 4c 4f 3d 31 31 0d 0a ff | .CASE L|LO=11...|
|00001280| 20 0a 5a 3d 27 31 31 27 | 20 0d 0a ff 20 0a 5a 5a | .Z='11'| ... .ZZ|
|00001290| 3d 27 ce ef bb fa 27 0d | 0a ff 20 06 43 41 53 45 |='....'.|.. .CASE|
|000012a0| 20 4c 4c 4f 3d 31 32 0d | 0a ff 20 0a 5a 3d 27 31 | LLO=12.|.. .Z='1|
|000012b0| 32 27 0d 0a ff 20 0a 5a | 5a 3d 27 bb af d1 a7 27 |2'... .Z|Z='....'|
|000012c0| 0d 0a ff 20 06 43 41 53 | 45 20 4c 4c 4f 3d 31 33 |... .CAS|E LLO=13|
|000012d0| 0d 0a ff 20 0a 5a 3d 27 | 31 33 27 0d 0a ff 20 0a |... .Z='|13'... .|
|000012e0| 5a 5a 3d 27 c9 fa ce ef | 27 0d 0a ff 20 06 43 41 |ZZ='....|'... .CA|
|000012f0| 53 45 20 4c 4c 4f 3d 31 | 34 0d 0a ff 20 0a 5a 3d |SE LLO=1|4... .Z=|
|00001300| 27 31 34 27 0d 8a ff 20 | 0a 5a 5a 3d 27 cc e5 d3 |'14'... |.ZZ='...|
|00001310| fd 27 0d 0a ff 20 06 43 | 41 53 45 20 4c 4c 4f 3d |.'... .C|ASE LLO=|
|00001320| 20 31 35 0d 0a ff 20 0a | 5a 3d 27 31 35 27 0d 0a | 15... .|Z='15'..|
|00001330| ff 20 0a 5a 5a 3d 27 ce | a2 bb fa 27 0d 0a ff 20 |. .ZZ='.|...'... |
|00001340| 06 43 41 53 45 20 4c 4c | 4f 3d 31 36 0d 0a ff 20 |.CASE LL|O=16... |
|00001350| 0a 5a 3d 27 31 36 27 0d | 0a ff 20 0a 5a 5a 3d 27 |.Z='16'.|.. .ZZ='|
|00001360| d6 d0 ce c4 c3 d8 ca e9 | 27 0d 0a ff 20 06 43 41 |........|'... .CA|
|00001370| 53 45 20 4c 4c 4f 3d 31 | 37 0d 0a ff 20 0a 5a 3d |SE LLO=1|7... .Z=|
|00001380| 27 31 37 27 0d 0a ff 20 | 0a 5a 5a 3d 27 c8 d5 d3 |'17'... |.ZZ='...|
|00001390| ef 27 0d 0a ff 20 06 43 | 41 53 45 20 4c 4c 4f 3d |.'... .C|ASE LLO=|
|000013a0| 31 38 0d 0a ff 20 0a 5a | 3d 27 31 38 27 0d 0a ff |18... .Z|='18'...|
|000013b0| 20 0a 5a 5a 3d 27 d1 a7 | d0 a3 bd cc d3 fd 27 0d | .ZZ='..|......'.|
|000013c0| 0a ff 20 06 43 41 53 45 | 20 4c 4c 4f 3d 31 39 0d |.. .CASE| LLO=19.|
|000013d0| 0a ff 20 0a 5a 3d 27 31 | 39 27 0d 0a ff 20 0a 5a |.. .Z='1|9'... .Z|
|000013e0| 5a 3d 27 d3 a6 d3 c3 bb | af d1 a7 27 0d 0a ff 20 |Z='.....|...'... |
|000013f0| 06 43 41 53 45 20 4c 4c | 4f 3d 32 30 0d 0a ff 20 |.CASE LL|O=20... |
|00001400| 0a 5a 3d 27 32 30 27 0d | 0a ff 20 0a 5a 5a 3d 27 |.Z='20'.|.. .ZZ='|
|00001410| bc c6 cb e3 bb fa b9 dc | c0 ed 27 0d 0a ff 20 04 |........|..'... .|
|00001420| 45 4e 44 43 41 53 45 0d | 0a 57 41 49 54 20 27 c7 |ENDCASE.|.WAIT '.|
|00001430| eb b0 d1 27 2b 27 26 5a | 5a 27 2b 27 d7 a8 d2 b5 |...'+'&Z|Z'+'....|
|00001440| ca fd be dd c5 cc b7 c5 | d6 c3 20 42 c7 fd b6 af |........|.. B....|
|00001450| c6 f7 c9 cf c8 bb ba f3 | b0 b4 c8 ce d2 bb bc fc |........|........|
|00001460| bc cc d0 f8 27 0d 0a 53 | 54 4f 52 45 20 2e 54 2e |....'..S|TORE .T.|
|00001470| 20 54 4f 20 46 49 0d 0a | ff 20 04 44 4f 20 57 48 | TO FI..|. .DO WH|
|00001480| 49 4c 45 20 46 49 0d 0a | ff 20 07 49 46 20 2e 4e |ILE FI..|. .IF .N|
|00001490| 4f 54 2e 20 46 49 4c 45 | 28 22 42 3a 41 43 32 22 |OT. FILE|("B:AC2"|
|000014a0| 2b 22 26 5a 22 2b 22 2e | 44 42 46 22 29 0d 0a ff |+"&Z"+".|DBF")...|
|000014b0| 20 07 57 41 49 54 22 ca | fd be dd c5 cc b7 c5 b4 | .WAIT".|........|
|000014c0| ed 2c c7 eb d6 d8 d0 c2 | b0 d1 22 2b 22 26 5a 5a |.,......|.."+"&ZZ|
|000014d0| 22 2b 22 ca fd be dd c5 | cc b7 c5 d6 c3 42 c7 fd |"+".....|.....B..|
|000014e0| b6 af c6 f7 c9 cf 2c c8 | bb ba f3 b0 b4 c8 ce d2 |......,.|........|
|000014f0| bb bc fc bc cc d0 f8 22 | 0d 0a ff 20 07 45 4c 53 |......."|... .ELS|
|00001500| 45 0d 0a ff 20 07 53 54 | 4f 52 45 20 2e 46 2e 54 |E... .ST|ORE .F.T|
|00001510| 4f 20 46 49 20 0d 0a ff | 20 07 45 4e 44 49 46 0d |O FI ...| .ENDIF.|
|00001520| 0a ff 20 04 45 4e 44 44 | 4f 0d 0a 52 45 54 55 52 |.. .ENDD|O..RETUR|
|00001530| 4e ff 20 09 0d 0a 1a ff | 00 ff ff 00 b5 ff 20 08 |N. .....|...... .|
|00001540| ff 2a 04 b1 cf d2 b5 d7 | ca c1 cf b4 e6 b5 b5 28 |.*......|.......(|
|00001550| 43 55 4e 44 41 4e 47 29 | ff 2a 05 0d 0a 43 4c 45 |CUNDANG)|.*...CLE|
|00001560| 41 52 0d 0a 44 4f 20 58 | 5a 43 31 0d 0a 53 54 4f |AR..DO X|ZC1..STO|
|00001570| 52 45 20 22 20 20 22 20 | 54 4f 20 58 0d 0a 40 20 |RE " " |TO X..@ |
|00001580| 35 2c 32 30 20 53 41 59 | 20 22 c7 eb ca e4 c8 eb |5,20 SAY| "......|
|00001590| 26 5a 5a d7 a8 d2 b5 d0 | e8 b4 e6 ff b5 03 c4 c4 |&ZZ.....|........|
|000015a0| ea bc b6 28 38 34 2c 38 | 35 2c 38 36 2c 38 37 ff |...(84,8|5,86,87.|
|000015b0| 2e 03 29 22 20 47 45 54 | 20 58 0d 0a 41 43 32 3d |..)" GET| X..AC2=|
|000015c0| 22 41 43 32 22 2b 22 26 | 5a 22 2b 22 26 58 22 0d |"AC2"+"&|Z"+"&X".|
|000015d0| 0a 41 43 33 3d 22 41 43 | 33 22 2b 22 26 5a 22 2b |.AC3="AC|3"+"&Z"+|
|000015e0| 22 26 58 22 0d 0a 41 43 | 34 3d 22 41 43 34 22 2b |"&X"..AC|4="AC4"+|
|000015f0| 22 26 5a 22 2b 22 26 58 | 22 0d 0a 41 43 35 3d 22 |"&Z"+"&X|"..AC5="|
|00001600| 41 43 35 22 2b 22 26 5a | 22 2b 22 26 58 22 0d 0a |AC5"+"&Z|"+"&X"..|
|00001610| 41 43 36 3d 22 41 43 36 | 22 2b 22 26 5a 22 2b 22 |AC6="AC6|"+"&Z"+"|
|00001620| 26 58 22 0d 0a 55 53 45 | 20 42 3a 41 43 32 26 5a |&X"..USE| B:AC2&Z|
|00001630| 0d 0a 43 4f 50 59 20 54 | 4f 20 41 43 32 20 53 54 |..COPY T|O AC2 ST|
|00001640| 52 55 0d 0a 43 4f 50 59 | 20 54 4f 20 41 43 32 20 |RU..COPY| TO AC2 |
|00001650| 46 4f 52 20 53 55 42 53 | 54 52 28 42 49 4e 2c 31 |FOR SUBS|TR(BIN,1|
|00001660| 2c 32 29 3d 22 26 58 22 | 0d 0a 55 53 45 20 42 3a |,2)="&X"|..USE B:|
|00001670| 41 43 33 26 5a 0d 0a 43 | 4f 50 59 20 54 4f 20 41 |AC3&Z..C|OPY TO A|
|00001680| 43 33 20 53 54 52 55 0d | 0a 43 4f 50 59 20 54 4f |C3 STRU.|.COPY TO|
|00001690| 20 41 43 33 20 46 4f 52 | 20 53 55 42 53 54 52 28 | AC3 FOR| SUBSTR(|
|000016a0| 42 49 4e 2c 31 2c 32 29 | 3d 22 26 58 22 0d 0a 55 |BIN,1,2)|="&X"..U|
|000016b0| 53 45 20 42 3a 41 43 34 | 26 5a 0d 0a 43 4f 50 59 |SE B:AC4|&Z..COPY|
|000016c0| 20 54 4f 20 41 43 34 20 | 53 54 52 55 0d 0a 43 4f | TO AC4 |STRU..CO|
|000016d0| 50 59 20 54 4f 20 41 43 | 34 20 46 4f 52 20 53 55 |PY TO AC|4 FOR SU|
|000016e0| 42 53 54 52 28 42 49 4e | 2c 31 2c 32 29 3d 22 26 |BSTR(BIN|,1,2)="&|
|000016f0| 58 22 0d 0a 55 53 45 20 | 42 3a 41 43 35 26 5a 20 |X"..USE |B:AC5&Z |
|00001700| 0d 0a 43 4f 50 59 20 54 | 4f 20 41 43 35 20 53 54 |..COPY T|O AC5 ST|
|00001710| 52 55 0d 0a 43 4f 50 59 | 20 54 4f 20 41 43 35 20 |RU..COPY| TO AC5 |
|00001720| 46 4f 52 20 53 55 42 53 | 54 52 28 42 49 4e 2c 31 |FOR SUBS|TR(BIN,1|
|00001730| 2c 32 29 3d 22 26 58 22 | 0d 0a 55 53 45 20 42 3a |,2)="&X"|..USE B:|
|00001740| 41 43 38 26 5a 0d 0a 43 | 4f 50 59 20 54 4f 20 41 |AC8&Z..C|OPY TO A|
|00001750| 43 38 20 53 54 52 55 0d | 0a 43 4f 50 59 20 54 4f |C8 STRU.|.COPY TO|
|00001760| 20 41 43 38 20 46 4f 52 | 20 53 55 42 53 54 52 28 | AC8 FOR| SUBSTR(|
|00001770| 42 49 4e 2c 31 2c 32 29 | 3d 22 26 58 22 0d 0a 43 |BIN,1,2)|="&X"..C|
|00001780| 4c 45 41 52 0d 0a 53 54 | 4f 52 45 20 22 20 22 20 |LEAR..ST|ORE " " |
|00001790| 54 4f 20 59 45 53 0d 0a | 40 20 35 2c 31 36 20 53 |TO YES..|@ 5,16 S|
|000017a0| 41 59 20 22 26 5a 5a d7 | a8 d2 b5 26 58 c4 ea bc |AY "&ZZ.|...&X...|
|000017b0| b6 b5 c4 d1 a7 bc ae d7 | ca c1 cf d2 d1 b4 e6 b5 |........|........|
|000017c0| b5 2c ca c7 b7 f1 d2 aa | b4 d3 d6 f7 bf e2 d6 d0 |.,......|........|
|000017d0| c7 e5 b3 fd 20 8d 0a 28 | 59 2f 4e 29 3f 22 20 47 |.... ..(|Y/N)?" G|
|000017e0| 45 54 20 59 45 53 0d 0a | 52 45 41 44 0d 0a 20 20 |ET YES..|READ.. |
|000017f0| 49 46 20 55 50 50 45 52 | 28 59 45 53 29 3d 22 59 |IF UPPER|(YES)="Y|
|00001800| 22 0d 0a ff 20 05 55 53 | 45 20 42 3a 41 43 32 26 |"... .US|E B:AC2&|
|00001810| 5a 0d 0a ff 20 05 44 45 | 4c 45 54 45 20 46 4f 52 |Z... .DE|LETE FOR|
|00001820| 20 53 55 42 53 54 52 28 | 42 49 4e 2c 31 2c 32 29 | SUBSTR(|BIN,1,2)|
|00001830| 3d 22 26 58 22 20 2e 41 | 4e 44 2e 20 42 31 38 3c |="&X" .A|ND. B18<|
|00001840| 3e 22 b8 b4 d1 a7 22 0d | 0a ff 20 05 50 41 43 4b |>"....".|.. .PACK|
|00001850| 0d 0a ff 20 05 55 53 45 | 20 42 3a 41 43 33 26 5a |... .USE| B:AC3&Z|
|00001860| 0d 0a ff 20 05 44 45 4c | 45 54 45 20 46 4f 52 20 |... .DEL|ETE FOR |
|00001870| 53 55 42 53 54 52 28 42 | 49 4e 2c 31 2c 32 29 3d |SUBSTR(B|IN,1,2)=|
|00001880| 22 26 58 22 0d 0a ff 20 | 05 50 41 43 4b 0d 0a ff |"&X"... |.PACK...|
|00001890| 20 05 55 53 45 20 42 3a | 41 43 34 26 5a 0d 0a ff | .USE B:|AC4&Z...|
|000018a0| 20 05 44 45 4c 45 54 45 | 20 46 4f 52 20 53 55 42 | .DELETE| FOR SUB|
|000018b0| 53 54 52 28 42 49 4e 2c | 31 2c 32 29 3d 22 26 58 |STR(BIN,|1,2)="&X|
|000018c0| 22 0d 0a ff 20 05 50 41 | 43 4b 0d 0a ff 20 05 55 |"... .PA|CK... .U|
|000018d0| 53 45 20 42 3a 41 43 35 | 26 5a 0d 0a ff 20 05 44 |SE B:AC5|&Z... .D|
|000018e0| 45 4c 45 54 45 20 46 4f | 52 20 53 55 42 53 54 52 |ELETE FO|R SUBSTR|
|000018f0| 28 42 49 4e 2c 31 2c 32 | 29 3d 22 26 58 22 0d 0a |(BIN,1,2|)="&X"..|
|00001900| ff 20 05 50 41 43 4b 0d | 0a ff 20 05 55 53 45 20 |. .PACK.|.. .USE |
|00001910| 42 3a 41 43 38 26 5a 0d | 0a ff 20 05 44 45 4c 45 |B:AC8&Z.|.. .DELE|
|00001920| 54 45 20 46 4f 52 20 53 | 55 42 53 54 52 28 42 49 |TE FOR S|UBSTR(BI|
|00001930| 4e 2c 31 2c 32 29 3d 22 | 26 58 22 0d 0a ff 20 05 |N,1,2)="|&X"... .|
|00001940| 50 41 43 4b 0d 0a ff 20 | 03 45 4e 44 49 46 ff 20 |PACK... |.ENDIF. |
|00001950| 04 0d 0a 57 41 49 54 20 | 22 c7 eb b8 fc bb bb 42 |...WAIT |"......B|
|00001960| c7 fd b6 af c6 f7 b5 c4 | ca fd be dd c5 cc ce aa |........|........|
|00001970| 26 5a 5a d7 a8 d2 b5 b5 | c4 b3 c9 bc a8 c5 cc 2c |&ZZ.....|.......,|
|00001980| c8 bb ba f3 b0 b4 c8 ce | d2 bb bc fc bc cc d0 f8 |........|........|
|00001990| 2e 22 0d 0a 55 53 45 20 | 42 3a 41 43 36 26 5a 0d |."..USE |B:AC6&Z.|
|000019a0| 0a 43 4f 50 59 20 54 4f | 20 41 43 36 20 53 54 52 |.COPY TO| AC6 STR|
|000019b0| 55 0d 0a 43 4f 50 59 20 | 54 4f 20 41 43 36 20 46 |U..COPY |TO AC6 F|
|000019c0| 4f 52 20 53 55 42 53 54 | 52 28 42 49 4e 2c 31 2c |OR SUBST|R(BIN,1,|
|000019d0| 32 29 3d 22 26 58 22 0d | 0a 20 20 49 46 20 55 50 |2)="&X".|. IF UP|
|000019e0| 50 45 52 28 59 45 53 29 | 3d 22 59 22 0d 0a ff 20 |PER(YES)|="Y"... |
|000019f0| 05 44 45 4c 45 54 45 20 | 46 4f 52 20 53 55 42 53 |.DELETE |FOR SUBS|
|00001a00| 54 52 28 42 49 4e 2c 31 | 2c 32 29 3d 22 26 58 22 |TR(BIN,1|,2)="&X"|
|00001a10| 0d 0a ff 20 05 50 41 43 | 4b 0d 0a 20 20 45 4e 44 |... .PAC|K.. END|
|00001a20| 49 46 0d 0a 43 4f 50 59 | 20 46 49 4c 45 20 42 3a |IF..COPY| FILE B:|
|00001a30| 4b 4d 36 26 5a 26 58 2e | 44 42 46 20 54 4f 20 4b |KM6&Z&X.|DBF TO K|
|00001a40| 4d 26 5a 26 58 2e 44 42 | 46 0d 0a 20 20 49 46 20 |M&Z&X.DB|F.. IF |
|00001a50| 55 50 50 45 52 28 59 45 | 53 29 3d 22 59 22 0d 0a |UPPER(YE|S)="Y"..|
|00001a60| ff 20 05 44 45 4c 45 54 | 45 20 46 49 4c 45 20 42 |. .DELET|E FILE B|
|00001a70| 3a 4b 4d 36 26 5a 26 58 | 2e 44 42 46 0d 0a 20 20 |:KM6&Z&X|.DBF.. |
|00001a80| 45 4e 44 49 46 0d 0a 57 | 41 49 54 20 22 b4 e6 b5 |ENDIF..W|AIT "...|
|00001a90| b5 b9 a4 d7 f7 d2 d1 bd | e1 ca f8 2c c7 eb b0 d1 |........|...,....|
|00001aa0| b4 e6 b5 b5 ca fd be dd | c5 cc b4 d3 41 c7 fd b6 |........|....A...|
|00001ab0| af c6 f7 c8 a1 b3 f6 2c | b2 a2 b7 c5 c8 eb d6 f7 |.......,|........|
|00001ac0| b3 cc d0 f2 c5 cc 2c b0 | b4 c8 20 8d 0a d2 bb bc |......,.|.. .....|
|00001ad0| fc bc cc d0 f8 22 0d 0a | 52 45 54 55 52 4e 0d 0a |....."..|RETURN..|
|00001ae0| 1a ff 00 2f ff 20 0a ff | 2a 05 d6 f7 bf d8 b2 cb |.../. ..|*.......|
|00001af0| b5 a5 28 4d 41 49 29 ff | 2a 05 0d 0a 53 45 54 20 |..(MAI).|*...SET |
|00001b00| 54 41 4c 4b 20 4f 46 46 | 0d 0a 44 4f 20 57 48 49 |TALK OFF|..DO WHI|
|00001b10| 4c 20 2e 54 2e 0d 0a ff | 20 03 43 4c 45 41 52 0d |L .T....| .CLEAR.|
|00001b20| 0a ff 20 03 40 20 30 2c | 31 36 20 53 41 59 20 27 |.. .@ 0,|16 SAY '|
|00001b30| ff 20 08 bb aa c4 cf ca | a6 b7 b6 b4 f3 d1 a7 ba |. ......|........|
|00001b40| af ca da b2 bf d1 a7 bc | ae b9 dc c0 ed cf b5 cd |........|........|
|00001b50| b3 20 20 27 0d 0a ff 20 | 03 40 20 31 2c 31 36 20 |. '... |.@ 1,16 |
|00001b60| 53 41 59 20 27 ff 20 03 | b1 be cf b5 cd b3 d3 d0 |SAY '. .|........|
|00001b70| d2 d4 cf c2 b9 a6 c4 dc | 3a 20 20 27 0d 0a ff 20 |........|: '... |
|00001b80| 03 40 20 32 2c 31 36 20 | 53 41 59 20 27 ff 20 10 |.@ 2,16 |SAY '. .|
|00001b90| 31 2e 20 d1 a7 c9 fa d7 | a2 b2 e1 b5 c7 bc c7 ff |1. .....|........|
|00001ba0| 20 03 27 0d 0a ff 20 03 | 40 20 33 2c 31 36 20 53 | .'... .|@ 3,16 S|
|00001bb0| 41 59 20 27 ff 20 10 32 | 2e 20 d1 a7 c9 fa b3 c9 |AY '. .2|. ......|
|00001bc0| bc a8 b5 c7 bc c7 20 27 | 0d 0a ff 20 03 40 20 34 |...... '|... .@ 4|
|00001bd0| 2c 31 36 20 53 41 59 20 | 27 ff 20 10 33 2e 20 d1 |,16 SAY |'. .3. .|
|00001be0| a7 bc ae b8 fc b8 c4 b5 | c7 bc c7 28 b0 fc c0 a8 |........|...(....|
|00001bf0| d4 f6 2c c9 be 29 20 27 | 0d 0a ff 20 03 40 20 35 |..,..) '|... .@ 5|
|00001c00| 2c 31 36 20 53 41 59 20 | 27 ff 20 10 34 2e 20 b2 |,16 SAY |'. .4. .|
|00001c10| e9 d1 af 2c cd b3 bc c6 | 2c b4 f2 d3 a1 b1 ed b8 |...,....|,.......|
|00001c20| f1 ff 20 03 27 0d 0a ff | 20 03 40 20 36 2c 31 36 |.. .'...| .@ 6,16|
|00001c30| 20 73 61 79 20 27 ff 20 | 10 35 2e 20 bd e1 d2 b5 | say '. |.5. ....|
|00001c40| 2c b1 cf d2 b5 b5 c7 bc | c7 27 0d 0a ff 20 03 40 |,.......|.'... .@|
|00001c50| 20 37 2c 31 36 20 53 41 | 59 20 27 ff 20 10 36 2e | 7,16 SA|Y '. .6.|
|00001c60| 20 cf b5 cd b3 ce ac bb | a4 f7 20 20 27 0d 0a ff | .......|.. '...|
|00001c70| 20 03 40 20 38 2c 31 36 | 20 53 41 59 20 27 ff 20 | .@ 8,16| SAY '. |
|00001c80| 10 37 2e 20 cd a3 d6 b9 | b2 d9 d7 f7 20 20 27 0d |.7. ....|.... '.|
|00001c90| 0a ff 20 03 50 55 42 4c | 49 43 20 58 2c 5a 2c 59 |.. .PUBL|IC X,Z,Y|
|00001ca0| 2c 53 48 41 31 2c 4c 4c | 4f 2c 5a 5a 2c 53 48 42 |,SHA1,LL|O,ZZ,SHB|
|00001cb0| 31 2c 53 48 42 32 2c 46 | 45 4e 2c 4d 46 45 4e 0d |1,SHB2,F|EN,MFEN.|
|00001cc0| 0a ff 20 03 53 54 4f 52 | 45 20 30 20 54 4f 20 4c |.. .STOR|E 0 TO L|
|00001cd0| 4c 4f 0d 0a ff 20 03 40 | 20 39 2c 30 20 53 41 59 |LO... .@| 9,0 SAY|
|00001ce0| 20 27 c7 eb ca e4 c8 eb | b9 a6 c4 dc b1 e0 ba c5 | '......|........|
|00001cf0| 3a 28 31 5f 5f 37 29 27 | 20 47 45 54 20 4c 4c 4f |:(1__7)'| GET LLO|
|00001d00| 20 52 41 4e 47 45 20 31 | 2c 37 0d 0a ff 20 03 52 | RANGE 1|,7... .R|
|00001d10| 45 41 44 0d 0a ff 20 03 | 49 46 20 4c 4c 4f 20 3d |EAD... .|IF LLO =|
|00001d20| 20 31 20 0d 0a ff 20 06 | 44 4f 20 58 5a 43 0d 0a | 1 ... .|DO XZC..|
|00001d30| ff 20 06 44 4f 20 5a 48 | 55 43 45 20 0d 0a ff 20 |. .DO ZH|UCE ... |
|00001d40| 06 45 4c 53 45 0d 0a ff | 20 06 49 46 20 4c 4c 4f |.ELSE...| .IF LLO|
|00001d50| 20 3d 32 20 0d 0a ff 20 | 09 44 4f 20 58 5a 43 0d | =2 ... |.DO XZC.|
|00001d60| 0a ff 20 09 44 4f 20 4c | 46 49 0d 0a ff 20 09 45 |.. .DO L|FI... .E|
|00001d70| 4c 53 45 0d 0a ff 20 0b | 49 46 20 4c 4c 4f 20 3d |LSE... .|IF LLO =|
|00001d80| 20 33 20 0d 0a ff 20 0e | 44 4f 20 58 5a 43 0d 0a | 3 ... .|DO XZC..|
|00001d90| ff 20 0e 44 4f 20 58 4a | 47 47 0d 0a ff 20 0e 45 |. .DO XJ|GG... .E|
|00001da0| 4c 53 45 0d 0a ff 20 0e | 49 46 20 4c 4c 4f 20 3d |LSE... .|IF LLO =|
|00001db0| 20 20 34 20 20 0d 0a ff | 20 11 44 4f 20 58 5a 43 | 4 ...| .DO XZC|
|00001dc0| 0d 0a ff 20 11 44 4f 20 | 43 53 44 0d 0a ff 20 11 |... .DO |CSD... .|
|00001dd0| 43 4c 4f 53 45 20 44 41 | 54 41 42 41 53 45 53 0d |CLOSE DA|TABASES.|
|00001de0| 0a ff 20 11 45 4c 53 45 | 0d 0a ff 20 11 49 46 20 |.. .ELSE|... .IF |
|00001df0| 4c 4c 4f 20 3d 20 35 20 | 0d 0a ff 20 14 44 4f 20 |LLO = 5 |... .DO |
|00001e00| 58 5a 43 0d 0a ff 20 14 | 44 4f 20 4a 42 0d 0a ff |XZC... .|DO JB...|
|00001e10| 20 14 45 4c 53 45 0d 0a | ff 20 14 49 46 20 4c 4c | .ELSE..|. .IF LL|
|00001e20| 4f 20 3d 20 36 20 0d 0a | ff 20 17 44 4f 20 57 48 |O = 6 ..|. .DO WH|
|00001e30| 4d 4b 0d 0a ff 20 17 45 | 4c 53 45 0d 0a ff 20 17 |MK... .E|LSE... .|
|00001e40| 49 46 20 4c 4c 4f 3d 20 | 37 0d 0a ff 20 1a 51 55 |IF LLO= |7... .QU|
|00001e50| 49 54 0d 0a ff 20 17 45 | 4e 44 49 46 0d 0a ff 20 |IT... .E|NDIF... |
|00001e60| 14 45 4e 44 49 46 0d 0a | ff 20 12 45 4e 44 49 46 |.ENDIF..|. .ENDIF|
|00001e70| 0d 0a ff 20 10 45 4e 44 | 49 46 0d 0a ff 20 0e 45 |... .END|IF... .E|
|00001e80| 4e 44 49 46 0d 0a ff 20 | 0a 45 4e 44 49 46 0d 0a |NDIF... |.ENDIF..|
|00001e90| ff 20 07 45 4e 44 49 46 | 0d 0a ff 20 03 45 4e 44 |. .ENDIF|... .END|
|00001ea0| 44 4f 20 1a ff 00 4f 44 | 4f 20 57 48 49 4c 45 20 |DO ...OD|O WHILE |
|00001eb0| 2e 54 2e 0d 0a 43 4c 45 | 41 52 0d 0a 53 54 4f 52 |.T...CLE|AR..STOR|
|00001ec0| 45 20 22 20 22 20 54 4f | 20 4d 47 47 0d 0a 40 20 |E " " TO| MGG..@ |
|00001ed0| 31 2c 32 30 20 53 41 59 | 20 22 ff 2a 0a 20 d1 a7 |1,20 SAY| ".*. ..|
|00001ee0| bc ae b8 fc b8 c4 b5 c7 | bc c7 20 ff 2a 0a 22 0d |........|.. .*.".|
|00001ef0| 0a 40 20 32 2c 33 30 20 | 53 41 59 20 22 31 2e 20 |.@ 2,30 |SAY "1. |
|00001f00| bc f2 c0 fa b8 fc b8 c4 | 22 0d 0a 40 20 33 2c 33 |........|"..@ 3,3|
|00001f10| 30 20 53 41 59 20 22 32 | 2e 20 b3 c9 bc a8 b8 fc |0 SAY "2|. ......|
|00001f20| b8 c4 22 0d 0a 40 20 34 | 2c 33 30 20 53 41 59 20 |.."..@ 4|,30 SAY |
|00001f30| 22 33 2e 20 b9 a4 d7 f7 | b5 a5 ce bb b5 c4 b1 e4 |"3. ....|........|
|00001f40| b6 af 22 0d 0a 40 20 35 | 2c 33 30 20 53 41 59 20 |.."..@ 5|,30 SAY |
|00001f50| 22 34 2e 20 d0 dd 2c b8 | b4 2c d7 aa 2c cd cb d1 |"4. ..,.|.,..,...|
|00001f60| a7 b5 c7 bc c7 22 0d 0a | 40 20 36 2c 33 30 20 53 |....."..|@ 6,30 S|
|00001f70| 41 59 20 22 35 2e 20 bd | b1 2c b3 cd b5 c7 bc c7 |AY "5. .|.,......|
|00001f80| 22 0d 0a 40 20 37 2c 33 | 30 20 53 41 59 20 22 30 |"..@ 7,3|0 SAY "0|
|00001f90| 2e 20 cd cb b3 f6 22 0d | 0a 40 20 38 2c 32 36 20 |. ....".|.@ 8,26 |
|00001fa0| 53 41 59 20 22 c7 eb d1 | a1 d4 f1 b9 a6 c4 dc bc |SAY "...|........|
|00001fb0| fc 28 30 ff 2d 04 35 29 | 22 20 47 45 54 20 4d 47 |.(0.-.5)|" GET MG|
|00001fc0| 47 20 0d 0a 52 45 41 44 | 0d 0a 49 46 20 4d 47 47 |G ..READ|..IF MGG|
|00001fd0| 3d 22 30 22 0d 0a ff 20 | 03 52 45 54 55 52 4e 0d |="0"... |.RETURN.|
|00001fe0| 0a 45 4e 44 49 46 0d 0a | 44 4f 20 58 48 43 5a 0d |.ENDIF..|DO XHCZ.|
|00001ff0| 0a 44 4f 20 43 41 53 45 | 0d 0a ff 20 03 43 41 53 |.DO CASE|... .CAS|
|00002000| 45 20 4d 47 47 3d 20 22 | 31 22 0d 0a ff 20 03 44 |E MGG= "|1"... .D|
|00002010| 4f 20 54 4a 4c 0d 0a ff | 20 03 43 41 53 45 20 4d |O TJL...| .CASE M|
|00002020| 47 47 3d 22 32 22 0d 0a | ff 20 03 44 4f 20 43 4a |GG="2"..|. .DO CJ|
|00002030| 47 0d 0a ff 20 03 43 41 | 53 45 20 4d 47 47 3d 22 |G... .CA|SE MGG="|
|00002040| 33 22 0d 0a ff 20 03 44 | 4f 20 47 5a 0d 0a ff 20 |3"... .D|O GZ... |
|00002050| 03 43 41 53 45 20 4d 47 | 47 3d 22 34 22 0d 0a ff |.CASE MG|G="4"...|
|00002060| 20 03 44 4f 20 5a 54 0d | 0a ff 20 03 43 41 53 45 | .DO ZT.|.. .CASE|
|00002070| 20 4d 47 47 3d 22 35 22 | 0d 0a ff 20 03 44 4f 20 | MGG="5"|... .DO |
|00002080| 5a 43 0d 0a ff 20 03 45 | 4e 44 43 41 53 45 0d 0a |ZC... .E|NDCASE..|
|00002090| 45 4e 44 44 4f 0d 0a 1a | ff 20 08 ff 2a 05 d7 a2 |ENDDO...|. ..*...|
|000020a0| b2 e1 b5 c7 bc c7 28 5a | 48 55 43 45 29 ff 2a 05 |......(Z|HUCE).*.|
|000020b0| 0d 0a 53 54 4f 52 20 2e | 54 2e 20 54 4f 20 54 31 |..STOR .|T. TO T1|
|000020c0| 0d 0a 44 4f 20 57 48 49 | 4c 45 20 54 31 0d 0a ff |..DO WHI|LE T1...|
|000020d0| 20 03 43 4c 45 41 52 0d | 0a ff 20 03 40 20 31 2c | .CLEAR.|.. .@ 1,|
|000020e0| 32 30 20 53 41 59 20 22 | ff 2a 08 d1 a7 c9 fa d7 |20 SAY "|.*......|
|000020f0| a2 b2 e1 d1 a1 d4 f1 b2 | cb b5 a5 ff 2a 08 22 0d |........|....*.".|
|00002100| 0a ff 20 03 40 20 33 2c | 32 36 20 53 41 59 20 22 |.. .@ 3,|26 SAY "|
|00002110| 30 ff 5f 04 cd cb b3 f6 | 22 0d 0a ff 20 03 40 20 |0._.....|"... .@ |
|00002120| 34 2c 32 36 20 53 41 59 | 20 22 31 ff 5f 04 d0 c2 |4,26 SAY| "1._...|
|00002130| c9 fa d7 a2 b2 e1 22 0d | 0a ff 20 03 40 20 35 2c |......".|.. .@ 5,|
|00002140| 32 36 20 53 41 59 20 22 | 32 ff 5f 04 be c9 c9 fa |26 SAY "|2._.....|
|00002150| d7 a2 b2 e1 22 0d 0a ff | 20 03 53 54 4f 52 45 20 |...."...| .STORE |
|00002160| 30 20 54 4f 20 4c 4c 4f | 0d 0a ff 20 03 40 20 38 |0 TO LLO|... .@ 8|
|00002170| 2c 31 36 20 53 41 59 20 | 22 c7 eb d1 a1 d4 f1 b9 |,16 SAY |".......|
|00002180| a6 c4 dc bc fc ca e4 c8 | eb 20 28 30 2c 31 2c 32 |........|. (0,1,2|
|00002190| 29 22 20 47 45 54 20 4c | 4c 4f 20 52 41 4e 47 20 |)" GET L|LO RANG |
|000021a0| 30 2c 32 0d 0a ff 20 03 | 52 45 41 44 0d 0a ff 20 |0,2... .|READ... |
|000021b0| 03 44 4f 20 43 41 53 45 | 0d 0a ff 20 06 43 41 53 |.DO CASE|... .CAS|
|000021c0| 45 20 4c 4c 4f 3d 30 0d | 0a ff 20 0b 43 4c 45 41 |E LLO=0.|.. .CLEA|
|000021d0| 52 0d 0a ff 20 0b 40 20 | 38 2c 31 35 20 53 41 59 |R... .@ |8,15 SAY|
|000021e0| 20 22 d7 a2 b2 e1 bd e1 | ca f8 22 0d 0a ff 20 0b | "......|.."... .|
|000021f0| 52 45 54 55 52 4e 0d 0a | ff 20 07 43 41 53 45 20 |RETURN..|. .CASE |
|00002200| 4c 4c 4f 3d 31 0d 0a ff | 20 0c 44 4f 20 58 49 4e |LLO=1...| .DO XIN|
|00002210| 0d 0a ff 20 07 43 41 53 | 45 20 4c 4c 4f 3d 32 0d |... .CAS|E LLO=2.|
|00002220| 0a ff 20 0c 44 4f 20 4a | 49 55 0d 0a ff 20 04 45 |.. .DO J|IU... .E|
|00002230| 4e 44 43 41 53 45 0d 0a | 45 4e 44 44 4f 0d 0a 0d |NDCASE..|ENDDO...|
|00002240| 0a 1a ff 00 0a ff 20 0d | ff 2a 05 d0 c2 c9 fa d7 |...... .|.*......|
|00002250| a2 b2 e1 28 58 49 4e 29 | ff 2a 05 0d 0a 44 4f 20 |...(XIN)|.*...DO |
|00002260| 58 48 43 5a 0d 0a 43 4c | 45 41 52 0d 0a 53 54 4f |XHCZ..CL|EAR..STO|
|00002270| 52 45 20 2e 54 2e 20 54 | 4f 20 54 32 0d 0a 44 4f |RE .T. T|O T2..DO|
|00002280| 20 57 48 49 4c 45 20 54 | 32 0d 0a ff 20 03 55 53 | WHILE T|2... .US|
|00002290| 45 20 42 3a 41 43 32 26 | 5a 0d 0a ff 20 03 53 54 |E B:AC2&|Z... .ST|
|000022a0| 4f 52 45 20 22 20 22 20 | 54 4f 20 59 45 53 31 2c |ORE " " |TO YES1,|
|000022b0| 59 45 53 32 0d 0a ff 20 | 03 53 54 4f 52 45 20 22 |YES2... |.STORE "|
|000022c0| ff 20 08 22 20 54 4f 20 | 4d 4d 49 4e 47 0d 0a ff |. ." TO |MMING...|
|000022d0| 20 03 41 50 50 45 20 42 | 4c 41 4e 0d 0a ff 20 03 | .APPE B|LAN... .|
|000022e0| 40 20 30 2c 20 31 30 20 | 53 41 59 20 22 ff 2a 04 |@ 0, 10 |SAY ".*.|
|000022f0| c7 eb cc ee c8 eb bc f2 | c0 fa b1 ed 28 cc ee c8 |........|....(...|
|00002300| eb b9 fd b3 cc d3 d0 b4 | ed ce f3 ca b9 d3 c3 3c |........|.......<|
|00002310| 2d 2d b7 b5 bb d8 d0 de | b8 c4 29 ff 2a 05 22 0d |--......|..).*.".|
|00002320| 0a ff 20 03 40 20 32 2c | 38 20 53 41 59 20 22 b5 |.. .@ 2,|8 SAY ".|
|00002330| d8 2c ca d0 3a 22 20 47 | 45 54 20 44 49 0d 0a ff |.,..:" G|ET DI...|
|00002340| 20 03 40 20 32 2c 32 34 | 20 53 41 59 20 22 d1 a7 | .@ 2,24| SAY "..|
|00002350| ba c5 3a 22 2b 53 48 41 | 31 0d 0a ff 20 03 40 20 |..:"+SHA|1... .@ |
|00002360| 32 2c 33 36 20 53 41 59 | 20 22 b0 e0 b1 f0 3a 22 |2,36 SAY| "....:"|
|00002370| 20 47 45 54 20 58 49 0d | 0a ff 20 03 40 20 32 2c | GET XI.|.. .@ 2,|
|00002380| 34 39 20 53 41 59 20 22 | d0 d5 c3 fb 3a 22 20 47 |49 SAY "|....:" G|
|00002390| 45 54 20 4d 4d 49 4e 47 | 0d 0a ff 20 03 40 20 32 |ET MMING|... .@ 2|
|000023a0| 2c 36 32 20 53 41 59 20 | 22 d0 d4 b1 f0 3a 22 20 |,62 SAY |"....:" |
|000023b0| 47 45 54 20 42 31 0d 0a | ff 20 03 40 20 33 2c 38 |GET B1..|. .@ 3,8|
|000023c0| 20 53 41 59 20 22 c4 ea | c1 e4 3a 22 20 47 45 54 | SAY "..|..:" GET|
|000023d0| 20 42 32 0d 0a ff 20 03 | 40 20 33 2c 31 36 20 53 | B2... .|@ 3,16 S|
|000023e0| 41 59 20 22 bc ae b9 e1 | 3a 22 20 47 45 54 20 42 |AY "....|:" GET B|
|000023f0| 33 0d 0a ff 20 03 40 20 | 33 2c 33 36 20 53 41 59 |3... .@ |3,36 SAY|
|00002400| 20 22 d1 a7 d6 c6 3a 22 | 20 47 45 54 20 4e 49 41 | "....:"| GET NIA|
|00002410| 4e 0d 0a ff 20 03 40 20 | 33 2c 34 36 20 53 41 59 |N... .@ |3,46 SAY|
|00002420| 20 22 d5 fe d6 ce c3 e6 | c4 bf 3a 22 20 47 45 aa | "......|..:" GE.|
|00002430| 16 ff 54 20 42 34 0d 0a | ff 20 03 40 20 34 2c 38 |..T B4..|. .@ 4,8|
|00002440| 20 53 41 59 20 22 ce c4 | bb af b3 cc b6 c8 3a 22 | SAY "..|......:"|
|00002450| 20 47 45 54 20 42 35 0d | 0a ff 20 03 40 20 34 2c | GET B5.|.. .@ 4,|
|00002460| 32 32 20 53 41 59 20 22 | c3 f1 d7 e5 3a 22 20 47 |22 SAY "|....:" G|
|00002470| 45 54 20 42 36 0d 0a ff | 20 03 40 20 35 2c 38 20 |ET B6...| .@ 5,8 |
|00002480| 53 41 59 20 22 b5 a3 c8 | ce ba ce d6 d6 c9 e7 bb |SAY "...|........|
|00002490| e1 b9 a4 d7 f7 22 20 47 | 45 54 20 42 37 0d 0a ff |....." G|ET B7...|
|000024a0| 20 03 40 20 36 2c 38 20 | 53 41 59 20 22 b9 a4 c1 | .@ 6,8 |SAY "...|
|000024b0| e4 3a 22 20 47 45 54 20 | 42 38 0d 0a ff 20 03 40 |.:" GET |B8... .@|
|000024c0| 20 36 2c 31 36 20 53 41 | 59 20 22 cf d6 c8 ce d6 | 6,16 SA|Y ".....|
|000024d0| b0 ce f1 3a 22 20 47 45 | 54 20 42 39 0d 0a ff 20 |...:" GE|T B9... |
|000024e0| 03 40 20 37 2c 38 20 53 | 41 59 20 22 c8 ce d6 b0 |.@ 7,8 S|AY "....|
|000024f0| b5 a5 ce bb b5 d8 d6 b7 | 3a 22 20 47 45 54 20 42 |........|:" GET B|
|00002500| 31 30 0d 0a ff 20 03 40 | 20 38 2c 38 20 53 41 59 |10... .@| 8,8 SAY|
|00002510| 20 22 bc d2 cd a5 b5 d8 | d6 b7 3a 22 20 47 45 54 | "......|..:" GET|
|00002520| 20 42 31 31 0d 0a ff 20 | 03 40 20 39 2c 38 20 53 | B11... |.@ 9,8 S|
|00002530| 41 59 20 22 d7 ee ba f3 | d1 a7 c0 fa bc b0 cb f9 |AY "....|........|
|00002540| d4 da d1 a7 d0 a3 3a 20 | 22 20 47 45 54 20 42 31 |......: |" GET B1|
|00002550| 32 0d 0a ff 20 03 52 45 | 41 44 20 0d 0a ff 20 03 |2... .RE|AD ... .|
|00002560| 40 20 31 2c 33 30 20 53 | 41 59 20 22 ca e4 c8 eb |@ 1,30 S|AY "....|
|00002570| b6 d4 b7 f1 20 3f 20 51 | cd cb b3 f6 2e 20 28 59 |.... ? Q|..... (Y|
|00002580| 2f 4e 2f 51 29 22 20 47 | 45 54 20 59 45 53 31 20 |/N/Q)" G|ET YES1 |
|00002590| 0d 0a ff 20 03 52 45 41 | 44 20 0d 0a ff 20 03 49 |... .REA|D ... .I|
|000025a0| 46 20 55 50 50 45 52 28 | 59 45 53 31 29 3d 22 4e |F UPPER(|YES1)="N|
|000025b0| 22 0d 0a ff 20 06 40 20 | 39 2c 31 ff 20 09 0d 0a |"... .@ |9,1. ...|
|000025c0| ff 20 06 40 20 39 2c 38 | 20 53 41 59 20 22 c7 eb |. .@ 9,8| SAY "..|
|000025d0| d0 de b8 c3 22 0d 0a ff | 20 06 4c 4f 4f 50 0d 0a |...."...| .LOOP..|
|000025e0| ff 20 03 45 4e 44 49 46 | 0d 0a ff 20 03 49 46 20 |. .ENDIF|... .IF |
|000025f0| 55 50 50 45 52 28 59 45 | 53 31 29 3d 22 51 22 0d |UPPER(YE|S1)="Q".|
|00002600| 0a ff 20 03 52 45 54 55 | 52 4e 0d 0a ff 20 03 45 |.. .RETU|RN... .E|
|00002610| 4e 44 49 46 0d 0a ff 20 | 03 40 20 39 2c 30 20 0d |NDIF... |.@ 9,0 .|
|00002620| 0a ff 20 03 52 45 50 4c | 20 42 49 4e 20 57 49 54 |.. .REPL| BIN WIT|
|00002630| 48 20 53 48 41 31 2c 4d | 49 4e 47 20 57 49 54 48 |H SHA1,M|ING WITH|
|00002640| 20 4d 4d 49 4e 47 0d 0a | ff 20 03 55 53 45 20 42 | MMING..|. .USE B|
|00002650| 3a 41 43 38 26 5a 20 0d | 0a ff 20 03 41 50 50 45 |:AC8&Z .|.. .APPE|
|00002660| 4e 44 20 42 4c 41 4e 4b | 0d 0a ff 20 03 52 45 50 |ND BLANK|... .REP|
|00002670| 4c 20 42 49 4e 20 57 49 | 54 48 20 53 48 41 31 2c |L BIN WI|TH SHA1,|
|00002680| 59 49 20 57 49 54 48 20 | 31 2c 4d 49 4e 47 20 57 |YI WITH |1,MING W|
|00002690| 49 54 48 20 4d 4d 49 4e | 47 0d 0a ff 20 03 40 20 |ITH MMIN|G... .@ |
|000026a0| 39 2c 38 20 53 41 59 20 | 22 bc cc d0 f8 ca e4 c8 |9,8 SAY |".......|
|000026b0| eb b7 f1 3f 20 d1 a7 ba | c5 2b 31 28 59 29 2c ca |...? ...|.+1(Y),.|
|000026c0| e4 c8 eb d1 a7 ba c5 28 | 58 29 2c bd e1 ca f8 28 |.......(|X),....(|
|000026d0| 4e 29 22 20 47 45 54 20 | 59 45 53 32 0d 0a ff 20 |N)" GET |YES2... |
|000026e0| 03 52 45 41 44 0d 0a ff | 20 03 49 46 20 55 50 50 |.READ...| .IF UPP|
|000026f0| 45 52 28 59 45 53 32 29 | 3d 22 4e 22 0d 0a ff 20 |ER(YES2)|="N"... |
|00002700| 06 52 45 54 55 52 4e 0d | 0a ff 20 03 45 4e 44 49 |.RETURN.|.. .ENDI|
|00002710| 46 0d 0a ff 20 03 49 46 | 20 55 50 50 45 52 28 59 |F... .IF| UPPER(Y|
|00002720| 45 53 32 29 3d 22 59 22 | 0d 0a ff 20 06 53 48 41 |ES2)="Y"|... .SHA|
|00002730| 41 3d 56 41 4c 28 53 48 | 41 31 29 2b 31 0d 0a ff |A=VAL(SH|A1)+1...|
|00002740| 20 06 53 48 41 31 3d 53 | 54 52 28 53 48 41 41 2c | .SHA1=S|TR(SHAA,|
|00002750| 37 29 0d 0a ff 20 06 4c | 4f 4f 50 0d 0a ff 20 04 |7)... .L|OOP... .|
|00002760| 45 4c 53 45 0d 0a ff 20 | 06 53 54 4f 52 20 2e 46 |ELSE... |.STOR .F|
|00002770| 2e 20 54 4f 20 54 32 0d | 0a ff 20 04 45 4e 44 49 |. TO T2.|.. .ENDI|
|00002780| 46 0d 0a 20 20 45 4e 44 | 44 4f 0d 0a 52 45 54 55 |F.. END|DO..RETU|
|00002790| 52 4e 0d 0a 1a d7 f7 d2 | d1 bd e1 ca f8 2c c7 eb |RN......|.....,..|
|000027a0| b0 d1 b4 e6 b5 b5 ca fd | be dd c5 cc b4 d3 41 c7 |........|......A.|
|000027b0| fd b6 af c6 f7 c8 a1 b3 | f6 2c b2 a2 b7 c5 c8 eb |........|.,......|
|000027c0| d6 f7 b3 cc d0 f2 c5 cc | 2c b0 b4 c8 20 8d 0a d2 |........|,... ...|
|000027d0| bb bc fc bc cc d0 f8 22 | 0d 0a 52 45 54 55 52 4e |......."|..RETURN|
|000027e0| 0d 0a 1a ff 00 2f 43 4c | 45 41 52 0d 0a 55 53 45 |...../CL|EAR..USE|
|000027f0| 20 42 3a 41 43 32 26 5a | 0d 0a 4c 4f 43 41 54 45 | B:AC2&Z|..LOCATE|
|00002800| 20 46 4f 52 20 42 49 4e | 3d 53 48 41 31 20 0d 0a | FOR BIN|=SHA1 ..|
|00002810| 44 4f 20 42 3a 54 4a 4c | 0d 0a 52 45 54 55 52 4e |DO B:TJL|..RETURN|
|00002820| 0d 0a 1a ff 20 0c 44 4f | 20 4a 42 0d 0a ff 20 14 |.... .DO| JB... .|
|00002830| 45 4c 53 45 0d 0a ff 20 | 14 49 46 20 4c 4c 4f 20 |ELSE... |.IF LLO |
|00002840| 3d 20 36 20 0d 0a ff 20 | 17 44 4f 20 57 48 4d 4b |= 6 ... |.DO WHMK|
|00002850| 0d 0a ff 20 17 45 4c 53 | 45 0d 0a ff 20 17 49 46 |... .ELS|E... .IF|
|00002860| 20 4c 4c 4f 3d 20 37 0d | 0a ff 20 1a 51 55 49 54 | LLO= 7.|.. .QUIT|
|00002870| 0d 0a ff 20 17 45 4e 44 | 49 46 0d 0a ff 20 14 45 |... .END|IF... .E|
|00002880| 4e 44 49 46 0d 0a ff 20 | 12 45 4e 44 49 46 0d 0a |NDIF... |.ENDIF..|
|00002890| ff 20 10 45 4e 44 49 46 | 0d 0a ff 20 0e 45 4e 44 |. .ENDIF|... .END|
|000028a0| 49 46 0d 0a ff 20 0a 45 | 4e 44 49 46 0d 0a ff 20 |IF... .E|NDIF... |
|000028b0| 07 45 4e 44 49 46 0d 0a | ff 20 03 45 4e 44 44 4f |.ENDIF..|. .ENDDO|
|000028c0| 20 1a ff 00 4f 44 4f 20 | 58 48 43 5a 0d 0a 55 53 | ...ODO |XHCZ..US|
|000028d0| 45 20 42 3a 41 43 38 26 | 5a 20 49 4e 44 45 58 20 |E B:AC8&|Z INDEX |
|000028e0| 42 3a 49 42 41 43 38 26 | 5a 0d 0a 53 54 4f 52 45 |B:IBAC8&|Z..STORE|
|000028f0| 20 2e 54 2e 54 4f 20 4a | 49 55 54 31 0d 0a 44 4f | .T.TO J|IUT1..DO|
|00002900| 20 57 48 49 4c 45 20 4a | 49 55 54 31 20 0d 0a 43 | WHILE J|IUT1 ..C|
|00002910| 4c 45 41 52 0d 0a 46 49 | 4e 44 20 26 53 48 41 31 |LEAR..FI|ND &SHA1|
|00002920| 0d 0a 40 20 31 2c 32 30 | 20 53 41 59 20 22 ff 2a |..@ 1,20| SAY ".*|
|00002930| 0c be c9 d1 a7 c9 fa d7 | a2 b2 e1 b5 c7 bc c7 ff |........|........|
|00002940| 2a 0d 22 0d 0a 40 20 33 | 2c 32 36 20 53 41 59 20 |*."..@ 3|,26 SAY |
|00002950| 27 cc ee c8 eb 22 31 22 | ce aa d7 a2 b2 e1 2c cc |'...."1"|......,.|
|00002960| ee c8 eb 22 30 22 ce aa | ce b4 d7 a2 b2 e1 27 20 |..."0"..|......' |
|00002970| 0d 0a 40 20 34 2c 32 38 | 20 53 41 59 20 22 d1 a7 |..@ 4,28| SAY "..|
|00002980| ba c5 3a 22 0d 0a 40 20 | 34 2c 33 34 20 53 41 59 |..:"..@ |4,34 SAY|
|00002990| 20 42 49 4e 0d 0a 40 20 | 34 2c 34 33 20 53 41 59 | BIN..@ |4,43 SAY|
|000029a0| 20 22 d0 d5 c3 fb 3a 22 | 0d 0a 40 20 34 2c 34 39 | "....:"|..@ 4,49|
|000029b0| 20 53 41 59 20 4d 49 4e | 47 0d 0a 40 20 35 2c 31 | SAY MIN|G..@ 5,1|
|000029c0| 38 20 53 41 59 20 53 54 | 52 28 56 41 4c 28 58 29 |8 SAY ST|R(VAL(X)|
|000029d0| 2c 32 29 0d 0a 40 20 35 | 2c 32 31 20 53 41 59 20 |,2)..@ 5|,21 SAY |
|000029e0| 22 c4 ea c9 cf d1 a7 c6 | da 3a 22 20 47 45 54 20 |".......|.:" GET |
|000029f0| 59 49 20 52 41 4e 47 20 | 30 2c 31 0d 0a 40 20 35 |YI RANG |0,1..@ 5|
|00002a00| 2c 34 35 20 53 41 59 20 | 53 54 52 28 56 41 4c 28 |,45 SAY |STR(VAL(|
|00002a10| 58 29 2c 32 29 0d 0a 40 | 20 35 2c 34 37 20 53 41 |X),2)..@| 5,47 SA|
|00002a20| 59 20 22 c4 ea cf c2 d1 | a7 c6 da 3a 22 20 47 45 |Y ".....|...:" GE|
|00002a30| 54 20 45 52 20 52 41 4e | 47 20 30 2c 31 0d 0a 40 |T ER RAN|G 0,1..@|
|00002a40| 20 36 2c 31 38 20 53 41 | 59 20 53 54 52 28 56 41 | 6,18 SA|Y STR(VA|
|00002a50| 4c 28 58 29 2b 31 2c 32 | 29 0d 0a 40 20 36 2c 32 |L(X)+1,2|)..@ 6,2|
|00002a60| 31 20 53 41 59 20 22 c4 | ea c9 cf d1 a7 c6 da 3a |1 SAY ".|.......:|
|00002a70| 22 20 47 45 54 20 53 41 | 4e 20 52 41 4e 47 20 30 |" GET SA|N RANG 0|
|00002a80| 2c 31 0d 0a 40 20 36 2c | 34 35 20 53 41 59 20 53 |,1..@ 6,|45 SAY S|
|00002a90| 54 52 28 56 41 4c 28 58 | 29 2b 31 2c 32 29 0d 0a |TR(VAL(X|)+1,2)..|
|00002aa0| 40 20 36 2c 34 37 20 53 | 41 59 20 22 c4 ea cf c2 |@ 6,47 S|AY "....|
|00002ab0| d1 a7 c6 da 3a 22 20 47 | 45 54 20 53 49 20 52 41 |....:" G|ET SI RA|
|00002ac0| 4e 47 20 30 2c 31 0d 0a | 40 20 37 2c 31 38 20 53 |NG 0,1..|@ 7,18 S|
|00002ad0| 41 59 20 53 54 52 28 56 | 41 4c 28 58 29 2b 32 2c |AY STR(V|AL(X)+2,|
|00002ae0| 32 29 0d 0a 40 20 37 2c | 32 31 20 53 41 59 20 22 |2)..@ 7,|21 SAY "|
|00002af0| c4 ea c9 cf d1 a7 c6 da | 3a 22 20 47 45 54 20 57 |........|:" GET W|
|00002b00| 55 20 52 41 4e 47 20 30 | 2c 31 0d 0a 40 20 37 2c |U RANG 0|,1..@ 7,|
|00002b10| 34 35 20 53 41 59 20 53 | 54 52 28 56 41 4c 28 58 |45 SAY S|TR(VAL(X|
|00002b20| 29 2b 32 2c 32 29 0d 0a | 40 20 37 2c 34 37 20 53 |)+2,2)..|@ 7,47 S|
|00002b30| 41 59 20 22 c4 ea cf c2 | d1 a7 c6 da 3a 22 20 47 |AY "....|....:" G|
|00002b40| 45 54 20 4c 49 55 20 52 | 41 4e 47 20 30 2c 31 0d |ET LIU R|ANG 0,1.|
|00002b50| 0a 40 20 38 2c 31 38 20 | 53 41 59 20 53 54 52 28 |.@ 8,18 |SAY STR(|
|00002b60| 56 41 4c 28 58 29 2b 33 | 2c 32 29 0d 0a 40 20 38 |VAL(X)+3|,2)..@ 8|
|00002b70| 2c 32 31 20 53 41 59 20 | 22 c4 ea c9 cf d1 a7 c6 |,21 SAY |".......|
|00002b80| da 3a 22 20 47 45 54 20 | 51 49 20 52 41 4e 47 20 |.:" GET |QI RANG |
|00002b90| 30 2c 31 0d 0a 40 20 38 | 2c 34 35 20 53 41 59 20 |0,1..@ 8|,45 SAY |
|00002ba0| 53 54 52 28 56 41 4c 28 | 58 29 2b 33 2c 32 29 0d |STR(VAL(|X)+3,2).|
|00002bb0| 0a 40 20 38 2c 34 37 20 | 53 41 59 20 22 c4 ea cf |.@ 8,47 |SAY "...|
|00002bc0| c2 d1 a7 c6 da 3a 22 20 | 47 45 54 20 42 41 20 52 |.....:" |GET BA R|
|00002bd0| 41 4e 47 20 30 2c 31 0d | 0a 40 20 39 2c 31 38 20 |ANG 0,1.|.@ 9,18 |
|00002be0| 53 41 59 20 53 54 52 28 | 56 41 4c 28 58 29 2b 34 |SAY STR(|VAL(X)+4|
|00002bf0| 2c 32 29 0d 0a 40 20 39 | 2c 32 31 20 53 41 59 20 |,2)..@ 9|,21 SAY |
|00002c00| 22 c4 ea c9 cf d1 a7 c6 | da 3a 22 20 47 45 54 20 |".......|.:" GET |
|00002c10| 4a 49 55 20 52 41 4e 47 | 20 30 2c 31 0d 0a 40 20 |JIU RANG| 0,1..@ |
|00002c20| 39 2c 34 35 20 53 41 59 | 20 53 54 52 28 56 41 4c |9,45 SAY| STR(VAL|
|00002c30| 28 58 29 2b 34 2c 32 29 | 0d 0a 40 20 39 2c 34 37 |(X)+4,2)|..@ 9,47|
|00002c40| 20 53 41 59 20 22 c4 ea | cf c2 d1 a7 c6 da 3a 22 | SAY "..|......:"|
|00002c50| 20 47 45 54 20 53 48 49 | 20 52 41 4e 47 20 30 2c | GET SHI| RANG 0,|
|00002c60| 31 0d 0a 52 45 41 44 0d | 0a 53 54 4f 52 45 20 22 |1..READ.|.STORE "|
|00002c70| 20 22 20 54 4f 20 59 45 | 53 31 0d 0a 40 20 32 2c | " TO YE|S1..@ 2,|
|00002c80| 34 38 20 53 41 59 20 22 | ca c7 b7 f1 d1 a7 ba c5 |48 SAY "|........|
|00002c90| 20 2b 31 20 bc cc d0 f8 | ca e4 c8 eb 3f 20 28 59 | +1 ....|....? (Y|
|00002ca0| 2f 4e 29 22 20 47 45 54 | 20 59 45 53 31 0d 0a 52 |/N)" GET| YES1..R|
|00002cb0| 45 41 44 0d 0a 49 46 20 | 55 50 50 45 52 28 59 45 |EAD..IF |UPPER(YE|
|00002cc0| 53 31 29 3d 22 59 22 0d | 0a 53 48 41 31 3d 53 54 |S1)="Y".|.SHA1=ST|
|00002cd0| 52 28 56 41 4c 28 53 48 | 41 31 29 2b 31 2c 37 29 |R(VAL(SH|A1)+1,7)|
|00002ce0| 0d 0a 4c 4f 4f 50 0d 0a | 45 4e 44 49 46 0d 0a 45 |..LOOP..|ENDIF..E|
|00002cf0| 4c 53 45 0d 0a 53 54 4f | 52 45 20 2e 46 2e 20 54 |LSE..STO|RE .F. T|
|00002d00| 4f 20 4a 49 55 54 31 0d | 0a 45 4e 44 44 4f 0d 0a |O JIUT1.|.ENDDO..|
|00002d10| 52 45 54 55 52 4e 20 0d | 0a 20 1a d1 a1 d4 f1 b2 |RETURN .|. ......|
|00002d20| cb b5 a5 ff 2a 08 22 0d | 0a ff 20 03 40 20 33 2c |....*.".|.. .@ 3,|
|00002d30| 32 36 20 53 41 59 20 22 | 30 ff 5f 04 cd cb b3 f6 |26 SAY "|0._.....|
|00002d40| 22 0d 0a ff 20 03 40 20 | 34 2c 32 36 20 53 41 59 |"... .@ |4,26 SAY|
|00002d50| 20 22 31 ff 5f 04 d0 c2 | c9 fa d7 a2 b2 e1 22 0d | "1._...|......".|
|00002d60| 0a ff 20 03 40 20 35 2c | 32 36 20 53 41 59 20 22 |.. .@ 5,|26 SAY "|
|00002d70| 32 ff 5f 04 be c9 c9 fa | d7 a2 b2 e1 22 0d 0a ff |2._.....|...."...|
|00002d80| 20 03 53 54 4f 52 45 20 | 30 20 54 4f 20 4c 4c 4f | .STORE |0 TO LLO|
|00002d90| 0d 0a ff 20 03 40 20 38 | 2c 31 36 20 53 41 59 20 |... .@ 8|,16 SAY |
|00002da0| 22 c7 eb d1 a1 d4 f1 b9 | a6 c4 dc bc fc ca e4 c8 |".......|........|
|00002db0| eb 20 28 30 2c 31 2c 32 | 29 22 20 47 45 54 20 4c |. (0,1,2|)" GET L|
|00002dc0| 4c 4f 20 52 41 4e 47 20 | 30 2c 32 0d 0a ff 20 03 |LO RANG |0,2... .|
|00002dd0| 52 45 41 44 0d 0a ff 20 | 03 44 4f 20 43 41 53 45 |READ... |.DO CASE|
|00002de0| 0d 0a ff 20 06 43 41 53 | 45 20 4c 4c 4f 3d 30 0d |... .CAS|E LLO=0.|
|00002df0| 0a ff 20 0b 43 4c 45 41 | 52 0d 0a ff 20 0b 40 20 |.. .CLEA|R... .@ |
|00002e00| 38 2c 31 35 20 53 41 59 | 20 22 d7 a2 b2 e1 bd e1 |8,15 SAY| "......|
|00002e10| ca f8 22 0d 0a ff 20 0b | 52 45 54 55 52 4e 0d 0a |.."... .|RETURN..|
|00002e20| ff 20 07 43 41 53 45 20 | 4c 4c 4f 3d 31 0d 0a ff |. .CASE |LLO=1...|
|00002e30| 20 0c 44 4f 20 58 49 4e | 0d 0a ff 20 07 43 41 53 | .DO XIN|... .CAS|
|00002e40| 45 20 4c 4c 4f 3d 32 0d | 0a ff 20 0c 44 4f 20 4a |E LLO=2.|.. .DO J|
|00002e50| 49 55 0d 0a ff 20 04 45 | 4e 44 43 41 53 45 0d 0a |IU... .E|NDCASE..|
|00002e60| 45 4e 44 44 4f 0d 0a 0d | 0a 1a 0d 0a 45 4e 44 44 |ENDDO...|....ENDD|
|00002e70| 4f 0d 0a 1a ff 20 08 ff | 2a 05 d1 a7 ba c5 b2 e9 |O.... ..|*.......|
|00002e80| d5 d2 28 58 48 43 5a 29 | ff 2a 05 0d 0a 53 54 4f |..(XHCZ)|.*...STO|
|00002e90| 52 45 20 2e 54 2e 20 54 | 4f 20 4d 51 31 0d 0a 43 |RE .T. T|O MQ1..C|
|00002ea0| 4c 45 41 52 0d 0a 20 20 | 44 4f 20 57 48 49 4c 45 |LEAR.. |DO WHILE|
|00002eb0| 20 4d 51 31 0d 0a ff 20 | 05 53 54 4f 52 45 20 27 | MQ1... |.STORE '|
|00002ec0| ff 20 07 27 20 54 4f 20 | 53 48 41 31 0d 0a ff 20 |. .' TO |SHA1... |
|00002ed0| 05 40 20 31 2c 30 20 53 | 41 59 20 27 c7 eb ca e4 |.@ 1,0 S|AY '....|
|00002ee0| c8 eb d1 a7 ba c5 28 36 | bb f2 37 ce bb ca fd d7 |......(6|..7.....|
|00002ef0| d6 2c c8 e7 3a 38 34 30 | 31 34 35 36 29 27 47 45 |.,..:840|1456)'GE|
|00002f00| 54 20 53 48 41 31 0d 0a | ff 20 05 52 45 41 44 0d |T SHA1..|. .READ.|
|00002f10| 0a ff 20 05 53 54 4f 52 | 45 20 27 20 27 20 54 4f |.. .STOR|E ' ' TO|
|00002f20| 20 4d 58 47 0d 0a ff 20 | 05 40 20 32 2c 30 20 53 | MXG... |.@ 2,0 S|
|00002f30| 41 59 20 27 ca e4 c8 eb | d1 a7 ba c5 b6 d4 c2 f0 |AY '....|........|
|00002f40| 3f 20 28 59 2f 4e 2f 51 | 29 ff 20 03 51 ce aa cd |? (Y/N/Q|). .Q...|
|00002f50| cb b3 f6 20 27 20 47 45 | 54 20 4d 58 47 20 0d 0a |... ' GE|T MXG ..|
|00002f60| ff 20 05 52 45 41 44 0d | 0a ff 20 05 49 46 20 55 |. .READ.|.. .IF U|
|00002f70| 50 50 45 52 28 4d 58 47 | 29 3d 27 51 27 0d 0a ff |PPER(MXG|)='Q'...|
|00002f80| 20 08 53 54 4f 52 45 20 | 2e 46 2e 20 54 4f 20 4d | .STORE |.F. TO M|
|00002f90| 51 31 0d 0a ff 20 08 52 | 45 54 55 52 4e 20 0d 0a |Q1... .R|ETURN ..|
|00002fa0| ff 20 05 45 4c 53 45 0d | 0a ff 20 08 49 46 20 55 |. .ELSE.|.. .IF U|
|00002fb0| 50 50 45 52 20 28 4d 58 | 47 29 20 3d 20 27 4e 27 |PPER (MX|G) = 'N'|
|00002fc0| 0d 0a ff 20 0b 40 20 39 | 2c 34 20 53 41 59 20 27 |... .@ 9|,4 SAY '|
|00002fd0| c7 eb d6 d8 d0 c2 ca e4 | c8 eb 27 0d 0a ff 20 0b |........|..'... .|
|00002fe0| 4c 4f 4f 50 20 0d 0a ff | 20 08 45 4c 53 45 0d 0a |LOOP ...| .ELSE..|
|00002ff0| ff 20 08 53 54 4f 52 45 | 20 2e 46 2e 20 54 4f 20 |. .STORE| .F. TO |
|00003000| 4d 51 31 0d 0a ff 20 08 | 45 4e 44 49 46 0d 0a ff |MQ1... .|ENDIF...|
|00003010| 20 06 45 4e 44 49 46 0d | 0a ff 20 06 49 46 20 4c | .ENDIF.|.. .IF L|
|00003020| 45 4e 28 53 48 41 31 29 | 20 3e 20 37 2e 4f 52 2e |EN(SHA1)| > 7.OR.|
|00003030| 20 4c 45 4e 28 53 48 41 | 31 29 20 3c 20 36 0d 0a | LEN(SHA|1) < 6..|
|00003040| ff 20 09 53 54 4f 52 45 | 20 2e 54 2e 20 54 4f 20 |. .STORE| .T. TO |
|00003050| 4d 51 31 0d 0a ff 20 09 | 57 41 49 54 20 27 ca e4 |MQ1... .|WAIT '..|
|00003060| c8 eb d1 a7 ba c5 b4 ed | 21 20 b0 b4 c8 ce d2 e2 |........|! ......|
|00003070| bc fc c7 eb d6 d8 d0 c2 | ca e4 c8 eb 2e 27 0d 0a |........|.....'..|
|00003080| ff 20 09 4c 4f 4f 50 0d | 0a ff 20 07 45 4c 53 45 |. .LOOP.|.. .ELSE|
|00003090| 0d 0a ff 20 09 53 54 4f | 52 45 20 2e 46 2e 20 54 |... .STO|RE .F. T|
|000030a0| 4f 20 4d 51 31 0d 0a ff | 20 07 45 4e 44 49 46 0d |O MQ1...| .ENDIF.|
|000030b0| 0a ff 20 07 49 46 20 4c | 45 4e 28 53 48 41 31 29 |.. .IF L|EN(SHA1)|
|000030c0| 3d 36 0d 0a ff 20 0a 58 | 3d 53 55 42 53 54 52 28 |=6... .X|=SUBSTR(|
|000030d0| 53 48 41 31 2c 31 2c 32 | 29 0d 0a ff 20 0a 59 3d |SHA1,1,2|)... .Y=|
|000030e0| 53 55 42 53 54 52 28 53 | 48 41 31 2c 34 2c 33 29 |SUBSTR(S|HA1,4,3)|
|000030f0| 0d 0a ff 20 0a 5a 3d 53 | 55 42 53 54 52 28 53 48 |... .Z=S|UBSTR(SH|
|00003100| 41 31 2c 33 2c 31 29 0d | 0a ff 20 0a 44 4f 20 43 |A1,3,1).|.. .DO C|
|00003110| 41 53 45 0d 0a ff 20 0d | 43 41 53 45 20 5a 3d 27 |ASE... .|CASE Z='|
|00003120| 31 27 0d 0a ff 20 12 5a | 3d 27 30 31 27 0d 0a ff |1'... .Z|='01'...|
|00003130| 20 12 5a 5a 3d 27 d6 d0 | ce c4 27 0d 0a ff 20 0d | .ZZ='..|..'... .|
|00003140| 43 41 53 45 20 5a 3d 27 | 32 27 0d 0a ff 20 12 5a |CASE Z='|2'... .Z|
|00003150| 3d 27 30 32 27 0d 0a ff | 20 12 5a 5a 3d 27 d5 fe |='02'...| .ZZ='..|
|00003160| d6 ce 27 0d 0a ff 20 0d | 43 41 53 45 20 5a 3d 27 |..'... .|CASE Z='|
|00003170| 33 27 0d 0a ff 20 12 5a | 3d 27 30 38 27 0d 0a ff |3'... .Z|='08'...|
|00003180| 20 12 5a 5a 3d 27 ca fd | d1 a7 27 0d 0a ff 20 0d | .ZZ='..|..'... .|
|00003190| 43 41 53 45 20 5a 3d 27 | 34 27 0d 0a ff 20 12 5a |CASE Z='|4'... .Z|
|000031a0| 3d 27 31 30 27 0d 0a ff | 20 12 5a 5a 3d 27 ce ef |='10'...| .ZZ='..|
|000031b0| c0 ed 27 0d 0a ff 20 0d | 43 41 53 45 20 5a 3d 27 |..'... .|CASE Z='|
|000031c0| 35 27 0d 0a ff 20 12 5a | 3d 27 31 32 27 0d 0a ff |5'... .Z|='12'...|
|000031d0| 20 12 5a 5a 3d 27 bb af | d1 a7 27 0d 0a ff 20 0d | .ZZ='..|..'... .|
|000031e0| 43 41 53 45 20 5a 3d 27 | 36 27 0d 0a ff 20 12 5a |CASE Z='|6'... .Z|
|000031f0| 3d 27 31 33 27 0d 0a ff | 20 12 5a 5a 3d 27 c9 fa |='13'...| .ZZ='..|
|00003200| ce ef 27 0d 0a ff 20 0d | 43 41 53 45 20 5a 3d 27 |..'... .|CASE Z='|
|00003210| 37 27 0d 0a ff 20 12 5a | 3d 27 30 36 27 0d 0a ff |7'... .Z|='06'...|
|00003220| 20 12 5a 5a 3d 27 b5 d8 | c0 ed 27 0d 0a ff 20 0a | .ZZ='..|..'... .|
|00003230| 45 4e 44 43 41 53 45 ff | 20 08 0d 0a ff 20 0a 40 |ENDCASE.| .... .@|
|00003240| 20 39 2c 32 20 53 41 59 | 20 27 c4 e3 ca b9 d3 c3 | 9,2 SAY| '......|
|00003250| b5 c4 ca c7 42 c5 cc 27 | 2b 27 26 5a 5a 27 2b 27 |....B..'|+'&ZZ'+'|
|00003260| d7 a8 d2 b5 b5 c4 d7 ca | c1 cf 2e 27 0d 0a ff 20 |........|...'... |
|00003270| 08 45 4c 53 45 0d 0a ff | 20 0a 5a 3d 53 55 42 53 |.ELSE...| .Z=SUBS|
|00003280| 54 52 28 53 48 41 31 2c | 33 2c 32 29 0d 0a ff 20 |TR(SHA1,|3,2)... |
|00003290| 0a 58 3d 53 55 42 53 54 | 52 28 53 48 41 31 2c 31 |.X=SUBST|R(SHA1,1|
|000032a0| 2c 32 29 0d 0a ff 20 0a | 59 3d 53 55 42 53 54 52 |,2)... .|Y=SUBSTR|
|000032b0| 28 53 48 41 31 2c 35 2c | 33 29 0d 0a ff 20 08 45 |(SHA1,5,|3)... .E|
|000032c0| 4e 44 49 46 20 0d 0a ff | 20 08 53 48 41 31 3d 58 |NDIF ...| .SHA1=X|
|000032d0| 2b 5a 2b 59 0d 0a ff 20 | 03 45 4e 44 44 4f 0d 0a |+Z+Y... |.ENDDO..|
|000032e0| 52 45 54 55 52 4e 0d 0a | 1a 54 48 20 53 48 41 31 |RETURN..|.TH SHA1|
|000032f0| 2c 59 49 20 57 49 54 48 | 20 31 2c 4d 49 4e 47 20 |,YI WITH| 1,MING |
|00003300| 57 49 54 48 20 4d 4d 49 | 4e 47 0d 0a ff 20 03 40 |WITH MMI|NG... .@|
|00003310| 20 39 2c 38 20 53 41 59 | 20 22 bc cc d0 f8 ca e4 | 9,8 SAY| "......|
|00003320| c8 eb b7 f1 3f 20 d1 a7 | ba c5 2b 31 28 59 29 2c |....? ..|..+1(Y),|
|00003330| ca e4 c8 eb d1 a7 ba c5 | 28 58 29 2c bd e1 ca f8 |........|(X),....|
|00003340| 28 4e 29 22 20 47 45 54 | 20 59 45 53 32 0d 0a ff |(N)" GET| YES2...|
|00003350| 20 03 52 45 41 44 0d 0a | ff 20 03 49 46 20 55 50 | .READ..|. .IF UP|
|00003360| 50 45 52 28 59 45 53 32 | 29 3d 22 4e 22 0d 0a ff |PER(YES2|)="N"...|
|00003370| 20 06 52 45 54 55 52 4e | 0d 0a ff 20 03 45 4e 44 | .RETURN|... .END|
|00003380| 49 46 0d 0a ff 20 03 49 | 46 20 55 50 50 45 52 28 |IF... .I|F UPPER(|
|00003390| 59 45 53 32 29 3d 22 59 | 22 0d 0a ff 20 06 53 48 |YES2)="Y|"... .SH|
|000033a0| 41 41 3d 56 41 4c 28 53 | 48 41 31 29 2b 31 0d 0a |AA=VAL(S|HA1)+1..|
|000033b0| ff 20 06 53 48 41 31 3d | 53 54 52 28 53 48 41 41 |. .SHA1=|STR(SHAA|
|000033c0| 2c 37 29 0d 0a ff 20 06 | 4c 4f 4f 50 0d 0a ff 20 |,7)... .|LOOP... |
|000033d0| 04 45 4c 53 45 0d 0a ff | 20 06 53 54 4f 52 20 2e |.ELSE...| .STOR .|
|000033e0| 46 2e 20 54 4f 20 54 32 | 0d 0a ff 20 04 45 4e 44 |F. TO T2|... .END|
|000033f0| 49 46 0d 0a 20 20 45 4e | 44 44 4f 0d 0a 52 45 54 |IF.. EN|DDO..RET|
|00003400| 55 52 4e 0d 0a 1a ff 00 | 7d ff 20 08 ff 2a 05 b9 |URN.....|}. ..*..|
|00003410| a4 d7 f7 b5 a5 ce bb b1 | e4 b6 af b5 c7 bc c7 28 |........|.......(|
|00003420| 47 5a 29 ff 2a 05 20 0d | 0a 43 4c 45 41 52 0d 0a |GZ).*. .|.CLEAR..|
|00003430| 53 54 4f 52 45 20 2e 54 | 2e 20 54 4f 20 47 5a 54 |STORE .T|. TO GZT|
|00003440| 0d 0a 55 53 45 20 42 3a | 41 43 32 26 5a 20 49 4e |..USE B:|AC2&Z IN|
|00003450| 44 45 58 20 42 3a 49 42 | 41 43 32 26 5a 0d 0a 46 |DEX B:IB|AC2&Z..F|
|00003460| 49 4e 44 20 26 53 48 41 | 31 0d 0a 4d 4d 49 4e 47 |IND &SHA|1..MMING|
|00003470| 3d 4d 49 4e 47 0d 0a 55 | 53 45 20 42 3a 41 43 34 |=MING..U|SE B:AC4|
|00003480| 26 5a 20 0d 0a 41 50 50 | 45 4e 44 20 42 4c 41 4e |&Z ..APP|END BLAN|
|00003490| 4b 0d 0a 44 4f 20 57 48 | 49 4c 45 20 47 5a 54 0d |K..DO WH|ILE GZT.|
|000034a0| 0a ff 20 03 40 20 31 2c | 32 38 20 53 41 59 20 22 |.. .@ 1,|28 SAY "|
|000034b0| ff 2a 05 b9 a4 d7 f7 b1 | e4 b6 af b5 c7 bc c7 ff |.*......|........|
|000034c0| 2a 06 22 0d 0a ff 20 03 | 40 20 33 2c 32 35 20 53 |*."... .|@ 3,25 S|
|000034d0| 41 59 20 22 d1 a7 ba c5 | 3a 22 2b 53 48 41 31 0d |AY "....|:"+SHA1.|
|000034e0| 0a ff 20 03 40 20 33 2c | 34 30 20 53 41 59 20 22 |.. .@ 3,|40 SAY "|
|000034f0| d0 d5 c3 fb 3a 22 2b 4d | 4d 49 4e 47 20 0d 0a ff |....:"+M|MING ...|
|00003500| 20 03 40 20 34 2c 32 35 | 20 53 41 59 20 22 b1 e4 | .@ 4,25| SAY "..|
|00003510| b6 af c4 ea 2c d4 c2 22 | 20 47 45 54 20 44 31 0d |....,.."| GET D1.|
|00003520| 0a ff 20 03 40 20 35 2c | 32 35 20 53 41 59 20 22 |.. .@ 5,|25 SAY "|
|00003530| b5 a5 ce bb c3 fb b3 c6 | bc b0 b5 d8 d6 b7 22 20 |........|......" |
|00003540| 47 45 54 20 44 32 0d 0a | ff 20 03 40 20 36 2c 32 |GET D2..|. .@ 6,2|
|00003550| 35 20 53 41 59 20 22 d6 | b0 ce f1 22 20 47 45 54 |5 SAY ".|..." GET|
|00003560| 20 44 33 0d 0a ff 20 03 | 52 45 41 44 0d 0a ff 20 | D3... .|READ... |
|00003570| 03 53 54 4f 52 45 20 22 | 20 22 20 54 4f 20 59 45 |.STORE "| " TO YE|
|00003580| 53 31 0d 0a ff 20 03 40 | 20 37 2c 32 35 20 53 41 |S1... .@| 7,25 SA|
|00003590| 59 20 22 ca e4 c8 eb b6 | d4 b7 f1 28 59 2f 4e 29 |Y ".....|...(Y/N)|
|000035a0| 20 3f 20 cd cb b3 f6 20 | 51 20 22 20 47 45 54 20 | ? .... |Q " GET |
|000035b0| 59 45 53 31 0d 0a ff 20 | 03 52 45 41 44 20 0d 0a |YES1... |.READ ..|
|000035c0| ff 20 03 49 46 20 55 50 | 50 45 52 28 59 45 53 31 |. .IF UP|PER(YES1|
|000035d0| 29 3d 22 4e 22 0d 0a ff | 20 06 4c 4f 4f 50 0d 0a |)="N"...| .LOOP..|
|000035e0| ff 20 03 45 4e 44 49 46 | 0d 0a ff 20 03 49 46 20 |. .ENDIF|... .IF |
|000035f0| 55 50 50 45 52 28 59 45 | 53 31 29 3d 22 59 22 0d |UPPER(YE|S1)="Y".|
|00003600| 0a ff 20 06 52 45 50 4c | 20 42 49 4e 20 57 49 54 |.. .REPL| BIN WIT|
|00003610| 48 20 53 48 41 31 2c 4d | 49 4e 47 20 57 49 54 48 |H SHA1,M|ING WITH|
|00003620| 20 4d 4d 49 4e 47 20 0d | 0a ff 20 06 55 53 45 20 | MMING .|.. .USE |
|00003630| 42 3a 41 43 32 26 5a 20 | 49 4e 44 45 58 20 42 3a |B:AC2&Z |INDEX B:|
|00003640| 49 42 41 43 32 26 5a 0d | 0a ff 20 06 46 49 4e 44 |IBAC2&Z.|.. .FIND|
|00003650| 20 26 53 48 41 31 0d 0a | ff 20 06 52 45 50 4c 20 | &SHA1..|. .REPL |
|00003660| 42 31 36 20 57 49 54 48 | 20 22 b5 a5 ce bb b1 e4 |B16 WITH| "......|
|00003670| b6 af 22 0d 0a ff 20 06 | 53 54 4f 52 45 20 2e 46 |.."... .|STORE .F|
|00003680| 2e 20 54 4f 20 47 5a 54 | 0d 0a ff 20 03 45 4e 44 |. TO GZT|... .END|
|00003690| 49 46 0d 0a ff 20 03 52 | 45 54 55 52 4e 20 0d 0a |IF... .R|ETURN ..|
|000036a0| 45 4e 44 44 4f 0d 0a 1a | ff 00 ff ff 00 42 ff 20 |ENDDO...|.....B. |
|000036b0| 08 ff 2a 05 d0 dd 2c b8 | b4 2c d7 aa 2c cd cb 2c |..*...,.|.,..,..,|
|000036c0| d1 a7 b5 c7 bc c7 28 5a | 54 29 ff 2a 05 0d 0a 53 |......(Z|T).*...S|
|000036d0| 54 4f 52 45 20 2e 54 2e | 20 54 4f 20 5a 54 0d 0a |TORE .T.| TO ZT..|
|000036e0| 43 4c 45 41 52 0d 0a 55 | 53 45 20 42 3a 41 43 32 |CLEAR..U|SE B:AC2|
|000036f0| 26 5a 20 49 4e 44 45 58 | 20 42 3a 49 42 41 43 32 |&Z INDEX| B:IBAC2|
|00003700| 26 5a 0d 0a 40 20 34 2c | 32 35 20 53 41 59 20 22 |&Z..@ 4,|25 SAY "|
|00003710| c7 eb c9 d4 b5 c8 ba f2 | 2e 22 0d 0a 46 49 4e 44 |........|."..FIND|
|00003720| 20 26 53 48 41 31 0d 0a | 4d 4d 49 4e 47 3d 4d 49 | &SHA1..|MMING=MI|
|00003730| 4e 47 0d 0a 4d 42 31 3d | 42 31 0d 0a 55 53 45 20 |NG..MB1=|B1..USE |
|00003740| 42 3a 41 43 33 26 5a 20 | 0d 0a 41 50 50 45 4e 44 |B:AC3&Z |..APPEND|
|00003750| 20 42 4c 41 4e 4b 0d 0a | 44 4f 20 57 48 49 4c 45 | BLANK..|DO WHILE|
|00003760| 20 5a 54 0d 0a ff 20 03 | 43 4c 45 41 52 0d 0a ff | ZT... .|CLEAR...|
|00003770| 20 03 40 20 31 2c 32 38 | 20 53 41 59 20 22 ff 2a | .@ 1,28| SAY ".*|
|00003780| 06 20 d0 dd 2c b8 b4 2c | d7 aa 2c cd cb d1 a7 b5 |. ..,..,|..,.....|
|00003790| c7 bc c7 20 ff 2a 06 22 | 0d 0a ff 20 03 40 20 33 |... .*."|... .@ 3|
|000037a0| 2c 32 35 20 53 41 59 20 | 22 d1 a7 ba c5 3a 22 2b |,25 SAY |"....:"+|
|000037b0| 53 48 41 31 0d 0a ff 20 | 03 40 20 33 2c 34 35 20 |SHA1... |.@ 3,45 |
|000037c0| 53 41 59 20 22 d0 d5 c3 | fb 3a 22 2b 4d 4d 49 4e |SAY "...|.:"+MMIN|
|000037d0| 47 0d 0a ff 20 03 40 20 | 33 2c 35 38 20 53 41 59 |G... .@ |3,58 SAY|
|000037e0| 20 22 d0 d4 b1 f0 3a 22 | 2b 4d 42 31 0d 0a ff 20 | "....:"|+MB1... |
|000037f0| 03 40 20 34 2c 32 35 20 | 53 41 59 20 22 c0 e0 20 |.@ 4,25 |SAY ".. |
|00003800| b1 f0 3a 28 d0 dd 2c b8 | b4 2c d7 aa 2c cd cb 29 |..:(..,.|.,..,..)|
|00003810| 22 20 47 45 54 20 43 31 | 0d 0a ff 20 03 40 20 35 |" GET C1|... .@ 5|
|00003820| 2c 32 35 20 53 41 59 20 | 22 d4 ad d2 f2 3a 22 20 |,25 SAY |"....:" |
|00003830| 47 45 54 20 43 32 0d 0a | ff 20 03 40 20 36 2c 32 |GET C2..|. .@ 6,2|
|00003840| 35 20 53 41 59 20 22 c6 | f0 c6 fd ca b1 bc e4 3a |5 SAY ".|.......:|
|00003850| 22 20 47 45 54 20 43 33 | 0d 0a ff 20 03 52 45 41 |" GET C3|... .REA|
|00003860| 44 0d 0a ff 20 03 53 54 | 4f 52 45 20 22 20 22 20 |D... .ST|ORE " " |
|00003870| 54 4f 20 59 45 53 31 0d | 0a ff 20 03 40 20 37 2c |TO YES1.|.. .@ 7,|
|00003880| 32 35 20 53 41 59 20 22 | ca e4 c8 eb b6 d4 b7 f1 |25 SAY "|........|
|00003890| 20 28 59 2f 4e 29 20 3f | 20 cd cb b3 f6 20 51 20 | (Y/N) ?| .... Q |
|000038a0| 22 20 47 45 54 20 59 45 | 53 31 0d 0a ff 20 03 52 |" GET YE|S1... .R|
|000038b0| 45 41 44 0d 0a ff 20 03 | 53 54 4f 52 45 20 43 31 |EAD... .|STORE C1|
|000038c0| 20 54 4f 20 4d 43 31 0d | 0a ff 20 03 49 46 20 55 | TO MC1.|.. .IF U|
|000038d0| 50 50 45 52 28 59 45 53 | 31 29 3d 22 4e 22 0d 0a |PPER(YES|1)="N"..|
|000038e0| ff 20 06 4c 4f 4f 50 0d | 0a ff 20 03 45 4e 44 49 |. .LOOP.|.. .ENDI|
|000038f0| 46 0d 0a ff 20 03 49 46 | 20 55 50 50 45 52 28 59 |F... .IF| UPPER(Y|
|00003900| 45 53 31 29 3d 22 59 22 | 0d 0a ff 20 06 52 45 50 |ES1)="Y"|... .REP|
|00003910| 4c 20 42 49 4e 20 57 49 | 54 48 20 53 48 41 31 2c |L BIN WI|TH SHA1,|
|00003920| 4d 49 4e 47 20 57 49 54 | 48 20 4d 4d 49 4e 47 2c |MING WIT|H MMING,|
|00003930| 43 34 20 57 49 54 48 20 | 4d 42 31 0d 0a ff 20 06 |C4 WITH |MB1... .|
|00003940| 55 53 45 20 42 3a 41 43 | 32 26 5a 20 49 4e 44 45 |USE B:AC|2&Z INDE|
|00003950| 58 20 42 3a 49 42 41 43 | 32 26 5a 0d 0a ff 20 06 |X B:IBAC|2&Z... .|
|00003960| 46 49 4e 44 20 26 53 48 | 41 31 0d 0a ff 20 06 52 |FIND &SH|A1... .R|
|00003970| 45 50 4c 20 42 31 38 20 | 57 49 54 48 20 4d 43 31 |EPL B18 |WITH MC1|
|00003980| 0d 0a ff 20 06 53 54 4f | 52 45 20 2e 46 2e 20 54 |... .STO|RE .F. T|
|00003990| 4f 20 5a 54 0d 0a ff 20 | 04 45 4e 44 49 46 0d 0a |O ZT... |.ENDIF..|
|000039a0| ff 20 04 52 45 54 55 52 | 4e 0d 0a 20 45 4e 44 44 |. .RETUR|N.. ENDD|
|000039b0| 4f 1a ff 00 d9 ff 20 08 | ff 2a 05 bd e1 b1 cf d2 |O..... .|.*......|
|000039c0| b5 b5 c7 28 4a 42 29 ff | 2a 05 ff 20 05 0d 0a 43 |...(JB).|*.. ...C|
|000039d0| 4c 45 41 52 0d 0a 44 4f | 20 58 48 43 5a 0d 0a 43 |LEAR..DO| XHCZ..C|
|000039e0| 4c 45 41 52 0d 0a 55 53 | 45 20 42 3a 41 43 32 26 |LEAR..US|E B:AC2&|
|000039f0| 5a 20 49 4e 44 45 58 20 | 42 3a 49 42 41 43 32 26 |Z INDEX |B:IBAC2&|
|00003a00| 5a 0d 0a 46 49 4e 44 20 | 26 53 48 41 31 0d 0a 40 |Z..FIND |&SHA1..@|
|00003a10| 20 31 2c 32 38 20 53 41 | 59 20 22 ff 2a 05 20 bd | 1,28 SA|Y ".*. .|
|00003a20| e1 2c b1 cf d2 b5 b5 c7 | bc c7 20 ff 2a 05 22 0d |.,......|.. .*.".|
|00003a30| 0a 40 20 33 2c 32 35 20 | 53 41 59 20 22 d1 a7 ba |.@ 3,25 |SAY "...|
|00003a40| c5 3a 22 2b 53 48 41 31 | 0d 0a 40 20 33 2c 34 32 |.:"+SHA1|..@ 3,42|
|00003a50| 20 53 41 59 20 22 d0 d5 | c3 fb 3a 22 2b 4d 49 4e | SAY "..|..:"+MIN|
|00003a60| 47 0d 0a 40 20 34 2c 32 | 35 20 53 41 59 20 22 bd |G..@ 4,2|5 SAY ".|
|00003a70| e1 d2 b5 bb f2 b1 cf d2 | b5 3a 22 20 47 45 54 20 |........|.:" GET |
|00003a80| 42 31 33 0d 0a 40 20 35 | 2c 32 35 20 53 41 59 20 |B13..@ 5|,25 SAY |
|00003a90| 22 bd e1 d2 b5 bb f2 b1 | cf d2 b5 c8 d5 c6 da 3a |".......|.......:|
|00003aa0| 22 20 47 45 54 20 42 31 | 34 0d 0a 40 20 36 2c 32 |" GET B1|4..@ 6,2|
|00003ab0| 35 20 53 41 59 20 22 b5 | c7 bc c7 ba c5 3a 22 20 |5 SAY ".|.....:" |
|00003ac0| 47 45 54 20 42 31 35 0d | 0a 52 45 41 44 0d 0a 52 |GET B15.|.READ..R|
|00003ad0| 45 54 55 52 4e 0d 0a 1a | ff 00 ce 43 18 ef ef 20 |ETURN...|...C... |
|00003ae0| 08 ef 2a 05 bd b1 b3 cd | b5 c7 bc c7 28 5a 43 29 |..*.....|....(ZC)|
|00003af0| ef 2a 05 0d 0a 43 4c 45 | 41 52 0d 0a 53 54 4f 52 |.*...CLE|AR..STOR|
|00003b00| 45 20 2e 54 2e 20 54 4f | 20 5a 43 54 0d 0a 55 53 |E .T. TO| ZCT..US|
|00003b10| 45 20 42 3a 41 43 32 26 | 5a 20 49 4e 44 45 58 20 |E B:AC2&|Z INDEX |
|00003b20| 42 3a 49 42 41 43 32 26 | 5a 0d 0a 46 49 4e 44 20 |B:IBAC2&|Z..FIND |
|00003b30| 26 53 48 41 31 0d 0a 4d | 4d 49 4e 47 3d 4d 49 4e |&SHA1..M|MING=MIN|
|00003b40| 47 0d 0a 55 53 45 20 42 | 3a 41 43 35 26 5a 20 0d |G..USE B|:AC5&Z .|
|00003b50| 0a 41 50 50 45 4e 44 20 | 42 4c 41 4e 4b 0d 0a 44 |.APPEND |BLANK..D|
|00003b60| 4f 20 57 48 49 4c 45 20 | 5a 43 54 0d 0a ef 20 03 |O WHILE |ZCT... .|
|00003b70| 40 20 31 2c 32 38 20 53 | 41 59 20 22 ef 2a 05 bd |@ 1,28 S|AY ".*..|
|00003b80| b1 b3 cd b5 c7 bc c7 ef | 2a 05 22 0d 0a ef 20 03 |........|*."... .|
|00003b90| 40 20 33 2c 34 32 20 53 | 41 59 20 22 d0 d5 c3 fb |@ 3,42 S|AY "....|
|00003ba0| 3a 22 2b 4d 4d 49 4e 47 | 0d 0a ef 20 03 40 20 33 |:"+MMING|... .@ 3|
|00003bb0| 2c 32 35 20 53 41 59 20 | 22 d1 a7 ba c5 3a 22 2b |,25 SAY |"....:"+|
|00003bc0| 53 48 41 31 0d 0a ef 20 | 03 40 20 34 2c 32 35 20 |SHA1... |.@ 4,25 |
|00003bd0| 53 41 59 20 22 bd b1 bb | f2 b3 cd 3a 22 20 47 45 |SAY "...|...:" GE|
|00003be0| 54 20 45 31 0d 0a ef 20 | 03 40 20 34 2c 34 30 20 |T E1... |.@ 4,40 |
|00003bf0| 53 41 59 20 22 c4 ea 2c | d4 c2 2c c8 d5 3a 22 20 |SAY "..,|..,..:" |
|00003c00| 47 45 54 20 45 32 0d 0a | ef 20 03 40 20 35 2c 32 |GET E2..|. .@ 5,2|
|00003c10| 35 20 53 41 59 20 22 ca | c2 d3 c9 3a 22 20 47 45 |5 SAY ".|...:" GE|
|00003c20| 54 20 45 33 0d 0a ef 20 | 03 52 45 41 44 0d 0a ef |T E3... |.READ...|
|00003c30| 20 03 53 54 4f 52 45 20 | 22 20 22 20 54 4f 20 59 | .STORE |" " TO Y|
|00003c40| 45 53 31 0d 0a ef 20 03 | 40 20 36 2c 32 35 20 53 |ES1... .|@ 6,25 S|
|00003c50| 41 59 20 22 ca e4 c8 eb | b6 d4 b7 f1 28 59 2f 4e |AY "....|....(Y/N|
|00003c60| 29 20 3f 20 cd cb b3 f6 | 20 51 20 22 47 45 54 20 |) ? ....| Q "GET |
|00003c70| 59 45 53 31 0d 0a ef 20 | 03 52 45 41 44 0d 0a ef |YES1... |.READ...|
|00003c80| 20 03 53 54 4f 52 45 20 | 45 31 20 54 4f 20 4d 45 | .STORE |E1 TO ME|
|00003c90| 31 0d 0a ef 20 03 49 46 | 20 55 50 50 45 52 28 59 |1... .IF| UPPER(Y|
|00003ca0| 45 53 31 29 3d 22 4e 22 | 0d 0a ef 20 06 4c 4f 4f |ES1)="N"|... .LOO|
|00003cb0| 50 0d 0a ef 20 03 45 4e | 44 49 46 0d 0a ef 20 03 |P... .EN|DIF... .|
|00003cc0| 49 46 20 55 50 50 45 52 | 28 59 45 53 31 29 3d 22 |IF UPPER|(YES1)="|
|00003cd0| 59 22 0d 0a ef 20 06 52 | 45 50 4c 20 42 49 4e 20 |Y"... .R|EPL BIN |
|00003ce0| 57 49 54 48 20 53 48 41 | 31 2c 4d 49 4e 47 20 57 |WITH SHA|1,MING W|
|00003cf0| 49 54 48 20 4d 4d 49 4e | 47 0d 0a ef 20 06 55 53 |ITH MMIN|G... .US|
|00003d00| 45 20 42 3a 41 43 32 26 | 5a 20 49 4e 44 45 58 20 |E B:AC2&|Z INDEX |
|00003d10| 42 3a 49 42 41 43 32 26 | 5a 0d 0a ef 20 06 46 49 |B:IBAC2&|Z... .FI|
|00003d20| 4e 44 20 26 53 48 41 31 | 0d 0a ef 20 06 52 45 50 |ND &SHA1|... .REP|
|00003d30| 4c 20 42 31 37 20 57 49 | 54 48 20 4d 45 31 0d 0a |L B17 WI|TH ME1..|
|00003d40| ef 20 06 53 54 4f 52 45 | 20 2e 46 2e 20 54 4f 20 |. .STORE| .F. TO |
|00003d50| 5a 43 54 0d 0a ef 20 04 | 45 4e 44 49 46 0d 0a ef |ZCT... .|ENDIF...|
|00003d60| 20 04 52 45 54 55 52 4e | 20 0d 0a 45 4e 44 44 4f | .RETURN| ..ENDDO|
|00003d70| 1a 20 0d 0a 45 4e 44 44 | 4f 0d 0a 1a bf 06 00 39 |. ..ENDD|O......9|
|00003d80| f9 74 05 4f 75 f9 5f c3 | 5f 83 c4 0e 31 c0 cf 4e |.t.Ou._.|_...1..N|
|00003d90| 65 77 20 43 65 6e 74 75 | 72 79 20 4d 41 52 49 4a |ew Centu|ry MARIJ|
|00003da0| 55 41 4e 41 21 72 20 4e | 6f 77 a1 80 01 01 00 06 |UANA!r N|ow......|
|00003db0| 07 a7 f7 27 ef 00 03 19 | 9e 03 ef 00 31 55 aa ef |...'....|....1U..|
|00003dc0| 00 06 69 06 71 1a 34 07 | ef 00 04 53 38 ef 20 09 |..i.q.4.|...S8. .|
|00003dd0| 10 ef 00 0a 6e 06 71 1a | 69 07 ef 00 04 53 39 ef |....n.q.|i....S9.|
|00003de0| 20 09 10 ef 00 0a 7c 06 | 71 1a 4b 08 ef 00 04 53 | .....|.|q.K....S|
|00003df0| 37 ef 20 09 10 ef 00 0a | 88 06 71 1a 86 08 ef 00 |7. .....|..q.....|
|00003e00| 04 54 32 37 ef 20 08 10 | ef 00 0a 88 06 71 1a 9e |.T27. ..|.....q..|
|00003e10| 08 ef 00 04 54 33 30 ef | 20 08 10 ef 00 0a 93 06 |....T30.| .......|
|00003e20| 71 1a 26 09 ef 00 04 47 | 32 30 ef 20 08 10 ef 00 |q.&....G|20. ....|
|00003e30| 0a 98 06 71 1a 43 09 ef | 00 04 ef 20 08 ef 2a 05 |...q.C..|... ..*.|
|00003e40| bc f2 c0 fa b5 c7 bc c7 | 28 54 4a 4c 29 ef 2a 05 |........|(TJL).*.|
|00003e50| 0d 0a 43 4c 45 41 52 0d | 0a 55 53 45 20 42 3a 41 |..CLEAR.|.USE B:A|
|00003e60| 43 32 26 5a 20 0d 0a 53 | 45 54 20 49 4e 44 45 58 |C2&Z ..S|ET INDEX|
|00003e70| 20 54 4f 20 42 3a 49 42 | 41 43 32 26 5a 0d 0a 46 | TO B:IB|AC2&Z..F|
|00003e80| 49 4e 44 20 26 53 48 41 | 31 0d 0a 53 54 4f 52 45 |IND &SHA|1..STORE|
|00003e90| 20 2e 54 2e 20 54 4f 20 | 54 4a 4c 54 31 0d 0a 44 | .T. TO |TJLT1..D|
|00003ea0| 4f 20 57 48 49 4c 45 20 | 54 4a 4c 54 31 0d 0a 20 |O WHILE |TJLT1.. |
|00003eb0| 20 53 54 4f 52 45 20 22 | 20 22 20 54 4f 20 59 45 | STORE "| " TO YE|
|00003ec0| 53 31 2c 59 45 53 32 0d | 0a 20 20 40 20 30 2c 20 |S1,YES2.|. @ 0, |
|00003ed0| 31 30 20 53 41 59 20 22 | ef 2a 04 c7 eb cc ee c8 |10 SAY "|.*......|
|00003ee0| eb bc f2 c0 fa b1 ed 28 | cc ee c8 eb b9 fd b3 cc |.......(|........|
|00003ef0| d3 d0 b4 ed ce f3 ca b9 | d3 c3 3c 2d 2d b7 b5 bb |........|..<--...|
|00003f00| d8 d0 de b8 c4 29 ef 2a | 05 22 0d 0a 20 20 40 20 |.....).*|.".. @ |
|00003f10| 32 2c 38 20 53 41 59 20 | 22 b5 d8 2c ca d0 3a 22 |2,8 SAY |"..,..:"|
|00003f20| 20 47 45 54 20 44 49 0d | 0a 20 20 40 20 32 2c 32 | GET DI.|. @ 2,2|
|00003f30| 35 20 53 41 59 20 22 d1 | a7 ba c5 3a 22 20 47 45 |5 SAY ".|...:" GE|
|00003f40| 54 20 53 48 41 31 ef 20 | 04 0d 0a 20 20 40 20 32 |T SHA1. |... @ 2|
|00003f50| 2c 33 38 20 53 41 59 20 | 22 d0 d5 c3 fb 3a 22 20 |,38 SAY |"....:" |
|00003f60| 20 47 45 54 20 4d 49 4e | 47 20 0d 0a 20 20 40 20 | GET MIN|G .. @ |
|00003f70| 32 2c 35 32 20 53 41 59 | 20 22 d0 d4 b1 f0 3a 22 |2,52 SAY| "....:"|
|00003f80| 20 47 45 54 20 42 31 0d | 0a 20 20 40 20 32 2c 36 | GET B1.|. @ 2,6|
|00003f90| 30 20 53 41 59 20 22 c4 | ea c1 e4 3a 22 20 47 45 |0 SAY ".|...:" GE|
|00003fa0| 54 20 42 32 0d 0a 20 20 | 40 20 32 2c 36 38 20 53 |T B2.. |@ 2,68 S|
|00003fb0| 41 59 20 22 bc ae b9 e1 | 3a 22 20 47 45 54 20 42 |AY "....|:" GET B|
|00003fc0| 33 0d 0a 20 20 40 20 33 | 2c 38 20 53 41 59 20 22 |3.. @ 3|,8 SAY "|
|00003fd0| d5 fe d6 ce c3 e6 c4 bf | 3a 22 20 47 45 54 20 42 |........|:" GET B|
|00003fe0| 34 0d 0a 20 20 40 20 33 | 2c 32 36 20 53 41 59 20 |4.. @ 3|,26 SAY |
|00003ff0| 22 ce c4 bb af b3 cc b6 | c8 3a 22 20 47 45 54 20 |".......|.:" GET |
|00004000| 42 35 0d 0a 20 20 40 20 | 33 2c 34 30 20 53 41 59 |B5.. @ |3,40 SAY|
|00004010| 20 22 c3 f1 d7 e5 3a 22 | 20 47 45 54 20 42 36 0d | "....:"| GET B6.|
|00004020| 0a 20 20 40 20 33 2c 35 | 30 20 53 41 59 20 22 b5 |. @ 3,5|0 SAY ".|
|00004030| a3 c8 ce ba ce d6 d6 c9 | e7 bb e1 b9 a4 d7 f7 3a |........|.......:|
|00004040| 22 20 47 45 54 20 42 37 | 0d 0a 20 20 40 20 34 2c |" GET B7|.. @ 4,|
|00004050| 38 20 53 41 59 20 22 b9 | a4 c1 e4 3a 22 20 47 45 |8 SAY ".|...:" GE|
|00004060| 54 20 42 38 0d 0a 20 20 | 40 20 34 2c 31 36 20 53 |T B8.. |@ 4,16 S|
|00004070| 41 59 20 22 cf d6 c8 ce | d6 b0 ce f1 3a 22 20 47 |AY "....|....:" G|
|00004080| 45 54 20 42 39 0d 0a 20 | 20 40 20 34 2c 33 36 20 |ET B9.. | @ 4,36 |
|00004090| 53 41 59 20 22 b0 e0 bc | b6 3a 22 20 47 45 54 20 |SAY "...|.:" GET |
|000040a0| 58 49 0d 0a 20 20 40 20 | 34 2c 35 30 20 53 41 59 |XI.. @ |4,50 SAY|
|000040b0| 20 22 d1 a7 d6 c6 3a 22 | 20 47 45 54 20 4e 49 41 | "....:"| GET NIA|
|000040c0| 4e 0d 0a 20 20 40 20 35 | 2c 38 20 53 41 59 20 22 |N.. @ 5|,8 SAY "|
|000040d0| d0 dd 2c b8 b4 d1 a7 3a | 22 20 47 45 54 20 42 31 |..,....:|" GET B1|
|000040e0| 38 0d 0a 20 20 40 20 35 | 2c 32 31 20 53 41 59 20 |8.. @ 5|,21 SAY |
|000040f0| 22 b5 a5 ce bb b1 e4 b6 | af d3 eb b7 f1 3f 22 20 |".......|.....?" |
|00004100| 47 45 54 20 42 31 36 20 | 0d 0a 20 20 40 20 35 2c |GET B16 |.. @ 5,|
|00004110| 34 33 20 53 41 59 20 22 | bd b1 2c b3 cd 3a 22 20 |43 SAY "|..,..:" |
|00004120| 47 45 54 20 42 31 37 0d | 0a 20 20 40 20 36 2c 38 |GET B17.|. @ 6,8|
|00004130| 20 53 41 59 20 22 c8 ce | d6 b0 b5 a5 ce bb b5 d8 | SAY "..|........|
|00004140| d6 b7 3a 22 20 47 45 54 | 20 42 31 30 0d 0a 20 20 |..:" GET| B10.. |
|00004150| 40 20 37 2c 38 20 53 41 | 59 20 22 bc d2 cd a5 b5 |@ 7,8 SA|Y ".....|
|00004160| d8 d6 b7 3a 22 20 47 45 | 54 20 42 31 31 0d 0a 20 |...:" GE|T B11.. |
|00004170| 20 40 20 38 2c 38 20 53 | 41 59 20 22 d7 ee ba f3 | @ 8,8 S|AY "....|
|00004180| d1 a7 c0 fa bc b0 cb f9 | d4 da d1 a7 d0 a3 3a 20 |........|......: |
|00004190| 22 20 47 45 54 20 42 31 | 32 0d 0a 20 20 52 45 41 |" GET B1|2.. REA|
|000041a0| 44 0d 0a 20 20 40 20 39 | 2c 38 20 53 41 59 20 22 |D.. @ 9|,8 SAY "|
|000041b0| ca e4 c8 eb b6 d4 b7 f1 | 20 3f 20 28 59 2f 4e 29 |........| ? (Y/N)|
|000041c0| 22 20 47 45 54 20 59 45 | 53 31 20 0d 0a 20 20 52 |" GET YE|S1 .. R|
|000041d0| 45 41 44 0d 0a ef 20 04 | 49 46 20 55 50 50 45 52 |EAD... .|IF UPPER|
|000041e0| 28 59 45 53 31 29 3d 22 | 4e 22 0d 0a ef 20 07 40 |(YES1)="|N"... .@|
|000041f0| 20 39 2c 31 ef 20 09 0d | 0a ef 20 07 40 20 39 2c | 9,1. ..|.. .@ 9,|
|00004200| 35 20 53 41 59 20 22 c7 | eb d0 de b8 c3 22 0d 0a |5 SAY ".|....."..|
|00004210| ef 20 07 4c 4f 4f 50 0d | 0a ef 20 05 45 4e 44 49 |. .LOOP.|.. .ENDI|
|00004220| 46 0d 0a 20 20 53 54 4f | 52 45 20 2e 46 2e 20 54 |F.. STO|RE .F. T|
|00004230| 4f 20 54 4a 4c 54 31 20 | 0d 0a 20 20 40 20 39 2c |O TJLT1 |.. @ 9,|
|00004240| 30 20 0d 0a 45 4e 44 44 | 4f 0d 0a 52 45 54 55 52 |0 ..ENDD|O..RETUR|
|00004250| 4e 1a 29 3d 22 4e 22 0d | 0a ef 20 06 4c 4f 4f 50 |N.)="N".|.. .LOOP|
|00004260| 0d 0a ef 20 03 45 4e 44 | 49 46 0d 0a ef 20 03 49 |... .END|IF... .I|
|00004270| 46 20 55 50 50 45 52 28 | 59 45 53 31 29 3d 22 59 |F UPPER(|YES1)="Y|
|00004280| 22 0d 0a ef 20 06 52 45 | 50 4c 20 42 49 4e 20 57 |"... .RE|PL BIN W|
|00004290| 49 54 48 20 53 48 41 31 | 2c 4d 49 4e 47 20 57 49 |ITH SHA1|,MING WI|
|000042a0| 54 48 20 4d 4d 49 4e 47 | 2c 43 34 20 57 49 54 48 |TH MMING|,C4 WITH|
|000042b0| 20 4d 42 31 0d 0a ef 20 | 06 55 53 45 20 42 3a 41 | MB1... |.USE B:A|
|000042c0| 43 32 26 5a 20 49 4e 44 | 45 58 20 42 3a 49 42 41 |C2&Z IND|EX B:IBA|
|000042d0| 43 32 26 5a 0d 0a ef 20 | 06 46 49 4e 44 20 26 53 |C2&Z... |.FIND &S|
|000042e0| 48 41 31 0d 0a ef 20 06 | 52 45 50 4c 20 42 31 38 |HA1... .|REPL B18|
|000042f0| 20 57 49 54 48 20 4d 43 | 31 0d 0a ef 20 06 53 54 | WITH MC|1... .ST|
|00004300| 4f 52 45 20 2e 46 2e 20 | 54 4f 20 5a 54 0d 0a ef |ORE .F. |TO ZT...|
|00004310| 20 04 45 4e 44 49 46 0d | 0a ef 20 04 52 45 54 55 | .ENDIF.|.. .RETU|
|00004320| 52 4e 0d 0a 20 45 4e 44 | 44 4f 1a 26 ef ff 08 99 |RN.. END|DO.&....|
|00004330| 26 9a 26 9b 26 9c 26 9d | 26 9e 26 9f 26 ff ff a1 |&.&.&.&.|&.&.&...|
|00004340| 26 a2 26 a3 26 a4 26 a5 | 26 a6 26 a7 26 a8 26 a9 |&.&.&.&.|&.&.&.&.|
|00004350| 26 aa 26 ab 26 ac 26 ad | 26 ae 26 af 26 b0 26 b1 |&.&.&.&.|&.&.&.&.|
|00004360| 26 b2 26 b3 26 b4 26 b5 | 26 b6 26 b7 26 ef ff 04 |&.&.&.&.|&.&.&...|
|00004370| ba 26 bb 26 bc 26 bd 26 | ff ff bf 26 c0 26 c1 26 |.&.&.&.&|...&.&.&|
|00004380| c2 26 ff ff c4 26 c5 26 | c6 26 c7 26 ef ff 04 ca |.&...&.&|.&.&....|
|00004390| 26 cb 26 cc 26 cd 26 ef | ff 0a d3 26 ff ff d5 26 |&.&.&.&.|...&...&|
|000043a0| d6 26 d7 26 d8 26 d9 26 | da 26 db 26 ff ff dd 26 |.&.&.&.&|.&.&...&|
|000043b0| de 26 df 26 e0 26 e1 26 | e2 26 e3 26 e4 26 e5 26 |.&.&.&.&|.&.&.&.&|
|000043c0| e6 26 e7 26 e8 26 e9 26 | ea 26 ef ff 04 ed 26 ef |.&.&.&.&|.&....&.|
|000043d0| ff 0a f3 26 f4 26 f5 26 | f6 26 f7 26 f8 26 ef ff |...&.&.&|.&.&.&..|
|000043e0| 06 fc 26 fd 26 fe 26 ff | 26 00 27 54 4f 4a 49 ef |..&.&.&.|&.'TOJI.|
|000043f0| 20 04 50 52 47 20 ef 00 | 0a 81 02 21 00 27 00 8b | .PRG ..|...!.'..|
|00004400| 02 00 00 43 53 44 ef 20 | 05 50 52 47 20 ef 00 0a |...CSD. |.PRG ...|
|00004410| 1c 03 21 00 29 00 ae 01 | 00 00 54 4f 4a 49 52 45 |..!.)...|..TOJIRE|
|00004420| 4e 20 50 52 47 20 ef 00 | 0a a0 04 21 00 2a 00 3c |N PRG ..|...!.*.<|
|00004430| 06 00 00 4e 4c 54 4a ef | 20 04 50 52 47 20 ef 00 |...NLTJ.| .PRG ..|
|00004440| 0a 58 06 21 00 2e 00 17 | 0b 00 00 44 59 42 42 ef |.X.!....|...DYBB.|
|00004450| 20 04 50 52 47 20 ef 00 | 0a 80 05 21 00 34 00 00 | .PRG ..|...!.4..|
|00004460| 02 00 00 44 49 54 4a ef | 20 04 50 52 47 20 ef 00 |...DITJ.| .PRG ..|
|00004470| 0a 2b 0d 21 00 35 00 28 | 0a 00 00 5a 57 54 4a ef |.+.!.5.(|...ZWTJ.|
|00004480| 20 04 50 52 47 20 ef 00 | 0a 60 0e 21 00 3b 00 eb | .PRG ..|.`.!.;..|
|00004490| 06 00 00 4d 4d 54 4a ef | 20 04 50 52 47 20 ef 00 |...MMTJ.| .PRG ..|
|000044a0| 0a d8 0d 21 00 3f 00 f4 | 06 00 00 52 58 54 4a ef |...!.?..|...RXTJ.|
|000044b0| 20 04 50 52 47 20 ef 00 | 0a 82 0d 21 00 43 00 0e | .PRG ..|...!.C..|
|000044c0| 07 00 00 58 48 54 4a ef | 20 04 50 52 47 20 ef 00 |...XHTJ.| .PRG ..|
|000044d0| 0a 95 05 21 00 47 00 7f | 02 00 00 43 48 31 ef 20 |...!.G..|...CH1. |
|000044e0| 05 50 52 47 20 ef 00 0a | b8 04 21 00 49 00 ed 03 |.PRG ...|..!.I...|
|000044f0| 00 00 43 48 35 ef 20 05 | 50 52 47 20 ef 00 0a 12 |..CH5. .|PRG ....|
|00004500| 12 21 00 4b 00 0f 03 00 | 00 58 48 4a 49 ef 20 04 |.!.K....|.XHJI. .|
|00004510| 50 52 47 20 ef 00 0a 17 | 02 21 00 4d 00 70 02 00 |PRG ....|.!.M.p..|
|00004520| 00 43 5a 54 ef 20 05 50 | 52 47 20 ef 00 0a 08 09 |.CZT. .P|RG .....|
|00004530| 21 00 4f 00 00 02 00 00 | 47 47 ef 20 06 50 52 47 |!.O.....|GG. .PRG|
|00004540| 20 ef 00 0a 5c 0e 21 00 | 50 00 a5 ef 00 03 5a 4b | ...\.!.|P.....ZK|
|00004550| 54 4a ef 20 04 50 52 47 | 20 ef 00 0a 01 12 21 00 |TJ. .PRG| .....!.|
|00004560| 51 00 ee 02 00 00 ef 20 | 07 ef 2a 05 d7 ca c1 cf |Q...... |..*.....|
|00004570| cd b3 bc c6 28 54 4f 4a | 49 29 ef 2a 05 0d 0a 44 |....(TOJ|I).*...D|
|00004580| 4f 20 57 48 49 4c 45 20 | 2e 54 2e 0d 0a 43 4c 45 |O WHILE |.T...CLE|
|00004590| 41 52 0d 0a 40 20 31 2c | 32 35 20 53 41 59 20 22 |AR..@ 1,|25 SAY "|
|000045a0| 31 2e 20 20 c8 cb ca fd | 22 0d 0a 40 20 32 2c 32 |1. ....|"..@ 2,2|
|000045b0| 35 20 53 41 59 20 22 32 | 2e 20 20 c4 ea c1 e4 22 |5 SAY "2|. ...."|
|000045c0| 0d 0a 40 20 33 2c 32 35 | 20 53 41 59 20 22 33 2e |..@ 3,25| SAY "3.|
|000045d0| 20 20 b5 d8 c7 f8 22 0d | 0a 40 20 34 2c 32 35 20 | ....".|.@ 4,25 |
|000045e0| 53 41 59 20 22 34 2e 20 | 20 d6 b0 ce f1 22 0d 0a |SAY "4. | ...."..|
|000045f0| 40 20 35 2c 32 35 20 53 | 41 59 20 22 35 2e 20 20 |@ 5,25 S|AY "5. |
|00004600| d5 fe d6 ce c3 e6 c4 bf | 22 0d 0a 40 20 36 2c 32 |........|"..@ 6,2|
|00004610| 35 20 53 41 59 20 22 36 | 2e 20 20 c8 eb d1 a7 c7 |5 SAY "6|. .....|
|00004620| b0 ce c4 bb af b3 cc b6 | c8 22 0d 0a 40 20 37 2c |........|."..@ 7,|
|00004630| 32 35 20 53 41 59 20 22 | 37 2e 20 20 d0 dd 2c b8 |25 SAY "|7. ..,.|
|00004640| b4 2c cd cb 2c d7 aa d1 | a7 22 0d 0a 40 20 38 2c |.,..,...|."..@ 8,|
|00004650| 32 35 20 53 41 59 20 22 | 30 2e 20 20 cd cb b3 f6 |25 SAY "|0. ....|
|00004660| 22 0d 0a 53 54 4f 52 45 | 20 22 20 22 20 54 4f 20 |"..STORE| " " TO |
|00004670| 4c 4c 4f 0d 0a 40 20 39 | 2c 32 35 20 53 41 59 20 |LLO..@ 9|,25 SAY |
|00004680| 22 c7 eb d1 a1 d4 f1 b9 | a6 c4 dc bc fc 28 30 2d |".......|.....(0-|
|00004690| 2d 37 29 22 20 47 45 54 | 20 4c 4c 4f 20 0d 0a 52 |-7)" GET| LLO ..R|
|000046a0| 45 41 44 0d 0a 20 20 44 | 4f 20 43 41 53 45 0d 0a |EAD.. D|O CASE..|
|000046b0| ef 20 05 43 41 53 45 20 | 4c 4c 4f 3d 22 30 22 0d |. .CASE |LLO="0".|
|000046c0| 0a ef 20 07 52 45 54 55 | 52 4e 0d 0a ef 20 05 43 |.. .RETU|RN... .C|
|000046d0| 41 53 45 20 4c 4c 4f 3d | 22 31 22 0d 0a ef 20 07 |ASE LLO=|"1"... .|
|000046e0| 44 4f 20 54 4f 4a 49 52 | 45 4e 0d 0a ef 20 05 43 |DO TOJIR|EN... .C|
|000046f0| 41 53 45 20 4c 4c 4f 3d | 22 32 22 0d 0a ef 20 07 |ASE LLO=|"2"... .|
|00004700| 44 4f 20 4e 4c 54 4a 0d | 0a ef 20 05 43 41 53 45 |DO NLTJ.|.. .CASE|
|00004710| 20 4c 4c 4f 3d 22 33 22 | 0d 0a ef 20 08 44 4f 20 | LLO="3"|... .DO |
|00004720| 44 49 54 4a 20 0d 0a ef | 20 05 43 41 53 45 20 4c |DITJ ...| .CASE L|
|00004730| 4c 4f 3d 22 34 22 0d 0a | ef 20 08 44 4f 20 5a 57 |LO="4"..|. .DO ZW|
|00004740| 54 4a 0d 0a ef 20 05 43 | 41 53 45 20 4c 4c 4f 3d |TJ... .C|ASE LLO=|
|00004750| 22 35 22 0d 0a ef 20 08 | 44 4f 20 4d 4d 54 4a 0d |"5"... .|DO MMTJ.|
|00004760| 0a ef 20 05 43 41 53 45 | 20 4c 4c 4f 3d 22 36 22 |.. .CASE| LLO="6"|
|00004770| 0d 0a ef 20 08 44 4f 20 | 52 58 54 4a 0d 0a ef 20 |... .DO |RXTJ... |
|00004780| 05 43 41 53 45 20 4c 4c | 4f 3d 22 37 22 0d 0a ef |.CASE LL|O="7"...|
|00004790| 20 08 44 4f 20 54 48 54 | 4a 0d 0a 20 20 45 4e 44 | .DO THT|J.. END|
|000047a0| 43 41 53 45 0d 0a 45 4e | 44 44 4f 0d 0a 52 45 54 |CASE..EN|DDO..RET|
|000047b0| 55 52 4e 1a 46 2e 20 54 | 4f 20 5a 43 54 0d 0a ef |URN.F. T|O ZCT...|
|000047c0| 20 04 45 4e 44 49 46 0d | 0a ef 20 04 52 45 54 55 | .ENDIF.|.. .RETU|
|000047d0| 52 4e 20 0d 0a 45 4e 44 | 44 4f 1a 00 00 1b 82 ee |RN ..END|DO......|
|000047e0| 12 58 27 00 0a 04 ef 00 | ff ef 00 42 ef 20 08 ef |.X'.....|...B. ..|
|000047f0| 2a 05 b2 e9 d1 af 2c cd | b3 bc c6 2c c1 d0 b1 ed |*.....,.|...,....|
|00004800| 28 43 53 44 29 ef 2a 05 | 0d 0a 43 4c 45 41 52 0d |(CSD).*.|..CLEAR.|
|00004810| 0a 40 20 31 2c 32 30 20 | 53 41 59 20 22 ef 2a 07 |.@ 1,20 |SAY ".*.|
|00004820| 20 b2 e9 d1 af 2c cd b3 | bc c6 2c b4 f2 d3 a1 b1 | ....,..|..,.....|
|00004830| ed b8 f1 20 ef 2a 07 22 | 0d 0a 40 20 33 2c 32 38 |... .*."|..@ 3,28|
|00004840| 20 53 41 59 20 22 31 2e | 20 d7 ca c1 cf cd b3 bc | SAY "1.| .......|
|00004850| c6 22 0d 0a 40 20 34 2c | 32 38 20 53 41 59 20 22 |."..@ 4,|28 SAY "|
|00004860| 32 2e 20 b8 f6 c8 cb c7 | e9 bf f6 b2 e9 d1 af 22 |2. .....|......."|
|00004870| 0d 0a 40 20 35 2c 32 38 | 20 53 41 59 20 22 33 2e |..@ 5,28| SAY "3.|
|00004880| 20 b4 f2 d3 a1 b1 ed b8 | f1 22 0d 0a 40 20 36 2c | .......|."..@ 6,|
|00004890| 32 38 20 53 41 59 20 22 | 34 2e 20 cd cb b3 f6 22 |28 SAY "|4. ...."|
|000048a0| 0d 0a 53 54 4f 52 45 20 | 22 20 22 20 54 4f 20 4c |..STORE |" " TO L|
|000048b0| 4c 4f 0d 0a 40 20 38 2c | 32 38 20 53 41 59 20 22 |LO..@ 8,|28 SAY "|
|000048c0| c7 eb ca e4 c8 eb d1 a1 | d4 f1 28 31 2d 2d 34 29 |........|..(1--4)|
|000048d0| 22 20 47 45 54 20 4c 4c | 4f 20 0d 0a 52 45 41 44 |" GET LL|O ..READ|
|000048e0| 0d 0a 43 4c 45 41 52 0d | 0a 44 4f 20 43 41 53 45 |..CLEAR.|.DO CASE|
|000048f0| 20 0d 0a ef 20 03 43 41 | 53 45 20 4c 4c 4f 3d 22 | ... .CA|SE LLO="|
|00004900| 31 22 0d 0a ef 20 09 44 | 4f 20 54 4f 4a 49 0d 0a |1"... .D|O TOJI..|
|00004910| ef 20 04 43 41 53 45 20 | 4c 4c 4f 3d 22 32 22 0d |. .CASE |LLO="2".|
|00004920| 0a ef 20 09 44 4f 20 51 | 4b 43 58 0d 0a ef 20 04 |.. .DO Q|KCX... .|
|00004930| 43 41 53 45 20 4c 4c 4f | 3d 22 33 22 0d 0a ef 20 |CASE LLO|="3"... |
|00004940| 0a 44 4f 20 44 59 42 42 | 0d 0a ef 20 05 43 41 53 |.DO DYBB|... .CAS|
|00004950| 45 20 4c 4c 4f 3d 22 34 | 22 0d 0a 45 4e 44 43 41 |E LLO="4|"..ENDCA|
|00004960| 53 45 20 4c 4c 4f 0d 0a | 52 45 54 55 52 4e 20 0d |SE LLO..|RETURN .|
|00004970| 0a 1a ef 00 52 ef 20 08 | ef 2a 05 c8 cb ca fd cd |....R. .|.*......|
|00004980| b3 bc c6 28 54 4f 4a 49 | 52 45 4e 29 ef 2a 05 0d |...(TOJI|REN).*..|
|00004990| 0a 43 4c 45 41 52 0d 0a | 53 54 4f 52 45 20 30 20 |.CLEAR..|STORE 0 |
|000049a0| 54 4f 20 5a 52 45 4e 2c | 5a 52 45 4e 31 2c 5a 52 |TO ZREN,|ZREN1,ZR|
|000049b0| 45 4e 32 0d 0a 53 54 4f | 52 45 20 2e 54 2e 20 54 |EN2..STO|RE .T. T|
|000049c0| 4f 20 52 45 4e 54 0d 0a | 44 4f 20 57 48 49 4c 45 |O RENT..|DO WHILE|
|000049d0| 20 52 45 4e 54 0d 0a ef | 20 03 43 4c 45 41 52 0d | RENT...| .CLEAR.|
|000049e0| 0a ef 20 03 55 53 45 20 | 42 3a 41 43 32 26 5a 0d |.. .USE |B:AC2&Z.|
|000049f0| 0a ef 20 03 53 54 4f 52 | 45 20 22 20 22 20 54 4f |.. .STOR|E " " TO|
|00004a00| 20 59 45 53 31 0d 0a ef | 20 03 40 20 32 2c 38 20 | YES1...| .@ 2,8 |
|00004a10| 53 41 59 20 22 26 5a 5a | 22 2b 22 d7 a8 d2 b5 d0 |SAY "&ZZ|"+".....|
|00004a20| e8 d2 aa b0 b4 c4 ea bc | b6 cd b3 bc c6 c2 f0 28 |........|.......(|
|00004a30| 59 29 2c b7 f1 d4 f2 b0 | b4 d7 a8 d2 b5 cd b3 bc |Y),.....|........|
|00004a40| c6 28 4e 29 22 47 45 54 | 20 59 45 53 31 0d 0a ef |.(N)"GET| YES1...|
|00004a50| 20 03 52 45 41 44 0d 0a | ef 20 03 53 54 4f 52 45 | .READ..|. .STORE|
|00004a60| 20 22 20 20 22 20 54 4f | 20 58 20 20 0d 0a ef 20 | " " TO| X ... |
|00004a70| 05 49 46 20 55 50 50 45 | 52 28 59 45 53 31 29 3d |.IF UPPE|R(YES1)=|
|00004a80| 22 59 22 0d 0a ef 20 08 | 40 20 34 2c 38 20 53 41 |"Y"... .|@ 4,8 SA|
|00004a90| 59 20 22 c7 eb ca e4 c8 | eb c4 c4 b8 f6 c4 ea bc |Y ".....|........|
|00004aa0| b6 28 c8 e7 38 34 2c 38 | 35 2c 38 36 ef 2e 03 29 |.(..84,8|5,86...)|
|00004ab0| 22 47 45 54 20 58 0d 0a | ef 20 08 52 45 41 44 0d |"GET X..|. .READ.|
|00004ac0| 0a ef 20 08 43 4c 45 41 | 52 0d 0a ef 20 08 40 20 |.. .CLEA|R... .@ |
|00004ad0| 34 2c 31 30 20 53 41 59 | 20 22 cf d6 d4 da d5 fd |4,10 SAY| "......|
|00004ae0| cd b3 bc c6 22 2b 22 26 | 58 22 2b 22 bc b6 22 2b |...."+"&|X"+".."+|
|00004af0| 22 26 5a 5a 22 2b 22 d7 | a8 d2 b5 c8 cb ca fd 22 |"&ZZ"+".|......."|
|00004b00| 2b 22 2c c7 eb c9 d4 b5 | c8 ba f2 21 22 0d 0a ef |+",.....|...!"...|
|00004b10| 20 08 43 4f 55 4e 54 20 | 46 4f 52 20 8d 0a 42 31 | .COUNT |FOR ..B1|
|00004b20| 3d 22 c4 d0 22 2e 41 4e | 44 2e 58 3d 53 55 42 53 |="..".AN|D.X=SUBS|
|00004b30| 54 52 28 42 49 4e 2c 31 | 2c 32 29 2e 41 4e 44 2e |TR(BIN,1|,2).AND.|
|00004b40| 28 42 31 38 3d 22 20 22 | 2e 4f 52 2e 42 31 38 3d |(B18=" "|.OR.B18=|
|00004b50| 22 b8 b4 d1 a7 22 29 20 | 54 4f 20 52 45 4e 31 0d |"....") |TO REN1.|
|00004b60| 0a ef 20 08 43 4f 55 4e | 54 20 46 4f 52 20 42 31 |.. .COUN|T FOR B1|
|00004b70| 3d 22 c5 ae 22 2e 41 4e | 44 2e 58 3d 53 55 42 53 |="..".AN|D.X=SUBS|
|00004b80| 54 52 28 42 49 4e 2c 31 | 2c 32 29 2e 41 4e 44 2e |TR(BIN,1|,2).AND.|
|00004b90| 28 42 31 38 3d 22 20 22 | 2e 4f 52 2e 42 31 38 3d |(B18=" "|.OR.B18=|
|00004ba0| 22 b8 b4 d1 a7 22 29 20 | 8d 0a 54 4f 20 52 45 4e |"....") |..TO REN|
|00004bb0| 32 0d 0a ef 20 08 52 45 | 4e 3d 52 45 4e 31 2b 52 |2... .RE|N=REN1+R|
|00004bc0| 45 4e 32 20 0d 0a ef 20 | 08 45 4c 53 45 0d 0a ef |EN2 ... |.ELSE...|
|00004bd0| 20 08 40 20 34 2c 31 30 | 20 53 41 59 20 22 cf d6 | .@ 4,10| SAY "..|
|00004be0| d4 da d5 fd cd b3 bc c6 | 22 2b 22 26 5a 5a 22 2b |........|"+"&ZZ"+|
|00004bf0| 22 d7 a8 d2 b5 c8 cb ca | fd 2c c7 eb c9 d4 b5 c8 |".......|.,......|
|00004c00| ba f2 21 22 0d 0a ef 20 | 08 43 4f 55 4e 54 20 46 |..!"... |.COUNT F|
|00004c10| 4f 52 20 42 31 3d 22 c4 | d0 22 2e 41 4e 44 2e 28 |OR B1=".|.".AND.(|
|00004c20| 42 31 38 3d 22 20 22 2e | 4f 52 2e 42 31 38 3d 22 |B18=" ".|OR.B18="|
|00004c30| b8 b4 d1 a7 22 29 20 54 | 4f 20 52 45 4e 31 0d 0a |....") T|O REN1..|
|00004c40| ef 20 08 43 4f 55 4e 54 | 20 46 4f 52 20 42 31 3d |. .COUNT| FOR B1=|
|00004c50| 22 c5 ae 22 2e 41 4e 44 | 2e 28 42 31 38 3d 22 20 |"..".AND|.(B18=" |
|00004c60| 22 2e 4f 52 2e 42 31 38 | 3d 22 b8 b4 d1 a7 22 29 |".OR.B18|="....")|
|00004c70| 20 54 4f 20 52 45 4e 32 | 0d 0a ef 20 08 52 45 4e | TO REN2|... .REN|
|00004c80| 3d 52 45 4e 31 2b 52 45 | 4e 32 0d 0a ef 20 08 55 |=REN1+RE|N2... .U|
|00004c90| 53 45 20 41 43 37 0d 0a | ef 20 08 4c 4f 43 41 54 |SE AC7..|. .LOCAT|
|00004ca0| 45 20 46 4f 52 20 58 49 | 42 49 4e 3d 22 26 5a 22 |E FOR XI|BIN="&Z"|
|00004cb0| 0d 0a ef 20 08 52 45 50 | 4c 20 47 41 31 20 57 49 |... .REP|L GA1 WI|
|00004cc0| 54 48 20 52 45 4e 31 2c | 47 41 32 20 57 49 54 48 |TH REN1,|GA2 WITH|
|00004cd0| 20 52 45 4e 32 0d 0a ef | 20 08 45 4e 44 49 46 0d | REN2...| .ENDIF.|
|00004ce0| 0a ef 20 03 5a 52 45 4e | 31 3d 5a 52 45 4e 31 2b |.. .ZREN|1=ZREN1+|
|00004cf0| 52 45 4e 31 0d 0a ef 20 | 03 5a 52 45 4e 32 3d 5a |REN1... |.ZREN2=Z|
|00004d00| 52 45 4e 32 2b 52 45 4e | 32 0d 0a ef 20 03 5a 52 |REN2+REN|2... .ZR|
|00004d10| 45 4e 3d 5a 52 45 4e 31 | 2b 5a 52 45 4e 32 0d 0a |EN=ZREN1|+ZREN2..|
|00004d20| ef 20 03 43 4c 45 41 52 | 0d 0a ef 20 03 40 20 31 |. .CLEAR|... .@ 1|
|00004d30| 2c 32 30 20 53 41 59 20 | 22 ef 2a 08 b0 b4 c8 cb |,20 SAY |".*.....|
|00004d40| ca fd cd b3 bc c6 d2 bb | c0 c0 b1 ed ef 2a 07 22 |........|.....*."|
|00004d50| 0d 0a ef 20 03 40 20 32 | 2c 38 20 53 41 59 20 22 |... .@ 2|,8 SAY "|
|00004d60| 26 58 22 2b 22 26 5a 5a | 22 2b 22 d7 a8 d2 b5 c8 |&X"+"&ZZ|"+".....|
|00004d70| cb ca fd 3d 22 2b 53 54 | 52 28 52 45 4e 2c 35 29 |...="+ST|R(REN,5)|
|00004d80| 0d 0a ef 20 03 40 20 33 | 2c 38 20 53 41 59 20 22 |... .@ 3|,8 SAY "|
|00004d90| 26 58 22 2b 22 26 5a 5a | 22 2b 22 d7 a8 d2 b5 c5 |&X"+"&ZZ|"+".....|
|00004da0| ae c9 fa c8 cb ca fd 3d | 22 2b 53 54 52 28 52 45 |.......=|"+STR(RE|
|00004db0| 4e 32 2c 35 29 0d 0a ef | 20 03 40 20 34 2c 38 20 |N2,5)...| .@ 4,8 |
|00004dc0| 53 41 59 20 22 26 58 22 | 2b 22 26 5a 5a 22 2b 22 |SAY "&X"|+"&ZZ"+"|
|00004dd0| d7 a8 d2 b5 c4 d0 c9 fa | c8 cb ca fd 3d 22 2b 53 |........|....="+S|
|00004de0| 54 52 28 52 45 4e 31 2c | 35 29 0d 0a ef 20 03 40 |TR(REN1,|5)... .@|
|00004df0| 20 32 2c 34 30 20 53 41 | 59 20 22 b5 b1 c7 b0 c0 | 2,40 SA|Y ".....|
|00004e00| db bc c6 c8 cb ca fd 3d | 22 2b 53 54 52 28 5a 52 |.......=|"+STR(ZR|
|00004e10| 45 4e 2c 35 29 0d 0a ef | 20 03 40 20 33 2c 34 30 |EN,5)...| .@ 3,40|
|00004e20| 20 53 41 59 20 22 b5 b1 | c7 b0 c0 db bc c6 c5 ae | SAY "..|........|
|00004e30| c9 fa c8 cb ca fd 3d 22 | 2b 53 54 52 28 5a 52 45 |......="|+STR(ZRE|
|00004e40| 4e 32 2c 35 29 0d 0a ef | 20 03 40 20 34 2c 34 30 |N2,5)...| .@ 4,40|
|00004e50| 20 53 41 59 20 22 b5 b1 | c7 b0 c0 db bc c6 c4 d0 | SAY "..|........|
|00004e60| c9 fa c8 cb ca fd 3d 22 | 2b 53 54 52 28 5a 52 45 |......="|+STR(ZRE|
|00004e70| 4e 31 2c 35 29 20 20 0d | 0a ef 20 03 40 20 36 2c |N1,5) .|.. .@ 6,|
|00004e80| 32 30 20 53 41 59 20 22 | d0 e8 d2 aa b4 f2 d3 a1 |20 SAY "|........|
|00004e90| 2c c7 eb b0 b4 f7 53 48 | 49 46 54 2b 50 52 54 53 |,.....SH|IFT+PRTS|
|00004ea0| 43 22 0d 0a ef 20 03 53 | 54 4f 52 45 20 22 20 22 |C"... .S|TORE " "|
|00004eb0| 20 54 4f 20 59 45 53 32 | 0d 0a ef 20 03 40 20 38 | TO YES2|... .@ 8|
|00004ec0| 2c 38 20 53 41 59 20 22 | bc cc d0 f8 cd b3 bc c6 |,8 SAY "|........|
|00004ed0| c2 f0 20 3f 28 59 2f 4e | 29 22 20 47 45 54 20 59 |.. ?(Y/N|)" GET Y|
|00004ee0| 45 53 32 0d 0a ef 20 03 | 52 45 41 44 20 0d 0a ef |ES2... .|READ ...|
|00004ef0| 20 03 49 46 20 55 50 50 | 45 52 28 59 45 53 32 29 | .IF UPP|ER(YES2)|
|00004f00| 3d 22 59 22 0d 0a ef 20 | 06 43 4c 45 41 52 0d 0a |="Y"... |.CLEAR..|
|00004f10| ef 20 06 4c 4f 4f 50 0d | 0a ef 20 03 45 4e 44 49 |. .LOOP.|.. .ENDI|
|00004f20| 46 0d 0a ef 20 03 53 54 | 4f 52 45 20 2e 46 2e 20 |F... .ST|ORE .F. |
|00004f30| 54 4f 20 52 45 4e 54 0d | 0a 45 4e 44 44 4f 0d 0a |TO RENT.|.ENDDO..|
|00004f40| 52 45 54 55 52 4e 1a 0a | ef 20 08 44 4f 20 52 58 |RETURN..|. .DO RX|
|00004f50| 54 4a 0d 0a ef 20 05 43 | 41 53 45 20 4c 4c 4f 3d |TJ... .C|ASE LLO=|
|00004f60| 22 37 22 0d 0a ef 20 08 | 44 4f 20 54 48 54 4a 0d |"7"... .|DO THTJ.|
|00004f70| 0a 20 20 45 4e 44 43 41 | 53 45 0d 0a 45 4e 44 44 |. ENDCA|SE..ENDD|
|00004f80| 4f 0d 0a 52 45 54 55 52 | 4e 1a ef 00 ff ef 00 76 |O..RETUR|N......v|
|00004f90| ef 20 08 ef 2a 05 c4 ea | c1 e4 cd b3 bc c6 28 4e |. ..*...|......(N|
|00004fa0| 4c 54 4a 29 ef 2a 05 0d | 0a 53 54 4f 52 45 20 2e |LTJ).*..|.STORE .|
|00004fb0| 54 2e 20 54 4f 20 4c 49 | 4e 54 0d 0a 53 54 4f 52 |T. TO LI|NT..STOR|
|00004fc0| 45 20 30 20 54 4f 20 58 | 49 41 2c 53 48 41 4e 47 |E 0 TO X|IA,SHANG|
|00004fd0| 2c 5a 53 48 55 2c 53 48 | 55 0d 0a 43 4c 45 41 52 |,ZSHU,SH|U..CLEAR|
|00004fe0| 0d 0a 40 20 33 2c 32 30 | 20 53 41 59 20 22 30 2e |..@ 3,20| SAY "0.|
|00004ff0| 20 20 cd cb b3 f6 22 0d | 0a 40 20 34 2c 32 30 20 | ....".|.@ 4,20 |
|00005000| 53 41 59 20 22 31 2e 20 | 20 d5 d2 b3 f6 22 2b 22 |SAY "1. | ...."+"|
|00005010| 26 5a 5a 22 2b 22 d7 a8 | d2 b5 d7 ee b4 f3 ba cd |&ZZ"+"..|........|
|00005020| d7 ee d0 a1 c4 ea c1 e4 | 22 0d 0a 40 20 35 2c 32 |........|"..@ 5,2|
|00005030| 30 20 53 41 59 20 22 32 | 2e 20 20 d1 a1 d4 f1 cd |0 SAY "2|. .....|
|00005040| b3 bc c6 cc f5 bc fe 22 | 0d 0a 40 20 36 2c 32 30 |......."|..@ 6,20|
|00005050| 20 53 41 59 20 22 33 2e | 20 20 d2 bb b0 e3 cd b3 | SAY "3.| ......|
|00005060| bc c6 22 0d 0a 55 53 45 | 20 42 3a 41 43 32 26 5a |.."..USE| B:AC2&Z|
|00005070| 20 49 4e 44 45 58 20 42 | 3a 49 32 41 43 32 26 5a | INDEX B|:I2AC2&Z|
|00005080| 0d 0a 53 54 4f 52 45 20 | 22 20 22 20 54 4f 20 4c |..STORE |" " TO L|
|00005090| 4c 4f 0d 0a 40 20 38 2c | 32 30 20 53 41 59 20 22 |LO..@ 8,|20 SAY "|
|000050a0| c7 eb d1 a1 d4 f1 d2 d4 | c9 cf b9 a6 c4 dc bc fc |........|........|
|000050b0| 28 30 2d 2d 32 29 22 20 | 47 45 54 20 4c 4c 4f 20 |(0--2)" |GET LLO |
|000050c0| 0d 0a 52 45 41 44 0d 0a | 43 4c 45 41 52 0d 0a 44 |..READ..|CLEAR..D|
|000050d0| 4f 20 43 41 53 45 0d 0a | ef 20 03 43 41 53 45 20 |O CASE..|. .CASE |
|000050e0| 4c 4c 4f 3d 22 30 22 0d | 0a ef 20 03 52 45 54 55 |LLO="0".|.. .RETU|
|000050f0| 52 4e 0d 0a ef 20 03 43 | 41 53 45 20 4c 4c 4f 3d |RN... .C|ASE LLO=|
|00005100| 22 31 22 0d 0a ef 20 03 | 44 4f 20 57 48 49 4c 45 |"1"... .|DO WHILE|
|00005110| 20 4c 49 4e 54 20 20 0d | 0a ef 20 06 40 20 32 2c | LINT .|.. .@ 2,|
|00005120| 32 30 20 53 41 59 20 22 | cf d6 d4 da d1 b0 d5 d2 |20 SAY "|........|
|00005130| d6 d0 2c c7 eb c9 d4 b5 | c8 b4 fd 21 22 0d 0a ef |..,.....|...!"...|
|00005140| 20 06 40 20 34 2c 32 30 | 20 53 41 59 20 22 26 5a | .@ 4,20| SAY "&Z|
|00005150| 5a 22 2b 22 d7 a8 d2 b5 | c8 eb d1 a7 ca b1 d7 ee |Z"+"....|........|
|00005160| d0 a1 c4 ea c1 e4 ca c7 | 3a 22 2b 53 54 52 28 42 |........|:"+STR(B|
|00005170| 32 2c 32 29 0d 0a ef 20 | 06 47 4f 54 4f 20 42 4f |2,2)... |.GOTO BO|
|00005180| 54 54 4f 4d 0d 0a ef 20 | 06 40 20 36 2c 32 30 20 |TTOM... |.@ 6,20 |
|00005190| 53 41 59 20 22 26 5a 5a | 22 2b 22 d7 a8 d2 b5 c8 |SAY "&ZZ|"+".....|
|000051a0| eb d1 a7 ca b1 d7 ee b4 | f3 c4 ea c1 e4 ca c7 3a |........|.......:|
|000051b0| 22 2b 53 54 52 28 42 32 | 2c 32 29 0d 0a ef 20 06 |"+STR(B2|,2)... .|
|000051c0| 57 41 49 54 22 b0 b4 c8 | ce d2 e2 bc fc bc cc d0 |WAIT"...|........|
|000051d0| f8 20 21 22 20 0d 0a ef | 20 06 43 41 53 45 20 4c |. !" ...| .CASE L|
|000051e0| 4c 4f 3d 22 32 22 0d 0a | ef 20 0b 40 20 32 2c 32 |LO="2"..|. .@ 2,2|
|000051f0| 30 20 53 41 59 20 22 c7 | eb b8 f8 b3 f6 cd b3 bc |0 SAY ".|........|
|00005200| c6 c4 ea c1 e4 b5 c4 cf | c2 bd e7 22 20 47 45 54 |........|..." GET|
|00005210| 20 58 49 41 0d 0a ef 20 | 0b 40 20 34 2c 32 30 20 | XIA... |.@ 4,20 |
|00005220| 53 41 59 20 22 c7 eb b8 | f8 b3 f6 cd b3 bc c6 c4 |SAY "...|........|
|00005230| ea c1 e4 b5 c4 c9 cf bd | e7 22 20 47 45 54 20 53 |........|." GET S|
|00005240| 48 41 4e 47 0d 0a ef 20 | 0b 52 45 41 44 0d 0a ef |HANG... |.READ...|
|00005250| 20 0a 53 54 4f 52 45 20 | 22 20 20 22 54 4f 20 58 | .STORE |" "TO X|
|00005260| 0d 0a ef 20 0a 53 54 4f | 52 45 20 22 20 22 20 54 |... .STO|RE " " T|
|00005270| 4f 20 59 45 53 31 2c 59 | 45 53 32 ef 20 03 0d 0a |O YES1,Y|ES2. ...|
|00005280| ef 20 0b 40 20 36 2c 32 | 30 20 53 41 59 20 22 26 |. .@ 6,2|0 SAY "&|
|00005290| 5a 5a 22 2b 22 d7 a8 d2 | b5 b0 b4 b8 f7 c4 ea bc |ZZ"+"...|........|
|000052a0| b6 cd b3 bc c6 28 59 29 | 2c b0 b4 d7 a8 d2 b5 cd |.....(Y)|,.......|
|000052b0| b3 bc c6 28 4e 29 22 20 | 47 45 54 20 59 45 53 31 |...(N)" |GET YES1|
|000052c0| 0d 0a ef 20 0b 52 45 41 | 44 0d 0a ef 20 0b 49 46 |... .REA|D... .IF|
|000052d0| 20 55 50 50 45 52 28 59 | 45 53 31 29 3d 22 59 22 | UPPER(Y|ES1)="Y"|
|000052e0| 0d 0a ef 20 0e 40 20 37 | 2c 32 30 20 53 41 59 20 |... .@ 7|,20 SAY |
|000052f0| 22 ca e4 c8 eb b8 c3 c4 | ea bc b6 28 c8 e7 38 34 |".......|...(..84|
|00005300| 2c 38 35 2c 38 36 ef 2e | 03 29 22 20 47 45 54 20 |,85,86..|.)" GET |
|00005310| 58 0d 0a ef 20 0e 52 45 | 41 44 20 0d 0a ef 20 04 |X... .RE|AD ... .|
|00005320| c4 16 ff ff 20 0a 40 20 | 39 2c 32 30 20 53 41 59 |.... .@ |9,20 SAY|
|00005330| 20 22 d5 fd d4 da cd b3 | bc c6 2c c7 eb c9 d4 b5 | "......|..,.....|
|00005340| c8 ba f2 20 21 22 0d 0a | ff 20 0e 43 4f 55 4e 54 |... !"..|. .COUNT|
|00005350| 20 46 4f 52 20 42 32 3e | 3d 58 49 41 2e 41 4e 44 | FOR B2>|=XIA.AND|
|00005360| 2e 42 32 3c 3d 53 48 41 | 4e 47 2e 41 4e 44 2e 58 |.B2<=SHA|NG.AND.X|
|00005370| 3d 53 55 42 53 54 52 28 | 42 49 4e 2c 31 2c 32 29 |=SUBSTR(|BIN,1,2)|
|00005380| 20 54 4f 20 53 48 55 ff | 20 05 0d 0a ff 20 0e 58 | TO SHU.| .... .X|
|00005390| 3d 58 2b 22 bc b6 22 ff | 20 0e 0d 0a ff 20 0c 45 |=X+"..".| .... .E|
|000053a0| 4c 53 45 0d 0a ff 20 0e | 40 20 39 2c 32 30 20 53 |LSE... .|@ 9,20 S|
|000053b0| 41 59 20 22 d5 fd d4 da | cd b3 bc c6 2c c7 eb c9 |AY "....|....,...|
|000053c0| d4 b5 c8 ba f2 20 21 22 | 0d 0a ff 20 0e 43 4f 55 |..... !"|... .COU|
|000053d0| 4e 54 20 46 4f 52 20 42 | 32 3e 3d 58 49 41 2e 41 |NT FOR B|2>=XIA.A|
|000053e0| 4e 44 2e 42 32 3c 3d 53 | 48 41 4e 47 20 54 4f 20 |ND.B2<=S|HANG TO |
|000053f0| 53 48 55 0d 0a ff 20 0c | 45 4e 44 49 46 0d 0a ff |SHU... .|ENDIF...|
|00005400| 20 06 43 4c 45 41 52 0d | 0a ff 20 06 40 20 32 2c | .CLEAR.|.. .@ 2,|
|00005410| 32 30 20 53 41 59 20 22 | 26 58 22 2b 22 26 5a 5a |20 SAY "|&X"+"&ZZ|
|00005420| 22 2b 22 d7 a8 d2 b5 22 | 2b 53 54 52 28 58 49 41 |"+"...."|+STR(XIA|
|00005430| 2c 32 29 2b 22 2d 2d 22 | 2b 53 54 52 28 53 48 41 |,2)+"--"|+STR(SHA|
|00005440| 4e 47 2c 32 29 2b 22 cb | ea b5 c4 c8 cb ca fd 20 |NG,2)+".|....... |
|00005450| 8d 0a 3a 22 2b 53 54 52 | 28 53 48 55 2c 34 29 0d |..:"+STR|(SHU,4).|
|00005460| 0a ff 20 06 53 54 4f 52 | 45 20 22 20 22 20 54 4f |.. .STOR|E " " TO|
|00005470| 20 59 45 53 32 0d 0a ff | 20 06 40 20 36 2c 32 30 | YES2...| .@ 6,20|
|00005480| 20 53 41 59 20 22 bc cc | d0 f8 cd b3 bc c6 c2 f0 | SAY "..|........|
|00005490| 20 3f 20 28 59 2f 4e 29 | 22 20 47 45 54 20 59 45 | ? (Y/N)|" GET YE|
|000054a0| 53 32 0d 0a ff 20 06 52 | 45 41 44 0d 0a ff 20 06 |S2... .R|EAD... .|
|000054b0| 49 46 20 55 50 50 45 52 | 28 59 45 53 32 29 3d 22 |IF UPPER|(YES2)="|
|000054c0| 59 22 0d 0a ff 20 09 43 | 4c 45 41 52 0d 0a ff 20 |Y"... .C|LEAR... |
|000054d0| 09 5a 53 48 55 3d 5a 53 | 48 55 2b 53 48 55 0d 0a |.ZSHU=ZS|HU+SHU..|
|000054e0| ff 20 09 40 20 34 2c 32 | 30 20 53 41 59 20 22 26 |. .@ 4,2|0 SAY "&|
|000054f0| 58 22 2b 22 26 5a 5a 22 | 2b 22 d7 a8 d2 b5 22 2b |X"+"&ZZ"|+"...."+|
|00005500| 53 54 52 28 58 49 41 2c | 32 29 2b 22 2d 2d 22 2b |STR(XIA,|2)+"--"+|
|00005510| 53 54 52 28 53 48 41 4e | 47 2c 32 29 2b 22 cb ea |STR(SHAN|G,2)+"..|
|00005520| c8 cb ca fd 22 2b 53 54 | 52 28 53 48 55 2c 34 29 |...."+ST|R(SHU,4)|
|00005530| 0d 0a ff 20 09 40 20 36 | 2c 32 30 20 53 41 59 20 |... .@ 6|,20 SAY |
|00005540| 22 b5 b1 c7 b0 c0 db bc | c6 22 2b 53 54 52 28 58 |".......|."+STR(X|
|00005550| 49 41 2c 32 29 2b 22 2d | 2d 22 2b 53 54 52 28 53 |IA,2)+"-|-"+STR(S|
|00005560| 48 41 4e 47 2c 32 29 2b | 22 cb ea c8 cb ca fd 3a |HANG,2)+|"......:|
|00005570| 22 2b 53 54 52 28 5a 53 | 48 55 2c 35 29 0d 0a ff |"+STR(ZS|HU,5)...|
|00005580| 20 09 57 41 49 54 20 22 | ff 20 0c b0 b4 c8 ce d2 | .WAIT "|. ......|
|00005590| e2 bc fc bc cc d0 f8 20 | 21 22 0d 0a ff 20 09 4c |....... |!"... .L|
|000055a0| 4f 4f 50 0d 0a ff 20 07 | 45 4e 44 49 46 0d 0a ff |OOP... .|ENDIF...|
|000055b0| 20 07 53 54 4f 52 45 20 | 2e 46 2e 20 54 4f 20 4c | .STORE |.F. TO L|
|000055c0| 49 4e 54 0d 0a ff 20 05 | 45 4e 44 44 4f 0d 0a ff |INT... .|ENDDO...|
|000055d0| 20 05 43 41 53 45 20 4c | 4c 4f 3d 22 33 22 0d 0a | .CASE L|LO="3"..|
|000055e0| ff 20 0a 40 20 32 2c 32 | 30 20 53 41 59 20 22 cf |. .@ 2,2|0 SAY ".|
|000055f0| d6 d4 da d5 fd cd b3 bc | c6 c7 eb b5 c8 ba f2 21 |........|.......!|
|00005600| 22 0d 0a ff 20 0a 53 54 | 4f 52 45 20 30 20 54 4f |"... .ST|ORE 0 TO|
|00005610| 20 4d 47 42 31 2c 4d 47 | 42 32 2c 4d 47 42 33 2c | MGB1,MG|B2,MGB3,|
|00005620| 4d 47 42 34 2c 4d 47 42 | 35 0d 0a ff 20 0a 44 4f |MGB4,MGB|5... .DO|
|00005630| 20 57 48 49 4c 45 20 2e | 4e 4f 54 2e 20 45 4f 46 | WHILE .|NOT. EOF|
|00005640| 28 29 0d 0a ff 20 0d 49 | 46 20 42 32 3c 32 30 0d |()... .I|F B2<20.|
|00005650| 0a ff 20 10 4d 47 42 31 | 3d 4d 47 42 31 2b 31 0d |.. .MGB1|=MGB1+1.|
|00005660| 0a ff 20 0d 45 4e 44 49 | 46 0d 0a ff 20 0d 49 46 |.. .ENDI|F... .IF|
|00005670| 20 42 32 3e 3d 32 30 2e | 41 4e 44 2e 42 32 3c 33 | B2>=20.|AND.B2<3|
|00005680| 30 0d 0a ff 20 10 4d 47 | 42 32 3d 4d 47 42 32 2b |0... .MG|B2=MGB2+|
|00005690| 31 0d 0a ff 20 0d 45 4e | 44 49 46 0d 0a ff 20 0d |1... .EN|DIF... .|
|000056a0| 49 46 20 42 32 3e 3d 33 | 30 2e 41 4e 44 2e 42 32 |IF B2>=3|0.AND.B2|
|000056b0| 3c 34 30 0d 0a ff 20 10 | 4d 47 42 33 3d 4d 47 42 |<40... .|MGB3=MGB|
|000056c0| 33 2b 31 0d 0a ff 20 0d | 45 4e 44 49 46 0d 0a ff |3+1... .|ENDIF...|
|000056d0| 20 0d 49 46 20 42 32 3e | 3d 34 30 2e 41 4e 44 2e | .IF B2>|=40.AND.|
|000056e0| 42 32 3c 35 30 ff 20 03 | 0d 0a ff 20 10 4d 47 42 |B2<50. .|... .MGB|
|000056f0| 34 3d 4d 47 42 34 2b 31 | 0d 0a ff 20 0d 45 4e 44 |4=MGB4+1|... .END|
|00005700| 49 46 0d 0a ff 20 0d 49 | 46 20 42 32 3e 3d 35 30 |IF... .I|F B2>=50|
|00005710| 0d 0a ff 20 10 4d 47 42 | 35 3d 4d 47 42 35 2b 31 |... .MGB|5=MGB5+1|
|00005720| 0d 0a ff 20 0d 45 4e 44 | 49 46 0d 0a ff 20 09 53 |... .END|IF... .S|
|00005730| 4b 49 50 2b 31 0d 0a ff | 20 06 45 4e 44 44 4f 0d |KIP+1...| .ENDDO.|
|00005740| 0a ff 20 04 43 4c 45 41 | 52 0d 0a ff 20 04 40 20 |.. .CLEA|R... .@ |
|00005750| 32 2c 32 30 20 53 41 59 | 20 22 32 30 20 cb ea d2 |2,20 SAY| "20 ...|
|00005760| d4 cf c2 20 3a 22 2b 53 | 54 52 28 4d 47 42 31 29 |... :"+S|TR(MGB1)|
|00005770| 2b 22 20 c8 cb 20 22 0d | 0a ff 20 04 40 20 33 2c |+" .. ".|.. .@ 3,|
|00005780| 32 30 20 53 41 59 20 22 | 32 30 2d 2d 32 39 20 cb |20 SAY "|20--29 .|
|00005790| ea 20 3a 22 2b 53 54 52 | 28 4d 47 42 32 29 2b 22 |. :"+STR|(MGB2)+"|
|000057a0| 20 c8 cb 22 0d 0a ff 20 | 04 40 20 34 2c 32 30 20 | .."... |.@ 4,20 |
|000057b0| 53 41 59 20 22 33 30 2d | 2d 33 39 20 cb ea 20 3a |SAY "30-|-39 .. :|
|000057c0| 22 2b 53 54 52 28 4d 47 | 42 33 29 2b 22 20 c8 cb |"+STR(MG|B3)+" ..|
|000057d0| 22 0d 0a ff 20 04 40 20 | 35 2c 32 30 20 53 41 59 |"... .@ |5,20 SAY|
|000057e0| 20 22 34 30 2d 2d 34 39 | 20 cb ea 20 3a 22 2b 53 | "40--49| .. :"+S|
|000057f0| 54 52 28 4d 47 42 34 29 | 2b 22 20 c8 cb 20 22 0d |TR(MGB4)|+" .. ".|
|00005800| 0a ff 20 04 40 20 36 2c | 32 30 20 53 41 59 20 22 |.. .@ 6,|20 SAY "|
|00005810| 35 30 20 cb ea d2 d4 c9 | cf 20 3a 22 2b 53 54 52 |50 .....|. :"+STR|
|00005820| 28 4d 47 42 35 29 2b 22 | 20 c8 cb 22 0d 0a ff 20 |(MGB5)+"| .."... |
|00005830| 04 55 53 45 20 41 43 37 | 0d 0a ff 20 04 4c 4f 43 |.USE AC7|... .LOC|
|00005840| 41 54 45 20 46 4f 52 20 | 58 49 42 49 4e 3d 22 26 |ATE FOR |XIBIN="&|
|00005850| 5a 22 0d 0a ff 20 04 52 | 45 50 4c 20 47 42 31 20 |Z"... .R|EPL GB1 |
|00005860| 57 49 54 48 20 4d 47 42 | 31 2c 47 42 32 20 57 49 |WITH MGB|1,GB2 WI|
|00005870| 54 48 20 4d 47 42 32 2c | 47 42 33 20 57 49 54 48 |TH MGB2,|GB3 WITH|
|00005880| 20 4d 47 42 33 2c 47 42 | 34 20 57 49 54 48 20 8d | MGB3,GB|4 WITH .|
|00005890| 0a 4d 47 42 34 2c 47 42 | 35 20 57 49 54 48 20 4d |.MGB4,GB|5 WITH M|
|000058a0| 47 42 35 0d 0a ff 20 04 | 57 41 49 54 20 22 b0 b4 |GB5... .|WAIT "..|
|000058b0| c8 ce d2 bb bc fc bc cc | d0 f8 21 22 0d 0a 20 20 |........|..!".. |
|000058c0| 45 4e 44 43 41 53 45 0d | 0a 52 45 54 55 52 4e 1a |ENDCASE.|.RETURN.|
|000058d0| 0a ff 20 03 43 41 53 45 | 20 4c 4c 4f 3d 22 31 22 |.. .CASE| LLO="1"|
|000058e0| 0d 0a ff 20 09 44 4f 20 | 54 4f 4a 49 0d 0a ff 20 |... .DO |TOJI... |
|000058f0| 04 43 41 53 45 20 4c 4c | 4f 3d 22 32 22 0d 0a ff |.CASE LL|O="2"...|
|00005900| 20 09 44 4f 20 51 4b 43 | 58 0d 0a ff 20 04 43 41 | .DO QKC|X... .CA|
|00005910| 53 45 20 4c 4c 4f 3d 22 | 33 22 0d 0a ff 20 0a 44 |SE LLO="|3"... .D|
|00005920| 4f 20 44 59 42 42 0d 0a | ff 20 05 43 41 53 45 20 |O DYBB..|. .CASE |
|00005930| 4c 4c 4f 3d 22 34 22 0d | 0a 45 4e 44 43 41 53 45 |LLO="4".|.ENDCASE|
|00005940| 20 4c 4c 4f 0d 0a 52 45 | 54 55 52 4e 20 0d 0a 1a | LLO..RE|TURN ...|
|00005950| ff 00 52 43 4c 45 41 52 | 0d 0a 44 4f 20 57 48 49 |..RCLEAR|..DO WHI|
|00005960| 4c 45 20 2e 54 2e 0d 0a | 40 20 30 2c 32 35 20 53 |LE .T...|@ 0,25 S|
|00005970| 41 59 20 22 ff 2a 05 b1 | a8 b1 ed b4 f2 d3 a1 ca |AY ".*..|........|
|00005980| e4 b3 f6 ff 2a 05 22 0d | 0a 40 20 32 2c 32 35 20 |....*.".|.@ 2,25 |
|00005990| 53 41 59 20 22 30 2e 20 | b7 b5 bb d8 cf b5 cd b3 |SAY "0. |........|
|000059a0| 22 0d 0a 40 20 33 2c 32 | 35 20 53 41 59 20 22 31 |"..@ 3,2|5 SAY "1|
|000059b0| 2e 20 bc f2 c0 fa b1 ed | 22 0d 0a 40 20 34 2c 32 |. ......|"..@ 4,2|
|000059c0| 35 20 53 41 59 20 22 32 | 2e 20 b3 c9 bc a8 b1 ed |5 SAY "2|. ......|
|000059d0| 22 0d 0a 40 20 35 2c 32 | 35 20 53 41 59 20 22 33 |"..@ 5,2|5 SAY "3|
|000059e0| 2e 20 b0 b4 b5 d8 c7 f8 | cd b3 bc c6 b1 ed 22 0d |. ......|......".|
|000059f0| 0a 40 20 36 2c 32 35 20 | 53 41 59 20 22 34 2e 20 |.@ 6,25 |SAY "4. |
|00005a00| d7 ca c1 cf cd b3 bc c6 | 22 0d 0a 40 20 37 2c 32 |........|"..@ 7,2|
|00005a10| 35 20 53 41 59 20 22 35 | 2e 20 cd a8 d1 b6 b5 d8 |5 SAY "5|. ......|
|00005a20| d6 b7 bf a8 22 0d 0a 4c | 4c 4f 3d 22 20 22 0d 0a |...."..L|LO=" "..|
|00005a30| 40 20 38 2c 32 35 20 53 | 41 59 20 22 c7 eb b0 b4 |@ 8,25 S|AY "....|
|00005a40| d2 d4 c9 cf b9 a6 c4 dc | ca e4 c8 eb 22 20 47 45 |........|...." GE|
|00005a50| 54 20 4c 4c 4f 0d 0a 52 | 45 41 44 0d 0a 44 4f 20 |T LLO..R|EAD..DO |
|00005a60| 43 41 53 45 0d 0a ff 20 | 03 43 41 53 45 20 4c 4c |CASE... |.CASE LL|
|00005a70| 4f 3d 22 31 22 0d 0a ff | 20 08 44 4f 20 44 59 31 |O="1"...| .DO DY1|
|00005a80| 0d 0a ff 20 03 43 41 53 | 45 20 4c 4c 4f 3d 22 32 |... .CAS|E LLO="2|
|00005a90| 22 0d 0a ff 20 08 44 4f | 20 44 59 41 ff 20 03 0d |"... .DO| DYA. ..|
|00005aa0| 0a ff 20 03 43 41 53 45 | 20 4c 4c 4f 3d 22 33 22 |.. .CASE| LLO="3"|
|00005ab0| 0d 0a ff 20 08 44 4f 20 | 44 59 33 0d 0a ff 20 03 |... .DO |DY3... .|
|00005ac0| 43 41 53 45 20 4c 4c 4f | 3d 22 34 22 0d 0a ff 20 |CASE LLO|="4"... |
|00005ad0| 08 44 4f 20 44 59 34 0d | 0a ff 20 03 43 41 53 45 |.DO DY4.|.. .CASE|
|00005ae0| 20 4c 4c 4f 3d 22 35 22 | 0d 0a ff 20 08 44 4f 20 | LLO="5"|... .DO |
|00005af0| 44 59 35 0d 0a ff 20 03 | 43 41 53 45 20 4c 4c 4f |DY5... .|CASE LLO|
|00005b00| 3d 22 30 22 0d 0a ff 20 | 08 52 45 54 55 52 4e 0d |="0"... |.RETURN.|
|00005b10| 0a 45 4e 44 43 41 53 45 | 0d 0a 45 4e 44 44 4f 0d |.ENDCASE|..ENDDO.|
|00005b20| 0a 52 45 54 55 52 4e 1a | ff 00 09 ff 20 08 ff 2a |.RETURN.|.... ..*|
|00005b30| 05 b0 b4 b5 d8 c7 f8 cd | b3 bc c6 28 44 49 54 4a |........|...(DITJ|
|00005b40| 29 ff 2a 05 ff 20 09 0d | 0a 53 54 4f 52 45 20 2e |).*.. ..|.STORE .|
|00005b50| 54 2e 20 54 4f 20 44 49 | 54 0d 0a 53 54 4f 52 45 |T. TO DI|T..STORE|
|00005b60| 20 22 20 22 20 54 4f 20 | 59 45 53 31 0d 0a 53 54 | " " TO |YES1..ST|
|00005b70| 4f 52 45 20 30 20 54 4f | 20 5a 53 48 55 2c 53 48 |ORE 0 TO| ZSHU,SH|
|00005b80| 55 2c 53 48 55 31 2c 53 | 48 55 32 0d 0a 43 4c 45 |U,SHU1,S|HU2..CLE|
|00005b90| 41 52 0d 0a 53 45 4c 45 | 43 54 20 31 0d 0a 55 53 |AR..SELE|CT 1..US|
|00005ba0| 45 20 42 3a 41 43 32 26 | 5a 20 49 4e 44 45 58 20 |E B:AC2&|Z INDEX |
|00005bb0| 42 3a 49 44 41 43 32 26 | 5a 0d 0a 53 45 4c 45 43 |B:IDAC2&|Z..SELEC|
|00005bc0| 54 20 33 0d 0a 55 53 45 | 20 41 43 37 0d 0a 53 45 |T 3..USE| AC7..SE|
|00005bd0| 4c 45 43 54 20 32 0d 0a | 55 53 45 20 5a 4b 0d 0a |LECT 2..|USE ZK..|
|00005be0| 43 4c 45 41 52 0d 0a 40 | 20 33 2c 32 30 20 53 41 |CLEAR..@| 3,20 SA|
|00005bf0| 59 20 22 ca c7 b0 b4 b5 | d8 c7 f8 cb b3 d0 f2 cd |Y ".....|........|
|00005c00| b3 bc c6 c2 f0 20 28 59 | 2f 4e 29 3f 22 20 47 45 |..... (Y|/N)?" GE|
|00005c10| 54 20 59 45 53 31 0d 0a | 52 45 41 44 0d 0a 49 46 |T YES1..|READ..IF|
|00005c20| 20 55 50 50 45 52 28 59 | 45 53 31 29 3d 22 59 22 | UPPER(Y|ES1)="Y"|
|00005c30| 0d 0a ff 20 03 49 3d 34 | 0d 0a ff 20 03 44 4f 20 |... .I=4|... .DO |
|00005c40| 57 48 49 4c 45 20 2e 4e | 4f 54 2e 20 45 4f 46 28 |WHILE .N|OT. EOF(|
|00005c50| 29 0d 0a ff 20 06 4d 44 | 49 3d 44 49 0d 0a ff 20 |)... .MD|I=DI... |
|00005c60| 06 43 4c 45 41 52 0d 0a | ff 20 06 40 20 32 2c 32 |.CLEAR..|. .@ 2,2|
|00005c70| 30 20 53 41 59 20 22 d5 | fd d4 da cd b3 bc c6 2c |0 SAY ".|.......,|
|00005c80| c7 eb b5 c8 ba f2 21 22 | 0d 0a ff 20 06 53 45 4c |......!"|... .SEL|
|00005c90| 45 43 54 20 31 0d 0a ff | 20 06 53 48 55 31 3d 30 |ECT 1...| .SHU1=0|
|00005ca0| 0d 0a ff 20 06 53 48 55 | 32 3d 30 0d 0a ff 20 06 |... .SHU|2=0... .|
|00005cb0| 46 49 4e 44 20 22 26 4d | 44 49 22 0d 0a ff 20 06 |FIND "&M|DI"... .|
|00005cc0| 44 4f 20 57 48 49 4c 45 | 20 2e 4e 4f 54 2e 20 45 |DO WHILE| .NOT. E|
|00005cd0| 4f 46 28 29 0d 0a ff 20 | 09 49 46 20 44 49 3c 3e |OF()... |.IF DI<>|
|00005ce0| 4d 44 49 20 0d 0a ff 20 | 0c 45 58 49 54 0d 0a ff |MDI ... |.EXIT...|
|00005cf0| 20 09 45 4c 53 45 0d 0a | ff 20 0b 49 46 20 42 31 | .ELSE..|. .IF B1|
|00005d00| 3d 22 c4 d0 22 2e 41 4e | 44 2e 28 42 31 38 3c 3e |="..".AN|D.(B18<>|
|00005d10| 22 d7 aa d1 a7 22 2e 4f | 52 2e 42 31 38 3c 3e 22 |"....".O|R.B18<>"|
|00005d20| cd cb d1 a7 22 2e 4f 52 | 2e 42 31 38 3c 3e 22 d0 |....".OR|.B18<>".|
|00005d30| dd d1 a7 22 29 20 0d 0a | ff 20 0e 53 48 55 31 3d |...") ..|. .SHU1=|
|00005d40| 53 48 55 31 2b 31 0d 0a | ff 20 0b 45 4e 44 49 46 |SHU1+1..|. .ENDIF|
|00005d50| 0d 0a ff 20 0b 49 46 20 | 42 31 3d 22 c5 ae 22 2e |... .IF |B1="..".|
|00005d60| 41 4e 44 2e 28 42 31 38 | 3c 3e 22 d7 aa d1 a7 22 |AND.(B18|<>"...."|
|00005d70| 2e 4f 52 2e 42 31 38 3c | 3e 22 cd cb d1 a7 22 2e |.OR.B18<|>"....".|
|00005d80| 4f 52 2e 42 31 38 3c 3e | 22 d0 dd d1 a7 22 29 20 |OR.B18<>|"....") |
|00005d90| 54 4f 20 53 48 55 32 0d | 0a ff 20 0e 53 48 55 32 |TO SHU2.|.. .SHU2|
|00005da0| 3d 53 48 55 32 2b 31 0d | 0a ff 20 0b 45 4e 44 49 |=SHU2+1.|.. .ENDI|
|00005db0| 46 0d 0a ff 20 0b 53 4b | 49 50 2b 31 0d 0a ff 20 |F... .SK|IP+1... |
|00005dc0| 09 45 4e 44 49 46 0d 0a | ff 20 06 45 4e 44 44 4f |.ENDIF..|. .ENDDO|
|00005dd0| 0d 0a ff 20 06 53 45 4c | 45 43 54 20 32 0d 0a ff |... .SEL|ECT 2...|
|00005de0| 20 06 52 45 50 4c 20 5a | 26 5a 20 57 49 54 48 20 | .REPL Z|&Z WITH |
|00005df0| 53 48 55 31 0d 0a ff 20 | 06 5a 53 48 55 3d 53 48 |SHU1... |.ZSHU=SH|
|00005e00| 55 31 2b 53 48 55 32 2b | 5a 53 48 55 0d 0a ff 20 |U1+SHU2+|ZSHU... |
|00005e10| 06 43 4c 45 41 52 0d 0a | ff 20 06 40 20 35 2c 32 |.CLEAR..|. .@ 5,2|
|00005e20| 30 20 53 41 59 20 22 26 | 5a 5a 22 2b 22 d7 a8 d2 |0 SAY "&|ZZ"+"...|
|00005e30| b5 22 2b 22 26 4d 44 49 | 22 2b 22 b5 d8 c7 f8 c8 |."+"&MDI|"+".....|
|00005e40| cb ca fd 3a 20 22 2b 53 | 54 52 28 28 53 48 55 31 |...: "+S|TR((SHU1|
|00005e50| 2b 53 48 55 32 29 2c 34 | 29 0d 0a ff 20 06 40 20 |+SHU2),4|)... .@ |
|00005e60| 37 2c 32 30 20 53 41 59 | 20 22 26 5a 5a 22 2b 22 |7,20 SAY| "&ZZ"+"|
|00005e70| d7 a8 d2 b5 b5 b1 c7 b0 | c0 db bc c6 c8 cb ca fd |........|........|
|00005e80| 3a 20 22 2b 53 54 52 28 | 5a 53 48 55 2c 36 29 0d |: "+STR(|ZSHU,6).|
|00005e90| 0a ff 20 06 57 41 49 54 | 20 22 b0 b4 c8 ce d2 bb |.. .WAIT| "......|
|00005ea0| bc fc bc cc d0 f8 22 20 | 0d 0a ff 20 06 53 4b 49 |......" |... .SKI|
|00005eb0| 50 2b 31 0d 0a ff 20 06 | 52 45 50 4c 20 5a 26 5a |P+1... .|REPL Z&Z|
|00005ec0| 20 57 49 54 48 20 53 48 | 55 32 0d 0a ff 20 06 53 | WITH SH|U2... .S|
|00005ed0| 4b 49 50 2b 31 0d 0a ff | 20 06 49 3d 49 2b 31 0d |KIP+1...| .I=I+1.|
|00005ee0| 0a ff 20 06 48 3d 53 55 | 42 53 54 52 28 53 54 52 |.. .H=SU|BSTR(STR|
|00005ef0| 28 49 2c 32 29 2c 31 2c | 32 29 0d 0a ff 20 06 49 |(I,2),1,|2)... .I|
|00005f00| 46 20 53 55 42 53 54 52 | 28 48 2c 31 2c 31 29 3d |F SUBSTR|(H,1,1)=|
|00005f10| 22 20 22 0d 0a ff 20 09 | 48 3d 53 55 42 53 54 52 |" "... .|H=SUBSTR|
|00005f20| 28 48 2c 32 2c 31 29 0d | 0a ff 20 06 45 4e 44 49 |(H,2,1).|.. .ENDI|
|00005f30| 46 0d 0a ff 20 06 53 45 | 4c 45 43 54 20 33 0d 0a |F... .SE|LECT 3..|
|00005f40| ff 20 06 4c 4f 43 41 54 | 45 20 46 4f 52 20 58 49 |. .LOCAT|E FOR XI|
|00005f50| 42 49 4e 3d 22 26 5a 22 | 0d 0a ff 20 06 52 45 50 |BIN="&Z"|... .REP|
|00005f60| 4c 20 47 46 26 48 2e 20 | 57 49 54 48 20 53 48 55 |L GF&H. |WITH SHU|
|00005f70| 31 2b 53 48 55 32 0d 0a | ff 20 06 53 45 4c 45 43 |1+SHU2..|. .SELEC|
|00005f80| 54 20 32 0d 0a ff 20 03 | 45 4e 44 44 4f 0d 0a 45 |T 2... .|ENDDO..E|
|00005f90| 4c 53 45 0d 0a ff 20 03 | 44 4f 20 57 48 49 4c 45 |LSE... .|DO WHILE|
|00005fa0| 20 44 49 54 0d 0a ff 20 | 06 53 48 55 31 3d 30 0d | DIT... |.SHU1=0.|
|00005fb0| 0a ff 20 06 53 48 55 32 | 3d 30 0d 0a ff 20 06 53 |.. .SHU2|=0... .S|
|00005fc0| 54 4f 52 45 20 22 ff 20 | 05 22 20 54 4f 20 44 49 |TORE ". |." TO DI|
|00005fd0| 4d 49 4e 47 0d 0a ff 20 | 06 43 4c 45 41 52 0d 0a |MING... |.CLEAR..|
|00005fe0| ff 20 06 40 20 33 2c 32 | 30 20 53 41 59 20 22 c7 |. .@ 3,2|0 SAY ".|
|00005ff0| eb b8 f8 b3 f6 cb f9 cd | b3 bc c6 b5 d8 c7 f8 c3 |........|........|
|00006000| fb 3a 22 20 47 45 54 20 | 44 49 4d 49 4e 47 0d 0a |.:" GET |DIMING..|
|00006010| ff 20 06 52 45 41 44 0d | 0a ff 20 06 40 20 35 2c |. .READ.|.. .@ 5,|
|00006020| 32 30 20 53 41 59 20 22 | d5 fd d4 da cd b3 bc c6 |20 SAY "|........|
|00006030| 2c c7 eb c9 d4 b5 c8 ba | f2 20 21 22 0d 0a ff 20 |,.......|. !"... |
|00006040| 06 53 45 4c 45 43 54 20 | 31 0d 0a ff 20 06 46 49 |.SELECT |1... .FI|
|00006050| 4e 44 20 22 26 44 49 4d | 49 4e 47 22 0d 0a ff 20 |ND "&DIM|ING"... |
|00006060| 06 49 46 20 45 4f 46 28 | 29 0d 0a ff 20 09 57 41 |.IF EOF(|)... .WA|
|00006070| 49 54 20 22 ff 20 03 ca | e4 c8 eb b4 ed ce f3 21 |IT ". ..|.......!|
|00006080| 22 2b 22 20 3a 26 44 49 | 4d 49 4e 47 22 0d 0a ff |"+" :&DI|MING"...|
|00006090| 20 09 52 45 54 55 52 4e | 0d 0a ff 20 06 45 4e 44 | .RETURN|... .END|
|000060a0| 49 46 0d 0a ff 20 06 44 | 4f 20 57 48 49 4c 45 20 |IF... .D|O WHILE |
|000060b0| 2e 4e 4f 54 2e 20 45 4f | 46 28 29 0d 0a ff 20 09 |.NOT. EO|F()... .|
|000060c0| 49 46 20 44 49 3c 3e 22 | 26 44 49 4d 49 4e 47 22 |IF DI<>"|&DIMING"|
|000060d0| 0d 0a ff 20 0c 45 58 49 | 54 0d 0a ff 20 09 45 4c |... .EXI|T... .EL|
|000060e0| 53 45 0d 0a ff 20 0c 49 | 46 20 42 31 3d 22 c4 d0 |SE... .I|F B1="..|
|000060f0| 22 2e 41 4e 44 2e 28 42 | 31 38 3c 3e 22 d7 aa d1 |".AND.(B|18<>"...|
|00006100| a7 22 2e 4f 52 2e 42 31 | 38 3c 3e 22 cd cb d1 a7 |.".OR.B1|8<>"....|
|00006110| 22 2e 4f 52 2e 42 31 38 | 3c 3e 22 d0 dd d1 a7 22 |".OR.B18|<>"...."|
|00006120| 29 0d 0a ff 20 0f 53 48 | 55 31 3d 53 48 55 31 2b |)... .SH|U1=SHU1+|
|00006130| 31 0d 0a ff 20 0c 45 4e | 44 49 46 0d 0a ff 20 0c |1... .EN|DIF... .|
|00006140| 49 46 20 42 31 3d 22 c5 | ae 22 2e 41 4e 44 2e 28 |IF B1=".|.".AND.(|
|00006150| 42 31 38 3c 3e 22 d7 aa | d1 a7 22 2e 4f 52 2e 42 |B18<>"..|..".OR.B|
|00006160| 31 38 3c 3e 22 cd cb d1 | a7 22 2e 4f 52 2e 42 31 |18<>"...|.".OR.B1|
|00006170| 38 3c 3e 22 d0 dd d1 a7 | 22 29 20 0d 0a ff 20 0f |8<>"....|") ... .|
|00006180| 53 48 55 32 3d 53 48 55 | 32 2b 31 0d 0a ff 20 0c |SHU2=SHU|2+1... .|
|00006190| 45 4e 44 49 46 0d 0a ff | 20 0a 45 4e 44 49 46 0d |ENDIF...| .ENDIF.|
|000061a0| 0a ff 20 05 53 4b 49 50 | 2b 31 0d 0a ff 20 05 45 |.. .SKIP|+1... .E|
|000061b0| 4e 44 44 4f ff 20 05 0d | 0a ff 20 05 53 45 4c 45 |NDDO. ..|.. .SELE|
|000061c0| 43 54 20 32 0d 0a ff 20 | 05 53 48 55 3d 53 48 55 |CT 2... |.SHU=SHU|
|000061d0| 31 2b 53 48 55 32 0d 0a | ff 20 05 4c 4f 43 41 54 |1+SHU2..|. .LOCAT|
|000061e0| 45 20 46 4f 52 20 44 49 | 3d 54 52 49 4d 28 44 49 |E FOR DI|=TRIM(DI|
|000061f0| 4d 49 4e 47 29 0d 0a ff | 20 05 52 45 50 4c 20 5a |MING)...| .REPL Z|
|00006200| 26 5a 20 57 49 54 48 20 | 53 48 55 31 0d 0a ff 20 |&Z WITH |SHU1... |
|00006210| 05 53 4b 49 50 2b 31 0d | 0a ff 20 05 52 45 50 4c |.SKIP+1.|.. .REPL|
|00006220| 20 5a 26 5a 20 57 49 54 | 48 20 53 48 55 32 0d 0a | Z&Z WIT|H SHU2..|
|00006230| ff 20 05 40 20 37 2c 32 | 30 20 53 41 59 20 22 26 |. .@ 7,2|0 SAY "&|
|00006240| 5a 5a 22 2b 22 d7 a8 d2 | b5 3a 20 20 22 2b 22 26 |ZZ"+"...|.: "+"&|
|00006250| 44 49 4d 49 4e 47 22 2b | 22 b5 d8 c7 f8 c8 cb ca |DIMING"+|".......|
|00006260| fd 3a 22 2b 53 54 52 28 | 53 48 55 2c 34 29 0d 0a |.:"+STR(|SHU,4)..|
|00006270| ff 20 05 53 54 4f 52 45 | 20 22 20 22 20 54 4f 20 |. .STORE| " " TO |
|00006280| 59 45 53 31 0d 0a ff 20 | 05 40 20 38 2c 32 30 20 |YES1... |.@ 8,20 |
|00006290| 53 41 59 20 22 bc cc d0 | f8 cd b3 bc c6 c2 f0 20 |SAY "...|....... |
|000062a0| 28 59 2f 4e 29 20 3f 22 | 20 47 45 54 20 59 45 53 |(Y/N) ?"| GET YES|
|000062b0| 31 0d 0a ff 20 05 52 45 | 41 44 0d 0a ff 20 05 49 |1... .RE|AD... .I|
|000062c0| 46 20 55 50 50 45 52 28 | 59 45 53 31 29 3d 22 59 |F UPPER(|YES1)="Y|
|000062d0| 22 0d 0a ff 20 08 5a 53 | 48 55 3d 5a 53 48 55 2b |"... .ZS|HU=ZSHU+|
|000062e0| 53 48 55 0d 0a ff 20 08 | 43 4c 45 41 52 0d 0a ff |SHU... .|CLEAR...|
|000062f0| 20 08 40 20 32 2c 32 30 | 20 53 41 59 20 22 26 5a | .@ 2,20| SAY "&Z|
|00006300| 5a 22 2b 22 d7 a8 d2 b5 | 3a 20 22 2b 22 26 44 49 |Z"+"....|: "+"&DI|
|00006310| 4d 49 4e 47 22 2b 22 b5 | d8 c7 f8 c8 cb ca fd 3a |MING"+".|.......:|
|00006320| 22 2b 53 54 52 28 53 48 | 55 2c 34 29 0d 0a ff 20 |"+STR(SH|U,4)... |
|00006330| 08 40 20 34 2c 32 30 20 | 53 41 59 20 22 26 5a 5a |.@ 4,20 |SAY "&ZZ|
|00006340| 22 2b 22 d7 a8 d2 b5 b5 | b1 c7 b0 c0 db bc c7 c8 |"+".....|........|
|00006350| cb ca fd 3a 20 22 2b 53 | 54 52 28 5a 53 48 55 2c |...: "+S|TR(ZSHU,|
|00006360| 34 29 0d 0a ff 20 08 57 | 41 49 54 20 22 ff 20 08 |4)... .W|AIT ". .|
|00006370| b0 b4 c8 ce d2 e2 bc fc | bc cc d0 f8 20 21 22 0d |........|.... !".|
|00006380| 0a ff 20 08 4c 4f 4f 50 | 0d 0a ff 20 06 45 4e 44 |.. .LOOP|... .END|
|00006390| 49 46 0d 0a ff 20 06 53 | 54 4f 52 45 20 2e 46 2e |IF... .S|TORE .F.|
|000063a0| 20 54 4f 20 44 49 54 0d | 0a ff 20 03 45 4e 44 44 | TO DIT.|.. .ENDD|
|000063b0| 4f 0d 0a 45 4e 44 49 46 | 0d 0a 52 45 54 55 52 4e |O..ENDIF|..RETURN|
|000063c0| 20 20 0d 0a 1a 52 45 4e | 54 0d 0a 45 4e 44 44 4f | ...REN|T..ENDDO|
|000063d0| 0d 0a 52 45 54 55 52 4e | 1a ff 00 ff ff 00 c5 ff |..RETURN|........|
|000063e0| 20 08 ff 2a 05 d6 b0 ce | f1 cd b3 bc c6 28 5a 57 | ..*....|.....(ZW|
|000063f0| 54 4a 29 ff 2a 05 0d 0a | 43 4c 45 41 52 0d 0a 40 |TJ).*...|CLEAR..@|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
