home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LHArc Archive
(archive/lha).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LHArc Archive (archive/lha)
| magic
| Supported |
| 100%
| dexvert
| MS-DOS/Windows or OS/2 Executable (executable/exe)
| magic
| Supported |
| 1%
| dexvert
| Ady's GLUE Packed (archive/adysGLUEPacked)
| ext
| Unsupported |
| 1%
| dexvert
| BlacK FiST Packed (archive/blackFiSTPacked)
| ext
| Unsupported |
| 1%
| dexvert
| CauseWay Compressor Packed (archive/causeWayCompressorPacked)
| ext
| Unsupported |
| 1%
| dexvert
| CExe Packed (archive/cExePacked)
| ext
| Unsupported |
| 1%
| dexvert
| cIPHATOR Protected (archive/ciphatorProtected)
| ext
| Unsupported |
| 1%
| dexvert
| CRYPACK Protected (archive/crypackProtected)
| ext
| Unsupported |
| 1%
| dexvert
| CRYPTEXE Protected (archive/cryptexeProtected)
| ext
| Unsupported |
| 1%
| dexvert
| Crypt Light Show Protected (archive/cryptLightShowProtected)
| ext
| Unsupported |
| 1%
| dexvert
| DaRKSToP Protected (archive/darkstopProtected)
| ext
| Unsupported |
| 1%
| dexvert
| DiskImager SFX Image (archive/diskImagerSFXImage)
| ext
| Unsupported |
| 1%
| dexvert
| Dismember EXE CRYPT Protected (archive/dismemberProtected)
| ext
| Unsupported |
| 1%
| dexvert
| DJP Packed (archive/djpPacked)
| ext
| Unsupported |
| 1%
| dexvert
| .NETZ Packed (archive/dotNETZPacked)
| ext
| Unsupported |
| 1%
| dexvert
| DSHIELD Protected (archive/dshieldProtected)
| ext
| Unsupported |
| 1%
| dexvert
| Exe32Pack Packed (archive/exe32PackPacked)
| ext
| Unsupported |
| 1%
| dexvert
| ExeHigh Packed (archive/exeHighPacked)
| ext
| Unsupported |
| 1%
| dexvert
| EXE Manager Protected (archive/exeManagerProtected)
| ext
| Unsupported |
| 1%
| dexvert
| EXETOOLS Protected (archive/exetoolsProtected)
| ext
| Unsupported |
| 1%
| dexvert
| EZip Packed (archive/ezipPacked)
| ext
| Unsupported |
| 1%
| dexvert
| FSG Packed (archive/fsgPacked)
| ext
| Unsupported |
| 1%
| dexvert
| HackStop Protected (archive/hackStopProtected)
| ext
| Unsupported |
| 1%
| dexvert
| JMCryptExe Protected (archive/jmCryptExeProtected)
| ext
| Unsupported |
| 1%
| dexvert
| JDPack Packed (archive/kdPackPacked)
| ext
| Unsupported |
| 1%
| dexvert
| kkrunchy Packed (archive/kkcrunchPacked)
| ext
| Unsupported |
| 1%
| dexvert
| mbp SHRINK Packed (archive/mbpSHRINKPacked)
| ext
| Unsupported |
| 1%
| dexvert
| MEGALITE Packed (archive/megalitePacked)
| ext
| Unsupported |
| 1%
| dexvert
| Mess Protected (archive/messProtected)
| ext
| Unsupported |
| 1%
| dexvert
| Mew Packed (archive/mewPacked)
| ext
| Unsupported |
| 1%
| dexvert
| MPRESS Packed (archive/mpressPacked)
| ext
| Unsupported |
| 1%
| dexvert
| NOS Packer Packed (archive/nosPackerPacked)
| ext
| Unsupported |
| 1%
| dexvert
| NTShell Protected (archive/ntShellProtected)
| ext
| Unsupported |
| 1%
| dexvert
| Pack Master Packed (archive/packMasterPacked)
| ext
| Unsupported |
| 1%
| dexvert
| PE Diminisher Packed (archive/peDiminisherPacked)
| ext
| Unsupported |
| 1%
| dexvert
| Petite Packed (archive/petitePacked)
| ext
| Unsupported |
| 1%
| dexvert
| PeX Packed (archive/pexPacked)
| ext
| Unsupported |
| 1%
| dexvert
| PKLITE32 Packed (archive/pklite32Packed)
| ext
| Unsupported |
| 1%
| dexvert
| PowerBatch Packed (archive/powerBatchPacked)
| ext
| Unsupported |
| 1%
| dexvert
| protector Protected (archive/protectorProtected)
| ext
| Unsupported |
| 1%
| dexvert
| py2exe Packed (archive/py2exePacked)
| ext
| Unsupported |
| 1%
| dexvert
| PyInstaller Packed (archive/pyInstallerPacked)
| ext
| Unsupported |
| 1%
| dexvert
| RERP Packed (archive/rerpPacked)
| ext
| Unsupported |
| 1%
| dexvert
| Scramb Packed (archive/scrambPacked)
| ext
| Unsupported |
| 1%
| dexvert
| SECURE Protected (archive/secureProtected)
| ext
| Unsupported |
| 1%
| dexvert
| Shrinker Packed (Windows) (archive/shrinkerWindowsPacked)
| ext
| Unsupported |
| 1%
| dexvert
| Software Compress Packed (archive/softwareCompressPacked)
| ext
| Unsupported |
| 1%
| dexvert
| Spoon Studio Packed (archive/spoonStudioPacked)
| ext
| Unsupported |
| 1%
| dexvert
| tElock Packed (archive/telockPacked)
| ext
| Unsupported |
| 1%
| dexvert
| The Builder Packed (archive/theBuilderPacked)
| ext
| Unsupported |
| 1%
| dexvert
| The Patcher Packed (archive/thePatcherPacked)
| ext
| Unsupported |
| 1%
| dexvert
| 32Lite Packed (archive/thirtyTwoLitePacked)
| ext
| Unsupported |
| 1%
| dexvert
| TinyProt Protected (archive/tinyProtProtected)
| ext
| Unsupported |
| 1%
| dexvert
| (Win)Upack Packed (archive/winUpackPacked)
| ext
| Unsupported |
| 1%
| dexvert
| Yoda's Crypte Protected (archive/yodasCrypterProtected)
| ext
| Unsupported |
| 1%
| dexvert
| MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable)
| ext
| Unsupported |
| 1%
| dexvert
| Sony Playstation Executable (executable/sonyPlaystationExe)
| ext
| Unsupported |
| 1%
| dexvert
| Novell Netware Virtual Loadable Module (other/novellNetwareVirtualLoadableModule)
| ext
| Unsupported |
| 100%
| file
| MS-DOS executable, MZ for MS-DOS
| default
| |
| 99%
| file
| data
| default
| |
| 33%
| TrID
| LHA self-extracting 16bit DOS executable
| default
| |
| 33%
| TrID
| Generic Win/DOS Executable
| default
| |
| 33%
| TrID
| DOS Executable Generic
| default (weak)
| |
| 100%
| dearkID
| deark: exe (DOS EXE)
| default (weak)
| |
| 100%
| gt2
| Ist eine ausf�hrbare DOS Datei
| default
| |
| 100%
| xdgMime
| application/x-dosexec
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 5a 65 00 04 00 00 00 | 02 00 00 10 ff ff f0 ff |MZe.....|........|
|00000010| 00 01 00 00 00 01 f0 ff | 1c 00 00 00 00 00 00 00 |........|........|
|00000020| eb 78 20 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |.x . | |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000040| 20 20 0d 0a 00 52 65 6e | 61 6d 65 20 74 6f 20 44 | ...Ren|ame to D|
|00000050| 45 56 45 4c 4f 50 2e 45 | 58 45 00 00 4f 76 65 72 |EVELOP.E|XE..Over|
|00000060| 77 72 69 74 65 20 00 5b | 59 2f 4e 5d 20 00 42 72 |write .[|Y/N] .Br|
|00000070| 6f 6b 65 6e 20 66 69 6c | 65 20 00 57 72 69 74 65 |oken fil|e .Write|
|00000080| 00 48 65 61 64 65 72 00 | 43 52 43 20 45 72 72 6f |.Header.|CRC Erro|
|00000090| 72 00 01 21 17 42 41 54 | ff 00 fc bc 00 01 8c c8 |r..!.BAT|........|
|000000a0| 05 88 00 8e c0 eb 01 00 | bb 04 01 e8 5d 02 06 1f |........|....]...|
|000000b0| b4 30 cd 21 8b d8 1e 3c | 03 72 1c 36 8e 06 2c 00 |.0.!...<|.r.6..,.|
|000000c0| 33 c0 8b f8 b9 ff ff f2 | ae ae 75 fb 40 af 06 1f |3.......|..u.@...|
|000000d0| 8b d7 75 03 e8 22 00 0e | 1f ba 2f 01 e8 1a 00 80 |..u.."..|../.....|
|000000e0| fb 02 75 0f 36 a1 02 00 | 2d 38 00 8e d8 ba 09 00 |..u.6...|-8......|
|000000f0| e8 06 00 bb 25 01 e9 6a | 01 b8 00 3d cd 21 73 01 |....%..j|...=.!s.|
|00000100| c3 59 1f a3 98 82 8b d8 | 33 c9 ba 65 06 b8 00 42 |.Y......|3..e...B|
|00000110| cd 21 73 06 bb 4e 01 e9 | 43 01 1e 07 bf 00 80 33 |.!s..N..|C......3|
|00000120| d2 8b c2 b9 08 00 d1 e8 | 73 03 35 01 a0 e2 f7 ab |........|s.5.....|
|00000130| fe c2 75 ed e8 d1 01 be | 00 82 8b d6 b9 01 00 88 |..u.....|........|
|00000140| 2c 8b 1e 98 82 b4 3f cd | 21 49 02 0c 75 03 e9 e5 |,.....?.|!I..u...|
|00000150| 00 42 46 41 b4 3f cd 21 | ac 56 49 4e 46 2a 04 e2 |.BFA.?.!|.VINF*..|
|00000160| fb 75 1e 5e ad 3d 2d 6c | 75 17 ad 86 c4 2d 30 68 |.u.^.=-l|u....-0h|
|00000170| 8b e8 74 08 2d 04 00 74 | 03 48 75 05 ac 2c 2d 74 |..t.-..t|.Hu..,-t|
|00000180| 06 bb 61 01 e9 d6 00 bb | 16 82 8b d3 8b 4f ff 02 |..a.....|.....O..|
|00000190| d9 87 07 a3 9c 82 89 16 | 78 b8 81 f9 01 21 75 05 |........|x....!u.|
|000001a0| b8 01 00 eb 48 eb 01 00 | c7 07 20 00 8b da e8 62 |....H...|.. ....b|
|000001b0| 01 c6 47 ff 00 e3 25 b8 | 00 43 cd 21 72 24 bb 3c |..G...%.|.C.!r$.<|
|000001c0| 01 e8 47 01 e8 a3 00 74 | 19 8b 16 07 82 8b 0e 09 |..G....t|........|
|000001d0| 82 8b 1e 98 82 b8 01 42 | cd 21 eb 57 2e c6 06 74 |.......B|.!.W...t|
|000001e0| 01 0d b9 20 00 b4 3c cd | 21 73 02 eb 63 a3 9a 82 |... ..<.|!s..c...|
|000001f0| 33 c0 a3 9e 82 48 a3 96 | 82 52 0b ed 74 05 e8 56 |3....H..|.R..t..V|
|00000200| 01 eb 03 e8 c7 00 5e 8b | 1e 9a 82 83 fb 01 74 1e |......^.|......t.|
|00000210| 8b 16 11 82 8b 0e 0f 82 | b8 01 57 cd 21 e8 db 00 |........|..W.!...|
|00000220| a1 9e 82 3b 06 9c 82 75 | 1f eb 01 00 eb 05 e8 39 |...;...u|.......9|
|00000230| 00 75 06 e9 fe fe eb 01 | 00 32 c0 8b 1e 98 82 50 |.u......|.2.....P|
|00000240| e8 b8 00 58 b4 4c cd 21 | e8 b4 00 bb 68 01 eb 13 |...X.L.!|....h...|
|00000250| 8b 1e 9a 82 e8 a4 00 e8 | a5 00 bb 5b 01 e8 ab 00 |........|...[....|
|00000260| bb 6b 01 e8 a5 00 b0 01 | eb d1 bb 47 01 e8 9b 00 |.k......|...G....|
|00000270| b4 08 cd 21 24 df 3c 59 | 74 04 3c 4e 75 f2 bb 01 |...!$.<Y|t.<Nu...|
|00000280| 01 2e 88 07 e8 84 00 3c | 59 c3 33 d2 8b cf 2b ca |.......<|Y.3...+.|
|00000290| e3 75 8b 1e 9a 82 b4 40 | cd 21 2b c1 74 05 83 fb |.u.....@|.!+.t...|
|000002a0| 01 75 ad 8b f2 8b 1e 9e | 82 ac 32 d8 8a c7 8a fc |.u......|..2.....|
|000002b0| d1 e3 8b 9f 00 80 33 d8 | e2 ef 89 1e 9e 82 8b fa |......3.|........|
|000002c0| 83 3e 9a 82 01 74 40 b4 | 02 b2 fe eb 38 33 ff bb |.>...t@.|....83..|
|000002d0| 0b 82 29 3f 83 5f 02 00 | b9 00 40 75 0c 8b 07 0b |..)?._..|..@u....|
|000002e0| c0 74 17 3b c1 73 02 8b | c8 33 d2 8b 1e 98 82 b4 |.t.;.s..|.3......|
|000002f0| 3f cd 21 51 e8 99 ff 5f | eb d5 c3 b4 3e eb 06 8b |?.!Q..._|....>...|
|00000300| 16 78 b8 b4 41 cd 21 c3 | bb 22 01 1e 0e 1f e8 02 |.x..A.!.|."......|
|00000310| 00 1f c3 50 52 8a 17 43 | b4 02 cd 21 80 3f 00 75 |...PR..C|...!.?.u|
|00000320| f4 5a 58 c3 8b 1e 96 82 | 81 fb 00 80 72 21 51 52 |.ZX.....|....r!QR|
|00000330| ba 00 40 b9 00 40 bb 07 | 82 29 0f 83 5f 02 00 73 |..@..@..|.).._..s|
|00000340| 02 03 0f 8b 1e 98 82 b4 | 3f cd 21 8b da 5a 59 8a |........|?.!..ZY.|
|00000350| 07 43 89 1e 96 82 c3 33 | c0 a3 a0 82 a3 72 b7 a2 |.C.....3|.....r..|
|00000360| 74 b7 a2 75 b7 b0 10 e8 | b5 02 33 ff eb 11 e8 79 |t..u....|..3....y|
|00000370| 01 0a e4 75 13 aa 81 ff | 00 40 75 03 e8 0b ff 83 |...u....|.@u.....|
|00000380| 2e 0b 82 01 73 e8 eb 2a | 8b c8 81 e9 fd 00 e8 9d |....s..*|........|
|00000390| 01 8b f7 f9 1b f0 51 81 | e6 ff 3f a4 f7 c7 00 40 |......Q.|..?....@|
|000003a0| 74 07 51 56 e8 e3 fe 5e | 59 e2 ec 59 29 0e 0b 82 |t.QV...^|Y..Y)...|
|000003b0| 73 bc 83 1e 0d 82 00 73 | b5 e9 ce fe 56 8a c2 e8 |s......s|....V...|
|000003c0| 4c 02 3b c6 76 03 e9 4b | fd bf f2 b6 0b c0 75 13 |L.;.v..K|......u.|
|000003d0| 59 f3 aa 8a c2 e8 36 02 | b9 00 01 bf f4 b2 f3 ab |Y.....6.|........|
|000003e0| c3 eb 4e 8b d1 03 d7 8b | f7 03 f0 b0 03 e8 1e 02 |..N.....|........|
|000003f0| 3c 07 75 12 8b 1e 72 b7 | d1 e3 73 03 40 eb f9 50 |<.u...r.|..s.@..P|
|00000400| 2c 06 e8 1a 02 58 aa 3b | fa 75 0b b0 02 e8 fe 01 |,....X.;|.u......|
|00000410| 8b c8 32 c0 f3 aa 3b fe | 72 d1 5e bd f2 b6 8d 0a |..2...;.|r.^.....|
|00000420| 2b cf 32 c0 f3 aa 8b c6 | b9 08 00 bf f4 b2 e9 36 |+.2.....|.......6|
|00000430| 01 b0 09 e8 d8 01 3d fe | 01 76 03 e9 d6 fc bf f4 |......=.|.v......|
|00000440| b4 0b c0 75 15 b9 fe 01 | f3 aa b0 09 e8 bf 01 b9 |...u....|........|
|00000450| 00 10 bf f4 92 f3 ab c3 | eb 6a 8b d7 03 d0 57 a1 |........|.j....W.|
|00000460| 72 b7 8a dc 32 ff d1 e3 | 8b 9f f4 b2 be 55 05 b9 |r...2...|.....U..|
|00000470| 13 00 e9 b3 00 53 8a 87 | f2 b6 e8 a2 01 58 2d 02 |.....S..|.....X-.|
|00000480| 00 77 26 75 0c b0 09 e8 | 84 01 05 14 00 8b c8 eb |.w&u....|........|
|00000490| 12 40 75 0c b0 04 e8 75 | 01 05 03 00 8b c8 eb 03 |.@u....u|........|
|000004a0| b9 01 00 32 c0 f3 aa eb | 01 aa 3b fa 72 b1 b9 f2 |...2....|..;.r...|
|000004b0| b6 2b cf 32 c0 f3 aa b8 | fe 01 5d b9 0c 00 bf f4 |.+.2....|..].....|
|000004c0| 92 e9 a3 00 57 b0 10 e8 | 44 01 48 a3 a0 82 be 13 |....W...|D.H.....|
|000004d0| 00 b2 05 b9 03 00 e8 e3 | fe e8 55 ff be 0e 00 b2 |........|..U.....|
|000004e0| 04 b9 ff ff e8 d5 fe 5f | eb 07 83 2e a0 82 01 72 |......._|.......r|
|000004f0| d3 8b 1e 72 b7 b1 04 d3 | eb d1 e3 8b 9f f4 92 81 |...r....|........|
|00000500| fb fe 01 73 0a 53 8a 87 | f4 b4 e8 12 01 58 c3 a1 |...s.S..|.....X..|
|00000510| 72 b7 d2 e0 be e5 05 b9 | fe 01 d0 e0 73 06 8b 9f |r.......|....s...|
|00000520| fe 8a eb 04 8b 9f 08 83 | 3b d9 73 ee ff e6 51 32 |........|;.s...Q2|
|00000530| ff 8a 1e 73 b7 d1 e3 8b | 9f f4 b2 83 fb 0e 73 1c |...s....|......s.|
|00000540| 53 8a 87 f2 b6 e8 d7 00 | 58 3c 01 76 0d 48 8b c8 |S.......|X<.v.H..|
|00000550| e8 bb 00 bb 01 00 d3 e3 | 0b c3 59 c3 a0 72 b7 be |........|..Y..r..|
|00000560| 20 06 b9 0e 00 eb b3 a3 | 7d b8 d1 e0 a3 7b b8 89 | .......|}....{..|
|00000570| 0e 81 b8 89 3e 83 b8 b0 | 10 2a c1 a2 85 b8 b8 01 |....>...|.*......|
|00000580| 00 d3 e0 8b c8 33 c0 f3 | ab 33 f6 bb 00 80 ba 01 |.....3..|.3......|
|00000590| 00 8b fd 8b 0e 7d b8 8a | c2 f2 ae 75 6b 8b c7 2b |.....}..|...uk..+|
|000005a0| c5 48 51 57 8a 0e 85 b8 | 8b fe d3 ef d1 e7 03 3e |.HQW....|.......>|
|000005b0| 83 b8 53 3b 16 81 b8 77 | 08 d3 eb 8b cb f3 ab eb |..S;...w|........|
|000005c0| 3c 56 8b 0e 81 b8 d3 e6 | f7 d9 03 ca 83 3d 00 75 |<V......|.....=.u|
|000005d0| 17 8b 1e 7b b8 c7 87 fe | 8a 00 00 c7 87 08 83 00 |...{....|........|
|000005e0| 00 89 1d 83 06 7b b8 02 | 8b 3d d1 e6 73 06 81 c7 |.....{..|.=..s...|
|000005f0| fe 8a eb 04 81 c7 08 83 | e2 d2 89 05 5e 5b 5f 59 |........|....^[_Y|
|00000600| 03 f3 72 09 0b c9 75 8f | 42 d1 eb 73 84 c3 51 b1 |..r...u.|B..s..Q.|
|00000610| 10 2a c8 ff 36 72 b7 e8 | 05 00 58 d3 e8 59 c3 51 |.*..6r..|..X..Y.Q|
|00000620| 52 8a e8 8a 0e 75 b7 8b | 16 72 b7 a0 74 b7 3a e9 |R....u..|.r..t.:.|
|00000630| 76 19 2a e9 d3 e2 d2 c0 | 02 d0 b1 08 e8 e5 fc 3a |v.*.....|.......:|
|00000640| e9 76 08 2a e9 8a f2 8a | d0 eb f1 2a cd 88 0e 75 |.v.*....|...*...u|
|00000650| b7 8a cd 32 e4 d3 e2 d3 | e0 02 d4 89 16 72 b7 a2 |...2....|.....r..|
|00000660| 74 b7 5a 59 c3 22 e1 2d | 6c 68 30 2d ed 04 00 00 |t.ZY.".-|lh0-....|
|00000670| ed 04 00 00 59 7e f6 1e | 00 00 0c 41 44 44 52 42 |....Y~..|...ADDRB|
|00000680| 4f 4f 4b 2e 50 41 53 ee | 64 7b 2d 2d 2d 2d 2d 2d |OOK.PAS.|d{------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 7d 0d | 0a 7b 20 20 20 20 20 20 |------}.|.{ |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006f0| 20 20 54 65 72 4d 61 69 | 6c 20 61 64 64 72 65 73 | TerMai|l addres|
|00000700| 73 20 62 6f 6f 6b 20 66 | 6f 72 6d 61 74 20 20 20 |s book f|ormat |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000720| 20 20 20 20 20 20 7d 0d | 0a 7b 2d 2d 2d 2d 2d 2d | }.|.{------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 7d 0d | 0a 0d 0a 43 6f 6e 73 74 |------}.|...Const|
|00000780| 0d 0a 20 20 75 5f 61 74 | 74 72 5f 64 65 6c 65 74 |.. u_at|tr_delet|
|00000790| 65 20 3d 20 31 3b 0d 0a | 0d 0a 54 79 70 65 0d 0a |e = 1;..|..Type..|
|000007a0| 20 20 41 64 64 72 42 6f | 6f 6b 52 65 63 6f 72 64 | AddrBo|okRecord|
|000007b0| 20 3d 20 72 65 63 6f 72 | 64 0d 0a 20 20 20 20 20 | = recor|d.. |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007d0| 4e 61 6d 65 20 20 20 20 | 20 20 20 20 20 20 20 3a |Name | :|
|000007e0| 20 53 74 72 69 6e 67 5b | 35 30 5d 3b 0d 0a 20 20 | String[|50];.. |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000800| 20 20 20 46 69 64 6f 6e | 65 74 20 20 20 20 20 20 | Fidon|et |
|00000810| 20 20 3a 20 53 74 72 69 | 6e 67 5b 31 38 5d 3b 0d | : Stri|ng[18];.|
|00000820| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000830| 20 20 20 20 20 20 43 72 | 61 73 68 20 20 20 20 20 | Cr|ash |
|00000840| 20 20 20 20 20 3a 20 42 | 6f 6f 6c 65 61 6e 3b 0d | : B|oolean;.|
|00000850| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000860| 20 20 20 20 20 20 49 6e | 74 65 72 6e 65 74 20 20 | In|ternet |
|00000870| 20 20 20 20 20 3a 20 53 | 74 72 69 6e 67 5b 36 30 | : S|tring[60|
|00000880| 5d 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |];.. | |
|00000890| 20 20 20 20 20 20 20 20 | 20 4f 72 67 61 6e 69 73 | | Organis|
|000008a0| 61 74 69 6f 6e 20 20 20 | 3a 20 53 74 72 69 6e 67 |ation |: String|
|000008b0| 5b 35 30 5d 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |[50];.. | |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 64 64 72 | | Addr|
|000008d0| 65 73 73 31 20 20 20 20 | 20 20 20 3a 20 53 74 72 |ess1 | : Str|
|000008e0| 69 6e 67 5b 35 30 5d 3b | 0d 0a 20 20 20 20 20 20 |ing[50];|.. |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|00000900| 64 64 72 65 73 73 32 20 | 20 20 20 20 20 20 3a 20 |ddress2 | : |
|00000910| 53 74 72 69 6e 67 5b 35 | 30 5d 3b 0d 0a 20 20 20 |String[5|0];.. |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000930| 20 20 41 64 64 72 65 73 | 73 33 20 20 20 20 20 20 | Addres|s3 |
|00000940| 20 3a 20 53 74 72 69 6e | 67 5b 35 30 5d 3b 0d 0a | : Strin|g[50];..|
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000960| 20 20 20 20 20 43 6f 6d | 6d 65 6e 74 20 20 20 20 | Com|ment |
|00000970| 20 20 20 20 3a 20 41 72 | 72 61 79 5b 31 2e 2e 35 | : Ar|ray[1..5|
|00000980| 5d 20 6f 66 20 53 74 72 | 69 6e 67 5b 35 30 5d 3b |] of Str|ing[50];|
|00000990| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000009a0| 20 20 20 20 20 20 20 44 | 61 74 61 50 68 6f 6e 65 | D|ataPhone|
|000009b0| 20 20 20 20 20 20 3a 20 | 53 74 72 69 6e 67 5b 32 | : |String[2|
|000009c0| 35 5d 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |5];.. | |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 46 61 78 50 68 6f | | FaxPho|
|000009e0| 6e 65 20 20 20 20 20 20 | 20 3a 20 53 74 72 69 6e |ne | : Strin|
|000009f0| 67 5b 32 35 5d 3b 0d 0a | 20 20 20 20 20 20 20 20 |g[25];..| |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 56 6f 69 | | Voi|
|00000a10| 63 65 50 68 6f 6e 65 20 | 20 20 20 20 3a 20 53 74 |cePhone | : St|
|00000a20| 72 69 6e 67 5b 32 35 5d | 3b 0d 0a 20 20 20 20 20 |ring[25]|;.. |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a40| 46 69 72 73 74 44 61 74 | 65 20 20 20 20 20 20 3a |FirstDat|e :|
|00000a50| 20 57 6f 72 64 3b 0d 0a | 20 20 20 20 20 20 20 20 | Word;..| |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4c 61 73 | | Las|
|00000a70| 74 44 61 74 65 20 20 20 | 20 20 20 20 3a 20 57 6f |tDate | : Wo|
|00000a80| 72 64 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |rd;.. | |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 4c 61 73 74 54 69 | | LastTi|
|00000aa0| 6d 65 20 20 20 20 20 20 | 20 3a 20 57 6f 72 64 3b |me | : Word;|
|00000ab0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00000ac0| 20 20 20 20 20 20 20 54 | 69 6d 65 73 20 20 20 20 | T|imes |
|00000ad0| 20 20 20 20 20 20 3a 20 | 57 6f 72 64 3b 0d 0a 20 | : |Word;.. |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000af0| 20 20 20 20 41 74 74 72 | 20 20 20 20 20 20 20 20 | Attr| |
|00000b00| 20 20 20 3a 20 42 79 74 | 65 3b 20 20 20 7b 20 31 | : Byt|e; { 1|
|00000b10| 20 3d 20 44 65 6c 65 74 | 65 64 20 7d 0d 0a 20 20 | = Delet|ed }.. |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b30| 20 20 20 46 72 65 65 53 | 70 61 63 65 20 20 20 20 | FreeS|pace |
|00000b40| 20 20 3a 20 41 72 72 61 | 79 5b 31 2e 2e 39 30 5d | : Arra|y[1..90]|
|00000b50| 20 6f 66 20 42 79 74 65 | 3b 0d 0a 20 20 20 20 20 | of Byte|;.. |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 6e | | En|
|00000b70| 64 3b 0d 0a 0d 0a 22 a9 | 2d 6c 68 30 2d b9 0f 00 |d;....".|-lh0-...|
|00000b80| 00 b9 0f 00 00 cf 56 f6 | 1c 00 00 0c 46 49 4c 45 |......V.|....FILE|
|00000b90| 53 42 42 53 2e 50 41 53 | d4 48 20 7b 0d 0a 20 54 |SBBS.PAS|.H {.. T|
|00000ba0| 65 72 6d 69 6e 61 74 65 | 20 68 65 6c 70 20 66 69 |erminate| help fi|
|00000bb0| 6c 65 0d 0a 0d 0a 20 54 | 68 65 20 66 6f 72 6d 61 |le.... T|he forma|
|00000bc0| 74 20 6f 66 20 46 49 4c | 45 53 2e 42 42 53 20 73 |t of FIL|ES.BBS s|
|00000bd0| 74 79 6c 65 20 66 69 6c | 65 73 20 61 72 65 20 75 |tyle fil|es are u|
|00000be0| 73 65 64 20 6f 6e 20 6d | 61 6e 79 20 42 42 53 20 |sed on m|any BBS |
|00000bf0| 73 79 73 74 65 6d 73 2e | 20 49 74 20 69 73 0d 0a |systems.| It is..|
|00000c00| 20 74 68 65 20 65 61 73 | 69 65 73 74 20 74 6f 20 | the eas|iest to |
|00000c10| 68 61 76 65 20 61 72 6f | 75 6e 64 20 73 69 6e 63 |have aro|und sinc|
|00000c20| 65 20 79 6f 75 20 63 61 | 6e 20 65 64 69 74 20 74 |e you ca|n edit t|
|00000c30| 68 65 73 65 20 66 69 6c | 65 73 20 77 69 74 68 20 |hese fil|es with |
|00000c40| 61 6e 79 20 6e 6f 72 6d | 61 6c 0d 0a 20 74 65 78 |any norm|al.. tex|
|00000c50| 74 65 64 69 74 6f 72 2e | 0d 0a 0d 0a 20 54 65 72 |teditor.|.... Ter|
|00000c60| 6d 69 6e 61 74 65 20 77 | 69 6c 6c 20 61 6c 73 6f |minate w|ill also|
|00000c70| 20 69 6e 74 65 72 6e 61 | 6c 6c 79 20 73 75 70 70 | interna|lly supp|
|00000c80| 6f 72 74 20 61 20 64 65 | 73 63 72 69 70 74 69 6f |ort a de|scriptio|
|00000c90| 6e 20 66 69 6c 65 20 63 | 61 6c 6c 65 64 0d 0a 20 |n file c|alled.. |
|00000ca0| 44 45 53 43 52 49 50 54 | 2e 49 4f 4e 2c 20 77 68 |DESCRIPT|.ION, wh|
|00000cb0| 69 63 68 20 69 73 20 75 | 73 65 64 20 74 6f 67 65 |ich is u|sed toge|
|00000cc0| 74 68 65 72 20 77 69 74 | 68 20 34 44 4f 53 2e 0d |ther wit|h 4DOS..|
|00000cd0| 0a 20 54 68 65 73 65 20 | 66 69 6c 65 73 20 61 72 |. These |files ar|
|00000ce0| 65 20 72 65 61 6c 20 73 | 69 6d 70 6c 65 20 74 6f |e real s|imple to|
|00000cf0| 20 70 72 6f 63 65 73 73 | 2c 20 62 65 63 61 75 73 | process|, becaus|
|00000d00| 65 20 74 68 65 20 66 6f | 72 6d 61 74 20 69 73 3a |e the fo|rmat is:|
|00000d10| 0d 0a 20 66 69 6c 65 6e | 61 6d 65 2e 65 78 74 2b |.. filen|ame.ext+|
|00000d20| 73 70 61 63 65 2b 64 65 | 73 63 72 69 70 74 69 6f |space+de|scriptio|
|00000d30| 6e 3a 0d 0a 0d 0a 20 45 | 78 61 6d 70 6c 65 20 44 |n:.... E|xample D|
|00000d40| 45 53 43 52 49 50 54 2e | 49 4f 4e 20 66 69 6c 65 |ESCRIPT.|ION file|
|00000d50| 3a 0d 0a 0d 0a 20 2d 2d | 2d 2d 2d 2d 2d 20 43 55 |:.... --|----- CU|
|00000d60| 54 20 2d 2d 2d 2d 2d 2d | 2d 0d 0a 20 54 45 52 31 |T ------|-.. TER1|
|00000d70| 30 30 2e 41 52 4a 20 54 | 68 65 20 66 69 6e 61 6c |00.ARJ T|he final|
|00000d80| 20 74 65 72 6d 69 6e 61 | 6c 20 76 65 72 73 69 6f | termina|l versio|
|00000d90| 6e 20 31 2e 30 30 0d 0a | 20 54 2d 55 54 49 4c 53 |n 1.00..| T-UTILS|
|00000da0| 2e 41 52 4a 20 4c 69 73 | 74 20 26 20 51 65 64 69 |.ARJ Lis|t & Qedi|
|00000db0| 74 2c 20 67 72 65 61 74 | 20 6c 69 73 74 65 72 20 |t, great| lister |
|00000dc0| 61 6e 64 20 65 64 69 74 | 6f 72 0d 0a 20 2d 2d 2d |and edit|or.. ---|
|00000dd0| 2d 2d 2d 2d 20 43 55 54 | 20 2d 2d 2d 2d 2d 2d 2d |---- CUT| -------|
|00000de0| 0d 0a 0d 0a 20 54 68 65 | 20 46 49 4c 45 53 2e 42 |.... The| FILES.B|
|00000df0| 42 53 20 66 69 6c 65 20 | 69 73 20 61 20 6e 6f 72 |BS file |is a nor|
|00000e00| 6d 61 6c 20 74 65 78 74 | 66 69 6c 65 2c 20 77 68 |mal text|file, wh|
|00000e10| 69 63 68 20 68 61 73 20 | 61 20 23 31 33 2b 23 31 |ich has |a #13+#1|
|00000e20| 30 20 43 52 2b 4c 46 20 | 61 66 74 65 72 0d 0a 20 |0 CR+LF |after.. |
|00000e30| 65 61 63 68 20 6c 69 6e | 65 2e 20 54 68 65 20 66 |each lin|e. The f|
|00000e40| 6f 6c 6c 6f 77 69 6e 67 | 20 69 73 20 61 20 73 61 |ollowing| is a sa|
|00000e50| 6d 70 6c 65 20 46 49 4c | 45 53 2e 42 42 53 2e 0d |mple FIL|ES.BBS..|
|00000e60| 0a 0d 0a 20 2d 2d 2d 2d | 2d 2d 2d 20 43 55 54 20 |... ----|--- CUT |
|00000e70| 2d 2d 2d 2d 2d 2d 2d 0d | 0a 20 d5 cd cd cd cd cd |-------.|. ......|
|00000e80| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000e90| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000ea0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000eb0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000ec0| cd cd cd cd cd cd b8 0d | 0a 20 b3 20 41 72 65 61 |........|. . Area|
|00000ed0| 20 23 32 20 20 3a 20 20 | 20 54 45 52 20 20 3a 54 | #2 : | TER :T|
|00000ee0| 65 72 6d 69 6e 61 74 65 | 20 20 20 20 20 20 20 20 |erminate| |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f00| 20 20 41 63 63 65 73 73 | 20 6c 65 76 65 6c 20 20 | Access| level |
|00000f10| 20 20 35 30 30 20 b3 0d | 0a 20 c3 c4 c4 c4 c4 c4 | 500 ..|. ......|
|00000f20| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000f30| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000f40| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000f50| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000f60| c4 c4 c4 c4 c4 c4 b4 0d | 0a 20 b3 b0 b0 b0 b0 b0 |........|. ......|
|00000f70| b1 b1 b1 b1 b1 b2 b2 b2 | b2 b2 db db db db db 20 |........|....... |
|00000f80| 20 20 20 31 2e 31 39 32 | 2e 39 31 35 20 62 79 74 | 1.192|.915 byt|
|00000f90| 65 73 20 69 6e 20 20 20 | 20 33 31 20 66 69 6c 65 |es in | 31 file|
|00000fa0| 73 20 db db db db db b2 | b2 b2 b2 b2 b1 b1 b1 b1 |s ......|........|
|00000fb0| b1 b0 b0 b0 b0 b0 b3 0d | 0a 20 d4 20 3c 46 41 53 |........|. . <FAS|
|00000fc0| 54 20 36 2e 30 30 e0 3e | 20 20 20 20 20 20 20 20 |T 6.00.>| |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ff0| 20 20 20 20 20 20 28 43 | 29 20 53 65 72 57 69 7a | (C|) SerWiz|
|00001000| 20 43 6f 6d 6d 20 be 0d | 0a 0d 0a 54 45 52 39 39 | Comm ..|...TER99|
|00001010| 2e 41 52 4a 20 20 20 20 | 5b 34 32 39 5d 20 4c 61 |.ARJ |[429] La|
|00001020| 74 65 73 74 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |test ver|sion of |
|00001030| 74 65 72 6d 69 6e 61 74 | 65 2c 20 4d 41 4a 4f 52 |terminat|e, MAJOR|
|00001040| 20 55 50 44 41 54 45 0d | 0a 20 20 20 20 20 20 20 | UPDATE.|. |
|00001050| 20 20 20 20 20 20 54 68 | 69 73 20 70 72 6f 67 72 | Th|is progr|
|00001060| 61 6d 20 77 69 6c 6c 20 | 64 6f 20 69 74 20 61 6c |am will |do it al|
|00001070| 6c 20 66 6f 72 20 79 6f | 75 0d 0a 48 49 53 54 4f |l for yo|u..HISTO|
|00001080| 52 59 2e 44 4f 43 20 20 | 5b 34 39 5d 20 43 68 65 |RY.DOC |[49] Che|
|00001090| 63 6b 20 74 68 69 73 20 | 66 6f 72 20 6e 65 77 20 |ck this |for new |
|000010a0| 66 65 61 74 75 72 65 73 | 2c 20 61 6c 73 6f 20 69 |features|, also i|
|000010b0| 6e 20 54 45 52 3f 3f 2e | 41 52 4a 0d 0a 2d 2d 2d |n TER??.|ARJ..---|
|000010c0| 2d 2d 2d 2d 2d 20 43 55 | 54 20 2d 2d 2d 2d 2d 2d |----- CU|T ------|
|000010d0| 2d 0d 0a 20 31 20 20 20 | 20 20 20 20 20 20 20 20 |-.. 1 | |
|000010e0| 20 31 34 0d 0a 20 46 69 | 6c 65 6e 61 6d 65 20 20 | 14.. Fi|lename |
|000010f0| 20 20 20 44 65 73 63 72 | 69 70 74 69 6f 6e 0d 0a | Descr|iption..|
|00001100| 0d 0a 20 57 68 65 6e 20 | 73 63 61 6e 6e 69 6e 67 |.. When |scanning|
|00001110| 20 74 68 72 6f 75 67 68 | 20 74 68 69 73 20 66 69 | through| this fi|
|00001120| 6c 65 20 79 6f 75 20 63 | 61 6e 20 61 73 73 75 6d |le you c|an assum|
|00001130| 65 20 74 68 61 74 20 74 | 68 65 20 6c 69 6e 65 20 |e that t|he line |
|00001140| 69 73 20 61 20 63 6f 6d | 6d 65 6e 74 0d 0a 20 69 |is a com|ment.. i|
|00001150| 66 20 70 6f 73 69 74 69 | 6f 6e 20 31 20 69 73 20 |f positi|on 1 is |
|00001160| 61 20 62 6c 61 6e 6b 20 | 27 20 27 20 6f 72 20 61 |a blank |' ' or a|
|00001170| 20 6d 69 6e 75 73 20 27 | 2d 27 20 74 68 65 6e 20 | minus '|-' then |
|00001180| 79 6f 75 20 61 72 65 20 | 73 75 72 65 2e 20 42 75 |you are |sure. Bu|
|00001190| 74 20 6f 74 68 65 72 77 | 69 73 65 0d 0a 20 79 6f |t otherw|ise.. yo|
|000011a0| 75 20 63 6f 75 6c 64 20 | 61 6c 73 6f 20 64 65 6d |u could |also dem|
|000011b0| 61 6e 64 20 74 68 61 74 | 20 70 6f 73 69 74 69 6f |and that| positio|
|000011c0| 6e 20 31 20 6d 75 73 74 | 20 62 65 20 69 6e 20 74 |n 1 must| be in t|
|000011d0| 68 65 20 72 61 6e 67 65 | 20 6f 66 20 27 41 27 2e |he range| of 'A'.|
|000011e0| 2e 27 5a 27 2c 20 62 75 | 74 0d 0a 20 74 68 69 73 |.'Z', bu|t.. this|
|000011f0| 20 6d 65 74 68 6f 64 20 | 69 73 20 6e 6f 74 20 72 | method |is not r|
|00001200| 65 63 6f 6d 6d 65 6e 64 | 20 62 65 63 61 75 73 65 |ecommend| because|
|00001210| 20 6e 6f 74 20 61 6c 6c | 20 46 49 4c 45 53 2e 42 | not all| FILES.B|
|00001220| 42 53 20 70 72 6f 67 72 | 61 6d 6d 65 72 73 20 64 |BS progr|ammers d|
|00001230| 6f 20 74 68 65 0d 0a 20 | 73 61 6d 65 20 74 68 69 |o the.. |same thi|
|00001240| 6e 67 2e 20 50 6f 73 69 | 74 69 6f 6e 20 31 34 20 |ng. Posi|tion 14 |
|00001250| 61 6e 64 20 74 68 65 20 | 72 65 73 74 20 6f 66 20 |and the |rest of |
|00001260| 74 68 65 20 6c 69 6e 65 | 20 69 73 20 74 68 65 20 |the line| is the |
|00001270| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 74 |descript|ion of t|
|00001280| 68 65 0d 0a 20 66 69 6c | 65 2e 20 53 6f 6d 65 20 |he.. fil|e. Some |
|00001290| 70 72 6f 67 72 61 6d 6d | 65 72 73 20 61 6c 6c 6f |programm|ers allo|
|000012a0| 77 20 6d 75 6c 74 69 6c | 69 6e 65 20 64 65 73 63 |w multil|ine desc|
|000012b0| 72 69 70 74 69 6f 6e 73 | 2c 20 69 66 20 79 6f 75 |riptions|, if you|
|000012c0| 20 77 61 6e 74 20 74 6f | 20 73 75 70 70 6f 72 74 | want to| support|
|000012d0| 0d 0a 20 74 68 61 74 2c | 20 77 68 65 6e 20 79 6f |.. that,| when yo|
|000012e0| 75 20 67 65 74 20 61 20 | 66 69 6c 65 6e 61 6d 65 |u get a |filename|
|000012f0| 2c 20 6a 75 73 74 20 72 | 65 61 64 20 6f 6e 20 75 |, just r|ead on u|
|00001300| 6e 74 69 6c 20 61 20 6e | 65 77 20 66 69 6c 65 6e |ntil a n|ew filen|
|00001310| 61 6d 65 20 69 73 20 72 | 65 61 64 2c 0d 0a 20 74 |ame is r|ead,.. t|
|00001320| 68 65 20 66 69 72 73 74 | 20 70 6f 73 69 74 69 6f |he first| positio|
|00001330| 6e 20 69 73 20 6d 69 6e | 75 73 2c 27 27 2c 65 6f |n is min|us,'',eo|
|00001340| 66 2e 0d 0a 20 7d 0d 0a | 0d 0a 20 7b 20 54 68 69 |f... }..|.. { Thi|
|00001350| 73 20 6c 69 74 74 6c 65 | 20 65 78 61 6d 70 6c 65 |s little| example|
|00001360| 20 77 69 6c 6c 20 73 68 | 6f 77 20 79 6f 75 20 68 | will sh|ow you h|
|00001370| 6f 77 20 74 6f 20 6f 6e | 6c 79 20 77 72 69 74 65 |ow to on|ly write|
|00001380| 20 6f 75 74 20 66 69 6c | 65 73 20 61 6e 64 20 64 | out fil|es and d|
|00001390| 65 73 63 2e 20 7d 0d 0a | 0d 0a 20 7b 44 55 4d 4d |esc. }..|.. {DUMM|
|000013a0| 59 7d 0d 0a 0d 0a 50 72 | 6f 67 72 61 6d 20 53 68 |Y}....Pr|ogram Sh|
|000013b0| 6f 77 46 69 6c 65 73 3b | 0d 0a 0d 0a 55 73 65 73 |owFiles;|....Uses|
|000013c0| 20 43 72 74 3b 0d 0a 0d | 0a 56 61 72 0d 0a 20 20 | Crt;...|.Var.. |
|000013d0| 53 20 20 20 20 20 20 20 | 20 20 20 3a 20 53 74 72 |S | : Str|
|000013e0| 69 6e 67 3b 0d 0a 20 20 | 52 65 61 64 4e 65 78 74 |ing;.. |ReadNext|
|000013f0| 20 20 20 3a 20 42 6f 6f | 6c 65 61 6e 3b 0d 0a 20 | : Boo|lean;.. |
|00001400| 20 46 69 6c 65 73 42 42 | 53 20 20 20 3a 20 54 65 | FilesBB|S : Te|
|00001410| 78 74 3b 0d 0a 20 20 46 | 61 73 74 42 75 66 66 65 |xt;.. F|astBuffe|
|00001420| 72 20 3a 20 41 72 72 61 | 79 5b 31 2e 2e 38 31 39 |r : Arra|y[1..819|
|00001430| 32 5d 20 6f 66 20 42 79 | 74 65 20 7b 6f 72 20 43 |2] of By|te {or C|
|00001440| 68 61 72 2e 2e 2e 20 64 | 6f 65 73 20 6e 6f 74 20 |har... d|oes not |
|00001450| 6d 61 74 74 65 72 7d 3b | 0d 0a 20 20 7b 0d 0a 20 |matter};|.. {.. |
|00001460| 20 38 31 39 32 20 62 79 | 74 65 73 20 73 68 6f 75 | 8192 by|tes shou|
|00001470| 6c 64 20 61 6c 77 61 79 | 73 20 62 65 20 75 73 65 |ld alway|s be use|
|00001480| 64 20 73 69 6e 63 65 20 | 61 76 65 72 61 67 65 20 |d since |average |
|00001490| 73 69 7a 65 20 6e 65 76 | 65 72 20 69 73 20 6d 6f |size nev|er is mo|
|000014a0| 72 65 20 74 68 61 6e 0d | 0a 20 20 74 68 69 73 2e |re than.|. this.|
|000014b0| 20 4e 6f 77 20 74 68 65 | 20 65 6e 74 69 72 65 20 | Now the| entire |
|000014c0| 74 65 78 74 66 69 6c 65 | 20 77 69 6c 6c 20 62 65 |textfile| will be|
|000014d0| 20 72 65 61 64 20 69 6e | 20 6f 6e 65 20 73 74 72 | read in| one str|
|000014e0| 6f 6b 65 2e 0d 0a 20 20 | 7d 0d 0a 0d 0a 42 65 67 |oke... |}....Beg|
|000014f0| 69 6e 0d 0a 20 20 43 6c | 72 53 63 72 3b 20 20 20 |in.. Cl|rScr; |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001520| 20 20 20 20 20 7b 20 43 | 6c 65 61 72 20 53 63 72 | { C|lear Scr|
|00001530| 65 65 6e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |een | |
|00001540| 7d 0d 0a 20 20 46 69 6c | 65 6d 6f 64 65 3a 3d 36 |}.. Fil|emode:=6|
|00001550| 36 2b 31 32 38 3b 20 20 | 20 20 20 20 20 20 20 20 |6+128; | |
|00001560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001570| 20 20 20 20 7b 20 44 65 | 6e 79 20 6e 6f 6e 65 20 | { De|ny none |
|00001580| 6f 6e 20 6e 65 74 77 6f | 72 6b 73 20 20 20 20 7d |on netwo|rks }|
|00001590| 0d 0a 20 20 41 73 73 69 | 67 6e 28 46 69 6c 65 73 |.. Assi|gn(Files|
|000015a0| 42 42 53 2c 27 46 49 4c | 45 53 42 42 53 2e 50 41 |BBS,'FIL|ESBBS.PA|
|000015b0| 53 27 29 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |S'); | |
|000015c0| 20 20 20 7b 20 4f 6e 6c | 79 20 66 6f 72 20 74 65 | { Onl|y for te|
|000015d0| 73 74 69 6e 67 20 20 20 | 20 20 20 20 20 20 7d 0d |sting | }.|
|000015e0| 0a 20 20 53 65 74 54 65 | 78 74 42 75 66 28 46 69 |. SetTe|xtBuf(Fi|
|000015f0| 6c 65 73 42 42 53 2c 46 | 61 73 74 42 75 66 66 65 |lesBBS,F|astBuffe|
|00001600| 72 29 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r); | |
|00001610| 20 20 7b 20 53 65 74 20 | 62 69 67 20 62 75 66 66 | { Set |big buff|
|00001620| 65 72 20 66 6f 72 20 74 | 65 78 74 20 20 7d 0d 0a |er for t|ext }..|
|00001630| 20 20 7b 24 49 2d 7d 20 | 52 65 73 65 74 28 46 69 | {$I-} |Reset(Fi|
|00001640| 6c 65 73 42 42 53 29 3b | 20 7b 24 49 2b 7d 20 20 |lesBBS);| {$I+} |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001660| 20 7b 20 4f 70 65 6e 20 | 74 68 65 20 66 69 6c 65 | { Open |the file|
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 0a 20 | | }.. |
|00001680| 20 53 3a 3d 27 27 3b 20 | 20 20 20 20 20 20 20 20 | S:=''; | |
|00001690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016b0| 7b 20 43 6c 65 61 6e 20 | 73 74 72 69 6e 67 20 20 |{ Clean |string |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 7d 0d 0a 20 20 | | }.. |
|000016d0| 49 66 20 49 4f 52 65 73 | 75 6c 74 3d 30 20 54 68 |If IORes|ult=0 Th|
|000016e0| 65 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |en | |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7b | | {|
|00001700| 20 46 69 6c 65 20 6f 70 | 65 6e 20 66 6f 72 20 72 | File op|en for r|
|00001710| 65 61 64 20 20 20 20 20 | 20 20 7d 0d 0a 20 20 42 |ead | }.. B|
|00001720| 65 67 69 6e 0d 0a 20 20 | 20 20 52 65 61 64 4e 65 |egin.. | ReadNe|
|00001730| 78 74 3a 3d 54 72 75 65 | 3b 20 20 20 20 20 20 20 |xt:=True|; |
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001750| 20 20 20 20 20 20 20 7b | 20 4e 65 65 64 20 74 68 | {| Need th|
|00001760| 69 73 20 66 6f 72 20 6d | 75 6c 74 69 20 64 65 73 |is for m|ulti des|
|00001770| 63 2e 7d 0d 0a 20 20 20 | 20 57 68 69 6c 65 20 4e |c.}.. | While N|
|00001780| 6f 74 20 45 6f 66 28 46 | 69 6c 65 73 42 42 53 29 |ot Eof(F|ilesBBS)|
|00001790| 20 41 6e 64 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | And.. | |
|000017a0| 28 53 3c 3e 27 20 7b 44 | 55 4d 4d 59 7d 27 29 20 |(S<>' {D|UMMY}') |
|000017b0| 44 6f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |Do | |
|000017c0| 20 20 20 20 20 20 20 7b | 20 44 55 4d 4d 59 20 69 | {| DUMMY i|
|000017d0| 73 20 6a 75 73 74 20 74 | 6f 20 73 74 6f 70 20 20 |s just t|o stop |
|000017e0| 20 20 7d 0d 0a 20 20 20 | 20 42 65 67 69 6e 0d 0a | }.. | Begin..|
|000017f0| 20 20 20 20 20 20 49 66 | 20 52 65 61 64 4e 65 78 | If| ReadNex|
|00001800| 74 20 54 68 65 6e 20 52 | 65 61 64 4c 6e 28 46 69 |t Then R|eadLn(Fi|
|00001810| 6c 65 73 42 42 53 2c 53 | 29 3b 0d 0a 20 20 20 20 |lesBBS,S|);.. |
|00001820| 20 20 52 65 61 64 4e 65 | 78 74 3a 3d 54 72 75 65 | ReadNe|xt:=True|
|00001830| 3b 0d 0a 20 20 20 20 20 | 20 49 66 20 28 53 3c 3e |;.. | If (S<>|
|00001840| 27 27 29 20 41 6e 64 20 | 20 20 20 20 20 20 20 20 |'') And | |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001860| 20 20 20 20 7b 20 54 68 | 69 73 20 69 73 20 61 20 | { Th|is is a |
|00001870| 66 69 6c 65 20 20 20 20 | 20 20 20 20 20 20 20 7d |file | }|
|00001880| 0d 0a 20 20 20 20 20 20 | 20 20 20 4e 6f 74 20 28 |.. | Not (|
|00001890| 53 5b 31 5d 20 69 6e 20 | 5b 27 20 27 2c 27 2d 27 |S[1] in |[' ','-'|
|000018a0| 5d 29 20 54 68 65 6e 0d | 0a 20 20 20 20 20 20 42 |]) Then.|. B|
|000018b0| 65 67 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 57 72 |egin.. | Wr|
|000018c0| 69 74 65 4c 6e 28 53 29 | 3b 20 20 20 20 20 20 20 |iteLn(S)|; |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018e0| 20 20 20 20 20 20 20 7b | 20 53 68 6f 77 20 66 69 | {| Show fi|
|000018f0| 72 73 74 20 6c 69 6e 65 | 20 20 20 20 20 20 20 20 |rst line| |
|00001900| 20 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 52 65 61 | }.. | Rea|
|00001910| 64 4c 6e 28 46 69 6c 65 | 73 42 42 53 2c 53 29 3b |dLn(File|sBBS,S);|
|00001920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001930| 20 20 20 20 20 20 7b 20 | 52 65 61 64 20 6e 65 78 | { |Read nex|
|00001940| 74 20 6c 69 6e 65 20 20 | 20 20 20 20 20 20 20 20 |t line | |
|00001950| 20 7d 0d 0a 20 20 20 20 | 20 20 20 20 52 65 61 64 | }.. | Read|
|00001960| 4e 65 78 74 3a 3d 46 61 | 6c 73 65 3b 0d 0a 20 20 |Next:=Fa|lse;.. |
|00001970| 20 20 20 20 20 20 57 68 | 69 6c 65 20 28 53 3c 3e | Wh|ile (S<>|
|00001980| 27 27 29 20 41 6e 64 20 | 28 53 5b 31 5d 3d 27 20 |'') And |(S[1]=' |
|00001990| 27 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |').. | |
|000019a0| 20 20 41 6e 64 20 4e 6f | 74 20 45 6f 66 28 46 69 | And No|t Eof(Fi|
|000019b0| 6c 65 73 42 42 53 29 20 | 44 6f 20 20 20 20 20 20 |lesBBS) |Do |
|000019c0| 20 20 20 20 20 7b 20 49 | 66 20 6d 6f 72 65 20 64 | { I|f more d|
|000019d0| 65 73 63 72 69 70 74 69 | 6f 6e 20 6c 69 6e 65 73 |escripti|on lines|
|000019e0| 7d 0d 0a 20 20 20 20 20 | 20 20 20 42 65 67 69 6e |}.. | Begin|
|000019f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a10| 20 20 20 20 7b 20 74 68 | 65 6e 20 72 65 61 64 20 | { th|en read |
|00001a20| 61 6e 64 20 73 68 6f 77 | 20 74 68 65 6d 20 20 7d |and show| them }|
|00001a30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 57 72 69 74 |.. | Writ|
|00001a40| 65 4c 6e 28 53 29 3b 0d | 0a 20 20 20 20 20 20 20 |eLn(S);.|. |
|00001a50| 20 20 20 52 65 61 64 4c | 6e 28 46 69 6c 65 73 42 | ReadL|n(FilesB|
|00001a60| 42 53 2c 53 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |BS,S);..| |
|00001a70| 20 20 52 65 61 64 4e 65 | 78 74 3a 3d 46 61 6c 73 | ReadNe|xt:=Fals|
|00001a80| 65 3b 0d 0a 20 20 20 20 | 20 20 20 20 45 6e 64 3b |e;.. | End;|
|00001a90| 0d 0a 20 20 20 20 20 20 | 45 6e 64 3b 0d 0a 20 20 |.. |End;.. |
|00001aa0| 20 20 45 6e 64 3b 0d 0a | 20 20 20 20 43 6c 6f 73 | End;..| Clos|
|00001ab0| 65 28 46 69 6c 65 73 42 | 42 53 29 3b 20 20 20 20 |e(FilesB|BS); |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ad0| 20 20 20 20 20 20 20 20 | 20 7b 20 43 6c 6f 73 65 | | { Close|
|00001ae0| 20 66 69 6c 65 20 68 61 | 6e 64 6c 65 20 20 20 20 | file ha|ndle |
|00001af0| 20 20 20 20 7d 0d 0a 20 | 20 45 6e 64 0d 0a 20 20 | }.. | End.. |
|00001b00| 45 6c 73 65 20 57 72 69 | 74 65 4c 6e 28 27 43 6f |Else Wri|teLn('Co|
|00001b10| 75 6c 64 20 6e 6f 74 20 | 6f 70 65 6e 20 66 69 6c |uld not |open fil|
|00001b20| 65 27 29 3b 20 20 20 20 | 20 20 20 20 20 20 20 7b |e'); | {|
|00001b30| 20 45 72 72 6f 72 20 69 | 66 20 6e 6f 74 20 66 6f | Error i|f not fo|
|00001b40| 75 6e 64 20 20 20 20 20 | 20 20 7d 0d 0a 45 6e 64 |und | }..End|
|00001b50| 2e 0d 0a 1e 48 2d 6c 68 | 30 2d f2 09 00 00 f2 09 |....H-lh|0-......|
|00001b60| 00 00 0b 0f 68 1e 00 00 | 08 48 4f 53 54 2e 50 41 |....h...|.HOST.PA|
|00001b70| 53 92 6a 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |S.j{----|--------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00001bc0| 0a 7b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.{ | |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 0a 7b | | }..{|
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c20| 2d 3d 3e 20 48 6f 73 74 | 20 75 73 65 72 20 73 74 |-=> Host| user st|
|00001c30| 72 75 63 74 75 72 65 20 | 54 2d 55 53 45 52 53 2e |ructure |T-USERS.|
|00001c40| 42 42 53 20 3c 3d 2d 20 | 20 20 20 20 20 20 20 20 |BBS <=- | |
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 0a 7b 20 20 | | }..{ |
|00001c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ca0| 20 20 20 20 20 20 20 20 | 7d 0d 0a 7b 20 20 20 20 | |}..{ |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001cc0| 20 20 20 45 78 70 6f 72 | 74 20 75 73 65 72 73 20 | Expor|t users |
|00001cd0| 74 6f 20 74 65 78 74 66 | 69 6c 65 20 20 20 20 20 |to textf|ile |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001cf0| 20 20 20 20 20 20 7d 0d | 0a 7b 20 20 20 20 20 20 | }.|.{ |
|00001d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d40| 20 20 20 20 7d 0d 0a 7b | 20 20 53 74 72 75 63 74 | }..{| Struct|
|00001d50| 75 72 65 20 69 73 20 63 | 6f 70 79 72 69 67 68 74 |ure is c|opyright|
|00001d60| 65 64 20 6d 61 74 65 72 | 69 61 6c 20 61 6e 64 20 |ed mater|ial and |
|00001d70| 6d 61 79 20 6e 6f 74 20 | 62 65 20 63 68 61 6e 67 |may not |be chang|
|00001d80| 65 64 20 62 79 20 6f 74 | 68 65 72 20 74 68 61 6e |ed by ot|her than|
|00001d90| 20 20 7d 0d 0a 7b 20 20 | 20 20 20 20 20 20 20 20 | }..{ | |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 74 72 | | Str|
|00001db0| 61 74 68 72 6f 72 79 20 | 53 79 73 74 65 6d 73 20 |athrory |Systems |
|00001dc0| 4c 69 6d 69 74 65 64 20 | 20 20 20 20 20 20 20 20 |Limited | |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001de0| 7d 0d 0a 7b 20 20 20 20 | 20 20 20 20 20 20 20 20 |}..{ | |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d | | }.|
|00001e30| 0a 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|00001e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 0a 0d |--------|----}...|
|00001e80| 0a 54 79 70 65 0d 0a 20 | 20 55 53 45 52 53 72 65 |.Type.. | USERSre|
|00001e90| 63 6f 72 64 20 20 20 20 | 3d 20 72 65 63 6f 72 64 |cord |= record|
|00001ea0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001eb0| 20 20 20 20 20 20 20 4e | 61 6d 65 20 20 20 20 20 | N|ame |
|00001ec0| 20 20 20 20 20 20 3a 20 | 53 74 72 69 6e 67 5b 35 | : |String[5|
|00001ed0| 30 5d 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |0];.. | |
|00001ee0| 20 20 20 20 20 20 20 20 | 20 20 50 61 73 73 77 6f | | Passwo|
|00001ef0| 72 64 20 20 20 20 20 20 | 20 3a 20 53 74 72 69 6e |rd | : Strin|
|00001f00| 67 5b 32 34 5d 3b 0d 0a | 20 20 20 20 20 20 20 20 |g[24];..| |
|00001f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 65 63 | | Sec|
|00001f20| 75 72 69 74 79 20 20 20 | 20 20 20 20 3a 20 43 68 |urity | : Ch|
|00001f30| 61 72 3b 20 20 20 20 20 | 20 20 20 20 7b 20 53 20 |ar; | { S |
|00001f40| 3d 20 53 75 70 65 72 76 | 69 73 6f 72 20 7d 0d 0a |= Superv|isor }..|
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f80| 20 20 20 20 7b 20 43 20 | 3d 20 43 6f 53 79 73 6f | { C |= CoSyso|
|00001f90| 70 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |p }.. | |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001fc0| 20 20 20 20 20 20 20 20 | 20 7b 20 50 20 3d 20 50 | | { P = P|
|00001fd0| 72 69 76 69 6c 65 67 65 | 64 20 7d 0d 0a 20 20 20 |rivilege|d }.. |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002010| 20 7b 20 4e 20 3d 20 4e | 6f 72 6d 61 6c 20 7d 0d | { N = N|ormal }.|
|00002020| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002030| 20 20 20 20 20 20 4f 72 | 67 61 6e 69 73 61 74 69 | Or|ganisati|
|00002040| 6f 6e 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |on,.. | |
|00002050| 20 20 20 20 20 20 20 20 | 20 20 41 64 64 72 65 73 | | Addres|
|00002060| 73 31 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |s1,.. | |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 41 64 64 72 65 73 | | Addres|
|00002080| 73 32 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |s2,.. | |
|00002090| 20 20 20 20 20 20 20 20 | 20 20 41 64 64 72 65 73 | | Addres|
|000020a0| 73 33 20 20 20 20 20 20 | 20 3a 20 53 74 72 69 6e |s3 | : Strin|
|000020b0| 67 5b 35 30 5d 3b 0d 0a | 20 20 20 20 20 20 20 20 |g[50];..| |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 6f 6d | | Com|
|000020d0| 6d 65 6e 74 20 20 20 20 | 20 20 20 20 3a 20 53 74 |ment | : St|
|000020e0| 72 69 6e 67 5b 35 30 5d | 3b 0d 0a 20 20 20 20 20 |ring[50]|;.. |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002100| 44 61 74 61 50 68 6f 6e | 65 2c 0d 0a 20 20 20 20 |DataPhon|e,.. |
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002120| 20 56 6f 69 63 65 50 68 | 6f 6e 65 20 20 20 20 20 | VoicePh|one |
|00002130| 3a 20 53 74 72 69 6e 67 | 5b 31 35 5d 3b 0d 0a 20 |: String|[15];.. |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002150| 20 20 20 20 45 78 70 69 | 72 65 20 20 20 20 20 20 | Expi|re |
|00002160| 20 20 20 3a 20 57 6f 72 | 64 3b 0d 0a 20 20 20 20 | : Wor|d;.. |
|00002170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002180| 20 46 69 72 73 74 44 61 | 74 65 2c 0d 0a 20 20 20 | FirstDa|te,.. |
|00002190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021a0| 20 20 4c 61 73 74 44 61 | 74 65 20 20 20 20 20 20 | LastDa|te |
|000021b0| 20 3a 20 57 6f 72 64 3b | 0d 0a 20 20 20 20 20 20 | : Word;|.. |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4c | | L|
|000021d0| 61 73 74 54 69 6d 65 20 | 20 20 20 20 20 20 3a 20 |astTime | : |
|000021e0| 57 6f 72 64 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |Word;.. | |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 69 6d 65 | | Time|
|00002200| 50 65 72 44 61 79 20 20 | 20 20 20 3a 20 57 6f 72 |PerDay | : Wor|
|00002210| 64 3b 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |d;.... | |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 43 61 6c 6c 42 | | CallB|
|00002230| 61 63 6b 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ack,.. | |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 43 42 50 72 65 | | CBPre|
|00002250| 66 69 78 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |fix,.. | |
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 43 42 53 75 66 | | CBSuf|
|00002270| 66 69 78 20 20 20 20 20 | 20 20 3a 20 42 79 74 65 |fix | : Byte|
|00002280| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.. | |
|00002290| 20 20 20 20 20 20 20 20 | 43 42 4e 75 6d 62 65 72 | |CBNumber|
|000022a0| 20 20 20 20 20 20 20 3a | 20 53 74 72 69 6e 67 5b | :| String[|
|000022b0| 32 35 5d 3b 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |25];....| |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 54 69 6d | | Tim|
|000022d0| 65 55 73 65 64 54 6f 64 | 61 79 20 20 3a 20 57 6f |eUsedTod|ay : Wo|
|000022e0| 72 64 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |rd;.. | |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 41 74 74 72 69 62 | | Attrib|
|00002300| 75 74 65 20 20 20 20 20 | 20 3a 20 42 79 74 65 3b |ute | : Byte;|
|00002310| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002320| 20 20 20 20 20 20 20 20 | 7b 20 42 69 74 20 30 20 | |{ Bit 0 |
|00002330| 3a 20 44 65 6c 65 74 65 | 64 20 7d 0d 0a 20 20 20 |: Delete|d }.. |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002350| 20 20 46 72 65 65 53 70 | 61 63 65 20 20 20 20 20 | FreeSp|ace |
|00002360| 20 3a 20 41 72 72 61 79 | 5b 31 2e 2e 31 30 36 5d | : Array|[1..106]|
|00002370| 20 6f 66 20 42 79 74 65 | 3b 0d 0a 20 20 20 20 20 | of Byte|;.. |
|00002380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 6e | | En|
|00002390| 64 3b 0d 0a 0d 0a 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d;....{-|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 7d 0d 0a 0d 0a | 56 61 72 0d 0a 20 20 55 |---}....|Var.. U|
|000023f0| 73 65 72 20 3a 20 55 73 | 65 72 73 52 65 63 6f 72 |ser : Us|ersRecor|
|00002400| 64 3b 0d 0a 20 20 55 73 | 65 72 46 69 6c 65 20 3a |d;.. Us|erFile :|
|00002410| 20 46 69 6c 65 20 6f 66 | 20 55 73 65 72 73 52 65 | File of| UsersRe|
|00002420| 63 6f 72 64 3b 0d 0a 0d | 0a 42 65 67 69 6e 0d 0a |cord;...|.Begin..|
|00002430| 20 20 41 73 73 69 67 6e | 28 55 73 65 72 46 69 6c | Assign|(UserFil|
|00002440| 65 2c 27 54 2d 55 53 45 | 52 53 2e 42 42 53 27 29 |e,'T-USE|RS.BBS')|
|00002450| 3b 0d 0a 20 20 7b 24 49 | 2d 7d 20 52 65 73 65 74 |;.. {$I|-} Reset|
|00002460| 28 55 73 65 72 46 69 6c | 65 29 3b 20 7b 24 49 2b |(UserFil|e); {$I+|
|00002470| 7d 0d 0a 20 20 49 66 20 | 49 4f 52 65 73 75 6c 74 |}.. If |IOResult|
|00002480| 3d 30 20 54 68 65 6e 0d | 0a 20 20 42 65 67 69 6e |=0 Then.|. Begin|
|00002490| 0d 0a 20 20 20 20 57 68 | 69 6c 65 20 4e 6f 74 20 |.. Wh|ile Not |
|000024a0| 45 6f 66 28 55 73 65 72 | 46 69 6c 65 29 20 44 6f |Eof(User|File) Do|
|000024b0| 0d 0a 20 20 20 20 42 65 | 67 69 6e 0d 0a 20 20 20 |.. Be|gin.. |
|000024c0| 20 20 20 52 65 61 64 28 | 55 73 65 72 46 69 6c 65 | Read(|UserFile|
|000024d0| 2c 55 73 65 72 29 3b 0d | 0a 20 20 20 20 20 20 57 |,User);.|. W|
|000024e0| 72 69 74 65 4c 6e 28 55 | 73 65 72 2e 4e 61 6d 65 |riteLn(U|ser.Name|
|000024f0| 2b 27 2c 20 27 2b 55 73 | 65 72 2e 50 61 73 73 77 |+', '+Us|er.Passw|
|00002500| 6f 72 64 29 3b 0d 0a 20 | 20 20 20 45 6e 64 3b 0d |ord);.. | End;.|
|00002510| 0a 20 20 20 20 43 6c 6f | 73 65 28 55 73 65 72 46 |. Clo|se(UserF|
|00002520| 69 6c 65 29 3b 0d 0a 20 | 20 45 6e 64 0d 0a 20 20 |ile);.. | End.. |
|00002530| 45 6c 73 65 20 57 72 69 | 74 65 4c 6e 28 27 43 6f |Else Wri|teLn('Co|
|00002540| 75 6c 64 20 6e 6f 74 20 | 6f 70 65 6e 20 54 2d 55 |uld not |open T-U|
|00002550| 53 45 52 53 2e 42 42 53 | 27 29 3b 0d 0a 45 6e 64 |SERS.BBS|');..End|
|00002560| 2e 0d 0a 0d 0a 22 88 2d | 6c 68 30 2d 28 04 00 00 |.....".-|lh0-(...|
|00002570| 28 04 00 00 d4 56 f6 1c | 00 00 0c 4c 53 54 50 48 |(....V..|...LSTPH|
|00002580| 4f 4e 45 2e 50 41 53 b0 | 5b 50 72 6f 67 72 61 6d |ONE.PAS.|[Program|
|00002590| 20 4c 69 73 74 50 68 6f | 6e 65 42 6f 6f 6b 3b 0d | ListPho|neBook;.|
|000025a0| 0a 0d 0a 7b 20 41 20 73 | 6d 61 6c 6c 20 54 65 72 |...{ A s|mall Ter|
|000025b0| 6d 69 6e 61 74 65 20 75 | 74 69 6c 69 74 79 20 74 |minate u|tility t|
|000025c0| 6f 20 73 68 6f 77 20 68 | 6f 77 20 74 6f 20 75 73 |o show h|ow to us|
|000025d0| 65 20 74 68 65 20 70 68 | 6f 6e 65 62 6f 6f 6b 20 |e the ph|onebook |
|000025e0| 7d 0d 0a 0d 0a 7b 24 49 | 20 50 48 4f 4e 45 2e 31 |}....{$I| PHONE.1|
|000025f0| 30 30 7d 0d 0a 0d 0a 56 | 61 72 0d 0a 20 20 50 68 |00}....V|ar.. Ph|
|00002600| 6f 6e 65 46 69 6c 65 20 | 3a 20 46 69 6c 65 3b 0d |oneFile |: File;.|
|00002610| 0a 20 20 78 20 20 20 20 | 20 20 20 20 20 3a 20 57 |. x | : W|
|00002620| 6f 72 64 3b 0d 0a 0d 0a | 50 72 6f 63 65 64 75 72 |ord;....|Procedur|
|00002630| 65 20 46 61 74 61 6c 45 | 72 72 6f 72 28 73 3a 73 |e FatalE|rror(s:s|
|00002640| 74 72 69 6e 67 29 3b 0d | 0a 42 65 67 69 6e 0d 0a |tring);.|.Begin..|
|00002650| 20 20 57 72 69 74 65 4c | 6e 28 27 46 61 74 61 6c | WriteL|n('Fatal|
|00002660| 3a 20 27 2b 73 2b 23 31 | 30 23 31 30 29 3b 0d 0a |: '+s+#1|0#10);..|
|00002670| 20 20 48 61 6c 74 3b 0d | 0a 45 6e 64 3b 0d 0a 0d | Halt;.|.End;...|
|00002680| 0a 42 65 67 69 6e 0d 0a | 0d 0a 20 20 46 69 6c 6c |.Begin..|.. Fill|
|00002690| 43 68 61 72 28 50 48 65 | 61 64 2c 53 69 7a 65 6f |Char(PHe|ad,Sizeo|
|000026a0| 66 28 50 48 65 61 64 29 | 2c 30 29 3b 0d 0a 20 20 |f(PHead)|,0);.. |
|000026b0| 41 73 73 69 67 6e 28 50 | 68 6f 6e 65 46 69 6c 65 |Assign(P|honeFile|
|000026c0| 2c 27 54 45 52 4d 49 4e | 41 54 2e 46 4f 4e 27 29 |,'TERMIN|AT.FON')|
|000026d0| 3b 0d 0a 20 20 7b 24 49 | 2d 7d 20 52 65 73 65 74 |;.. {$I|-} Reset|
|000026e0| 28 50 68 6f 6e 65 46 69 | 6c 65 2c 31 29 3b 20 7b |(PhoneFi|le,1); {|
|000026f0| 24 49 2b 7d 0d 0a 20 20 | 49 66 20 49 4f 52 65 73 |$I+}.. |If IORes|
|00002700| 75 6c 74 3d 30 20 54 68 | 65 6e 0d 0a 20 20 42 65 |ult=0 Th|en.. Be|
|00002710| 67 69 6e 0d 0a 0d 0a 20 | 20 20 20 7b 20 52 65 61 |gin.... | { Rea|
|00002720| 64 20 74 68 65 20 68 65 | 61 64 65 72 20 69 6e 20 |d the he|ader in |
|00002730| 74 68 65 20 70 68 6f 6e | 65 20 66 69 6c 65 20 7d |the phon|e file }|
|00002740| 0d 0a 20 20 20 20 7b 24 | 49 2d 7d 20 42 6c 6f 63 |.. {$|I-} Bloc|
|00002750| 6b 52 65 61 64 28 50 68 | 6f 6e 65 46 69 6c 65 2c |kRead(Ph|oneFile,|
|00002760| 50 48 65 61 64 2c 53 69 | 7a 65 6f 66 28 50 48 65 |PHead,Si|zeof(PHe|
|00002770| 61 64 29 29 3b 20 7b 24 | 49 2b 7d 0d 0a 20 20 20 |ad)); {$|I+}.. |
|00002780| 20 49 66 20 49 4f 52 65 | 73 75 6c 74 3c 3e 30 20 | If IORe|sult<>0 |
|00002790| 54 68 65 6e 20 46 61 74 | 61 6c 45 72 72 6f 72 28 |Then Fat|alError(|
|000027a0| 27 45 72 72 6f 72 20 69 | 6e 20 73 74 61 72 74 20 |'Error i|n start |
|000027b0| 6f 66 20 70 68 6f 6e 65 | 62 6f 6f 6b 27 29 3b 0d |of phone|book');.|
|000027c0| 0a 0d 0a 20 20 20 20 7b | 20 52 65 61 64 20 61 6c |... {| Read al|
|000027d0| 6c 20 72 65 63 6f 72 64 | 73 20 69 6e 74 6f 20 73 |l record|s into s|
|000027e0| 74 72 75 63 74 75 72 65 | 20 7d 0d 0a 20 20 20 20 |tructure| }.. |
|000027f0| 46 6f 72 20 78 3a 3d 31 | 20 74 6f 20 50 48 65 61 |For x:=1| to PHea|
|00002800| 64 2e 4e 75 6d 20 44 6f | 0d 0a 20 20 20 20 42 65 |d.Num Do|.. Be|
|00002810| 67 69 6e 0d 0a 20 20 20 | 20 20 20 4e 65 77 28 50 |gin.. | New(P|
|00002820| 68 5b 78 5d 29 3b 20 7b | 20 52 65 73 65 72 76 65 |h[x]); {| Reserve|
|00002830| 20 6d 65 6d 6f 72 79 20 | 7d 0d 0a 20 20 20 20 20 | memory |}.. |
|00002840| 20 7b 24 49 2d 7d 20 42 | 6c 6f 63 6b 52 65 61 64 | {$I-} B|lockRead|
|00002850| 28 50 68 6f 6e 65 46 69 | 6c 65 2c 50 68 5b 78 5d |(PhoneFi|le,Ph[x]|
|00002860| 5e 2e 50 2c 53 69 7a 65 | 6f 66 28 50 68 5b 78 5d |^.P,Size|of(Ph[x]|
|00002870| 5e 2e 50 29 29 3b 20 7b | 24 49 2b 7d 0d 0a 20 20 |^.P)); {|$I+}.. |
|00002880| 20 20 20 20 49 66 20 49 | 4f 52 65 73 75 6c 74 3c | If I|OResult<|
|00002890| 3e 30 20 54 68 65 6e 20 | 46 61 74 61 6c 45 72 72 |>0 Then |FatalErr|
|000028a0| 6f 72 28 27 45 72 72 6f | 72 20 69 6e 20 70 68 6f |or('Erro|r in pho|
|000028b0| 6e 65 62 6f 6f 6b 2c 20 | 6d 61 79 62 65 20 77 72 |nebook, |maybe wr|
|000028c0| 6f 6e 67 20 76 65 72 73 | 69 6f 6e 27 29 3b 0d 0a |ong vers|ion');..|
|000028d0| 20 20 20 20 45 6e 64 3b | 0d 0a 0d 0a 20 20 20 20 | End;|.... |
|000028e0| 43 6c 6f 73 65 28 50 68 | 6f 6e 65 46 69 6c 65 29 |Close(Ph|oneFile)|
|000028f0| 3b 0d 0a 20 20 45 6e 64 | 3b 0d 0a 0d 0a 20 20 7b |;.. End|;.... {|
|00002900| 20 57 72 69 74 65 20 61 | 6c 6c 20 70 68 6f 6e 65 | Write a|ll phone|
|00002910| 6e 75 6d 62 65 72 73 20 | 6f 6e 20 73 63 72 65 65 |numbers |on scree|
|00002920| 6e 20 7d 0d 0a 20 20 46 | 6f 72 20 78 3a 3d 31 20 |n }.. F|or x:=1 |
|00002930| 74 6f 20 50 48 65 61 64 | 2e 4e 75 6d 20 44 6f 20 |to PHead|.Num Do |
|00002940| 57 72 69 74 65 4c 6e 28 | 50 68 5b 78 5d 5e 2e 50 |WriteLn(|Ph[x]^.P|
|00002950| 2e 4e 61 6d 65 29 3b 0d | 0a 0d 0a 20 20 7b 20 46 |.Name);.|... { F|
|00002960| 72 65 65 20 6d 65 6d 6f | 72 79 20 62 65 66 6f 72 |ree memo|ry befor|
|00002970| 65 20 65 78 69 74 69 6e | 67 20 7d 0d 0a 20 20 46 |e exitin|g }.. F|
|00002980| 6f 72 20 78 3a 3d 31 20 | 74 6f 20 50 48 65 61 64 |or x:=1 |to PHead|
|00002990| 2e 4e 75 6d 20 44 6f 20 | 44 69 73 70 6f 73 65 28 |.Num Do |Dispose(|
|000029a0| 50 68 5b 78 5d 29 3b 0d | 0a 0d 0a 45 6e 64 2e 0d |Ph[x]);.|...End..|
|000029b0| 0a 21 bc 2d 6c 68 30 2d | df 18 00 00 df 18 00 00 |.!.-lh0-|........|
|000029c0| 65 4e 7c 1b 00 00 0b 4d | 41 4b 45 42 42 53 2e 50 |eN|....M|AKEBBS.P|
|000029d0| 41 53 56 be 7b 24 4d 20 | 31 36 33 38 34 2c 31 30 |ASV.{$M |16384,10|
|000029e0| 30 30 30 30 2c 31 30 30 | 30 30 30 7d 0d 0a 50 72 |0000,100|000}..Pr|
|000029f0| 6f 67 72 61 6d 20 46 69 | 6c 65 73 42 42 53 6d 61 |ogram Fi|lesBBSma|
|00002a00| 6b 65 72 3b 0d 0a 0d 0a | 7b 20 54 68 69 73 20 75 |ker;....|{ This u|
|00002a10| 74 69 6c 69 74 79 20 77 | 69 6c 6c 20 73 65 61 72 |tility w|ill sear|
|00002a20| 63 68 20 61 6c 6c 20 74 | 68 65 20 66 69 6c 65 6c |ch all t|he filel|
|00002a30| 69 73 74 73 20 73 70 65 | 63 69 66 69 65 64 20 69 |ists spe|cified i|
|00002a40| 6e 20 4d 41 4b 45 42 42 | 53 2e 43 46 47 20 20 20 |n MAKEBB|S.CFG |
|00002a50| 20 7d 0d 0a 7b 20 66 6f | 72 20 64 65 63 72 69 70 | }..{ fo|r decrip|
|00002a60| 74 69 6f 6e 73 20 61 6e | 64 20 63 72 65 61 74 65 |tions an|d create|
|00002a70| 20 61 20 46 49 4c 45 53 | 2e 42 42 53 2c 20 75 73 | a FILES|.BBS, us|
|00002a80| 65 66 75 6c 6c 20 69 66 | 20 79 6f 75 20 68 61 76 |efull if| you hav|
|00002a90| 65 20 61 20 6c 61 72 67 | 65 20 20 20 20 7d 0d 0a |e a larg|e }..|
|00002aa0| 7b 20 64 6f 77 6e 6c 6f | 61 64 20 64 69 72 65 63 |{ downlo|ad direc|
|00002ab0| 74 6f 72 79 20 61 6e 64 | 20 79 6f 75 20 64 6f 6e |tory and| you don|
|00002ac0| 27 74 20 6b 6e 6f 77 20 | 74 68 65 20 64 65 73 63 |'t know |the desc|
|00002ad0| 72 69 70 74 69 6f 6e 73 | 20 66 6f 72 20 74 68 65 |riptions| for the|
|00002ae0| 20 66 69 6c 65 73 20 20 | 20 7d 0d 0a 7b 20 54 68 | files | }..{ Th|
|00002af0| 65 6e 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |en this |program |
|00002b00| 77 69 6c 6c 20 64 6f 20 | 61 6c 6c 20 74 68 65 20 |will do |all the |
|00002b10| 77 6f 72 6b 20 66 6f 72 | 20 79 6f 75 2e 20 31 39 |work for| you. 19|
|00002b20| 39 33 20 62 79 20 42 6f | 20 42 65 6e 64 74 73 65 |93 by Bo| Bendtse|
|00002b30| 6e 20 20 20 20 7d 0d 0a | 7b 20 54 6f 74 61 6c 6c |n }..|{ Totall|
|00002b40| 79 20 66 72 65 65 77 61 | 72 65 2c 20 6d 61 6b 65 |y freewa|re, make|
|00002b50| 20 61 6e 79 20 6d 6f 64 | 69 66 69 63 61 74 69 6f | any mod|ificatio|
|00002b60| 6e 73 20 79 6f 75 20 6c | 69 6b 65 2c 20 6a 75 73 |ns you l|ike, jus|
|00002b70| 74 20 72 65 6d 65 6d 62 | 65 72 20 74 6f 20 20 20 |t rememb|er to |
|00002b80| 20 7d 0d 0a 7b 20 67 69 | 76 65 20 73 6f 6d 65 20 | }..{ gi|ve some |
|00002b90| 74 68 61 6e 78 20 6f 72 | 20 63 72 65 64 69 74 73 |thanx or| credits|
|00002ba0| 20 74 6f 20 6d 65 2e 20 | 20 20 20 20 20 20 20 20 | to me. | |
|00002bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7d 0d 0a | | }..|
|00002bd0| 0d 0a 55 73 65 73 20 43 | 72 74 2c 44 6f 73 3b 0d |..Uses C|rt,Dos;.|
|00002be0| 0a 0d 0a 43 6f 6e 73 74 | 0d 0a 20 20 4d 61 78 46 |...Const|.. MaxF|
|00002bf0| 69 6c 65 73 20 3d 20 34 | 30 30 30 3b 0d 0a 0d 0a |iles = 4|000;....|
|00002c00| 54 79 70 65 0d 0a 20 20 | 42 75 66 54 79 70 65 20 |Type.. |BufType |
|00002c10| 3d 20 41 72 72 61 79 5b | 31 2e 2e 33 32 37 36 38 |= Array[|1..32768|
|00002c20| 5d 20 6f 66 20 43 68 61 | 72 3b 0d 0a 0d 0a 56 61 |] of Cha|r;....Va|
|00002c30| 72 0d 0a 20 20 4c 69 73 | 74 2c 49 2c 4f 75 74 20 |r.. Lis|t,I,Out |
|00002c40| 3a 20 54 65 78 74 3b 0d | 0a 20 20 42 75 66 20 20 |: Text;.|. Buf |
|00002c50| 20 20 20 20 20 20 3a 20 | 5e 42 75 66 54 79 70 65 | : |^BufType|
|00002c60| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; | |
|00002c70| 20 20 20 20 20 20 20 7b | 20 46 6f 72 20 72 65 61 | {| For rea|
|00002c80| 64 69 6e 67 20 74 65 78 | 74 66 69 6c 65 73 20 66 |ding tex|tfiles f|
|00002c90| 61 73 74 65 72 20 7d 0d | 0a 20 20 43 66 67 42 75 |aster }.|. CfgBu|
|00002ca0| 66 20 20 20 20 20 3a 20 | 41 72 72 61 79 5b 31 2e |f : |Array[1.|
|00002cb0| 2e 31 30 32 34 5d 20 6f | 66 20 43 68 61 72 3b 0d |.1024] o|f Char;.|
|00002cc0| 0a 20 20 4f 75 74 42 75 | 66 20 20 20 20 20 3a 20 |. OutBu|f : |
|00002cd0| 41 72 72 61 79 5b 31 2e | 2e 31 30 32 34 5d 20 6f |Array[1.|.1024] o|
|00002ce0| 66 20 43 68 61 72 3b 0d | 0a 20 20 49 6e 66 6f 20 |f Char;.|. Info |
|00002cf0| 20 20 20 20 20 20 3a 20 | 53 65 61 72 63 68 52 65 | : |SearchRe|
|00002d00| 63 3b 0d 0a 20 20 4e 61 | 6d 65 20 20 20 20 20 20 |c;.. Na|me |
|00002d10| 20 3a 20 41 72 72 61 79 | 5b 31 2e 2e 4d 61 78 46 | : Array|[1..MaxF|
|00002d20| 69 6c 65 73 5d 20 6f 66 | 20 53 74 72 69 6e 67 5b |iles] of| String[|
|00002d30| 31 32 5d 3b 20 20 20 20 | 7b 20 66 69 6c 65 6e 61 |12]; |{ filena|
|00002d40| 6d 65 73 20 69 6e 20 64 | 69 72 65 63 74 6f 72 79 |mes in d|irectory|
|00002d50| 20 7d 0d 0a 20 20 4c 2c | 58 2c 59 2c 6c 65 66 74 | }.. L,|X,Y,left|
|00002d60| 20 3a 20 57 6f 72 64 3b | 0d 0a 20 20 53 74 6f 70 | : Word;|.. Stop|
|00002d70| 20 20 20 20 20 20 20 3a | 20 42 6f 6f 6c 65 61 6e | :| Boolean|
|00002d80| 3b 0d 0a 20 20 43 20 20 | 20 20 20 20 20 20 20 20 |;.. C | |
|00002d90| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 0a 20 20 53 2c |: Longin|t;.. S,|
|00002da0| 55 50 53 20 20 20 20 20 | 20 3a 20 53 74 72 69 6e |UPS | : Strin|
|00002db0| 67 3b 0d 0a 20 20 53 74 | 61 72 74 50 6f 73 2c 70 |g;.. St|artPos,p|
|00002dc0| 20 3a 20 42 79 74 65 3b | 0d 0a 20 20 44 65 73 63 | : Byte;|.. Desc|
|00002dd0| 50 6f 73 20 20 20 20 3a | 20 42 79 74 65 3b 0d 0a |Pos :| Byte;..|
|00002de0| 20 20 52 65 61 64 4e 65 | 78 74 20 20 20 3a 20 42 | ReadNe|xt : B|
|00002df0| 6f 6f 6c 65 61 6e 3b 0d | 0a 0d 0a 46 75 6e 63 74 |oolean;.|...Funct|
|00002e00| 69 6f 6e 20 47 72 61 62 | 57 6f 72 64 28 53 3a 20 |ion Grab|Word(S: |
|00002e10| 53 74 72 69 6e 67 3b 20 | 42 3a 20 42 79 74 65 29 |String; |B: Byte)|
|00002e20| 20 3a 20 53 74 72 69 6e | 67 3b 0d 0a 56 61 72 20 | : Strin|g;..Var |
|00002e30| 73 74 2c 65 3a 42 79 74 | 65 3b 0d 0a 20 20 20 20 |st,e:Byt|e;.. |
|00002e40| 72 65 74 75 72 6e 20 3a | 20 53 74 72 69 6e 67 5b |return :| String[|
|00002e50| 38 30 5d 3b 0d 0a 42 65 | 67 69 6e 0d 0a 20 20 52 |80];..Be|gin.. R|
|00002e60| 65 74 75 72 6e 3a 3d 27 | 27 3b 0d 0a 20 20 73 74 |eturn:='|';.. st|
|00002e70| 3a 3d 31 3b 65 3a 3d 31 | 3b 0d 0a 20 20 57 68 69 |:=1;e:=1|;.. Whi|
|00002e80| 6c 65 20 42 3e 30 20 44 | 6f 0d 0a 20 20 42 65 67 |le B>0 D|o.. Beg|
|00002e90| 69 6e 0d 0a 20 20 20 20 | 57 68 69 6c 65 20 28 53 |in.. |While (S|
|00002ea0| 5b 73 74 5d 3d 27 20 27 | 29 20 6f 72 20 28 53 5b |[st]=' '|) or (S[|
|00002eb0| 73 74 5d 3d 23 39 29 20 | 44 6f 20 49 6e 63 28 73 |st]=#9) |Do Inc(s|
|00002ec0| 74 29 3b 20 20 7b 20 23 | 39 20 65 72 20 54 41 42 |t); { #|9 er TAB|
|00002ed0| 20 7d 0d 0a 20 20 20 20 | 65 3a 3d 73 74 3b 0d 0a | }.. |e:=st;..|
|00002ee0| 20 20 20 20 57 68 69 6c | 65 20 28 53 5b 65 5d 3c | Whil|e (S[e]<|
|00002ef0| 3e 27 20 27 29 20 41 6e | 64 20 28 65 3c 3d 4c 65 |>' ') An|d (e<=Le|
|00002f00| 6e 67 74 68 28 73 29 29 | 20 44 6f 20 49 6e 63 28 |ngth(s))| Do Inc(|
|00002f10| 65 29 3b 0d 0a 20 20 20 | 20 52 65 74 75 72 6e 3a |e);.. | Return:|
|00002f20| 3d 43 6f 70 79 28 53 2c | 73 74 2c 65 2d 73 74 29 |=Copy(S,|st,e-st)|
|00002f30| 3b 0d 0a 20 20 20 20 73 | 74 3a 3d 65 3b 0d 0a 20 |;.. s|t:=e;.. |
|00002f40| 20 20 20 44 65 63 28 42 | 29 3b 0d 0a 20 20 45 6e | Dec(B|);.. En|
|00002f50| 64 3b 0d 0a 20 20 47 72 | 61 62 57 6f 72 64 3a 3d |d;.. Gr|abWord:=|
|00002f60| 52 65 74 75 72 6e 3b 0d | 0a 45 6e 64 3b 0d 0a 0d |Return;.|.End;...|
|00002f70| 0a 46 75 6e 63 74 69 6f | 6e 20 53 74 72 54 6f 49 |.Functio|n StrToI|
|00002f80| 6e 74 28 53 3a 20 53 74 | 72 69 6e 67 29 20 3a 20 |nt(S: St|ring) : |
|00002f90| 4c 6f 6e 67 49 6e 74 3b | 0d 0a 56 61 72 0d 0a 20 |LongInt;|..Var.. |
|00002fa0| 20 4b 6f 64 65 20 3a 20 | 49 6e 74 65 67 65 72 3b | Kode : |Integer;|
|00002fb0| 0d 0a 20 20 69 20 20 20 | 20 3a 20 4c 6f 6e 67 49 |.. i | : LongI|
|00002fc0| 6e 74 3b 0d 0a 20 20 62 | 20 20 20 20 3a 20 42 79 |nt;.. b| : By|
|00002fd0| 74 65 3b 0d 0a 42 65 67 | 69 6e 0d 0a 20 20 62 3a |te;..Beg|in.. b:|
|00002fe0| 3d 4c 65 6e 67 74 68 28 | 73 29 3b 0d 0a 20 20 57 |=Length(|s);.. W|
|00002ff0| 68 69 6c 65 20 62 3e 30 | 20 44 6f 0d 0a 20 20 42 |hile b>0| Do.. B|
|00003000| 65 67 69 6e 0d 0a 20 20 | 20 20 49 66 20 73 5b 62 |egin.. | If s[b|
|00003010| 5d 20 69 6e 20 5b 23 30 | 2e 2e 23 32 35 35 5d 2d |] in [#0|..#255]-|
|00003020| 5b 27 30 27 2e 2e 27 39 | 27 5d 20 54 68 65 6e 20 |['0'..'9|'] Then |
|00003030| 44 65 6c 65 74 65 28 73 | 2c 62 2c 31 29 3b 0d 0a |Delete(s|,b,1);..|
|00003040| 20 20 20 20 44 65 63 28 | 62 29 3b 0d 0a 20 20 45 | Dec(|b);.. E|
|00003050| 6e 64 3b 0d 0a 20 20 49 | 66 20 4c 65 6e 67 74 68 |nd;.. I|f Length|
|00003060| 28 53 29 20 3d 20 30 20 | 54 68 65 6e 20 53 74 72 |(S) = 0 |Then Str|
|00003070| 54 6f 49 6e 74 20 3a 3d | 20 30 20 45 6c 73 65 20 |ToInt :=| 0 Else |
|00003080| 42 65 67 69 6e 0d 0a 20 | 20 20 20 56 61 6c 28 53 |Begin.. | Val(S|
|00003090| 2c 69 2c 4b 6f 64 65 29 | 3b 0d 0a 20 20 20 20 49 |,i,Kode)|;.. I|
|000030a0| 66 20 4b 6f 64 65 20 3d | 20 30 20 54 68 65 6e 20 |f Kode =| 0 Then |
|000030b0| 53 74 72 54 6f 49 6e 74 | 20 3a 3d 20 69 20 45 6c |StrToInt| := i El|
|000030c0| 73 65 20 53 74 72 54 6f | 49 6e 74 20 3a 3d 20 30 |se StrTo|Int := 0|
|000030d0| 3b 0d 0a 20 20 45 6e 64 | 3b 0d 0a 45 6e 64 3b 0d |;.. End|;..End;.|
|000030e0| 0a 0d 0a 46 75 6e 63 74 | 69 6f 6e 20 53 74 55 70 |...Funct|ion StUp|
|000030f0| 63 61 73 65 28 73 3a 73 | 74 72 69 6e 67 29 3a 73 |case(s:s|tring):s|
|00003100| 74 72 69 6e 67 3b 0d 0a | 56 61 72 20 69 20 3a 62 |tring;..|Var i :b|
|00003110| 79 74 65 3b 0d 0a 42 65 | 67 69 6e 0d 0a 20 20 66 |yte;..Be|gin.. f|
|00003120| 6f 72 20 69 20 3a 3d 20 | 31 20 74 6f 20 4c 65 6e |or i := |1 to Len|
|00003130| 67 74 68 28 73 29 20 64 | 6f 20 73 5b 69 5d 20 3a |gth(s) d|o s[i] :|
|00003140| 3d 20 55 70 43 61 73 65 | 28 73 5b 69 5d 29 3b 0d |= UpCase|(s[i]);.|
|00003150| 0a 20 20 53 74 55 70 63 | 61 73 65 3a 3d 73 3b 0d |. StUpc|ase:=s;.|
|00003160| 0a 45 6e 64 3b 0d 0a 0d | 0a 46 75 6e 63 74 69 6f |.End;...|.Functio|
|00003170| 6e 20 42 6c 61 6e 6b 41 | 66 74 65 72 28 53 20 3a |n BlankA|fter(S :|
|00003180| 20 53 74 72 69 6e 67 3b | 20 4c 65 6e 20 3a 20 42 | String;| Len : B|
|00003190| 79 74 65 29 3a 20 53 74 | 72 69 6e 67 3b 0d 0a 76 |yte): St|ring;..v|
|000031a0| 61 72 0d 0a 20 20 6f 20 | 3a 20 73 74 72 69 6e 67 |ar.. o |: string|
|000031b0| 3b 0d 0a 20 20 53 4c 65 | 6e 20 3a 20 42 79 74 65 |;.. SLe|n : Byte|
|000031c0| 20 61 62 73 6f 6c 75 74 | 65 20 53 3b 0d 0a 42 65 | absolut|e S;..Be|
|000031d0| 67 69 6e 0d 0a 20 20 49 | 66 20 4c 65 6e 67 74 68 |gin.. I|f Length|
|000031e0| 28 53 29 20 3e 3d 20 4c | 65 6e 20 74 68 65 6e 20 |(S) >= L|en then |
|000031f0| 42 6c 61 6e 6b 41 66 74 | 65 72 20 3a 3d 20 53 0d |BlankAft|er := S.|
|00003200| 0a 20 20 45 6c 73 65 20 | 62 65 67 69 6e 0d 0a 20 |. Else |begin.. |
|00003210| 20 20 20 6f 5b 30 5d 20 | 3a 3d 20 43 68 72 28 4c | o[0] |:= Chr(L|
|00003220| 65 6e 29 3b 0d 0a 20 20 | 20 20 4d 6f 76 65 28 53 |en);.. | Move(S|
|00003230| 5b 31 5d 2c 20 6f 5b 31 | 5d 2c 20 53 4c 65 6e 29 |[1], o[1|], SLen)|
|00003240| 3b 0d 0a 20 20 20 20 69 | 66 20 53 4c 65 6e 20 3c |;.. i|f SLen <|
|00003250| 20 32 35 35 20 74 68 65 | 6e 20 46 69 6c 6c 43 68 | 255 the|n FillCh|
|00003260| 61 72 28 6f 5b 53 75 63 | 63 28 53 4c 65 6e 29 5d |ar(o[Suc|c(SLen)]|
|00003270| 2c 20 4c 65 6e 2d 53 4c | 65 6e 2c 20 27 20 27 29 |, Len-SL|en, ' ')|
|00003280| 3b 0d 0a 20 20 20 20 42 | 6c 61 6e 6b 41 66 74 65 |;.. B|lankAfte|
|00003290| 72 20 3a 3d 20 6f 3b 0d | 0a 20 20 45 6e 64 3b 0d |r := o;.|. End;.|
|000032a0| 0a 45 6e 64 3b 0d 0a 0d | 0a 50 72 6f 63 65 64 75 |.End;...|.Procedu|
|000032b0| 72 65 20 4c 6f 6f 6b 46 | 6f 72 4d 6f 72 65 3b 20 |re LookF|orMore; |
|000032c0| 20 7b 20 4c 6f 6f 6b 20 | 66 6f 72 20 65 78 74 72 | { Look |for extr|
|000032d0| 61 20 64 65 73 63 72 69 | 70 74 69 6f 6e 73 20 6f |a descri|ptions o|
|000032e0| 6e 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 6c 69 6e 65 |n follow|ing line|
|000032f0| 73 20 7d 0d 0a 42 65 67 | 69 6e 0d 0a 20 20 73 3a |s }..Beg|in.. s:|
|00003300| 3d 27 20 27 3b 0d 0a 20 | 20 57 68 69 6c 65 20 28 |=' ';.. | While (|
|00003310| 73 3c 3e 27 27 29 20 41 | 6e 64 20 28 73 5b 31 5d |s<>'') A|nd (s[1]|
|00003320| 3d 27 20 27 29 20 41 6e | 64 20 4e 6f 74 20 45 6f |=' ') An|d Not Eo|
|00003330| 66 28 49 29 20 44 6f 0d | 0a 20 20 42 65 67 69 6e |f(I) Do.|. Begin|
|00003340| 0d 0a 20 20 20 20 52 65 | 61 64 4c 6e 28 49 2c 53 |.. Re|adLn(I,S|
|00003350| 29 3b 0d 0a 20 20 20 20 | 49 66 20 28 73 3c 3e 27 |);.. |If (s<>'|
|00003360| 27 29 20 41 6e 64 20 28 | 73 5b 31 5d 3d 27 20 27 |') And (|s[1]=' '|
|00003370| 29 20 54 68 65 6e 20 57 | 72 69 74 65 4c 6e 28 4f |) Then W|riteLn(O|
|00003380| 75 74 2c 73 29 3b 0d 0a | 20 20 45 6e 64 3b 0d 0a |ut,s);..| End;..|
|00003390| 20 20 52 65 61 64 4e 65 | 78 74 3a 3d 46 61 6c 73 | ReadNe|xt:=Fals|
|000033a0| 65 3b 0d 0a 45 6e 64 3b | 0d 0a 0d 0a 42 65 67 69 |e;..End;|....Begi|
|000033b0| 6e 0d 0a 20 20 54 65 78 | 74 41 74 74 72 3a 3d 37 |n.. Tex|tAttr:=7|
|000033c0| 3b 20 43 6c 72 53 63 72 | 3b 20 54 65 78 74 41 74 |; ClrScr|; TextAt|
|000033d0| 74 72 3a 3d 31 36 2a 37 | 3b 0d 0a 20 20 57 72 69 |tr:=16*7|;.. Wri|
|000033e0| 74 65 4c 6e 28 27 d5 cd | cd cd cd cd cd cd cd cd |teLn('..|........|
|000033f0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00003400| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00003410| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00003420| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00003430| cd cd cd cd b8 27 29 3b | 0d 0a 20 20 57 72 69 74 |.....');|.. Writ|
|00003440| 65 4c 6e 28 27 b3 20 20 | 20 20 20 46 69 6c 65 6c |eLn('. | Filel|
|00003450| 69 73 74 20 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |ist desc|ription |
|00003460| 73 65 61 72 63 68 65 72 | 20 31 2e 32 30 2c 20 6d |searcher| 1.20, m|
|00003470| 61 64 65 20 62 79 20 42 | 6f 20 42 65 6e 64 74 73 |ade by B|o Bendts|
|00003480| 65 6e 20 2b 34 35 2d 34 | 32 36 34 33 38 32 37 20 |en +45-4|2643827 |
|00003490| 20 20 20 b3 27 29 3b 0d | 0a 20 20 57 72 69 74 65 | .');.|. Write|
|000034a0| 4c 6e 28 27 d4 cd cd cd | cd cd cd cd cd cd cd cd |Ln('....|........|
|000034b0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000034c0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000034d0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000034e0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000034f0| cd cd be 27 23 31 30 29 | 3b 0d 0a 20 20 54 65 78 |...'#10)|;.. Tex|
|00003500| 74 41 74 74 72 3a 3d 37 | 3b 0d 0a 0d 0a 20 20 49 |tAttr:=7|;.... I|
|00003510| 66 20 70 61 72 61 6d 63 | 6f 75 6e 74 3d 30 20 54 |f paramc|ount=0 T|
|00003520| 68 65 6e 0d 0a 20 20 42 | 65 67 69 6e 0d 0a 20 20 |hen.. B|egin.. |
|00003530| 20 20 57 72 69 74 65 4c | 6e 28 27 54 68 69 73 20 | WriteL|n('This |
|00003540| 70 72 6f 67 72 61 6d 20 | 77 69 6c 6c 20 72 65 61 |program |will rea|
|00003550| 64 20 61 6c 6c 20 66 69 | 6c 65 73 20 73 70 65 63 |d all fi|les spec|
|00003560| 69 66 69 65 64 20 69 6e | 20 61 20 64 69 72 65 63 |ified in| a direc|
|00003570| 74 6f 72 79 20 61 6e 64 | 20 73 65 61 72 63 68 20 |tory and| search |
|00003580| 74 68 65 27 29 3b 0d 0a | 20 20 20 20 57 72 69 74 |the');..| Writ|
|00003590| 65 4c 6e 28 27 66 6f 72 | 20 64 65 73 63 72 69 70 |eLn('for| descrip|
|000035a0| 74 69 6f 6e 73 20 69 6e | 20 74 68 65 20 66 69 6c |tions in| the fil|
|000035b0| 65 6c 69 73 74 73 20 73 | 70 65 63 69 66 69 65 64 |elists s|pecified|
|000035c0| 20 69 6e 20 4d 41 4b 45 | 42 42 53 2e 43 46 47 27 | in MAKE|BBS.CFG'|
|000035d0| 29 3b 0d 0a 20 20 20 20 | 57 72 69 74 65 4c 6e 28 |);.. |WriteLn(|
|000035e0| 23 31 30 27 53 79 6e 74 | 61 78 3a 20 4d 41 4b 45 |#10'Synt|ax: MAKE|
|000035f0| 42 42 53 20 70 61 74 68 | 2b 77 69 6c 64 63 61 72 |BBS path|+wildcar|
|00003600| 64 27 29 3b 0d 0a 20 20 | 20 20 57 72 69 74 65 4c |d');.. | WriteL|
|00003610| 6e 28 20 20 20 27 20 20 | 20 20 20 20 20 20 4d 41 |n( ' | MA|
|00003620| 4b 45 42 42 53 20 43 3a | 5c 54 45 52 4d 49 4e 41 |KEBBS C:|\TERMINA|
|00003630| 54 5c 44 4f 57 4e 4c 4f | 41 44 5c 2a 2e 2a 27 29 |T\DOWNLO|AD\*.*')|
|00003640| 3b 0d 0a 20 20 20 20 57 | 72 69 74 65 4c 6e 28 20 |;.. W|riteLn( |
|00003650| 20 20 27 20 20 20 20 20 | 20 20 20 4d 41 4b 45 42 | ' | MAKEB|
|00003660| 42 53 20 43 3a 5c 54 45 | 52 4d 49 4e 41 54 5c 44 |BS C:\TE|RMINAT\D|
|00003670| 4f 57 4e 4c 4f 41 44 5c | 2a 2e 47 49 46 27 29 3b |OWNLOAD\|*.GIF');|
|00003680| 0d 0a 20 20 20 20 48 61 | 6c 74 3b 0d 0a 20 20 45 |.. Ha|lt;.. E|
|00003690| 6e 64 3b 0d 0a 0d 0a 20 | 20 41 73 73 69 67 6e 28 |nd;.... | Assign(|
|000036a0| 4c 69 73 74 2c 43 6f 70 | 79 28 50 61 72 61 6d 53 |List,Cop|y(ParamS|
|000036b0| 74 72 28 30 29 2c 31 2c | 4c 65 6e 67 74 68 28 50 |tr(0),1,|Length(P|
|000036c0| 61 72 61 6d 53 74 72 28 | 30 29 29 2d 33 29 2b 27 |aramStr(|0))-3)+'|
|000036d0| 43 46 47 27 29 3b 0d 0a | 20 20 53 65 74 54 65 78 |CFG');..| SetTex|
|000036e0| 74 42 75 66 28 49 2c 43 | 66 67 42 75 66 29 3b 0d |tBuf(I,C|fgBuf);.|
|000036f0| 0a 20 20 7b 24 49 2d 7d | 20 52 65 73 65 74 28 4c |. {$I-}| Reset(L|
|00003700| 69 73 74 29 3b 20 7b 24 | 49 2b 7d 0d 0a 20 20 49 |ist); {$|I+}.. I|
|00003710| 66 20 49 4f 52 65 73 75 | 6c 74 3c 3e 30 20 54 68 |f IOResu|lt<>0 Th|
|00003720| 65 6e 0d 0a 20 20 42 65 | 67 69 6e 0d 0a 20 20 20 |en.. Be|gin.. |
|00003730| 20 57 72 69 74 65 4c 6e | 28 27 55 6e 61 62 6c 65 | WriteLn|('Unable|
|00003740| 20 74 6f 20 6f 70 65 6e | 20 63 6f 6e 66 69 67 20 | to open| config |
|00003750| 66 69 6c 65 27 29 3b 0d | 0a 20 20 20 20 48 61 6c |file');.|. Hal|
|00003760| 74 3b 0d 0a 20 20 45 6e | 64 3b 0d 0a 0d 0a 20 20 |t;.. En|d;.... |
|00003770| 4c 3a 3d 30 3b 20 46 69 | 6c 6c 63 68 61 72 28 4e |L:=0; Fi|llchar(N|
|00003780| 61 6d 65 2c 73 69 7a 65 | 6f 66 28 6e 61 6d 65 29 |ame,size|of(name)|
|00003790| 2c 30 29 3b 0d 0a 20 20 | 57 72 69 74 65 4c 6e 28 |,0);.. |WriteLn(|
|000037a0| 27 52 65 61 64 69 6e 67 | 20 66 69 6c 65 73 20 27 |'Reading| files '|
|000037b0| 2b 50 61 72 61 6d 73 74 | 72 28 31 29 29 3b 0d 0a |+Paramst|r(1));..|
|000037c0| 20 20 46 69 6e 64 46 69 | 72 73 74 28 50 61 72 61 | FindFi|rst(Para|
|000037d0| 6d 73 74 72 28 31 29 2c | 41 72 63 68 69 76 65 2c |mstr(1),|Archive,|
|000037e0| 49 6e 66 6f 29 3b 0d 0a | 20 20 57 68 69 6c 65 20 |Info);..| While |
|000037f0| 28 44 6f 73 45 72 72 6f | 72 3d 30 29 20 41 6e 64 |(DosErro|r=0) And|
|00003800| 20 28 4c 3c 4d 61 78 46 | 69 6c 65 73 29 20 44 6f | (L<MaxF|iles) Do|
|00003810| 0d 0a 20 20 42 65 67 69 | 6e 0d 0a 20 20 20 20 49 |.. Begi|n.. I|
|00003820| 66 20 6c 20 6d 6f 64 20 | 32 35 3d 30 20 54 68 65 |f l mod |25=0 The|
|00003830| 6e 20 57 72 69 74 65 28 | 23 31 33 2c 6c 29 3b 0d |n Write(|#13,l);.|
|00003840| 0a 20 20 20 20 49 6e 63 | 28 4c 29 3b 0d 0a 20 20 |. Inc|(L);.. |
|00003850| 20 20 4e 61 6d 65 5b 4c | 5d 3a 3d 49 6e 66 6f 2e | Name[L|]:=Info.|
|00003860| 4e 61 6d 65 3b 0d 0a 20 | 20 20 20 49 66 20 50 6f |Name;.. | If Po|
|00003870| 73 28 27 2e 27 2c 4e 61 | 6d 65 5b 4c 5d 29 3d 30 |s('.',Na|me[L])=0|
|00003880| 20 54 68 65 6e 20 4e 61 | 6d 65 5b 4c 5d 3a 3d 4e | Then Na|me[L]:=N|
|00003890| 61 6d 65 5b 4c 5d 2b 27 | 2e 27 3b 0d 0a 20 20 20 |ame[L]+'|.';.. |
|000038a0| 20 46 69 6e 64 4e 65 78 | 74 28 49 6e 66 6f 29 3b | FindNex|t(Info);|
|000038b0| 0d 0a 20 20 45 6e 64 3b | 0d 0a 20 20 4c 65 66 74 |.. End;|.. Left|
|000038c0| 3a 3d 4c 3b 0d 0a 0d 0a | 20 20 49 66 20 4c 3d 30 |:=L;....| If L=0|
|000038d0| 20 54 68 65 6e 0d 0a 20 | 20 42 65 67 69 6e 0d 0a | Then.. | Begin..|
|000038e0| 20 20 20 20 57 72 69 74 | 65 4c 6e 28 27 4e 6f 20 | Writ|eLn('No |
|000038f0| 66 69 6c 65 73 20 74 6f | 20 66 69 6e 64 27 29 3b |files to| find');|
|00003900| 0d 0a 20 20 20 20 48 61 | 6c 74 3b 0d 0a 20 20 45 |.. Ha|lt;.. E|
|00003910| 6e 64 3b 0d 0a 0d 0a 20 | 20 41 73 73 69 67 6e 28 |nd;.... | Assign(|
|00003920| 4f 75 74 2c 27 46 49 4c | 45 53 2e 42 42 53 27 29 |Out,'FIL|ES.BBS')|
|00003930| 3b 0d 0a 20 20 53 65 74 | 54 65 78 74 42 75 66 28 |;.. Set|TextBuf(|
|00003940| 49 2c 4f 75 74 42 75 66 | 29 3b 0d 0a 20 20 7b 24 |I,OutBuf|);.. {$|
|00003950| 49 2d 7d 20 41 70 70 65 | 6e 64 28 4f 75 74 29 3b |I-} Appe|nd(Out);|
|00003960| 20 7b 24 49 2b 7d 0d 0a | 20 20 49 66 20 49 4f 52 | {$I+}..| If IOR|
|00003970| 65 73 75 6c 74 3c 3e 30 | 20 54 68 65 6e 0d 0a 20 |esult<>0| Then.. |
|00003980| 20 42 65 67 69 6e 0d 0a | 20 20 20 20 7b 24 49 2d | Begin..| {$I-|
|00003990| 7d 20 52 65 77 72 69 74 | 65 28 4f 75 74 29 3b 20 |} Rewrit|e(Out); |
|000039a0| 7b 24 49 2b 7d 0d 0a 20 | 20 20 20 49 66 20 49 4f |{$I+}.. | If IO|
|000039b0| 52 65 73 75 6c 74 3c 3e | 30 20 54 68 65 6e 0d 0a |Result<>|0 Then..|
|000039c0| 20 20 20 20 42 65 67 69 | 6e 0d 0a 20 20 20 20 20 | Begi|n.. |
|000039d0| 20 57 72 69 74 65 4c 6e | 28 27 55 6e 61 62 6c 65 | WriteLn|('Unable|
|000039e0| 20 74 6f 20 77 72 69 74 | 65 20 74 6f 20 46 49 4c | to writ|e to FIL|
|000039f0| 45 53 2e 42 42 53 27 29 | 3b 0d 0a 20 20 20 20 20 |ES.BBS')|;.. |
|00003a00| 20 48 61 6c 74 3b 0d 0a | 20 20 20 20 45 6e 64 3b | Halt;..| End;|
|00003a10| 0d 0a 20 20 20 20 57 72 | 69 74 65 4c 6e 28 23 31 |.. Wr|iteLn(#1|
|00003a20| 33 23 31 30 27 43 72 65 | 61 74 69 6e 67 20 46 49 |3#10'Cre|ating FI|
|00003a30| 4c 45 53 2e 42 42 53 27 | 29 3b 0d 0a 20 20 45 6e |LES.BBS'|);.. En|
|00003a40| 64 0d 0a 20 20 45 6c 73 | 65 20 57 72 69 74 65 4c |d.. Els|e WriteL|
|00003a50| 6e 28 23 31 33 23 31 30 | 27 41 70 70 65 6e 64 69 |n(#13#10|'Appendi|
|00003a60| 6e 67 20 74 6f 20 46 49 | 4c 45 53 2e 42 42 53 27 |ng to FI|LES.BBS'|
|00003a70| 29 3b 0d 0a 0d 0a 20 20 | 4e 65 77 28 42 75 66 29 |);.... |New(Buf)|
|00003a80| 3b 0d 0a 20 20 57 68 69 | 6c 65 20 4e 6f 74 20 45 |;.. Whi|le Not E|
|00003a90| 6f 66 28 4c 69 73 74 29 | 20 41 6e 64 20 4e 6f 74 |of(List)| And Not|
|00003aa0| 20 4b 65 79 70 72 65 73 | 73 65 64 20 44 6f 0d 0a | Keypres|sed Do..|
|00003ab0| 20 20 42 65 67 69 6e 0d | 0a 20 20 20 20 52 65 61 | Begin.|. Rea|
|00003ac0| 64 4c 6e 28 4c 69 73 74 | 2c 53 29 3b 0d 0a 20 20 |dLn(List|,S);.. |
|00003ad0| 20 20 52 65 61 64 4e 65 | 78 74 3a 3d 54 72 75 65 | ReadNe|xt:=True|
|00003ae0| 3b 0d 0a 20 20 20 20 49 | 66 20 28 53 3c 3e 27 27 |;.. I|f (S<>''|
|00003af0| 29 20 41 6e 64 20 4e 6f | 74 20 28 53 5b 31 5d 20 |) And No|t (S[1] |
|00003b00| 69 6e 20 5b 27 3b 27 2c | 27 25 27 5d 29 20 54 68 |in [';',|'%']) Th|
|00003b10| 65 6e 0d 0a 20 20 20 20 | 42 65 67 69 6e 0d 0a 20 |en.. |Begin.. |
|00003b20| 20 20 20 20 20 57 72 69 | 74 65 4c 6e 28 47 72 61 | Wri|teLn(Gra|
|00003b30| 62 57 6f 72 64 28 73 2c | 31 29 29 3b 0d 0a 20 20 |bWord(s,|1));.. |
|00003b40| 20 20 20 20 53 74 61 72 | 74 50 6f 73 3a 3d 53 74 | Star|tPos:=St|
|00003b50| 72 54 6f 49 6e 74 28 47 | 72 61 62 57 6f 72 64 28 |rToInt(G|rabWord(|
|00003b60| 73 2c 32 29 29 3b 20 49 | 66 20 53 74 61 72 74 50 |s,2)); I|f StartP|
|00003b70| 6f 73 3d 30 20 54 68 65 | 6e 20 53 74 61 72 74 50 |os=0 The|n StartP|
|00003b80| 6f 73 3a 3d 31 3b 0d 0a | 20 20 20 20 20 20 44 65 |os:=1;..| De|
|00003b90| 73 63 50 6f 73 3a 3d 53 | 74 72 54 6f 49 6e 74 28 |scPos:=S|trToInt(|
|00003ba0| 47 72 61 62 57 6f 72 64 | 28 73 2c 33 29 29 3b 20 |GrabWord|(s,3)); |
|00003bb0| 20 49 66 20 44 65 73 63 | 50 6f 73 3d 30 20 54 68 | If Desc|Pos=0 Th|
|00003bc0| 65 6e 20 44 65 73 63 50 | 6f 73 3a 3d 31 3b 0d 0a |en DescP|os:=1;..|
|00003bd0| 20 20 20 20 20 20 41 73 | 73 69 67 6e 28 49 2c 47 | As|sign(I,G|
|00003be0| 72 61 62 57 6f 72 64 28 | 73 2c 31 29 29 3b 0d 0a |rabWord(|s,1));..|
|00003bf0| 20 20 20 20 20 20 53 65 | 74 54 65 78 74 42 75 66 | Se|tTextBuf|
|00003c00| 28 49 2c 42 75 66 5e 29 | 3b 0d 0a 20 20 20 20 20 |(I,Buf^)|;.. |
|00003c10| 20 7b 24 49 2d 7d 20 52 | 65 73 65 74 28 49 29 3b | {$I-} R|eset(I);|
|00003c20| 20 7b 24 49 2b 7d 0d 0a | 20 20 20 20 20 20 49 66 | {$I+}..| If|
|00003c30| 20 49 4f 52 65 73 75 6c | 74 3c 3e 30 20 54 68 65 | IOResul|t<>0 The|
|00003c40| 6e 20 57 72 69 74 65 4c | 6e 28 27 55 6e 61 62 6c |n WriteL|n('Unabl|
|00003c50| 65 20 74 6f 20 6f 70 65 | 6e 20 69 6e 70 75 74 20 |e to ope|n input |
|00003c60| 66 69 6c 65 27 29 0d 0a | 20 20 20 20 20 20 45 6c |file')..| El|
|00003c70| 73 65 20 42 65 67 69 6e | 0d 0a 20 20 20 20 20 20 |se Begin|.. |
|00003c80| 20 20 57 72 69 74 65 4c | 6e 28 4f 75 74 29 3b 0d | WriteL|n(Out);.|
|00003c90| 0a 20 20 20 20 20 20 20 | 20 57 72 69 74 65 4c 6e |. | WriteLn|
|00003ca0| 28 4f 75 74 2c 27 20 2d | 20 4d 61 6b 65 42 42 53 |(Out,' -| MakeBBS|
|00003cb0| 20 3a 20 27 2b 47 72 61 | 62 57 6f 72 64 28 73 2c | : '+Gra|bWord(s,|
|00003cc0| 31 29 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 57 72 |1));.. | Wr|
|00003cd0| 69 74 65 4c 6e 28 4f 75 | 74 29 3b 0d 0a 0d 0a 20 |iteLn(Ou|t);.... |
|00003ce0| 20 20 20 20 20 20 20 53 | 74 6f 70 3a 3d 46 61 6c | S|top:=Fal|
|00003cf0| 73 65 3b 20 43 3a 3d 30 | 3b 0d 0a 20 20 20 20 20 |se; C:=0|;.. |
|00003d00| 20 20 20 57 68 69 6c 65 | 20 4e 6f 74 20 45 6f 66 | While| Not Eof|
|00003d10| 28 49 29 20 41 6e 64 20 | 4e 6f 74 20 53 74 6f 70 |(I) And |Not Stop|
|00003d20| 20 41 6e 64 20 28 4c 65 | 66 74 3e 30 29 20 44 6f | And (Le|ft>0) Do|
|00003d30| 0d 0a 20 20 20 20 20 20 | 20 20 42 65 67 69 6e 0d |.. | Begin.|
|00003d40| 0a 20 20 20 20 20 20 20 | 20 20 20 49 6e 63 28 43 |. | Inc(C|
|00003d50| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 49 66 |);.. | If|
|00003d60| 20 43 20 4d 6f 64 20 31 | 30 30 3d 30 20 54 68 65 | C Mod 1|00=0 The|
|00003d70| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 20 42 65 67 |n.. | Beg|
|00003d80| 69 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |in.. | |
|00003d90| 53 74 6f 70 3a 3d 4b 65 | 79 50 72 65 73 73 65 64 |Stop:=Ke|yPressed|
|00003da0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 57 |;.. | W|
|00003db0| 72 69 74 65 28 23 31 33 | 2c 27 4c 69 6e 65 73 3a |rite(#13|,'Lines:|
|00003dc0| 20 27 2c 43 2c 27 2c 20 | 6d 69 73 73 69 6e 67 20 | ',C,', |missing |
|00003dd0| 27 2c 4c 65 66 74 2c 27 | 20 20 20 20 20 20 27 29 |',Left,'| ')|
|00003de0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 45 6e 64 |;.. | End|
|00003df0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 49 66 20 |;.. | If |
|00003e00| 52 65 61 64 4e 65 78 74 | 20 54 68 65 6e 20 52 65 |ReadNext| Then Re|
|00003e10| 61 64 4c 6e 28 49 2c 53 | 29 3b 0d 0a 20 20 20 20 |adLn(I,S|);.. |
|00003e20| 20 20 20 20 20 20 52 65 | 61 64 4e 65 78 74 3a 3d | Re|adNext:=|
|00003e30| 54 72 75 65 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |True;.. | |
|00003e40| 20 49 66 20 53 3c 3e 27 | 27 20 54 68 65 6e 0d 0a | If S<>'|' Then..|
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 42 65 67 69 6e 0d | | Begin.|
|00003e60| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 55 50 53 |. | UPS|
|00003e70| 3a 3d 53 74 55 70 63 61 | 73 65 28 53 29 3b 0d 0a |:=StUpca|se(S);..|
|00003e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 6f 72 20 | | For |
|00003e90| 78 3a 3d 31 20 54 6f 20 | 4c 20 44 6f 0d 0a 20 20 |x:=1 To |L Do.. |
|00003ea0| 20 20 20 20 20 20 20 20 | 20 20 42 65 67 69 6e 0d | | Begin.|
|00003eb0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |. | I|
|00003ec0| 66 20 50 6f 73 28 4e 61 | 6d 65 5b 78 5d 2c 55 50 |f Pos(Na|me[x],UP|
|00003ed0| 53 29 3d 53 74 61 72 74 | 50 6f 73 20 54 68 65 6e |S)=Start|Pos Then|
|00003ee0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003ef0| 42 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 |Begin.. | |
|00003f00| 20 20 20 20 20 20 20 44 | 65 63 28 4c 65 66 74 29 | D|ec(Left)|
|00003f10| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.. | |
|00003f20| 20 20 20 57 72 69 74 65 | 4c 6e 28 4f 75 74 2c 42 | Write|Ln(Out,B|
|00003f30| 6c 61 6e 6b 41 66 74 65 | 72 28 4e 61 6d 65 5b 78 |lankAfte|r(Name[x|
|00003f40| 5d 2c 31 33 29 2b 43 6f | 70 79 28 53 2c 44 65 73 |],13)+Co|py(S,Des|
|00003f50| 63 50 6f 73 2c 32 35 35 | 29 29 3b 0d 0a 20 20 20 |cPos,255|));.. |
|00003f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 61 6d | | Nam|
|00003f70| 65 5b 78 5d 3a 3d 27 27 | 3b 0d 0a 20 20 20 20 20 |e[x]:=''|;.. |
|00003f80| 20 20 20 20 20 20 20 20 | 20 20 20 4c 6f 6f 6b 46 | | LookF|
|00003f90| 6f 72 4d 6f 72 65 3b 0d | 0a 20 20 20 20 20 20 20 |orMore;.|. |
|00003fa0| 20 20 20 20 20 20 20 45 | 6e 64 0d 0a 20 20 20 20 | E|nd.. |
|00003fb0| 20 20 20 20 20 20 20 20 | 20 20 45 6c 73 65 20 42 | | Else B|
|00003fc0| 65 67 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |egin.. | |
|00003fd0| 20 20 20 20 20 20 70 3a | 3d 50 6f 73 28 27 2e 27 | p:|=Pos('.'|
|00003fe0| 2c 4e 61 6d 65 5b 78 5d | 29 3b 0d 0a 20 20 20 20 |,Name[x]|);.. |
|00003ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 66 20 50 | | If P|
|00004000| 6f 73 28 43 6f 70 79 28 | 4e 61 6d 65 5b 78 5d 2c |os(Copy(|Name[x],|
|00004010| 31 2c 70 29 2c 55 50 53 | 29 3d 53 74 61 72 74 50 |1,p),UPS|)=StartP|
|00004020| 6f 73 20 54 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |os Then.|. |
|00004030| 20 20 20 20 20 20 20 20 | 20 42 65 67 69 6e 0d 0a | | Begin..|
|00004040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004050| 20 20 44 65 63 28 4c 65 | 66 74 29 3b 0d 0a 20 20 | Dec(Le|ft);.. |
|00004060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004070| 49 66 20 4e 61 6d 65 5b | 78 5d 5b 4c 65 6e 67 74 |If Name[|x][Lengt|
|00004080| 68 28 4e 61 6d 65 5b 78 | 5d 29 5d 3d 27 2e 27 20 |h(Name[x|])]='.' |
|00004090| 54 68 65 6e 20 4e 61 6d | 65 5b 78 5d 5b 30 5d 3a |Then Nam|e[x][0]:|
|000040a0| 3d 43 68 72 28 4f 72 64 | 28 4e 61 6d 65 5b 78 5d |=Chr(Ord|(Name[x]|
|000040b0| 5b 30 5d 29 2d 31 29 3b | 0d 0a 20 20 20 20 20 20 |[0])-1);|.. |
|000040c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 72 69 74 | | Writ|
|000040d0| 65 4c 6e 28 4f 75 74 2c | 42 6c 61 6e 6b 41 66 74 |eLn(Out,|BlankAft|
|000040e0| 65 72 28 4e 61 6d 65 5b | 78 5d 2c 31 33 29 2b 43 |er(Name[|x],13)+C|
|000040f0| 6f 70 79 28 53 2c 44 65 | 73 63 50 6f 73 2c 32 35 |opy(S,De|scPos,25|
|00004100| 35 29 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |5));.. | |
|00004110| 20 20 20 20 20 20 20 20 | 4e 61 6d 65 5b 78 5d 3a | |Name[x]:|
|00004120| 3d 27 27 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |='';.. | |
|00004130| 20 20 20 20 20 20 20 20 | 4c 6f 6f 6b 46 6f 72 4d | |LookForM|
|00004140| 6f 72 65 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ore;.. | |
|00004150| 20 20 20 20 20 20 45 6e | 64 0d 0a 20 20 20 20 20 | En|d.. |
|00004160| 20 20 20 20 20 20 20 20 | 20 45 6e 64 3b 0d 0a 20 | | End;.. |
|00004170| 20 20 20 20 20 20 20 20 | 20 20 20 45 6e 64 3b 0d | | End;.|
|00004180| 0a 20 20 20 20 20 20 20 | 20 20 20 45 6e 64 3b 0d |. | End;.|
|00004190| 0a 20 20 20 20 20 20 20 | 20 45 6e 64 3b 0d 0a 0d |. | End;...|
|000041a0| 0a 20 20 20 20 20 20 20 | 20 57 72 69 74 65 28 23 |. | Write(#|
|000041b0| 31 33 2c 27 4c 69 6e 65 | 73 3a 20 27 2c 43 2c 27 |13,'Line|s: ',C,'|
|000041c0| 2c 20 6d 69 73 73 69 6e | 67 20 27 2c 4c 65 66 74 |, missin|g ',Left|
|000041d0| 2c 27 20 20 20 20 20 20 | 27 29 3b 0d 0a 20 20 20 |,' |');.. |
|000041e0| 20 20 20 20 20 57 72 69 | 74 65 4c 6e 28 23 31 33 | Wri|teLn(#13|
|000041f0| 23 31 30 27 4c 69 6e 65 | 73 20 70 72 6f 63 65 73 |#10'Line|s proces|
|00004200| 73 65 64 3a 20 27 2c 43 | 29 3b 0d 0a 0d 0a 20 20 |sed: ',C|);.... |
|00004210| 20 20 20 20 20 20 43 6c | 6f 73 65 28 49 29 3b 0d | Cl|ose(I);.|
|00004220| 0a 20 20 20 20 20 20 45 | 6e 64 3b 0d 0a 20 20 20 |. E|nd;.. |
|00004230| 20 45 6e 64 3b 0d 0a 20 | 20 45 6e 64 3b 0d 0a 20 | End;.. | End;.. |
|00004240| 20 44 69 73 70 6f 73 65 | 28 42 75 66 29 3b 0d 0a | Dispose|(Buf);..|
|00004250| 20 20 49 66 20 4b 65 79 | 50 72 65 73 73 65 64 20 | If Key|Pressed |
|00004260| 54 68 65 6e 20 57 72 69 | 74 65 4c 6e 28 23 31 33 |Then Wri|teLn(#13|
|00004270| 23 31 30 23 31 30 27 4b | 65 79 62 6f 61 72 64 20 |#10#10'K|eyboard |
|00004280| 61 62 6f 72 74 27 29 3b | 0d 0a 0d 0a 20 20 43 6c |abort');|.... Cl|
|00004290| 6f 73 65 28 4c 69 73 74 | 29 3b 0d 0a 20 20 43 6c |ose(List|);.. Cl|
|000042a0| 6f 73 65 28 4f 75 74 29 | 3b 0d 0a 45 6e 64 2e 0d |ose(Out)|;..End..|
|000042b0| 0a 0d 0a 1f cd 2d 6c 68 | 30 2d 8b 12 00 00 8b 12 |.....-lh|0-......|
|000042c0| 00 00 b1 7e f6 1e 00 00 | 09 50 48 4f 4e 45 2e 50 |...~....|.PHONE.P|
|000042d0| 41 53 0c 51 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |AS.Q{---|--------|
|000042e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00004320| 0d 0a 7b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..{ | |
|00004330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7d 0d 0a | | }..|
|00004370| 7b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{ | |
|00004380| 20 20 20 20 2d 3d 3e 20 | 54 65 72 6d 69 6e 61 74 | -=> |Terminat|
|00004390| 65 20 50 68 6f 6e 65 20 | 64 69 72 65 63 74 6f 72 |e Phone |director|
|000043a0| 79 20 20 3c 3d 2d 20 20 | 20 20 20 20 20 20 20 20 |y <=- | |
|000043b0| 20 20 20 20 20 20 20 20 | 20 20 20 7d 0d 0a 7b 20 | | }..{ |
|000043c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004400| 20 20 20 20 20 20 20 20 | 20 7d 0d 0a 7b 20 20 20 | | }..{ |
|00004410| 54 68 65 20 70 68 6f 6e | 65 62 6f 6f 6b 20 68 61 |The phon|ebook ha|
|00004420| 73 20 66 69 72 73 74 20 | 6f 6e 65 20 50 68 6f 6e |s first |one Phon|
|00004430| 65 48 65 61 64 52 65 63 | 2c 20 61 6e 64 20 74 68 |eHeadRec|, and th|
|00004440| 65 6e 20 75 70 20 74 6f | 20 35 30 30 20 50 68 6f |en up to| 500 Pho|
|00004450| 6e 65 52 65 63 20 20 7d | 0d 0a 7b 20 20 20 20 20 |neRec }|..{ |
|00004460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044a0| 20 20 20 20 20 7d 0d 0a | 7b 20 20 53 74 72 75 63 | }..|{ Struc|
|000044b0| 74 75 72 65 20 69 73 20 | 63 6f 70 79 72 69 67 68 |ture is |copyrigh|
|000044c0| 74 65 64 20 6d 61 74 65 | 72 69 61 6c 20 61 6e 64 |ted mate|rial and|
|000044d0| 20 6d 61 79 20 6e 6f 74 | 20 62 65 20 63 68 61 6e | may not| be chan|
|000044e0| 67 65 64 20 62 79 20 6f | 74 68 65 72 73 20 74 68 |ged by o|thers th|
|000044f0| 61 6e 20 7d 0d 0a 7b 20 | 20 20 20 20 20 20 20 20 |an }..{ | |
|00004500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004510| 20 20 20 20 20 53 65 72 | 57 69 7a 20 43 6f 6d 6d | Ser|Wiz Comm|
|00004520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004540| 20 7d 0d 0a 7b 20 20 20 | 20 20 20 20 20 20 20 20 | }..{ | |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00004590| 0d 0a 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..{-----|--------|
|000045a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000045b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000045c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000045d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0a |--------|-----}..|
|000045e0| 0d 0a 43 6f 6e 73 74 0d | 0a 20 20 4d 61 78 4e 75 |..Const.|. MaxNu|
|000045f0| 6d 62 65 72 73 20 3d 20 | 35 30 30 3b 0d 0a 0d 0a |mbers = |500;....|
|00004600| 54 79 70 65 0d 0a 0d 0a | 20 20 20 20 20 20 50 68 |Type....| Ph|
|00004610| 6f 6e 65 52 65 63 20 3d | 20 52 65 63 6f 72 64 0d |oneRec =| Record.|
|00004620| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004630| 20 20 20 20 4e 61 6d 65 | 20 20 20 20 20 20 20 20 | Name| |
|00004640| 3a 20 53 74 72 69 6e 67 | 5b 33 30 5d 3b 20 7b 20 |: String|[30]; { |
|00004650| 4e 61 6d 65 20 6f 66 20 | 73 79 73 74 65 6d 20 20 |Name of |system |
|00004660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00004670| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00004680| 20 20 20 20 20 4e 75 6d | 62 65 72 20 20 20 20 20 | Num|ber |
|00004690| 20 3a 20 53 74 72 69 6e | 67 5b 32 34 5d 3b 20 7b | : Strin|g[24]; {|
|000046a0| 20 4e 75 6d 62 65 72 20 | 74 6f 20 63 61 6c 6c 20 | Number |to call |
|000046b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046c0| 7d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.. | |
|000046d0| 20 20 20 20 20 20 44 65 | 76 69 63 65 20 20 20 20 | De|vice |
|000046e0| 20 20 3a 20 42 79 74 65 | 3b 20 20 20 20 20 20 20 | : Byte|; |
|000046f0| 7b 20 44 65 76 69 63 65 | 20 74 6f 20 75 73 65 20 |{ Device| to use |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004710| 20 7d 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004720| 20 20 20 20 20 20 20 42 | 61 75 64 20 20 20 20 20 | B|aud |
|00004730| 20 20 20 3a 20 4c 6f 6e | 67 49 6e 74 3b 20 20 20 | : Lon|gInt; |
|00004740| 20 7b 20 49 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 6f | { Infor|mation o|
|00004750| 6e 20 62 61 75 64 72 61 | 74 65 20 20 20 20 20 20 |n baudra|te |
|00004760| 20 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004770| 20 20 20 20 20 20 20 20 | 4d 69 6e 42 61 75 64 20 | |MinBaud |
|00004780| 20 20 20 20 3a 20 41 72 | 72 61 79 5b 31 2e 2e 33 | : Ar|ray[1..3|
|00004790| 5d 20 6f 66 20 42 79 74 | 65 3b 20 7b 20 4d 69 6e |] of Byt|e; { Min|
|000047a0| 69 6d 75 6d 20 63 6f 6e | 6e 65 63 74 20 73 70 65 |imum con|nect spe|
|000047b0| 65 64 20 7d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ed }.. | |
|000047c0| 20 20 20 20 20 20 20 20 | 20 4b 65 79 62 6f 61 72 | | Keyboar|
|000047d0| 64 20 20 20 20 3a 20 53 | 74 72 69 6e 67 5b 38 5d |d : S|tring[8]|
|000047e0| 3b 20 20 7b 20 4b 65 79 | 62 6f 61 72 64 20 66 69 |; { Key|board fi|
|000047f0| 6c 65 20 74 6f 20 75 73 | 65 20 20 20 20 20 20 20 |le to us|e |
|00004800| 20 20 20 20 7d 0d 0a 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 54 65 72 6d 69 6e | | Termin|
|00004820| 61 6c 20 20 20 20 3a 20 | 42 79 74 65 3b 20 20 20 |al : |Byte; |
|00004830| 20 20 20 20 7b 20 45 6d | 75 6c 61 74 69 6f 6e 20 | { Em|ulation |
|00004840| 74 6f 20 75 73 65 20 20 | 20 20 20 20 20 20 20 20 |to use | |
|00004850| 20 20 20 20 20 7d 0d 0a | 20 20 20 20 20 20 20 20 | }..| |
|00004860| 20 20 20 20 20 20 20 20 | 20 20 20 44 69 61 6c 53 | | DialS|
|00004870| 75 66 66 69 78 20 20 3a | 20 42 79 74 65 3b 20 20 |uffix :| Byte; |
|00004880| 20 20 20 20 20 7b 20 57 | 68 69 63 68 20 44 69 61 | { W|hich Dia|
|00004890| 6c 73 75 66 66 69 78 20 | 61 66 74 65 72 20 6e 75 |lsuffix |after nu|
|000048a0| 6d 62 65 72 20 20 7d 0d | 0a 20 20 20 20 20 20 20 |mber }.|. |
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 69 61 6c | | Dial|
|000048c0| 50 72 65 66 69 78 20 20 | 3a 20 42 79 74 65 3b 20 |Prefix |: Byte; |
|000048d0| 20 20 20 20 20 20 7b 20 | 44 69 61 6c 70 72 65 66 | { |Dialpref|
|000048e0| 69 78 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ix | |
|000048f0| 20 20 20 20 20 20 20 7d | 0d 0a 20 20 20 20 20 20 | }|.. |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 61 73 | | Pas|
|00004910| 73 77 6f 72 64 20 20 20 | 20 3a 20 53 74 72 69 6e |sword | : Strin|
|00004920| 67 5b 32 34 5d 3b 20 7b | 20 50 61 73 73 77 6f 72 |g[24]; {| Passwor|
|00004930| 64 20 74 6f 20 75 73 65 | 20 20 20 20 20 20 20 20 |d to use| |
|00004940| 20 20 20 20 20 20 20 20 | 7d 0d 0a 20 20 20 20 20 | |}.. |
|00004950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4f 70 | | Op|
|00004960| 65 6e 2c 43 6c 6f 73 65 | 64 20 3a 20 57 6f 72 64 |en,Close|d : Word|
|00004970| 3b 20 20 20 20 20 20 20 | 7b 20 4f 70 65 6e 69 6e |; |{ Openin|
|00004980| 67 20 68 6f 75 72 73 20 | 32 30 3a 33 30 20 3d 20 |g hours |20:30 = |
|00004990| 32 30 2a 36 30 2b 33 30 | 20 7d 0d 0a 20 20 20 20 |20*60+30| }.. |
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 55 | | U|
|000049b0| 73 65 72 20 20 20 20 20 | 20 20 20 3a 20 42 79 74 |ser | : Byt|
|000049c0| 65 3b 20 20 20 20 20 20 | 20 7b 20 55 73 65 72 6e |e; | { Usern|
|000049d0| 61 6d 65 20 74 6f 20 75 | 73 65 20 20 20 20 20 20 |ame to u|se |
|000049e0| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 0a 20 20 20 | | }.. |
|000049f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a00| 43 6f 6d 6d 65 6e 74 31 | 20 20 20 20 3a 20 53 74 |Comment1| : St|
|00004a10| 72 69 6e 67 5b 34 30 5d | 3b 20 7b 20 4e 6f 74 65 |ring[40]|; { Note|
|00004a20| 20 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 1 | |
|00004a30| 20 20 20 20 20 20 20 20 | 20 20 20 7d 0d 0a 20 20 | | }.. |
|00004a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a50| 20 43 6f 6d 6d 65 6e 74 | 32 20 20 20 20 3a 20 53 | Comment|2 : S|
|00004a60| 74 72 69 6e 67 5b 34 30 | 5d 3b 20 7b 20 4e 6f 74 |tring[40|]; { Not|
|00004a70| 65 20 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e 2 | |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 0a 20 | | }.. |
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004aa0| 20 20 4c 6f 67 69 6e 53 | 63 72 69 70 74 20 3a 20 | LoginS|cript : |
|00004ab0| 42 79 74 65 3b 20 20 20 | 20 20 20 20 7b 20 41 75 |Byte; | { Au|
|00004ac0| 74 6f 6c 6f 67 69 6e 20 | 73 63 72 69 70 74 20 20 |tologin |script |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7d 0d 0a | | }..|
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004af0| 20 20 20 44 6f 77 6e 6c | 6f 61 64 64 69 72 20 3a | Downl|oaddir :|
|00004b00| 20 42 79 74 65 3b 20 20 | 20 20 20 20 20 7b 20 44 | Byte; | { D|
|00004b10| 6f 77 6e 6c 6f 61 64 20 | 74 6f 20 77 68 69 63 68 |ownload |to which|
|00004b20| 20 70 61 74 68 20 20 20 | 20 20 20 20 20 20 7d 0d | path | }.|
|00004b30| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004b40| 20 20 20 20 54 72 61 6e | 73 6c 61 74 65 20 20 20 | Tran|slate |
|00004b50| 3a 20 53 74 72 69 6e 67 | 5b 38 5d 3b 20 20 7b 20 |: String|[8]; { |
|00004b60| 54 72 61 6e 73 6c 61 74 | 69 6f 6e 20 74 61 62 6c |Translat|ion tabl|
|00004b70| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d |e | }|
|00004b80| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00004b90| 20 20 20 20 20 43 61 70 | 74 75 72 65 20 20 20 20 | Cap|ture |
|00004ba0| 20 3a 20 53 74 72 69 6e | 67 5b 38 5d 3b 20 20 7b | : Strin|g[8]; {|
|00004bb0| 20 44 65 66 61 75 6c 74 | 20 63 61 70 74 75 72 65 | Default| capture|
|00004bc0| 20 66 69 6c 65 20 20 20 | 20 20 20 20 20 20 20 20 | file | |
|00004bd0| 7d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.. | |
|00004be0| 20 20 20 20 20 20 4e 6f | 74 65 20 20 20 20 20 20 | No|te |
|00004bf0| 20 20 3a 20 53 74 72 69 | 6e 67 5b 38 5d 3b 20 20 | : Stri|ng[8]; |
|00004c00| 7b 20 41 20 66 69 6c 65 | 20 63 6f 6e 74 61 69 6e |{ A file| contain|
|00004c10| 69 6e 67 20 6e 6f 74 65 | 73 20 20 20 20 20 20 20 |ing note|s |
|00004c20| 20 7d 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004c30| 20 20 20 20 20 20 20 4c | 6f 63 61 6c 45 63 68 6f | L|ocalEcho|
|00004c40| 20 20 20 3a 20 42 6f 6f | 6c 65 61 6e 3b 20 20 20 | : Boo|lean; |
|00004c50| 20 7b 20 54 75 72 6e 20 | 6f 6e 20 6c 6f 63 61 6c | { Turn |on local|
|00004c60| 20 65 63 68 6f 20 20 20 | 20 20 20 20 20 20 20 20 | echo | |
|00004c70| 20 20 7d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004c80| 20 20 20 20 20 20 20 20 | 53 74 72 69 70 48 69 67 | |StripHig|
|00004c90| 68 20 20 20 3a 20 42 6f | 6f 6c 65 61 6e 3b 20 20 |h : Bo|olean; |
|00004ca0| 20 20 7b 20 53 74 72 69 | 70 20 61 62 6f 76 65 20 | { Stri|p above |
|00004cb0| 31 32 37 20 66 72 6f 6d | 20 69 6e 63 6f 6d 69 6e |127 from| incomin|
|00004cc0| 67 20 20 7d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |g }.. | |
|00004cd0| 20 20 20 20 20 20 20 20 | 20 52 63 76 64 42 53 64 | | RcvdBSd|
|00004ce0| 65 73 74 20 20 3a 20 42 | 6f 6f 6c 65 61 6e 3b 20 |est : B|oolean; |
|00004cf0| 20 20 20 7b 20 42 61 63 | 6b 73 70 61 63 65 20 64 | { Bac|kspace d|
|00004d00| 65 73 74 72 6f 79 65 73 | 20 20 20 20 20 20 20 20 |estroyes| |
|00004d10| 20 20 20 20 7d 0d 0a 20 | 20 20 20 20 20 20 20 20 | }.. | |
|00004d20| 20 20 20 20 20 20 20 20 | 20 20 43 6f 6c 6f 72 20 | | Color |
|00004d30| 20 20 20 20 20 20 3a 20 | 42 79 74 65 3b 20 20 20 | : |Byte; |
|00004d40| 20 20 20 20 7b 20 41 74 | 74 72 69 62 75 74 65 20 | { At|tribute |
|00004d50| 6f 66 20 65 6e 74 72 79 | 20 20 20 20 20 20 20 20 |of entry| |
|00004d60| 20 20 20 20 20 7d 0d 0a | 20 20 20 20 20 20 20 20 | }..| |
|00004d70| 20 20 20 20 20 20 20 20 | 20 20 20 4a 75 6c 44 61 | | JulDa|
|00004d80| 74 65 20 20 20 20 20 3a | 20 57 6f 72 64 3b 20 20 |te :| Word; |
|00004d90| 20 20 20 20 20 7b 20 4a | 75 6c 69 61 6e 20 64 61 | { J|ulian da|
|00004da0| 74 65 20 6f 66 20 6c 61 | 73 74 20 63 6f 6e 6e 65 |te of la|st conne|
|00004db0| 63 74 20 20 20 20 7d 0d | 0a 20 20 20 20 20 20 20 |ct }.|. |
|00004dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 61 6c 63 | | Calc|
|00004dd0| 4d 69 6e 20 20 20 20 20 | 3a 20 57 6f 72 64 3b 20 |Min |: Word; |
|00004de0| 20 20 20 20 20 20 7b 20 | 54 69 6d 65 20 6f 66 20 | { |Time of |
|00004df0| 6c 61 73 74 20 63 6f 6e | 2e 20 48 6f 75 72 2a 36 |last con|. Hour*6|
|00004e00| 30 2b 6d 69 6e 20 20 7d | 0d 0a 20 20 20 20 20 20 |0+min }|.. |
|00004e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 6f 6e | | Con|
|00004e20| 6e 65 63 74 73 20 20 20 | 20 3a 20 57 6f 72 64 3b |nects | : Word;|
|00004e30| 20 20 20 20 20 20 20 7b | 20 4e 75 6d 62 65 72 20 | {| Number |
|00004e40| 6f 66 20 63 6f 6e 6e 65 | 63 74 73 20 20 20 20 20 |of conne|cts |
|00004e50| 20 20 20 20 20 20 20 20 | 7d 0d 0a 20 20 20 20 20 | |}.. |
|00004e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 65 | | Se|
|00004e70| 63 55 73 65 64 20 20 20 | 20 20 3a 20 4c 6f 6e 67 |cUsed | : Long|
|00004e80| 49 6e 74 3b 20 20 20 20 | 7b 20 53 65 63 6f 6e 64 |Int; |{ Second|
|00004e90| 73 20 75 73 65 64 20 6f | 6e 20 73 79 73 74 65 6d |s used o|n system|
|00004ea0| 20 20 20 20 20 20 20 20 | 20 7d 0d 0a 20 20 20 20 | | }.. |
|00004eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 55 | | U|
|00004ec0| 70 6c 6f 61 64 4b 62 20 | 20 20 20 3a 20 4c 6f 6e |ploadKb | : Lon|
|00004ed0| 67 49 6e 74 3b 20 20 20 | 20 7b 20 4b 69 6c 6f 62 |gInt; | { Kilob|
|00004ee0| 79 74 65 73 20 6f 66 20 | 75 70 6c 6f 61 64 73 20 |ytes of |uploads |
|00004ef0| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 0a 20 20 20 | | }.. |
|00004f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f10| 44 6f 77 6e 6c 6f 61 64 | 4b 62 20 20 3a 20 4c 6f |Download|Kb : Lo|
|00004f20| 6e 67 49 6e 74 3b 20 20 | 20 20 7b 20 4b 69 6c 6f |ngInt; | { Kilo|
|00004f30| 62 79 74 65 73 20 6f 66 | 20 64 6f 77 6e 6c 6f 61 |bytes of| downloa|
|00004f40| 64 73 20 20 20 20 20 20 | 20 20 20 7d 0d 0a 20 20 |ds | }.. |
|00004f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f60| 20 43 6f 73 74 73 20 20 | 20 20 20 20 20 3a 20 4c | Costs | : L|
|00004f70| 6f 6e 67 49 6e 74 3b 20 | 20 20 20 7b 20 54 6f 74 |ongInt; | { Tot|
|00004f80| 61 6c 20 6d 6f 6e 65 79 | 20 75 73 65 64 20 6f 6e |al money| used on|
|00004f90| 20 73 79 73 74 65 6d 20 | 20 20 20 20 7d 0d 0a 20 | system | }.. |
|00004fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004fb0| 20 20 4c 61 73 74 43 6f | 73 74 73 20 20 20 3a 20 | LastCo|sts : |
|00004fc0| 4c 6f 6e 67 49 6e 74 3b | 20 20 20 20 7b 20 55 73 |LongInt;| { Us|
|00004fd0| 65 64 20 74 68 69 73 20 | 6d 6f 6e 74 68 20 20 20 |ed this |month |
|00004fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7d 0d 0a | | }..|
|00004ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005000| 20 45 6e 64 3b 0d 0a 0d | 0a 20 20 50 68 6f 6e 65 | End;...|. Phone|
|00005010| 48 65 61 64 52 65 63 20 | 3d 20 52 65 63 6f 72 64 |HeadRec |= Record|
|00005020| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005030| 20 20 20 20 20 45 6e 63 | 72 79 70 74 65 64 20 20 | Enc|rypted |
|00005040| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 20 20 20 20 7b 20 |: Boolea|n; { |
|00005050| 49 73 20 70 68 6f 6e 65 | 62 6f 6f 6b 20 65 6e 63 |Is phone|book enc|
|00005060| 72 79 70 74 65 64 20 20 | 20 20 20 20 20 20 20 7d |rypted | }|
|00005070| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005080| 20 20 20 20 20 53 65 65 | 64 20 20 20 20 20 20 20 | See|d |
|00005090| 3a 20 4c 6f 6e 67 69 6e | 74 3b 20 20 20 20 7b 20 |: Longin|t; { |
|000050a0| 4b 65 79 20 74 6f 20 64 | 65 63 72 79 70 74 20 65 |Key to d|ecrypt e|
|000050b0| 6e 74 72 69 65 73 20 20 | 20 20 20 20 20 20 20 7d |ntries | }|
|000050c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000050d0| 20 20 20 20 20 56 65 72 | 73 69 6f 6e 20 20 20 20 | Ver|sion |
|000050e0| 3a 20 53 74 72 69 6e 67 | 5b 35 5d 3b 20 20 7b 20 |: String|[5]; { |
|000050f0| 56 65 72 73 69 6f 6e 20 | 69 73 20 54 65 72 6d 69 |Version |is Termi|
|00005100| 6e 61 74 65 20 20 20 20 | 20 20 20 20 20 20 20 7d |nate | }|
|00005110| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005120| 20 20 20 20 20 43 6f 6d | 6d 65 6e 74 20 20 20 20 | Com|ment |
|00005130| 3a 20 53 74 72 69 6e 67 | 5b 33 30 5d 3b 20 7b 20 |: String|[30]; { |
|00005140| 50 68 6f 6e 65 62 6f 6f | 6b 20 6e 6f 74 65 20 20 |Phoneboo|k note |
|00005150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00005160| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005170| 20 20 20 20 20 4e 75 6d | 20 20 20 20 20 20 20 20 | Num| |
|00005180| 3a 20 49 6e 74 65 67 65 | 72 3b 20 20 20 20 7b 20 |: Intege|r; { |
|00005190| 54 6f 74 61 6c 20 65 6e | 74 72 69 65 73 20 20 20 |Total en|tries |
|000051a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|000051b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000051c0| 20 20 20 20 20 43 75 72 | 4d 6f 6e 74 68 20 20 20 | Cur|Month |
|000051d0| 3a 20 42 79 74 65 3b 20 | 20 20 20 20 20 20 7b 20 |: Byte; | { |
|000051e0| 43 75 72 72 65 6e 74 20 | 6d 6f 6e 74 68 20 20 20 |Current |month |
|000051f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00005200| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005210| 20 20 20 20 20 4d 6f 6e | 74 68 43 6f 73 74 73 20 | Mon|thCosts |
|00005220| 3a 20 41 72 72 61 79 5b | 31 2e 2e 31 32 5d 7b 20 |: Array[|1..12]{ |
|00005230| 46 6f 72 20 6b 65 65 70 | 69 6e 67 20 74 72 61 63 |For keep|ing trac|
|00005240| 6b 20 6f 66 20 68 6f 77 | 20 6d 75 63 68 20 20 7d |k of how| much }|
|00005250| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005270| 20 20 6f 66 20 4c 6f 6e | 67 69 6e 74 3b 20 7b 20 | of Lon|gint; { |
|00005280| 6d 6f 6e 65 79 20 75 73 | 65 64 20 61 20 68 6f 6c |money us|ed a hol|
|00005290| 65 20 79 65 61 72 20 62 | 61 63 6b 20 20 20 20 7d |e year b|ack }|
|000052a0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000052b0| 20 20 20 20 20 50 68 6f | 6e 65 50 6f 73 20 20 20 | Pho|nePos |
|000052c0| 3a 20 49 6e 74 65 67 65 | 72 3b 20 20 20 20 7b 20 |: Intege|r; { |
|000052d0| 4c 61 73 74 20 65 6e 74 | 72 79 20 70 72 6f 63 65 |Last ent|ry proce|
|000052e0| 73 73 65 64 20 20 20 20 | 20 20 20 20 20 20 20 7d |ssed | }|
|000052f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005300| 20 20 20 20 20 53 63 72 | 50 6f 73 2c 20 20 20 20 | Scr|Pos, |
|00005310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 20 | | { |
|00005320| 57 68 65 72 65 20 6f 6e | 20 73 63 72 65 65 6e 20 |Where on| screen |
|00005330| 69 73 20 6d 65 6e 75 62 | 61 72 20 20 20 20 20 7d |is menub|ar }|
|00005340| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005350| 20 20 20 20 20 57 72 69 | 74 65 50 6f 73 20 20 20 | Wri|tePos |
|00005360| 3a 20 42 79 74 65 3b 20 | 20 20 20 20 20 20 7b 20 |: Byte; | { |
|00005370| 4c 61 73 74 20 70 6f 73 | 20 66 6f 72 20 6c 65 66 |Last pos| for lef|
|00005380| 74 2f 72 69 67 68 74 20 | 63 75 72 73 6f 72 20 7d |t/right |cursor }|
|00005390| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000053a0| 20 20 20 20 20 52 61 6e | 67 65 53 74 61 72 74 2c | Ran|geStart,|
|000053b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 20 | | { |
|000053c0| 4c 61 73 74 20 52 61 6e | 67 65 20 53 74 61 72 74 |Last Ran|ge Start|
|000053d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|000053e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000053f0| 20 20 20 20 20 52 61 6e | 67 65 53 74 6f 70 20 20 | Ran|geStop |
|00005400| 3a 20 49 6e 74 65 67 65 | 72 3b 20 20 20 20 7b 20 |: Intege|r; { |
|00005410| 4c 61 73 74 20 52 61 6e | 67 65 20 73 74 6f 70 20 |Last Ran|ge stop |
|00005420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00005430| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005440| 20 20 20 45 6e 64 3b 0d | 0a 0d 0a 20 20 20 20 20 | End;.|... |
|00005450| 50 68 6f 6e 65 54 79 70 | 65 20 3d 20 52 65 63 6f |PhoneTyp|e = Reco|
|00005460| 72 64 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |rd.. | |
|00005470| 20 20 20 20 20 20 20 54 | 61 67 20 20 3a 20 42 6f | T|ag : Bo|
|00005480| 6f 6c 65 61 6e 3b 0d 0a | 20 20 20 20 20 20 20 20 |olean;..| |
|00005490| 20 20 20 20 20 20 20 20 | 20 20 20 50 20 20 20 20 | | P |
|000054a0| 3a 20 50 68 6f 6e 65 52 | 65 63 3b 0d 0a 20 20 20 |: PhoneR|ec;.. |
|000054b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 6e | | En|
|000054c0| 64 3b 0d 0a 0d 0a 56 61 | 72 0d 0a 20 20 50 48 65 |d;....Va|r.. PHe|
|000054d0| 61 64 20 20 20 20 20 20 | 20 20 3a 20 50 68 6f 6e |ad | : Phon|
|000054e0| 65 48 65 61 64 52 65 63 | 3b 0d 0a 20 20 50 68 20 |eHeadRec|;.. Ph |
|000054f0| 20 20 20 20 20 20 20 20 | 20 20 3a 20 41 72 72 61 | | : Arra|
|00005500| 79 5b 30 2e 2e 4d 61 78 | 4e 75 6d 62 65 72 73 5d |y[0..Max|Numbers]|
|00005510| 20 6f 66 20 5e 50 68 6f | 6e 65 54 79 70 65 3b 0d | of ^Pho|neType;.|
|00005520| 0a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00005530| 20 20 20 20 7b 20 52 65 | 63 6f 72 64 20 30 20 69 | { Re|cord 0 i|
|00005540| 73 20 75 73 65 64 20 66 | 6f 72 20 6d 61 6e 75 61 |s used f|or manua|
|00005550| 6c 20 64 69 61 6c 69 6e | 67 20 7d 0d 0a 0d 0a 22 |l dialin|g }...."|
|00005560| 1e 2d 6c 68 30 2d e0 0f | 00 00 e0 0f 00 00 0f 6c |.-lh0-..|.......l|
|00005570| 6b 1c 00 00 0c 53 48 4f | 57 46 4f 4e 54 2e 45 58 |k....SHO|WFONT.EX|
|00005580| 45 f4 58 4d 5a e0 01 08 | 00 26 00 0c 00 2d 08 2d |E.XMZ...|.&...-.-|
|00005590| a8 1f 05 00 40 00 00 5a | 00 00 00 1c 00 00 00 5d |....@..Z|.......]|
|000055a0| 00 00 00 66 00 00 00 7f | 00 00 00 86 00 00 00 8b |...f....|........|
|000055b0| 00 00 00 90 00 00 00 97 | 00 00 00 a9 00 00 00 ae |........|........|
|000055c0| 00 00 00 bb 00 00 00 c0 | 00 00 00 d9 00 00 00 e6 |........|........|
|000055d0| 00 00 00 eb 00 00 00 f2 | 00 00 00 f7 00 00 00 fc |........|........|
|000055e0| 00 00 00 03 01 00 00 12 | 01 00 00 1a 01 00 00 24 |........|.......$|
|000055f0| 01 00 00 29 01 00 00 43 | 01 00 00 4a 01 00 00 4f |...)...C|...J...O|
|00005600| 01 00 00 54 01 00 00 bd | 01 00 00 48 02 00 00 78 |...T....|...H...x|
|00005610| 02 00 00 7d 02 00 00 8b | 02 00 00 01 00 29 00 1b |...}....|.....)..|
|00005620| 01 29 00 10 03 29 00 2f | 0b 29 00 4a 0b 29 00 60 |.)...)./|.).J.).`|
|00005630| 0b 29 00 7f 0b 29 00 00 | 00 00 00 00 00 00 00 00 |.)...)..|........|
|00005640| 00 00 00 19 53 79 6e 74 | 61 78 3a 20 53 48 4f 57 |....Synt|ax: SHOW|
|00005650| 46 4f 4e 54 20 66 6f 6e | 74 6e 61 6d 65 0f 43 6f |FONT fon|tname.Co|
|00005660| 75 6c 64 20 6e 6f 74 20 | 6f 70 65 6e 20 2f 53 6d |uld not |open /Sm|
|00005670| 61 6c 6c 20 66 6f 6e 74 | 0a 0a 0a 0a 0a 0a 0a 0a |all font|........|
|00005680| 0a 0d 4c 61 72 67 65 20 | 66 6f 6e 74 0a 0a 0a 0a |..Large |font....|
|00005690| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 9a 00 00 |........|........|
|000056a0| 29 00 c8 00 02 00 9a aa | 08 29 00 3d 01 00 74 2c |).......|.).=..t,|
|000056b0| bf dc 41 1e 57 8d 7e e6 | 16 57 bf 00 00 0e 57 9a |..A.W.~.|.W....W.|
|000056c0| e3 08 29 00 6a 00 9a 70 | 06 29 00 9a dd 05 29 00 |..).j..p|.)....).|
|000056d0| 9a 91 02 29 00 31 c0 9a | 16 01 29 00 bf 52 40 1e |...).1..|..)..R@.|
|000056e0| 57 8d be 00 ff 16 57 6a | 01 9a 5b 08 29 00 9a 9d |W.....Wj|..[.)...|
|000056f0| 06 29 00 bf 52 40 1e 57 | 68 00 40 9a d8 06 29 00 |.)..R@.W|h.@...).|
|00005700| 9a 8a 02 29 00 09 c0 74 | 3f bf dc 41 1e 57 8d be |...)...t|?..A.W..|
|00005710| 00 fe 16 57 bf 1a 00 0e | 57 9a e3 08 29 00 8d be |...W....|W...)...|
|00005720| 00 ff 16 57 6a 01 9a 5b | 08 29 00 9a 62 09 29 00 |...Wj..[|.)..b.).|
|00005730| 6a 00 9a 70 06 29 00 9a | dd 05 29 00 9a 91 02 29 |j..p.)..|..)....)|
|00005740| 00 31 c0 9a 16 01 29 00 | bf 52 40 1e 57 bf 52 00 |.1....).|.R@.W.R.|
|00005750| 1e 57 9a 8d 07 29 00 83 | c4 04 9a 91 02 29 00 bf |.W...)..|.....)..|
|00005760| 52 40 1e 57 9a 59 07 29 | 00 9a 91 02 29 00 b4 00 |R@.W.Y.)|....)...|
|00005770| b0 11 cd 10 bf dc 41 1e | 57 8d 7e d0 16 57 bf 2a |......A.|W.~..W.*|
|00005780| 00 0e 57 9a e3 08 29 00 | 6a 00 9a 70 06 29 00 9a |..W...).|j..p.)..|
|00005790| dd 05 29 00 9a 91 02 29 | 00 31 c0 a3 d2 40 31 c0 |..)....)|.1...@1.|
|000057a0| a3 d8 40 eb 04 ff 06 d8 | 40 31 c0 a3 d4 40 eb 04 |..@.....|@1...@..|
|000057b0| ff 06 d4 40 31 c0 a3 d6 | 40 eb 04 ff 06 d6 40 8b |...@1...|@.....@.|
|000057c0| 16 d6 40 a1 d2 40 03 06 | d4 40 8b f8 c1 e7 04 03 |..@..@..|.@......|
|000057d0| fa 81 c7 52 00 1e 57 b8 | 00 a0 50 69 06 d8 40 b0 |...R..W.|..Pi..@.|
|000057e0| 04 8b c8 a1 d4 40 d1 e0 | 8b d0 6b 06 d6 40 28 05 |.....@..|..k..@(.|
|000057f0| 40 06 03 c2 03 c1 8b f8 | 07 06 57 6a 02 9a e1 0b |@.......|..Wj....|
|00005800| 29 00 ff 06 d6 40 83 3e | d6 40 0f 75 ae 83 3e d4 |)....@.>|.@.u..>.|
|00005810| 40 1f 75 9c 83 06 d2 40 | 20 83 3e d8 40 07 75 85 |@.u....@| .>.@.u.|
|00005820| 31 c0 a3 d2 40 31 c0 a3 | da 40 eb 04 ff 06 da 40 |1...@1..|.@.....@|
|00005830| 31 c0 a3 d4 40 eb 04 ff | 06 d4 40 31 c0 a3 d8 40 |1...@...|..@1...@|
|00005840| 31 c0 a3 d6 40 eb 04 ff | 06 d6 40 8b 16 d6 40 a1 |1...@...|..@...@.|
|00005850| d2 40 03 06 d4 40 6b f8 | 30 03 fa 81 c7 52 10 1e |.@...@k.|0....R..|
|00005860| 57 b8 00 a0 50 69 06 da | 40 50 05 8b c8 a1 d4 40 |W...Pi..|@P.....@|
|00005870| c1 e0 02 8b d0 6b 06 d8 | 40 50 05 00 32 03 c2 03 |.....k..|@P..2...|
|00005880| c1 8b f8 07 06 57 6a 03 | 9a e1 0b 29 00 ff 06 d8 |.....Wj.|...)....|
|00005890| 40 83 06 d6 40 02 83 3e | d6 40 2f 75 aa 83 3e d4 |@...@..>|.@/u..>.|
|000058a0| 40 0f 75 93 83 06 d2 40 | 10 83 3e da 40 0f 74 03 |@.u....@|..>.@.t.|
|000058b0| e9 79 ff bf dc 40 1e 57 | 9a 9d 05 29 00 9a 91 02 |.y...@.W|...)....|
|000058c0| 29 00 b4 00 b0 03 cd 10 | c9 31 c0 9a 16 01 29 00 |).......|.1....).|
|000058d0| 00 00 00 ba ec 00 8e da | 8c 06 38 00 33 ed e8 0b |........|..8.3...|
|000058e0| 0c e8 a0 00 8b c4 05 13 | 00 b1 04 d3 e8 8c d2 03 |........|........|
|000058f0| c2 a3 0a 00 a3 0c 00 03 | 06 04 00 a3 0e 00 a3 18 |........|........|
|00005900| 00 a3 1c 00 a3 24 00 8e | 06 38 00 26 a1 02 00 a3 |.....$..|.8.&....|
|00005910| 20 00 c7 06 2a 00 d6 00 | 8c 0e 2c 00 bf dc 42 be | ...*...|..,...B.|
|00005920| 39 02 b9 13 00 90 fc 2e | ac b4 35 cd 21 89 1d 8c |9.......|..5.!...|
|00005930| 45 02 83 c7 04 e2 ef 1e | 0e 1f ba 0c 01 b8 00 25 |E.......|.......%|
|00005940| cd 21 ba 13 01 b8 23 25 | cd 21 ba db 00 b8 24 25 |.!....#%|.!....$%|
|00005950| cd 21 ba 04 01 b8 3f 25 | cd 21 1f b8 dc 40 1e 50 |.!....?%|.!...@.P|
|00005960| 1e 50 b8 63 02 0e 50 0e | e8 4e 02 0e e8 c8 02 b8 |.P.c..P.|.N......|
|00005970| dc 41 1e 50 1e 50 b8 63 | 02 0e 50 0e e8 3a 02 0e |.A.P.P.c|..P..:..|
|00005980| e8 b9 02 cb 33 c0 9c 5b | 80 e7 0f 53 9d 9c 59 80 |....3..[|...S..Y.|
|00005990| e5 f0 80 fd f0 74 0e 40 | 80 cf f0 53 9d 9c 59 80 |.....t.@|...S..Y.|
|000059a0| e5 f0 74 01 40 a2 4c 00 | c3 33 c0 ca 02 00 fb 83 |..t.@.L.|.3......|
|000059b0| c4 06 58 83 e7 1f 81 c7 | 96 00 80 fc 39 73 03 bf |..X.....|....9s..|
|000059c0| ff ff 57 b4 54 cd 21 8b | ec 80 4e 16 01 58 5b 59 |..W.T.!.|..N..X[Y|
|000059d0| 5a 5e 5f 5d 1f 07 cf b8 | d0 00 83 c4 06 eb 03 b8 |Z^_]....|........|
|000059e0| c8 00 59 5b eb 07 b8 ff | 00 33 c9 33 db ba ec 00 |..Y[....|.3.3....|
|000059f0| 8e da fb a3 32 00 8b c1 | 0b c3 74 3d a1 10 00 0b |....2...|..t=....|
|00005a00| c0 74 2f 8e c0 26 a1 10 | 00 0b c0 74 1b 2b c3 77 |.t/..&..|...t.+.w|
|00005a10| 17 f7 d8 3d 00 10 73 10 | ba 10 00 f7 e2 03 c1 72 |...=..s.|.......r|
|00005a20| 07 26 3b 06 08 00 72 06 | 26 a1 14 00 eb d1 8b c8 |.&;...r.|&.......|
|00005a30| 8c c3 2b 1e 38 00 83 eb | 10 89 0e 34 00 89 1e 36 |..+.8...|...4...6|
|00005a40| 00 c4 1e 2e 00 8c c0 0b | c3 74 13 33 c0 a3 2e 00 |........|.t.3....|
|00005a50| a3 30 00 a3 3c 00 b8 6e | 01 0e 50 06 53 cb b8 dc |.0..<..n|..P.S...|
|00005a60| 40 1e 50 0e e8 2a 02 b8 | dc 41 1e 50 0e e8 21 02 |@.P..*..|.A.P..!.|
|00005a70| bf dc 42 be 39 02 b9 13 | 00 90 fc 2e ac b4 25 1e |..B.9...|......%.|
|00005a80| c5 15 cd 21 1f 83 c7 04 | e2 f0 a1 34 00 0b 06 36 |...!....|...4...6|
|00005a90| 00 74 29 bb 4c 02 e8 2a | 00 a1 32 00 e8 32 00 bb |.t).L..*|..2..2..|
|00005aa0| 5b 02 e8 1e 00 a1 36 00 | e8 40 00 b0 3a e8 55 00 |[.....6.|.@..:.U.|
|00005ab0| a1 34 00 e8 35 00 bb 60 | 02 e8 07 00 a1 32 00 b4 |.4..5..`|.....2..|
|00005ac0| 4c cd 21 2e 8a 07 0a c0 | 74 06 e8 38 00 43 eb f3 |L.!.....|t..8.C..|
|00005ad0| c3 b1 64 e8 07 00 b1 0a | e8 02 00 eb 04 32 e4 f6 |..d.....|.....2..|
|00005ae0| f1 04 30 50 e8 1e 00 58 | 8a c4 c3 50 8a c4 e8 01 |..0P...X|...P....|
|00005af0| 00 58 50 b1 04 d2 e8 e8 | 03 00 58 24 0f 04 30 3c |.XP.....|..X$..0<|
|00005b00| 3a 72 02 04 07 8a d0 b4 | 06 cd 21 c3 00 02 1b 21 |:r......|..!....!|
|00005b10| 23 24 34 35 36 37 38 39 | 3a 3b 3c 3d 3e 3f 75 52 |#$456789|:;<=>?uR|
|00005b20| 75 6e 74 69 6d 65 20 65 | 72 72 6f 72 20 00 20 61 |untime e|rror . a|
|00005b30| 74 20 00 2e 0d 0a 00 33 | 6c 6a 6b 33 34 6c 33 34 |t .....3|ljk34l34|
|00005b40| 6c 6c 33 34 35 6a 33 34 | 35 6c 33 34 35 6a 35 33 |ll345j34|5l345j53|
|00005b50| 6c 34 37 6c 6b 6a 6c 32 | 33 34 33 33 33 33 c0 87 |l47lkjl2|343333..|
|00005b60| 06 3c 00 cb 83 3e 3c 00 | 00 75 01 cb a1 3c 00 e9 |.<...><.|.u...<..|
|00005b70| 70 fe 8b f4 36 8e 44 02 | 26 3b 55 02 7f 07 7c 14 |p...6.D.|&;U...|.|
|00005b80| 26 3b 05 72 0f 26 3b 55 | 06 7c 08 7f 07 26 3b 45 |&;.r.&;U|.|...&;E|
|00005b90| 04 77 01 cb b8 c9 00 e9 | 48 fe b8 d7 00 e9 42 fe |.w......|H.....B.|
|00005ba0| 05 00 02 72 0d 2b c4 73 | 09 f7 d8 3b 06 3a 00 72 |...r.+.s|...;.:.r|
|00005bb0| 01 cb b8 ca 00 e9 2a fe | ba 33 d2 8b dc 1e 36 c4 |......*.|.3....6.|
|00005bc0| 7f 08 36 c5 77 04 fc 33 | c0 ab b8 b0 d7 ab b8 80 |..6.w..3|........|
|00005bd0| 00 ab 33 c0 ab ab ab 8d | 45 74 ab 8c c0 ab b8 fa |..3.....|Et......|
|00005be0| 0a ab b8 29 00 ab 33 c0 | b9 0e 00 f3 ab b9 4f 00 |...)..3.|......O.|
|00005bf0| 0b d2 75 09 ac 3a c8 76 | 04 8a c8 e3 08 ac 0a c0 |..u..:.v|........|
|00005c00| 74 03 aa e2 f8 32 c0 aa | 1f ca 08 00 8b dc 36 c4 |t....2..|......6.|
|00005c10| 7f 0a 36 8b 47 04 26 89 | 45 04 36 8b 47 06 26 89 |..6.G.&.|E.6.G.&.|
|00005c20| 45 0c 36 8b 47 08 26 89 | 45 0e 33 c0 26 89 45 08 |E.6.G.&.|E.3.&.E.|
|00005c30| 26 89 45 0a ca 0a 00 ba | b1 d7 eb 08 ba b2 d7 eb |&.E.....|........|
|00005c40| 03 ba b3 d7 55 8b ec c4 | 7e 06 26 8b 45 02 3d b1 |....U...|~.&.E.=.|
|00005c50| d7 74 12 3d b2 d7 74 0d | 3d b0 d7 74 10 c7 06 3c |.t.=..t.|=..t...<|
|00005c60| 00 66 00 eb 24 52 06 57 | 0e e8 25 00 5a 33 c0 26 |.f..$R.W|..%.Z3.&|
|00005c70| 89 55 02 26 89 45 08 26 | 89 45 0a bb 10 00 e8 4c |.U.&.E.&|.E.....L|
|00005c80| 00 74 06 26 c7 45 02 b0 | d7 5d ca 04 00 b0 00 eb |.t.&.E..|.]......|
|00005c90| 02 b0 01 55 8b ec c4 7e | 06 26 81 7d 02 b1 d7 74 |...U...~|.&.}...t|
|00005ca0| 18 26 81 7d 02 b2 d7 74 | 08 c7 06 3c 00 67 00 eb |.&.}...t|...<.g..|
|00005cb0| 18 50 bb 14 00 e8 15 00 | 58 0a c0 74 0c bb 1c 00 |.P......|X..t....|
|00005cc0| e8 0a 00 26 c7 45 02 b0 | d7 5d ca 04 00 06 57 06 |...&.E..|.]....W.|
|00005cd0| 57 26 ff 19 0b c0 74 03 | a3 3c 00 5f 07 c3 8b dc |W&....t.|.<._....|
|00005ce0| 1e 36 c4 7f 04 26 c5 55 | 0c 26 8b 4d 04 26 8b 1d |.6...&.U|.&.M.&..|
|00005cf0| b4 3f cd 21 72 10 26 89 | 45 0a 33 c0 26 c7 45 08 |.?.!r.&.|E.3.&.E.|
|00005d00| 00 00 1f ca 04 00 26 c7 | 45 0a 00 00 eb ee 8b dc |......&.|E.......|
|00005d10| 1e 36 c4 7f 04 26 c5 55 | 0c 33 c9 26 87 4d 08 26 |.6...&.U|.3.&.M.&|
|00005d20| 8b 1d b4 40 cd 21 72 07 | 2b c1 74 03 b8 65 00 1f |...@.!r.|+.t..e..|
|00005d30| ca 04 00 8b dc 1e 36 c4 | 7f 04 26 c5 55 0c 33 c9 |......6.|..&.U.3.|
|00005d40| 26 87 4d 08 26 8b 1d b4 | 40 cd 21 72 02 33 c0 1f |&.M.&...|@.!r.3..|
|00005d50| ca 04 00 8b dc 36 c4 7f | 04 26 8b 1d 83 fb 04 76 |.....6..|.&.....v|
|00005d60| 06 b4 3e cd 21 72 02 33 | c0 ca 04 00 83 3e 3c 00 |..>.!r.3|.....><.|
|00005d70| 00 75 35 26 81 7f 02 b1 | d7 75 2e 26 8b 77 08 26 |.u5&....|.u.&.w.&|
|00005d80| 3b 77 0a 74 2b 1e 06 53 | 52 26 c5 57 0c 26 8b 5f |;w.t+..S|R&.W.&._|
|00005d90| 0a 07 03 da 03 f2 fc ff | d0 2b f2 8c c2 5b 07 1f |........|.+...[..|
|00005da0| 26 89 77 08 0b c0 75 08 | c3 c7 06 3c 00 68 00 c3 |&.w...u.|...<.h..|
|00005db0| 50 51 52 57 06 53 e8 33 | 01 5b 07 5f 5a 59 58 26 |PQRW.S.3|.[._ZYX&|
|00005dc0| 8b 77 08 26 3b 77 0a 75 | bc c3 83 3e 3c 00 00 75 |.w.&;w.u|...><..u|
|00005dd0| 40 26 81 7f 02 b2 d7 75 | 39 26 8b 4f 04 26 8b 7f |@&.....u|9&.O.&..|
|00005de0| 08 2b cf 2b d1 73 04 03 | ca 33 d2 06 26 c4 77 0c |.+.+.s..|.3..&.w.|
|00005df0| 03 fe b0 20 fc f3 aa 2b | fe 07 26 89 7f 08 26 3b |... ...+|..&...&;|
|00005e00| 7f 04 75 09 52 06 53 e8 | e2 00 5b 07 5a 0b d2 75 |..u.R.S.|..[.Z..u|
|00005e10| c8 c3 c7 06 3c 00 69 00 | c3 83 3e 3c 00 00 75 48 |....<.i.|..><..uH|
|00005e20| 26 81 7f 02 b2 d7 75 41 | 26 8b 4f 04 26 8b 7f 08 |&.....uA|&.O.&...|
|00005e30| 2b cf 2b c1 73 04 03 c8 | 33 c0 1e 06 53 8e da 26 |+.+.s...|3...S..&|
|00005e40| c4 5f 0c 03 fb fc f3 a4 | 2b fb 5b 07 1f 26 89 7f |._......|+.[..&..|
|00005e50| 08 26 3b 7f 04 75 0d 50 | 52 56 06 53 e8 8d 00 5b |.&;..u.P|RV.S...[|
|00005e60| 07 5e 5a 58 0b c0 75 c0 | c3 c7 06 3c 00 69 00 c3 |.^ZX..u.|...<.i..|
|00005e70| 55 8b ec c4 5e 06 b8 bb | 05 33 d2 e8 ee fe 75 0a |U...^...|.3....u.|
|00005e80| 26 83 7f 1a 00 74 03 e8 | 70 00 5d ca 04 00 ac 3c |&....t..|p.]....<|
|00005e90| 0d 74 0c 3c 1a 74 11 3b | f3 75 f3 b8 bb 05 c3 3b |.t.<.t.;|.u.....;|
|00005ea0| f3 74 09 ac 3c 0a 74 01 | 4e 33 c0 c3 b8 d0 05 c3 |.t..<.t.|N3......|
|00005eb0| 55 8b ec c4 5e 06 b8 02 | 00 be 50 00 8c da e8 58 |U...^...|..P....X|
|00005ec0| ff 75 0a 26 83 7f 1a 00 | 74 03 e8 2d 00 5d ca 04 |.u.&....|t..-.]..|
|00005ed0| 00 55 8b ec c4 5e 06 26 | 83 7f 1a 00 74 0a 83 3e |.U...^.&|....t..>|
|00005ee0| 3c 00 00 75 03 e8 12 00 | 5d ca 04 00 06 53 26 ff |<..u....|]....S&.|
|00005ef0| 5f 14 0b c0 74 03 a3 3c | 00 c3 06 53 26 ff 5f 18 |_...t..<|...S&._.|
|00005f00| 0b c0 74 03 a3 3c 00 c3 | 55 8b ec c4 5e 0c b8 58 |..t..<..|U...^..X|
|00005f10| 06 8b 4e 06 8b 7e 08 8b | 56 0a 47 e8 4e fe 8b c7 |..N..~..|V.G.N...|
|00005f20| c4 7e 08 2b c7 48 aa 5d | ca 06 00 ac 3c 0d 74 0f |.~.+.H.]|....<.t.|
|00005f30| 3c 1a 74 0b aa 3b f3 e0 | f2 e3 05 b8 58 06 c3 4e |<.t..;..|....X..N|
|00005f40| 33 c0 c3 55 8b ec c4 5e | 08 26 8a 07 32 e4 c4 5e |3..U...^|.&..2..^|
|00005f50| 0c 8b 56 06 2b d0 7e 05 | 50 e8 6e fe 58 0b c0 74 |..V.+.~.|P.n.X..t|
|00005f60| 0a 8b 76 08 8b 56 0a 46 | e8 ae fe 5d ca 06 00 ba |..v..V.F|...]....|
|00005f70| 33 d2 8b dc 1e 36 c4 7f | 08 36 c5 77 04 fc 33 c0 |3....6..|.6.w..3.|
|00005f80| ab b8 b0 d7 ab 33 c0 b9 | 16 00 f3 ab b9 4f 00 0b |.....3..|.....O..|
|00005f90| d2 75 09 ac 3a c8 76 04 | 8a c8 e3 08 ac 0a c0 74 |.u..:.v.|.......t|
|00005fa0| 03 aa e2 f8 32 c0 aa 1f | ca 08 00 a0 4e 00 b4 3d |....2...|....N..=|
|00005fb0| 33 d2 eb 06 b8 00 3c ba | 01 00 55 8b ec c4 7e 08 |3.....<.|..U...~.|
|00005fc0| 26 81 7d 02 b0 d7 74 1a | 26 81 7d 02 b3 d7 74 08 |&.}...t.|&.}...t.|
|00005fd0| c7 06 3c 00 66 00 eb 34 | 50 52 06 57 0e e8 4c 00 |..<.f..4|PR.W..L.|
|00005fe0| 5a 58 26 80 7d 30 00 74 | 12 1e 8d 55 30 06 1f 33 |ZX&.}0.t|...U0..3|
|00005ff0| c9 cd 21 1f 73 06 a3 3c | 00 eb 11 92 26 c7 45 02 |..!.s..<|....&.E.|
|00006000| b3 d7 26 89 05 8b 46 06 | 26 89 45 04 5d ca 06 00 |..&...F.|&.E.]...|
|00006010| 8b dc 36 c4 7f 04 e8 38 | 00 75 0e 33 c9 26 8b 1d |..6....8|.u.3.&..|
|00006020| b4 40 cd 21 73 03 a3 3c | 00 ca 04 00 8b dc 36 c4 |.@.!s..<|......6.|
|00006030| 7f 04 e8 1c 00 75 17 26 | 8b 1d 83 fb 04 76 09 b4 |.....u.&|.....v..|
|00006040| 3e cd 21 73 03 a3 3c 00 | 26 c7 45 02 b0 d7 ca 04 |>.!s..<.|&.E.....|
|00006050| 00 26 81 7d 02 b3 d7 74 | 06 c7 06 3c 00 67 00 c3 |.&.}...t|...<.g..|
|00006060| b4 3f ba 64 00 eb 05 b4 | 40 ba 65 00 55 8b ec c4 |.?.d....|@.e.U...|
|00006070| 7e 0a e8 dc ff 75 1b 1e | 52 c5 56 06 26 8b 4d 04 |~....u..|R.V.&.M.|
|00006080| 26 8b 1d cd 21 5a 1f 72 | 06 3b c1 74 05 8b c2 a3 |&...!Z.r|.;.t....|
|00006090| 3c 00 5d ca 04 00 b3 3f | b9 64 00 eb 05 b3 40 b9 |<.]....?|.d....@.|
|000060a0| 65 00 55 8b ec c4 7e 10 | e8 a6 ff 75 3f 8b 46 0a |e.U...~.|...u?.F.|
|000060b0| 0b c0 74 1c 1e 51 26 f7 | 65 04 8b c8 c5 56 0c 8a |..t..Q&.|e....V..|
|000060c0| e3 26 8b 1d cd 21 59 1f | 72 1f 33 d2 26 f7 75 04 |.&...!Y.|r.3.&.u.|
|000060d0| c4 7e 06 8c c2 0b d7 74 | 05 26 89 05 eb 1c 3b 46 |.~.....t|.&....;F|
|000060e0| 0a 74 17 89 0e 3c 00 eb | 11 a3 3c 00 c4 7e 06 8c |.t...<..|..<..~..|
|000060f0| c2 0b d7 74 05 33 c0 26 | 89 05 5d ca 0e 00 55 8b |...t.3.&|..]...U.|
|00006100| ec c4 7e 0a e8 4a ff 75 | 21 8b 46 08 26 f7 65 04 |..~..J.u|!.F.&.e.|
|00006110| 8b c8 8b 46 06 26 f7 65 | 04 03 ca 8b d0 26 8b 1d |...F.&.e|.....&..|
|00006120| b8 00 42 cd 21 73 03 a3 | 3c 00 5d ca 08 00 55 8b |..B.!s..|<.]...U.|
|00006130| ec 8b 56 06 0b d2 74 05 | e8 49 00 eb 30 b4 30 cd |..V...t.|.I..0.0.|
|00006140| 21 3c 03 b8 00 00 72 25 | 8e 06 38 00 26 8e 06 2c |!<....r%|..8.&..,|
|00006150| 00 33 ff fc 26 3a 05 74 | 07 b9 ff ff f2 ae eb f4 |.3..&:.t|........|
|00006160| 83 c7 03 8b f7 b9 00 01 | f2 ae 91 f6 d0 1e 06 1f |........|........|
|00006170| c4 7e 08 fc aa 91 f3 a4 | 1f 5d ca 02 00 33 d2 e8 |.~......|.]...3..|
|00006180| 02 00 93 cb 8e 06 38 00 | bf 80 00 26 8a 0d 32 ed |......8.|...&..2.|
|00006190| 47 33 db e3 09 26 80 3d | 20 77 03 47 e2 f7 8b f7 |G3...&.=| w.G....|
|000061a0| e3 09 26 80 3d 20 76 03 | 47 e2 f7 8b c7 2b c6 74 |..&.= v.|G....+.t|
|000061b0| 04 43 4a 75 de c3 fc 8b | dc 8c da 36 c4 7f 08 36 |.CJu....|...6...6|
|000061c0| c5 77 04 ac aa 8a c8 32 | ed f3 a4 8e da ca 04 00 |.w.....2|........|
|000061d0| fc 8b dc 8c da 36 c5 77 | 0a 36 c4 7f 06 36 8b 4f |.....6.w|.6...6.O|
|000061e0| 04 ac 3a c1 76 02 8a c1 | aa 8a c8 32 ed f3 a4 8e |..:.v...|...2....|
|000061f0| da ca 0a 00 fc 8b dc 8c | da 36 c4 7f 0c 36 c5 77 |........|.6...6.w|
|00006200| 08 8a 04 32 e4 36 8b 4f | 06 0b c9 7f 03 b9 01 00 |...2.6.O|........|
|00006210| 03 f1 2b c1 72 13 40 36 | 8b 4f 04 0b c9 7d 02 33 |..+.r.@6|.O...}.3|
|00006220| c9 3b c1 76 06 8b c1 eb | 02 33 c0 aa 8b c8 f3 a4 |.;.v....|.3......|
|00006230| 8e da ca 08 00 fc 8b dc | 8c da 36 c4 7f 08 36 c5 |........|..6...6.|
|00006240| 77 04 26 8a 0d 32 ed ac | 26 00 05 73 08 26 c6 05 |w.&..2..|&..s.&..|
|00006250| ff 8a c1 f6 d0 03 f9 47 | 8a c8 f3 a4 8e da ca 04 |.......G|........|
|00006260| 00 55 8b ec 1e c5 76 0a | fc ac 0a c0 74 2c 8a d0 |.U....v.|....t,..|
|00006270| 32 f6 c4 7e 06 26 8a 0d | 32 ed 2b ca 72 1c 41 47 |2..~.&..|2.+.r.AG|
|00006280| ac f2 ae 75 15 8b c7 8b | d9 8b ca 49 f3 a6 74 0e |...u....|...I..t.|
|00006290| 8b f8 8b cb 8b 76 0a 46 | eb e6 33 c0 eb 04 48 2b |.....v.F|..3...H+|
|000062a0| 46 06 1f 5d ca 08 00 fc | 8b dc 8c da 36 c5 77 08 |F..]....|....6.w.|
|000062b0| 36 c4 7f 04 ac 26 8a 25 | 47 8a c8 3a cc 76 02 8a |6....&.%|G..:.v..|
|000062c0| cc 0a c9 74 06 32 ed f3 | a6 75 02 3a c4 8e da ca |...t.2..|.u.:....|
|000062d0| 08 00 fc 8b dc 36 c4 7f | 06 b0 01 aa 36 8a 47 04 |.....6..|....6.G.|
|000062e0| aa ca 02 00 fc 8b dc 8c | da 36 c4 7f 0a 36 c5 77 |........|.6...6.w|
|000062f0| 06 36 8b 47 04 aa 8b c8 | f3 a4 8e da ca 06 00 55 |.6.G....|.......U|
|00006300| 8b ec 81 ec 00 02 83 7e | 06 01 7d 05 c7 46 06 01 |.......~|..}..F..|
|00006310| 00 8d be 00 ff 16 57 c4 | 7e 0a 06 57 b8 01 00 50 |......W.|~..W...P|
|00006320| 8b 46 06 48 50 0e e8 cb | fe c4 7e 0e 06 57 0e e8 |.F.HP...|..~..W..|
|00006330| 03 ff 8d be 00 fe 16 57 | c4 7e 0a 06 57 ff 76 06 |.......W|.~..W.v.|
|00006340| b8 ff 00 50 0e e8 ac fe | 0e e8 e9 fe c4 7e 0a 06 |...P....|.....~..|
|00006350| 57 ff 76 08 0e e8 78 fe | 8b e5 5d ca 0c 00 55 8b |W.v...x.|..]...U.|
|00006360| ec 81 ec 00 02 83 7e 06 | 00 7e 5c 83 7e 08 00 7e |......~.|.~\.~..~|
|00006370| 56 81 7e 08 ff 00 7f 4f | 81 7e 06 ff 00 7e 05 c7 |V.~....O|.~...~..|
|00006380| 46 06 ff 00 8d be 00 ff | 16 57 c4 7e 0a 06 57 b8 |F.......|.W.~..W.|
|00006390| 01 00 50 8b 46 08 48 50 | 0e e8 58 fe 8d be 00 fe |..P.F.HP|..X.....|
|000063a0| 16 57 c4 7e 0a 06 57 8b | 46 08 03 46 06 50 b8 ff |.W.~..W.|F..F.P..|
|000063b0| 00 50 0e e8 3e fe 0e e8 | 7b fe c4 7e 0a 06 57 b8 |.P..>...|{..~..W.|
|000063c0| ff 00 50 0e e8 09 fe 8b | e5 5d ca 08 00 8b dc 1e |..P.....|.]......|
|000063d0| 36 c5 7f 04 33 c9 89 0d | b8 00 3d 81 7d 02 b1 d7 |6...3...|..=.}...|
|000063e0| 74 0d b0 02 ff 05 81 7d | 02 b3 d7 74 02 b4 3c 80 |t......}|...t..<.|
|000063f0| 7d 30 00 74 09 8d 55 30 | cd 21 72 5a 89 05 b8 0b |}0.t..U0|.!rZ....|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
