home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1994-05-19 | 115.5 KB | [STAK/WILD] |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: Hytelnet 6.7.1
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| HyperCard Stack (archive/hypercard)
| idMeta
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| PageFocus Data (other/pageFocusData)
| ext
| Unsupported |
| 1%
| dexvert
| Banyans VINES patch data (other/banyansVINESPatchData)
| ext
| Unsupported |
| 100%
| file
| MacBinary II, Thu Apr 8 17:44:41 1993, modified Thu May 19 09:06:48 1994, creator HyperCard, type HyperCard stack, 57536 bytes "Hytelnet 6.7.1" , at 0xe140 60471 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Mac HyperCard stack (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [STAK] |
| macFileCreator | [WILD] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 48 79 74 65 6c 6e | 65 74 20 36 2e 37 2e 31 |..Hyteln|et 6.7.1|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 00 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 00 e0 c0 00 | 00 ec 37 a7 ea 4d 49 aa |........|..7..MI.|
|00000060| 01 14 e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ce 41 00 00 |........|.....A..|
|00000080| 00 00 6e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..n.STAK|........|
|00000090| 00 00 00 0a 00 00 e0 c0 | 00 00 6e 00 00 00 00 00 |........|..n.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a 1c 00 00 00 01 |........|........|
|000000b0| 00 00 0b 5c 00 00 0e b2 | 00 00 00 00 00 00 00 00 |...\....|........|
|000000c0| 00 00 08 5e 00 00 00 00 | 00 05 00 00 10 00 00 00 |...^....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 20 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |. ......|........|
|000000f0| e0 37 55 3c 00 00 00 00 | 00 45 00 40 01 9b 02 40 |.7U<....|.E.@...@|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 93 00 00 0c cd | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 54 68 65 20 46 | 75 6c 6c 48 70 6f 70 75 |-- The F|ullHpopu|
|00000690| 70 20 58 46 43 4e 69 73 | 20 66 72 6f 6d 20 a9 20 |p XFCNis| from . |
|000006a0| 46 2e 20 52 69 6e 61 6c | 64 69 20 2d 20 31 39 38 |F. Rinal|di - 198|
|000006b0| 39 2c 31 39 39 30 2c 31 | 39 39 31 0d 2d 2d 20 69 |9,1990,1|991.-- i|
|000006c0| 74 20 69 73 20 61 76 61 | 69 6c 61 62 6c 65 20 61 |t is ava|ilable a|
|000006d0| 73 20 66 72 65 65 77 61 | 72 65 20 66 6f 72 20 6e |s freewa|re for n|
|000006e0| 6f 6e 65 20 63 6f 6d 6d | 65 72 63 69 61 6c 20 73 |one comm|ercial s|
|000006f0| 74 61 63 6b 73 2e 0d 2d | 2d 20 54 68 65 20 46 75 |tacks..-|- The Fu|
|00000700| 6c 6c 73 6f 72 74 20 58 | 46 43 4e 20 69 73 20 70 |llsort X|FCN is p|
|00000710| 61 72 74 20 6f 66 20 74 | 68 65 20 44 61 72 74 6d |art of t|he Dartm|
|00000720| 6f 75 74 68 20 58 43 4d | 44 27 73 20 2d 20 31 39 |outh XCM|D's - 19|
|00000730| 38 38 2d 31 39 39 33 0d | 2d 2d 20 69 74 20 69 73 |88-1993.|-- it is|
|00000740| 20 61 76 61 69 6c 61 62 | 6c 65 20 61 73 20 66 72 | availab|le as fr|
|00000750| 65 65 77 61 72 65 20 66 | 6f 72 20 6e 6f 6e 65 20 |eeware f|or none |
|00000760| 63 6f 6d 6d 65 72 63 69 | 61 6c 20 73 74 61 63 6b |commerci|al stack|
|00000770| 73 2e 0d 2d 2d 20 54 68 | 69 73 20 73 74 61 63 6b |s..-- Th|is stack|
|00000780| 20 77 61 73 20 63 72 65 | 61 74 65 64 20 62 79 20 | was cre|ated by |
|00000790| 43 2e 41 2e 20 42 75 72 | 63 68 69 6c 6c 2e 0d 2d |C.A. Bur|chill..-|
|000007a0| 2d 20 3c 62 75 72 63 68 | 69 6c 40 63 63 2e 75 6d |- <burch|il@cc.um|
|000007b0| 61 6e 69 74 6f 62 61 2e | 63 61 3e 0d 6f 6e 20 6f |anitoba.|ca>.on o|
|000007c0| 70 65 6e 73 74 61 63 6b | 0d 67 6c 6f 62 61 6c 20 |penstack|.global |
|000007d0| 70 61 74 68 2c 67 6f 62 | 61 63 6b 2c 66 6c 6e 6d |path,gob|ack,flnm|
|000007e0| 65 2c 20 70 72 6f 67 43 | 68 65 63 6b 0d 73 65 74 |e, progC|heck.set|
|000007f0| 20 74 68 65 20 6c 6f 63 | 6b 73 63 72 65 65 6e 20 | the loc|kscreen |
|00000800| 74 6f 20 74 72 75 65 0d | 69 66 20 63 64 20 66 6c |to true.|if cd fl|
|00000810| 64 20 22 6e 65 74 70 61 | 74 68 22 20 69 73 20 65 |d "netpa|th" is e|
|00000820| 6d 70 74 79 20 74 68 65 | 6e 20 2d 2d 20 63 68 65 |mpty the|n -- che|
|00000830| 63 6b 20 69 66 20 74 68 | 65 20 64 61 74 61 20 66 |ck if th|e data f|
|00000840| 69 6c 65 73 20 61 72 65 | 20 6e 6f 74 20 6c 6f 63 |iles are| not loc|
|00000850| 61 74 65 64 20 69 6e 20 | 74 68 65 20 73 61 6d 65 |ated in |the same|
|00000860| 20 64 69 72 20 61 73 20 | 74 68 69 73 20 73 74 61 | dir as |this sta|
|00000870| 63 6b 0d 70 75 74 20 74 | 68 65 20 6c 6f 6e 67 20 |ck.put t|he long |
|00000880| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 73 74 61 |name of |this sta|
|00000890| 63 6b 20 69 6e 74 6f 20 | 6c 6f 6e 67 70 61 74 68 |ck into |longpath|
|000008a0| 0d 64 65 6c 65 74 65 20 | 63 68 61 72 20 31 20 74 |.delete |char 1 t|
|000008b0| 6f 20 37 20 6f 66 20 6c | 6f 6e 67 70 61 74 68 20 |o 7 of l|ongpath |
|000008c0| 2d 2d 20 74 68 69 73 20 | 69 73 20 74 68 65 20 22 |-- this |is the "|
|000008d0| 73 74 61 63 6b 20 22 22 | 20 70 61 72 74 20 6f 66 |stack ""| part of|
|000008e0| 20 74 68 65 20 6c 69 6e | 65 2e 0d 70 75 74 20 67 | the lin|e..put g|
|000008f0| 65 74 70 61 74 68 28 6c | 6f 6e 67 70 61 74 68 29 |etpath(l|ongpath)|
|00000900| 20 26 20 22 3a 48 79 74 | 65 6c 6e 65 74 20 64 61 | & ":Hyt|elnet da|
|00000910| 74 61 3a 22 20 69 6e 74 | 6f 20 70 61 74 68 20 20 |ta:" int|o path |
|00000920| 2d 2d 20 73 65 65 20 74 | 68 65 20 67 65 74 70 61 |-- see t|he getpa|
|00000930| 74 68 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |th.-- | |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 66 75 6e 63 74 | | funct|
|00000970| 69 6f 6e 20 62 65 6c 6f | 77 2e 20 20 49 74 20 75 |ion belo|w. It u|
|00000980| 73 65 20 63 6f 6d 6d 6f | 6e 6c 79 20 75 73 65 64 |se commo|nly used|
|00000990| 20 69 6e 20 74 68 69 73 | 20 73 74 61 63 6b 0d 65 | in this| stack.e|
|000009a0| 6c 73 65 0d 70 75 74 20 | 63 64 20 66 6c 64 20 22 |lse.put |cd fld "|
|000009b0| 6e 65 74 70 61 74 68 22 | 20 20 69 6e 74 6f 20 70 |netpath"| into p|
|000009c0| 61 74 68 20 2d 2d 20 67 | 65 74 20 74 68 65 20 6c |ath -- g|et the l|
|000009d0| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 64 |ocation |of the d|
|000009e0| 61 74 61 20 66 69 6c 65 | 73 2e 0d 2d 2d 20 20 20 |ata file|s..-- |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a10| 20 54 68 65 20 6e 65 74 | 70 61 74 68 20 66 6c 64 | The net|path fld|
|00000a20| 20 69 73 20 68 69 64 64 | 65 6e 20 61 6e 64 20 63 | is hidd|en and c|
|00000a30| 6f 6e 74 61 69 6e 73 20 | 74 68 65 20 70 61 74 68 |ontains |the path|
|00000a40| 20 74 6f 20 74 68 65 20 | 64 61 74 61 20 66 69 6c | to the |data fil|
|00000a50| 65 73 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 65 6d |es.end i|f.put em|
|00000a60| 70 74 79 20 69 6e 74 6f | 20 67 6f 62 61 63 6b 0d |pty into| goback.|
|00000a70| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 66 |put empt|y into f|
|00000a80| 6c 6e 6d 65 0d 70 75 74 | 20 30 20 69 6e 74 6f 20 |lnme.put| 0 into |
|00000a90| 70 72 6f 67 43 68 65 63 | 6b 0d 68 69 64 65 20 63 |progChec|k.hide c|
|00000aa0| 61 72 64 20 66 69 65 6c | 64 20 22 68 65 6c 70 22 |ard fiel|d "help"|
|00000ab0| 0d 70 75 74 20 22 53 54 | 41 52 54 2e 54 58 54 22 |.put "ST|ART.TXT"|
|00000ac0| 20 69 6e 74 6f 20 66 6c | 6e 6d 65 0d 6d 65 6e 75 | into fl|nme.menu|
|00000ad0| 73 65 74 20 2d 2d 20 4d | 61 6b 65 20 74 68 65 20 |set -- M|ake the |
|00000ae0| 48 79 74 65 6c 6e 65 74 | 20 6d 65 6e 75 2c 20 64 |Hytelnet| menu, d|
|00000af0| 65 6c 65 74 65 20 75 6e | 75 73 65 64 20 6d 65 6e |elete un|used men|
|00000b00| 75 73 0d 66 69 6c 65 6d | 61 6e 20 2d 2d 20 6f 70 |us.filem|an -- op|
|00000b10| 65 6e 20 61 20 66 69 6c | 65 20 61 6e 64 20 64 69 |en a fil|e and di|
|00000b20| 73 70 6c 61 79 20 69 74 | 73 20 6e 61 6d 65 20 69 |splay it|s name i|
|00000b30| 6e 20 74 68 65 20 66 69 | 6c 65 6e 61 6d 65 20 63 |n the fi|lename c|
|00000b40| 64 20 66 6c 64 0d 73 65 | 6e 64 20 6d 6f 75 73 65 |d fld.se|nd mouse|
|00000b50| 75 70 20 74 6f 20 63 61 | 72 64 20 62 75 74 74 6f |up to ca|rd butto|
|00000b60| 6e 20 22 64 6f 6e 65 22 | 0d 73 65 74 20 74 68 65 |n "done"|.set the|
|00000b70| 20 6c 6f 63 6b 73 63 72 | 65 65 6e 20 74 6f 20 66 | lockscr|een to f|
|00000b80| 61 6c 73 65 0d 65 6e 64 | 20 6f 70 65 6e 73 74 61 |alse.end| opensta|
|00000b90| 63 6b 0d 6f 6e 20 43 6c | 6f 73 65 73 74 61 63 6b |ck.on Cl|osestack|
|00000ba0| 0d 73 65 6e 64 20 6d 6f | 75 73 65 75 70 20 74 6f |.send mo|useup to|
|00000bb0| 20 63 64 20 62 75 74 74 | 6f 6e 20 22 64 6f 6e 65 | cd butt|on "done|
|00000bc0| 22 0d 68 69 64 65 20 63 | 61 72 64 20 66 69 65 6c |".hide c|ard fiel|
|00000bd0| 64 20 22 68 65 6c 70 22 | 0d 73 68 72 69 6e 6b 65 |d "help"|.shrinke|
|00000be0| 72 20 20 2d 2d 20 63 68 | 65 63 6b 20 74 68 65 20 |r -- ch|eck the |
|00000bf0| 66 72 65 65 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |freesize| of the |
|00000c00| 73 74 61 63 6b 20 61 6e | 64 20 63 6f 6d 70 61 63 |stack an|d compac|
|00000c10| 74 20 69 66 20 6e 65 63 | 63 65 73 73 61 72 79 2e |t if nec|cessary.|
|00000c20| 0d 72 65 73 65 74 20 6d | 65 6e 75 62 61 72 0d 65 |.reset m|enubar.e|
|00000c30| 6e 64 20 63 6c 6f 73 65 | 73 74 61 63 6b 0d 6f 6e |nd close|stack.on|
|00000c40| 20 73 75 73 70 65 6e 64 | 53 74 61 63 6b 0d 72 65 | suspend|Stack.re|
|00000c50| 73 65 74 20 6d 65 6e 75 | 62 61 72 0d 65 6e 64 20 |set menu|bar.end |
|00000c60| 73 75 73 70 65 6e 64 53 | 74 61 63 6b 0d 6f 6e 20 |suspendS|tack.on |
|00000c70| 72 65 73 75 6d 65 53 74 | 61 63 6b 0d 72 65 73 65 |resumeSt|ack.rese|
|00000c80| 74 20 6d 65 6e 75 62 61 | 72 0d 6d 65 6e 75 73 65 |t menuba|r.menuse|
|00000c90| 74 0d 65 6e 64 20 72 65 | 73 75 6d 65 53 74 61 63 |t.end re|sumeStac|
|00000ca0| 6b 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 67 65 74 70 |k..funct|ion getp|
|00000cb0| 61 74 68 20 6c 6f 6e 67 | 70 61 74 68 20 20 2d 2d |ath long|path --|
|00000cc0| 20 52 65 74 75 72 6e 73 | 20 74 68 65 20 70 61 74 | Returns| the pat|
|00000cd0| 68 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 73 |h name o|f this s|
|00000ce0| 74 61 63 6b 2e 0d 70 75 | 74 20 74 68 65 20 6e 75 |tack..pu|t the nu|
|00000cf0| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 61 63 74 65 |mber of |characte|
|00000d00| 72 73 20 69 6e 20 6c 6f | 6e 67 70 61 74 68 20 69 |rs in lo|ngpath i|
|00000d10| 6e 74 6f 20 73 74 72 69 | 70 6c 61 73 74 0d 72 65 |nto stri|plast.re|
|00000d20| 70 65 61 74 0d 70 75 74 | 20 63 68 61 72 20 73 74 |peat.put| char st|
|00000d30| 72 69 70 6c 61 73 74 20 | 6f 66 20 6c 6f 6e 67 70 |riplast |of longp|
|00000d40| 61 74 68 20 69 6e 74 6f | 20 74 65 73 74 69 74 0d |ath into| testit.|
|00000d50| 64 65 6c 65 74 65 20 6c | 61 73 74 20 63 68 61 72 |delete l|ast char|
|00000d60| 20 6f 66 20 6c 6f 6e 67 | 70 61 74 68 0d 73 75 62 | of long|path.sub|
|00000d70| 74 72 61 63 74 20 31 20 | 66 72 6f 6d 20 73 74 72 |tract 1 |from str|
|00000d80| 69 70 6c 61 73 74 0d 69 | 66 20 74 65 73 74 69 74 |iplast.i|f testit|
|00000d90| 20 3d 20 22 3a 22 20 74 | 68 65 6e 20 65 78 69 74 | = ":" t|hen exit|
|00000da0| 20 72 65 70 65 61 74 0d | 65 6e 64 20 72 65 70 65 | repeat.|end repe|
|00000db0| 61 74 0d 72 65 74 75 72 | 6e 20 28 6c 6f 6e 67 70 |at.retur|n (longp|
|00000dc0| 61 74 68 29 0d 65 6e 64 | 20 67 65 74 70 61 74 68 |ath).end| getpath|
|00000dd0| 0d 6f 6e 20 6d 65 6e 75 | 73 65 74 0d 68 69 64 65 |.on menu|set.hide|
|00000de0| 20 6d 65 6e 75 62 61 72 | 0d 73 65 74 20 75 73 65 | menubar|.set use|
|00000df0| 72 6c 65 76 65 6c 20 74 | 6f 20 35 0d 72 65 73 65 |rlevel t|o 5.rese|
|00000e00| 74 20 6d 65 6e 75 62 61 | 72 0d 64 65 6c 65 74 65 |t menuba|r.delete|
|00000e10| 20 6d 65 6e 75 20 22 66 | 6f 6e 74 22 0d 64 65 6c | menu "f|ont".del|
|00000e20| 65 74 65 20 6d 65 6e 75 | 20 22 53 74 79 6c 65 22 |ete menu| "Style"|
|00000e30| 0d 64 65 6c 65 74 65 20 | 6d 65 6e 75 20 22 6f 62 |.delete |menu "ob|
|00000e40| 6a 65 63 74 73 22 0d 64 | 65 6c 65 74 65 20 6d 65 |jects".d|elete me|
|00000e50| 6e 75 20 22 74 6f 6f 6c | 73 22 0d 64 65 6c 65 74 |nu "tool|s".delet|
|00000e60| 65 20 6d 65 6e 75 69 74 | 65 6d 20 22 6e 65 77 20 |e menuit|em "new |
|00000e70| 63 61 72 64 22 20 66 72 | 6f 6d 20 6d 65 6e 75 20 |card" fr|om menu |
|00000e80| 22 65 64 69 74 22 0d 64 | 65 6c 65 74 65 20 6d 65 |"edit".d|elete me|
|00000e90| 6e 75 69 74 65 6d 20 22 | 64 65 6c 65 74 65 20 63 |nuitem "|delete c|
|00000ea0| 61 72 64 22 20 66 72 6f | 6d 20 6d 65 6e 75 20 22 |ard" fro|m menu "|
|00000eb0| 65 64 69 74 22 0d 64 65 | 6c 65 74 65 20 6d 65 6e |edit".de|lete men|
|00000ec0| 75 69 74 65 6d 20 22 63 | 75 74 20 63 61 72 64 22 |uitem "c|ut card"|
|00000ed0| 20 66 72 6f 6d 20 6d 65 | 6e 75 20 22 65 64 69 74 | from me|nu "edit|
|00000ee0| 22 0d 64 65 6c 65 74 65 | 20 6d 65 6e 75 69 74 65 |".delete| menuite|
|00000ef0| 6d 20 22 63 6f 70 79 20 | 63 61 72 64 22 20 66 72 |m "copy |card" fr|
|00000f00| 6f 6d 20 6d 65 6e 75 20 | 22 65 64 69 74 22 0d 64 |om menu |"edit".d|
|00000f10| 65 6c 65 74 65 20 6d 65 | 6e 75 69 74 65 6d 20 22 |elete me|nuitem "|
|00000f20| 74 65 78 74 20 73 74 79 | 6c 65 2e 2e 2e 22 20 66 |text sty|le..." f|
|00000f30| 72 6f 6d 20 6d 65 6e 75 | 20 22 65 64 69 74 22 0d |rom menu| "edit".|
|00000f40| 64 65 6c 65 74 65 20 6d | 65 6e 75 69 74 65 6d 20 |delete m|enuitem |
|00000f50| 22 62 61 63 6b 67 72 6f | 75 6e 64 22 20 66 72 6f |"backgro|und" fro|
|00000f60| 6d 20 6d 65 6e 75 20 22 | 65 64 69 74 22 0d 64 65 |m menu "|edit".de|
|00000f70| 6c 65 74 65 20 6d 65 6e | 75 69 74 65 6d 20 22 69 |lete men|uitem "i|
|00000f80| 63 6f 6e 2e 2e 2e 22 20 | 66 72 6f 6d 20 6d 65 6e |con..." |from men|
|00000f90| 75 20 22 65 64 69 74 22 | 0d 64 65 6c 65 74 65 20 |u "edit"|.delete |
|00000fa0| 6c 61 73 74 20 6d 65 6e | 75 69 74 65 6d 20 66 72 |last men|uitem fr|
|00000fb0| 6f 6d 20 6d 65 6e 75 20 | 22 65 64 69 74 22 20 20 |om menu |"edit" |
|00000fc0| 2d 2d 20 64 65 6c 65 74 | 65 20 74 68 65 20 6c 69 |-- delet|e the li|
|00000fd0| 6e 65 73 20 6c 65 66 74 | 20 61 66 74 65 72 0d 64 |nes left| after.d|
|00000fe0| 65 6c 65 74 65 20 6c 61 | 73 74 20 6d 65 6e 75 69 |elete la|st menui|
|00000ff0| 74 65 6d 20 66 72 6f 6d | 20 6d 65 6e 75 20 22 65 |tem from| menu "e|
|00001000| 64 69 74 22 20 20 2d 2d | 20 61 62 6f 76 65 20 69 |dit" --| above i|
|00001010| 74 6d 65 73 20 64 65 6c | 65 74 65 64 0d 64 65 6c |tmes del|eted.del|
|00001020| 65 74 65 20 6d 65 6e 75 | 69 74 65 6d 20 22 70 72 |ete menu|item "pr|
|00001030| 6f 74 65 63 74 20 73 74 | 61 63 6b 2e 2e 2e 22 20 |otect st|ack..." |
|00001040| 66 72 6f 6d 20 6d 65 6e | 75 20 22 66 69 6c 65 22 |from men|u "file"|
|00001050| 0d 64 65 6c 65 74 65 20 | 6d 65 6e 75 69 74 65 6d |.delete |menuitem|
|00001060| 20 22 64 65 6c 65 74 65 | 20 73 74 61 63 6b 2e 2e | "delete| stack..|
|00001070| 2e 22 20 66 72 6f 6d 20 | 6d 65 6e 75 20 22 66 69 |." from |menu "fi|
|00001080| 6c 65 22 0d 2d 2d 20 43 | 72 65 61 74 65 20 61 6e |le".-- C|reate an|
|00001090| 64 20 66 69 6c 6c 20 74 | 68 65 20 48 79 74 65 6c |d fill t|he Hytel|
|000010a0| 6e 65 74 20 6d 65 6e 75 | 0d 63 72 65 61 74 65 20 |net menu|.create |
|000010b0| 6d 65 6e 75 20 22 48 79 | 74 65 6c 6e 65 74 22 0d |menu "Hy|telnet".|
|000010c0| 2d 2d 20 20 57 68 61 74 | 20 74 68 65 20 75 73 65 |-- What| the use|
|000010d0| 72 20 73 65 65 73 20 69 | 6e 20 74 68 65 20 6d 65 |r sees i|n the me|
|000010e0| 6e 75 0d 70 75 74 20 22 | 53 74 61 72 74 2c 47 6f |nu.put "|Start,Go|
|000010f0| 20 42 61 63 6b 2c 47 6f | 20 66 6f 72 20 49 74 2c | Back,Go| for It,|
|00001100| 43 6f 6e 66 69 67 75 72 | 65 2c 43 6f 70 79 20 73 |Configur|e,Copy s|
|00001110| 69 74 65 20 69 6e 66 6f | 2c 2d 2c 57 68 61 74 20 |ite info|,-,What |
|00001120| 69 73 2c 4c 69 62 72 61 | 72 79 20 63 61 74 61 6c |is,Libra|ry catal|
|00001130| 6f 67 73 2c 4f 74 68 65 | 72 20 72 65 73 6f 75 72 |ogs,Othe|r resour|
|00001140| 63 65 73 2c 43 61 74 61 | 6c 6f 67 73 20 68 65 6c |ces,Cata|logs hel|
|00001150| 70 2c 47 6c 6f 73 73 61 | 72 79 2c 43 61 74 61 6c |p,Glossa|ry,Catal|
|00001160| 6f 67 20 49 6e 74 65 72 | 66 61 63 65 73 2c 54 65 |og Inter|faces,Te|
|00001170| 6c 6e 65 74 20 54 69 70 | 73 2c 41 62 6f 75 74 20 |lnet Tip|s,About |
|00001180| 48 79 74 65 6c 6e 65 74 | c9 22 20 69 6e 74 6f 20 |Hytelnet|." into |
|00001190| 61 63 74 6d 65 6e 75 69 | 74 65 6d 73 0d 2d 2d 20 |actmenui|tems.-- |
|000011a0| 74 68 65 20 68 61 6e 64 | 6c 65 72 73 20 74 68 61 |the hand|lers tha|
|000011b0| 74 20 48 79 70 65 72 63 | 61 72 64 20 64 6f 65 73 |t Hyperc|ard does|
|000011c0| 20 77 68 65 6e 20 61 62 | 6f 76 65 20 69 74 65 6d | when ab|ove item|
|000011d0| 73 20 73 65 6c 65 63 74 | 65 64 2e 0d 70 75 74 20 |s select|ed..put |
|000011e0| 22 53 74 61 72 74 2c 47 | 6f 20 42 61 63 6b 2c 47 |"Start,G|o Back,G|
|000011f0| 6f 20 66 6f 72 20 49 74 | 2c 43 6f 6e 66 69 67 75 |o for It|,Configu|
|00001200| 72 65 2c 43 6f 70 79 20 | 73 69 74 65 20 69 6e 66 |re,Copy |site inf|
|00001210| 6f 2c 2d 2c 46 61 76 6f | 72 69 74 65 2c 41 64 64 |o,-,Favo|rite,Add|
|00001220| 2c 44 65 6c 65 74 65 2c | 2d 2c 57 68 61 74 20 69 |,Delete,|-,What i|
|00001230| 73 2c 4c 69 62 72 61 72 | 79 20 63 61 74 61 6c 6f |s,Librar|y catalo|
|00001240| 67 73 2c 4f 74 68 65 72 | 20 72 65 73 6f 75 72 63 |gs,Other| resourc|
|00001250| 65 73 2c 43 61 74 61 6c | 6f 67 73 20 68 65 6c 70 |es,Catal|ogs help|
|00001260| 2c 47 6c 6f 73 73 61 72 | 79 2c 43 61 74 61 6c 6f |,Glossar|y,Catalo|
|00001270| 67 20 49 6e 74 65 72 66 | 61 63 65 73 2c 54 65 6c |g Interf|aces,Tel|
|00001280| 6e 65 74 20 54 69 70 73 | 2c 41 62 6f 75 74 20 48 |net Tips|,About H|
|00001290| 79 74 65 6c 6e 65 74 c9 | 22 20 69 6e 74 6f 20 61 |ytelnet.|" into a|
|000012a0| 63 74 6d 65 6e 75 69 74 | 65 6d 73 0d 2d 2d 20 74 |ctmenuit|ems.-- t|
|000012b0| 68 65 20 68 61 6e 64 6c | 65 72 73 20 74 68 61 74 |he handl|ers that|
|000012c0| 20 48 79 70 65 72 63 61 | 72 64 20 64 6f 65 73 20 | Hyperca|rd does |
|000012d0| 77 68 65 6e 20 61 62 6f | 76 65 20 69 74 65 6d 73 |when abo|ve items|
|000012e0| 20 73 65 6c 65 63 74 65 | 64 2e 0d 70 75 74 20 22 | selecte|d..put "|
|000012f0| 53 74 61 72 74 63 64 2c | 67 62 61 63 6b 2c 63 73 |Startcd,|gback,cs|
|00001300| 69 74 65 2c 64 6f 63 6f | 6e 66 69 67 2c 63 66 69 |ite,doco|nfig,cfi|
|00001310| 65 6c 64 2c 2c 66 61 76 | 2c 66 61 64 64 2c 66 64 |eld,,fav|,fadd,fd|
|00001320| 65 6c 65 74 65 2c 2c 57 | 48 41 54 49 53 2c 53 69 |elete,,W|HATIS,Si|
|00001330| 74 65 73 31 2c 53 69 74 | 65 73 32 2c 43 61 74 68 |tes1,Sit|es2,Cath|
|00001340| 65 6c 70 2c 47 6c 6f 73 | 73 61 72 79 2c 43 61 74 |elp,Glos|sary,Cat|
|00001350| 69 6e 74 65 72 2c 54 65 | 6c 68 65 6c 70 2c 61 62 |inter,Te|lhelp,ab|
|00001360| 6f 75 74 68 72 22 20 69 | 6e 74 6f 20 6d 65 6e 75 |outhr" i|nto menu|
|00001370| 6d 65 73 73 0d 70 75 74 | 20 61 63 74 6d 65 6e 75 |mess.put| actmenu|
|00001380| 69 74 65 6d 73 20 69 6e | 74 6f 20 6d 65 6e 75 20 |items in|to menu |
|00001390| 22 48 79 74 65 6c 6e 65 | 74 22 20 77 69 74 68 20 |"Hytelne|t" with |
|000013a0| 6d 65 6e 75 6d 73 67 73 | 20 6d 65 6e 75 6d 65 73 |menumsgs| menumes|
|000013b0| 73 0d 70 75 74 20 22 52 | 65 70 65 61 74 20 46 69 |s.put "R|epeat Fi|
|000013c0| 6e 64 22 20 61 66 74 65 | 72 20 6d 65 6e 75 20 22 |nd" afte|r menu "|
|000013d0| 47 6f 22 20 77 69 74 68 | 20 6d 65 6e 75 6d 73 67 |Go" with| menumsg|
|000013e0| 73 20 22 72 66 69 6e 64 | 22 0d 2d 2d 20 61 64 64 |s "rfind|".-- add|
|000013f0| 20 63 6f 6d 6d 61 6e 64 | 20 63 68 61 72 61 63 74 | command| charact|
|00001400| 65 72 73 20 74 6f 20 6d | 65 6e 75 20 69 74 65 6d |ers to m|enu item|
|00001410| 73 2e 0d 73 65 74 20 63 | 6f 6d 6d 61 6e 64 43 68 |s..set c|ommandCh|
|00001420| 61 72 20 6f 66 20 6d 65 | 6e 75 49 74 65 6d 20 22 |ar of me|nuItem "|
|00001430| 53 74 61 72 74 22 20 6f | 66 20 6d 65 6e 75 20 22 |Start" o|f menu "|
|00001440| 48 79 74 65 6c 6e 65 74 | 22 20 74 6f 20 53 0d 73 |Hytelnet|" to S.s|
|00001450| 65 74 20 63 6f 6d 6d 61 | 6e 64 43 68 61 72 20 6f |et comma|ndChar o|
|00001460| 66 20 6d 65 6e 75 49 74 | 65 6d 20 22 67 6f 20 62 |f menuIt|em "go b|
|00001470| 61 63 6b 22 20 6f 66 20 | 6d 65 6e 75 20 22 48 79 |ack" of |menu "Hy|
|00001480| 74 65 6c 6e 65 74 22 20 | 74 6f 20 42 0d 73 65 74 |telnet" |to B.set|
|00001490| 20 63 6f 6d 6d 61 6e 64 | 43 68 61 72 20 6f 66 20 | command|Char of |
|000014a0| 6d 65 6e 75 49 74 65 6d | 20 22 47 6f 20 66 6f 72 |menuItem| "Go for|
|000014b0| 20 49 74 22 20 6f 66 20 | 6d 65 6e 75 20 22 48 79 | It" of |menu "Hy|
|000014c0| 74 65 6c 6e 65 74 22 20 | 74 6f 20 47 0d 73 65 74 |telnet" |to G.set|
|000014d0| 20 63 6f 6d 6d 61 6e 64 | 63 68 61 72 20 6f 66 20 | command|char of |
|000014e0| 6d 65 6e 75 69 74 65 6d | 20 22 43 6f 6e 66 69 67 |menuitem| "Config|
|000014f0| 75 72 65 22 20 6f 66 20 | 6d 65 6e 75 20 22 48 79 |ure" of |menu "Hy|
|00001500| 74 65 6c 6e 65 74 22 20 | 74 6f 20 4e 0d 73 65 74 |telnet" |to N.set|
|00001510| 20 63 6f 6d 6d 61 6e 64 | 43 68 61 72 20 6f 66 20 | command|Char of |
|00001520| 6d 65 6e 75 49 74 65 6d | 20 22 46 61 76 6f 72 69 |menuItem| "Favori|
|00001530| 74 65 22 20 6f 66 20 6d | 65 6e 75 20 22 48 79 74 |te" of m|enu "Hyt|
|00001540| 65 6c 6e 65 74 22 20 74 | 6f 20 56 0d 73 65 74 20 |elnet" t|o V.set |
|00001550| 63 6f 6d 6d 61 6e 64 63 | 68 61 72 20 6f 66 20 6d |commandc|har of m|
|00001560| 65 6e 75 69 74 65 6d 20 | 22 41 64 64 22 20 6f 66 |enuitem |"Add" of|
|00001570| 20 6d 65 6e 75 20 22 48 | 79 74 65 6c 6e 65 74 22 | menu "H|ytelnet"|
|00001580| 20 74 6f 20 41 0d 64 69 | 73 61 62 6c 65 20 6d 65 | to A.di|sable me|
|00001590| 6e 75 69 74 65 6d 20 22 | 44 65 6c 65 74 65 22 20 |nuitem "|Delete" |
|000015a0| 6f 66 20 6d 65 6e 75 20 | 22 48 79 74 65 6c 6e 65 |of menu |"Hytelne|
|000015b0| 74 22 0d 64 69 73 61 62 | 6c 65 20 6d 65 6e 75 69 |t".disab|le menui|
|000015c0| 74 65 6d 20 22 52 65 70 | 65 61 74 20 46 69 6e 64 |tem "Rep|eat Find|
|000015d0| 22 20 6f 66 20 6d 65 6e | 75 20 22 47 6f 22 0d 73 |" of men|u "Go".s|
|000015e0| 68 6f 77 20 6d 65 6e 75 | 62 61 72 0d 65 6e 64 20 |how menu|bar.end |
|000015f0| 6d 65 6e 75 73 65 74 0d | 0d 6f 6e 20 67 62 61 63 |menuset.|.on gbac|
|00001600| 6b 0d 67 6c 6f 62 61 6c | 20 70 61 74 68 2c 67 6f |k.global| path,go|
|00001610| 62 61 63 6b 2c 66 6c 6e | 6d 65 0d 70 75 74 20 63 |back,fln|me.put c|
|00001620| 64 20 66 6c 64 20 22 66 | 69 6c 65 6e 61 6d 65 22 |d fld "f|ilename"|
|00001630| 20 69 6e 74 6f 20 62 6b | 66 69 6c 65 0d 64 65 6c | into bk|file.del|
|00001640| 65 74 65 20 74 68 65 20 | 6c 61 73 74 20 69 74 65 |ete the |last ite|
|00001650| 6d 20 6f 66 20 67 6f 62 | 61 63 6b 20 2d 2d 20 74 |m of gob|ack -- t|
|00001660| 68 69 73 20 69 73 20 74 | 68 65 20 66 69 6c 65 20 |his is t|he file |
|00001670| 79 6f 75 20 61 72 65 20 | 63 75 72 72 65 6e 74 6c |you are |currentl|
|00001680| 79 20 6c 6f 6f 6b 69 6e | 67 20 61 74 2e 0d 69 66 |y lookin|g at..if|
|00001690| 20 67 6f 62 61 63 6b 20 | 69 73 20 65 6d 70 74 79 | goback |is empty|
|000016a0| 20 74 68 65 6e 20 70 75 | 74 20 22 53 54 41 52 54 | then pu|t "START|
|000016b0| 2e 54 58 54 22 20 69 6e | 74 6f 20 67 6f 62 61 63 |.TXT" in|to gobac|
|000016c0| 6b 20 2d 2d 20 69 66 20 | 79 6f 75 20 68 61 76 65 |k -- if |you have|
|000016d0| 20 64 65 6c 65 74 65 64 | 20 74 6f 20 6d 61 6e 79 | deleted| to many|
|000016e0| 20 74 68 69 6e 67 73 0d | 70 75 74 20 74 68 65 20 | things.|put the |
|000016f0| 6c 61 73 74 20 69 74 65 | 6d 20 6f 66 20 67 6f 62 |last ite|m of gob|
|00001700| 61 63 6b 20 69 6e 74 6f | 20 66 6c 6e 6d 65 62 6b |ack into| flnmebk|
|00001710| 20 2d 2d 20 66 6c 6e 6d | 65 62 6b 20 74 65 6d 70 | -- flnm|ebk temp|
|00001720| 2e 20 76 61 72 69 61 62 | 6c 65 20 66 6f 72 20 66 |. variab|le for f|
|00001730| 69 6c 65 20 6e 61 6d 65 | 2e 0d 70 75 74 20 70 61 |ile name|..put pa|
|00001740| 74 68 20 26 20 66 6c 6e | 6d 65 62 6b 20 69 6e 74 |th & fln|mebk int|
|00001750| 6f 20 66 6c 6e 6d 65 20 | 2d 2d 20 68 64 34 30 0d |o flnme |-- hd40.|
|00001760| 69 66 20 66 6c 6e 6d 65 | 20 69 73 20 22 46 61 76 |if flnme| is "Fav|
|00001770| 6f 72 69 74 65 22 20 74 | 68 65 6e 0d 65 6e 61 62 |orite" t|hen.enab|
|00001780| 6c 65 20 6d 65 6e 75 69 | 74 65 6d 20 22 44 65 6c |le menui|tem "Del|
|00001790| 65 74 65 22 20 6f 66 20 | 6d 65 6e 75 20 22 48 79 |ete" of |menu "Hy|
|000017a0| 74 65 6c 6e 65 74 22 0d | 65 6c 73 65 0d 64 69 73 |telnet".|else.dis|
|000017b0| 61 62 6c 65 20 6d 65 6e | 75 69 74 65 6d 20 22 44 |able men|uitem "D|
|000017c0| 65 6c 65 74 65 22 20 6f | 66 20 6d 65 6e 75 20 22 |elete" o|f menu "|
|000017d0| 48 79 74 65 6c 6e 65 74 | 22 0d 65 6e 64 20 69 66 |Hytelnet|".end if|
|000017e0| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 66 |.if ther|e is a f|
|000017f0| 69 6c 65 20 66 6c 6e 6d | 65 20 74 68 65 6e 20 20 |ile flnm|e then |
|00001800| 2d 2d 20 63 68 65 63 6b | 20 69 66 20 74 68 65 20 |-- check| if the |
|00001810| 66 69 6c 65 20 72 65 61 | 6c 6c 79 20 65 78 69 74 |file rea|lly exit|
|00001820| 73 20 69 6e 20 64 65 66 | 61 75 6c 74 20 64 69 72 |s in def|ault dir|
|00001830| 65 63 74 6f 72 79 2e 2e | 0d 2d 2d 20 74 68 65 20 |ectory..|.-- the |
|00001840| 6e 65 78 74 20 73 65 74 | 20 6f 66 20 6c 69 6e 65 |next set| of line|
|00001850| 73 20 61 72 65 20 75 73 | 65 64 20 69 6e 20 6d 61 |s are us|ed in ma|
|00001860| 6e 79 20 70 6c 61 63 65 | 73 20 61 6e 64 20 61 20 |ny place|s and a |
|00001870| 73 69 6e 67 6c 65 0d 2d | 2d 20 66 75 6e 63 74 69 |single.-|- functi|
|00001880| 6f 6e 20 73 68 6f 75 6c | 64 20 62 65 20 75 73 65 |on shoul|d be use|
|00001890| 64 20 63 61 6c 6c 65 64 | 20 69 6e 73 74 65 61 64 |d called| instead|
|000018a0| 2e 20 31 0d 70 75 74 20 | 74 68 65 20 6c 61 73 74 |. 1.put |the last|
|000018b0| 20 69 74 65 6d 20 6f 66 | 20 67 6f 62 61 63 6b 20 | item of| goback |
|000018c0| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 22 66 69 6c |into cd |fld "fil|
|000018d0| 65 6e 61 6d 65 22 0d 6f | 70 65 6e 20 66 69 6c 65 |ename".o|pen file|
|000018e0| 20 66 6c 6e 6d 65 0d 72 | 65 61 64 20 66 72 6f 6d | flnme.r|ead from|
|000018f0| 20 66 69 6c 65 20 66 6c | 6e 6d 65 20 75 6e 74 69 | file fl|nme unti|
|00001900| 6c 20 65 6d 70 74 79 0d | 67 65 74 20 73 74 72 69 |l empty.|get stri|
|00001910| 70 70 65 72 28 69 74 29 | 0d 70 75 74 20 69 74 20 |pper(it)|.put it |
|00001920| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 22 64 61 74 |into cd |fld "dat|
|00001930| 61 22 0d 63 6c 6f 73 65 | 20 66 69 6c 65 20 66 6c |a".close| file fl|
|00001940| 6e 6d 65 0d 73 65 74 20 | 74 68 65 20 73 63 72 6f |nme.set |the scro|
|00001950| 6c 6c 20 6f 66 20 63 64 | 20 66 6c 64 20 22 64 61 |ll of cd| fld "da|
|00001960| 74 61 22 20 74 6f 20 30 | 0d 66 69 6e 64 20 22 3c |ta" to 0|.find "<|
|00001970| 22 20 26 20 62 6b 66 69 | 6c 65 20 69 6e 20 63 64 |" & bkfi|le in cd|
|00001980| 20 66 6c 64 20 22 64 61 | 74 61 22 0d 69 66 20 74 | fld "da|ta".if t|
|00001990| 68 65 20 72 65 73 75 6c | 74 20 69 73 20 65 6d 70 |he resul|t is emp|
|000019a0| 74 79 20 74 68 65 6e 0d | 70 75 74 20 74 68 65 20 |ty then.|put the |
|000019b0| 66 6f 75 6e 64 63 68 75 | 6e 6b 20 69 6e 74 6f 20 |foundchu|nk into |
|000019c0| 62 6b 66 69 6c 65 0d 61 | 64 64 20 31 20 74 6f 20 |bkfile.a|dd 1 to |
|000019d0| 77 6f 72 64 20 32 20 6f | 66 20 20 62 6b 66 69 6c |word 2 o|f bkfil|
|000019e0| 65 0d 73 65 6c 65 63 74 | 20 62 6b 66 69 6c 65 0d |e.select| bkfile.|
|000019f0| 65 6e 64 20 69 66 0d 65 | 6c 73 65 0d 70 75 74 20 |end if.e|lse.put |
|00001a00| 70 61 74 68 20 26 20 28 | 63 68 61 72 20 31 20 74 |path & (|char 1 t|
|00001a10| 6f 20 33 20 6f 66 20 66 | 6c 6e 6d 65 62 6b 29 20 |o 3 of f|lnmebk) |
|00001a20| 26 20 22 3a 22 20 26 20 | 66 6c 6e 6d 65 62 6b 20 |& ":" & |flnmebk |
|00001a30| 69 6e 74 6f 20 66 6c 6e | 6d 65 0d 69 66 20 74 68 |into fln|me.if th|
|00001a40| 65 72 65 20 69 73 20 61 | 20 66 69 6c 65 20 66 6c |ere is a| file fl|
|00001a50| 6e 6d 65 20 74 68 65 6e | 20 20 2d 2d 20 63 68 65 |nme then| -- che|
|00001a60| 63 6b 20 69 66 20 74 68 | 65 20 66 69 6c 65 20 72 |ck if th|e file r|
|00001a70| 65 61 6c 6c 79 20 65 78 | 69 74 73 2e 0d 70 75 74 |eally ex|its..put|
|00001a80| 20 74 68 65 20 6c 61 73 | 74 20 69 74 65 6d 20 6f | the las|t item o|
|00001a90| 66 20 67 6f 62 61 63 6b | 20 69 6e 74 6f 20 63 64 |f goback| into cd|
|00001aa0| 20 66 6c 64 20 22 66 69 | 6c 65 6e 61 6d 65 22 0d | fld "fi|lename".|
|00001ab0| 6f 70 65 6e 20 66 69 6c | 65 20 66 6c 6e 6d 65 20 |open fil|e flnme |
|00001ac0| 20 2d 2d 20 32 0d 72 65 | 61 64 20 66 72 6f 6d 20 | -- 2.re|ad from |
|00001ad0| 66 69 6c 65 20 66 6c 6e | 6d 65 20 75 6e 74 69 6c |file fln|me until|
|00001ae0| 20 65 6d 70 74 79 0d 67 | 65 74 20 73 74 72 69 70 | empty.g|et strip|
|00001af0| 70 65 72 28 69 74 29 0d | 70 75 74 20 69 74 20 69 |per(it).|put it i|
|00001b00| 6e 74 6f 20 63 64 20 66 | 6c 64 20 22 64 61 74 61 |nto cd f|ld "data|
|00001b10| 22 0d 63 6c 6f 73 65 20 | 66 69 6c 65 20 66 6c 6e |".close |file fln|
|00001b20| 6d 65 0d 73 65 74 20 74 | 68 65 20 73 63 72 6f 6c |me.set t|he scrol|
|00001b30| 6c 20 6f 66 20 63 64 20 | 66 6c 64 20 22 64 61 74 |l of cd |fld "dat|
|00001b40| 61 22 20 74 6f 20 30 0d | 66 69 6e 64 20 22 3c 22 |a" to 0.|find "<"|
|00001b50| 20 26 20 62 6b 66 69 6c | 65 20 69 6e 20 63 64 20 | & bkfil|e in cd |
|00001b60| 66 6c 64 20 22 64 61 74 | 61 22 0d 69 66 20 74 68 |fld "dat|a".if th|
|00001b70| 65 20 72 65 73 75 6c 74 | 20 69 73 20 65 6d 70 74 |e result| is empt|
|00001b80| 79 20 74 68 65 6e 0d 70 | 75 74 20 74 68 65 20 66 |y then.p|ut the f|
|00001b90| 6f 75 6e 64 63 68 75 6e | 6b 20 69 6e 74 6f 20 62 |oundchun|k into b|
|00001ba0| 6b 66 69 6c 65 0d 61 64 | 64 20 31 20 74 6f 20 77 |kfile.ad|d 1 to w|
|00001bb0| 6f 72 64 20 32 20 6f 66 | 20 20 62 6b 66 69 6c 65 |ord 2 of| bkfile|
|00001bc0| 0d 73 65 6c 65 63 74 20 | 62 6b 66 69 6c 65 0d 65 |.select |bkfile.e|
|00001bd0| 6e 64 20 69 66 0d 65 6c | 73 65 0d 2d 2d 20 77 68 |nd if.el|se.-- wh|
|00001be0| 65 6e 20 69 74 20 69 73 | 20 6e 6f 74 20 66 6f 75 |en it is| not fou|
|00001bf0| 6e 64 20 69 6e 20 64 65 | 66 61 75 6c 74 20 64 69 |nd in de|fault di|
|00001c00| 72 2c 20 6f 72 20 69 6e | 20 74 68 65 20 73 75 62 |r, or in| the sub|
|00001c10| 64 69 72 20 74 68 65 6e | 20 73 61 79 20 73 6f 2e |dir then| say so.|
|00001c20| 0d 61 6e 73 77 65 72 20 | 22 46 69 6c 65 20 22 20 |.answer |"File " |
|00001c30| 26 20 71 75 6f 74 65 20 | 26 20 66 6c 6e 6d 65 62 |& quote |& flnmeb|
|00001c40| 6b 20 26 20 71 75 6f 74 | 65 20 26 20 22 20 6e 6f |k & quot|e & " no|
|00001c50| 74 20 66 6f 75 6e 64 22 | 0d 65 6e 64 20 69 66 0d |t found"|.end if.|
|00001c60| 65 6e 64 20 69 66 0d 65 | 6e 64 20 67 62 61 63 6b |end if.e|nd gback|
|00001c70| 0d 6f 6e 20 73 74 61 72 | 74 63 64 20 2d 2d 20 54 |.on star|tcd -- T|
|00001c80| 68 69 73 20 69 73 20 61 | 6c 73 6f 20 61 63 74 69 |his is a|lso acti|
|00001c90| 76 61 74 65 64 20 62 79 | 20 61 20 62 75 74 74 6f |vated by| a butto|
|00001ca0| 6e 20 6f 6e 20 74 68 65 | 20 63 64 2e 0d 2d 2d 20 |n on the| cd..-- |
|00001cb0| 4f 70 65 6e 20 61 6e 64 | 20 64 69 73 70 6c 61 79 |Open and| display|
|00001cc0| 20 74 68 65 20 53 54 41 | 52 54 2e 54 58 54 20 66 | the STA|RT.TXT f|
|00001cd0| 69 6c 65 0d 67 6c 6f 62 | 61 6c 20 70 61 74 68 2c |ile.glob|al path,|
|00001ce0| 67 6f 62 61 63 6b 2c 66 | 6c 6e 6d 65 0d 69 66 20 |goback,f|lnme.if |
|00001cf0| 63 64 20 66 6c 64 20 66 | 69 6c 65 6e 61 6d 65 20 |cd fld f|ilename |
|00001d00| 69 73 20 6e 6f 74 20 22 | 53 74 61 72 74 2e 74 78 |is not "|Start.tx|
|00001d10| 74 22 20 74 68 65 6e 0d | 70 75 74 20 22 53 54 41 |t" then.|put "STA|
|00001d20| 52 54 2e 54 58 54 22 20 | 69 6e 74 6f 20 66 6c 6e |RT.TXT" |into fln|
|00001d30| 6d 65 0d 66 69 6c 65 6d | 61 6e 20 20 2d 2d 20 73 |me.filem|an -- s|
|00001d40| 65 65 20 68 61 6e 64 6c | 65 72 20 62 65 6c 6f 77 |ee handl|er below|
|00001d50| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 73 74 61 72 |.end if.|end star|
|00001d60| 74 63 64 0d 6f 6e 20 63 | 66 69 65 6c 64 20 2d 2d |tcd.on c|field --|
|00001d70| 20 63 6f 70 79 20 74 68 | 65 20 77 68 6f 6c 65 20 | copy th|e whole |
|00001d80| 66 6c 64 20 74 6f 20 74 | 68 65 20 63 6c 69 70 62 |fld to t|he clipb|
|00001d90| 6f 61 72 64 2e 0d 73 65 | 6c 65 63 74 20 63 68 61 |oard..se|lect cha|
|00001da0| 72 20 31 20 74 6f 20 28 | 74 68 65 20 6e 75 6d 62 |r 1 to (|the numb|
|00001db0| 65 72 20 6f 66 20 63 68 | 61 72 73 20 69 6e 20 63 |er of ch|ars in c|
|00001dc0| 64 20 66 6c 64 20 22 64 | 61 74 61 22 29 20 6f 66 |d fld "d|ata") of|
|00001dd0| 20 63 64 20 66 6c 64 20 | 22 64 61 74 61 22 0d 64 | cd fld |"data".d|
|00001de0| 6f 6d 65 6e 75 20 22 43 | 6f 70 79 20 54 65 78 74 |omenu "C|opy Text|
|00001df0| 22 0d 73 65 6c 65 63 74 | 20 63 68 61 72 20 30 20 |".select| char 0 |
|00001e00| 6f 66 20 63 64 20 66 6c | 64 20 22 64 61 74 61 22 |of cd fl|d "data"|
|00001e10| 0d 65 6e 64 20 63 66 69 | 65 6c 64 0d 6f 6e 20 63 |.end cfi|eld.on c|
|00001e20| 73 69 74 65 20 2d 2d 20 | 75 73 65 64 20 69 6e 20 |site -- |used in |
|00001e30| 76 61 72 69 6f 75 73 20 | 70 6c 61 63 65 73 20 74 |various |places t|
|00001e40| 6f 20 63 68 65 63 6b 20 | 69 66 20 74 65 6c 6e 65 |o check |if telne|
|00001e50| 74 20 63 61 6e 20 62 65 | 20 6c 61 75 6e 63 68 65 |t can be| launche|
|00001e60| 64 20 66 72 6f 6d 20 74 | 68 65 20 66 6c 64 20 69 |d from t|he fld i|
|00001e70| 6e 20 71 75 65 73 74 69 | 6f 6e 2e 20 20 69 65 20 |n questi|on. ie |
|00001e80| 69 73 20 74 68 65 20 74 | 65 6c 6e 65 74 20 74 68 |is the t|elnet th|
|00001e90| 65 72 65 20 61 6e 64 20 | 69 73 20 69 74 20 66 6f |ere and |is it fo|
|00001ea0| 6c 6c 6f 77 65 64 20 62 | 79 20 61 6e 20 69 70 20 |llowed b|y an ip |
|00001eb0| 6e 75 6d 62 65 72 20 6f | 72 20 61 6e 20 69 6e 74 |number o|r an int|
|00001ec0| 65 72 6e 65 74 20 6e 61 | 6d 65 0d 66 69 6e 64 20 |ernet na|me.find |
|00001ed0| 22 74 65 6c 6e 65 74 22 | 20 69 6e 20 63 64 20 66 |"telnet"| in cd f|
|00001ee0| 6c 64 20 22 64 61 74 61 | 22 0d 69 66 20 74 68 65 |ld "data|".if the|
|00001ef0| 20 72 65 73 75 6c 74 20 | 69 73 20 6e 6f 74 20 65 | result |is not e|
|00001f00| 6d 70 74 79 20 74 68 65 | 6e 0d 66 69 6e 64 20 22 |mpty the|n.find "|
|00001f10| 54 4e 33 32 37 30 22 20 | 69 6e 20 63 64 20 66 6c |TN3270" |in cd fl|
|00001f20| 64 20 22 64 61 74 61 22 | 0d 69 66 20 74 68 65 20 |d "data"|.if the |
|00001f30| 72 65 73 75 6c 74 20 69 | 73 20 65 6d 70 74 79 20 |result i|s empty |
|00001f40| 74 68 65 6e 0d 70 75 74 | 20 74 68 65 20 66 6f 75 |then.put| the fou|
|00001f50| 6e 64 63 68 75 6e 6b 20 | 69 6e 74 6f 20 66 63 68 |ndchunk |into fch|
|00001f60| 75 6e 6b 0d 70 75 74 20 | 22 74 6e 33 32 37 30 22 |unk.put |"tn3270"|
|00001f70| 20 69 6e 74 6f 20 70 72 | 6f 67 6e 61 6d 65 0d 65 | into pr|ogname.e|
|00001f80| 6c 73 65 0d 61 6e 73 77 | 65 72 20 22 4c 6f 63 61 |lse.answ|er "Loca|
|00001f90| 74 69 6f 6e 20 6e 6f 74 | 20 61 76 61 69 6c 61 62 |tion not| availab|
|00001fa0| 6c 65 2e 22 20 2d 2d 20 | 54 65 6c 6e 65 74 2c 20 |le." -- |Telnet, |
|00001fb0| 54 4e 33 32 37 30 0d 65 | 78 69 74 20 63 73 69 74 |TN3270.e|xit csit|
|00001fc0| 65 0d 65 6e 64 20 69 66 | 0d 65 6c 73 65 0d 70 75 |e.end if|.else.pu|
|00001fd0| 74 20 74 68 65 20 66 6f | 75 6e 64 63 68 75 6e 6b |t the fo|undchunk|
|00001fe0| 20 69 6e 74 6f 20 66 63 | 68 75 6e 6b 0d 70 75 74 | into fc|hunk.put|
|00001ff0| 20 22 74 65 6c 6e 65 74 | 22 20 69 6e 74 6f 20 70 | "telnet|" into p|
|00002000| 72 6f 67 6e 61 6d 65 0d | 65 6e 64 20 69 66 0d 67 |rogname.|end if.g|
|00002010| 65 74 20 67 6f 66 6f 72 | 69 74 28 70 72 6f 67 6e |et gofor|it(progn|
|00002020| 61 6d 65 2c 66 63 68 75 | 6e 6b 29 20 2d 2d 20 73 |ame,fchu|nk) -- s|
|00002030| 65 65 20 73 74 61 63 6b | 20 73 63 72 69 70 74 20 |ee stack| script |
|00002040| 66 6f 72 20 67 6f 66 6f | 72 69 74 20 66 75 6e 63 |for gofo|rit func|
|00002050| 74 69 6f 6e 0d 65 6e 64 | 20 63 73 69 74 65 0d 6f |tion.end| csite.o|
|00002060| 6e 20 64 6f 63 6f 6e 66 | 69 67 0d 69 66 20 74 68 |n doconf|ig.if th|
|00002070| 65 20 76 69 73 69 62 6c | 65 20 6f 66 20 63 61 72 |e visibl|e of car|
|00002080| 64 20 66 69 65 6c 64 20 | 22 63 6f 6e 66 69 67 75 |d field |"configu|
|00002090| 72 61 74 69 6f 6e 22 20 | 69 73 20 66 61 6c 73 65 |ration" |is false|
|000020a0| 20 74 68 65 6e 0d 73 65 | 6e 64 20 6d 6f 75 73 65 | then.se|nd mouse|
|000020b0| 75 70 20 74 6f 20 63 61 | 72 64 20 62 75 74 74 6f |up to ca|rd butto|
|000020c0| 6e 20 22 63 6f 6e 66 69 | 67 75 72 65 22 0d 65 6c |n "confi|gure".el|
|000020d0| 73 65 0d 73 65 6e 64 20 | 6d 6f 75 73 65 75 70 20 |se.send |mouseup |
|000020e0| 74 6f 20 63 61 72 64 20 | 62 75 74 74 6f 6e 20 22 |to card |button "|
|000020f0| 64 6f 6e 65 22 0d 65 6e | 64 20 69 66 0d 65 6e 64 |done".en|d if.end|
|00002100| 20 64 6f 63 6f 6e 66 69 | 67 0d 0d 6f 6e 20 66 61 | doconfi|g..on fa|
|00002110| 76 0d 67 6c 6f 62 61 6c | 20 70 61 74 68 2c 66 6c |v.global| path,fl|
|00002120| 6e 6d 65 2c 67 6f 62 61 | 63 6b 0d 70 75 74 20 22 |nme,goba|ck.put "|
|00002130| 46 61 76 6f 72 69 74 65 | 22 20 69 6e 74 6f 20 66 |Favorite|" into f|
|00002140| 6c 6e 6d 65 0d 69 66 20 | 74 68 65 72 65 20 69 73 |lnme.if |there is|
|00002150| 20 61 20 66 69 6c 65 20 | 70 61 74 68 20 26 20 66 | a file |path & f|
|00002160| 6c 6e 6d 65 20 74 68 65 | 6e 0d 66 69 6c 65 6d 61 |lnme the|n.filema|
|00002170| 6e 0d 65 6c 73 65 0d 66 | 74 65 73 74 0d 66 69 6c |n.else.f|test.fil|
|00002180| 65 6d 61 6e 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |eman.end| if.end |
|00002190| 66 61 76 0d 0d 6f 6e 20 | 66 61 64 64 0d 67 6c 6f |fav..on |fadd.glo|
|000021a0| 62 61 6c 20 70 61 74 68 | 0d 69 66 20 74 68 65 72 |bal path|.if ther|
|000021b0| 65 20 69 73 20 6e 6f 74 | 20 61 20 66 69 6c 65 20 |e is not| a file |
|000021c0| 70 61 74 68 20 26 20 22 | 46 61 76 6f 72 69 74 65 |path & "|Favorite|
|000021d0| 22 20 74 68 65 6e 0d 66 | 74 65 73 74 0d 65 6e 64 |" then.f|test.end|
|000021e0| 20 69 66 0d 70 75 74 20 | 22 3c 22 20 26 20 63 61 | if.put |"<" & ca|
|000021f0| 72 64 20 66 69 65 6c 64 | 20 66 69 6c 65 6e 61 6d |rd field| filenam|
|00002200| 65 20 26 20 22 3e 20 20 | 22 20 69 6e 74 6f 20 66 |e & "> |" into f|
|00002210| 61 76 6e 6d 65 0d 41 73 | 6b 20 22 41 64 64 20 66 |avnme.As|k "Add f|
|00002220| 69 6c 65 20 6e 61 6d 65 | 20 74 6f 20 46 61 76 6f |ile name| to Favo|
|00002230| 72 69 74 65 20 6c 69 73 | 74 3a 22 20 77 69 74 68 |rite lis|t:" with|
|00002240| 20 66 61 76 6e 6d 65 0d | 70 75 74 20 69 74 20 69 | favnme.|put it i|
|00002250| 6e 74 6f 20 66 61 76 61 | 64 64 0d 69 66 20 66 61 |nto fava|dd.if fa|
|00002260| 76 61 64 64 20 69 73 20 | 65 6d 70 74 79 20 74 68 |vadd is |empty th|
|00002270| 65 6e 20 65 78 69 74 20 | 66 61 64 64 0d 69 66 20 |en exit |fadd.if |
|00002280| 22 3e 22 20 69 73 20 6e | 6f 74 20 69 6e 20 66 61 |">" is n|ot in fa|
|00002290| 76 61 64 64 20 74 68 65 | 6e 20 70 75 74 20 66 61 |vadd the|n put fa|
|000022a0| 76 6e 6d 65 20 26 20 66 | 61 76 61 64 64 20 69 6e |vnme & f|avadd in|
|000022b0| 74 6f 20 66 61 76 61 64 | 64 0d 6f 70 65 6e 20 66 |to favad|d.open f|
|000022c0| 69 6c 65 20 70 61 74 68 | 20 26 20 22 46 61 76 6f |ile path| & "Favo|
|000022d0| 72 69 74 65 22 0d 72 65 | 61 64 20 66 72 6f 6d 20 |rite".re|ad from |
|000022e0| 66 69 6c 65 20 70 61 74 | 68 20 26 20 22 46 61 76 |file pat|h & "Fav|
|000022f0| 6f 72 69 74 65 22 20 75 | 6e 74 69 6c 20 65 6d 70 |orite" u|ntil emp|
|00002300| 74 79 0d 57 72 69 74 65 | 20 66 61 76 61 64 64 20 |ty.Write| favadd |
|00002310| 26 20 72 65 74 75 72 6e | 20 74 6f 20 66 69 6c 65 |& return| to file|
|00002320| 20 70 61 74 68 20 26 20 | 22 46 61 76 6f 72 69 74 | path & |"Favorit|
|00002330| 65 22 0d 63 6c 6f 73 65 | 20 66 69 6c 65 20 70 61 |e".close| file pa|
|00002340| 74 68 20 26 20 22 46 61 | 76 6f 72 69 74 65 22 0d |th & "Fa|vorite".|
|00002350| 65 6e 64 20 66 61 64 64 | 0d 0d 6f 6e 20 66 74 65 |end fadd|..on fte|
|00002360| 73 74 0d 67 6c 6f 62 61 | 6c 20 70 61 74 68 0d 6f |st.globa|l path.o|
|00002370| 70 65 6e 20 66 69 6c 65 | 20 70 61 74 68 20 26 20 |pen file| path & |
|00002380| 22 46 61 76 6f 72 69 74 | 65 22 0d 57 72 69 74 65 |"Favorit|e".Write|
|00002390| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | " | |
|000023a0| 20 20 20 20 46 61 76 6f | 72 69 74 65 20 53 69 74 | Favo|rite Sit|
|000023b0| 65 73 3a 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |es:" & r|eturn & |
|000023c0| 72 65 74 75 72 6e 20 74 | 6f 20 66 69 6c 65 20 70 |return t|o file p|
|000023d0| 61 74 68 20 26 20 22 46 | 61 76 6f 72 69 74 65 22 |ath & "F|avorite"|
|000023e0| 0d 63 6c 6f 73 65 20 66 | 69 6c 65 20 70 61 74 68 |.close f|ile path|
|000023f0| 20 26 20 22 46 61 76 6f | 72 69 74 65 22 0d 65 6e | & "Favo|rite".en|
|00002400| 64 20 66 74 65 73 74 0d | 0d 6f 6e 20 66 64 65 6c |d ftest.|.on fdel|
|00002410| 65 74 65 0d 67 6c 6f 62 | 61 6c 20 70 61 74 68 0d |ete.glob|al path.|
|00002420| 69 66 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 6c |if the s|electedl|
|00002430| 69 6e 65 20 69 73 20 65 | 6d 70 74 79 20 74 68 65 |ine is e|mpty the|
|00002440| 6e 0d 61 6e 73 77 65 72 | 20 22 53 65 6c 65 63 74 |n.answer| "Select|
|00002450| 20 61 20 73 69 74 65 20 | 74 6f 20 64 65 6c 65 74 | a site |to delet|
|00002460| 65 20 77 69 74 68 20 75 | 73 69 6e 67 20 74 68 65 |e with u|sing the|
|00002470| 20 75 70 2f 64 6f 77 6e | 20 61 72 72 6f 77 20 6b | up/down| arrow k|
|00002480| 65 79 73 22 0d 65 78 69 | 74 20 66 64 65 6c 65 74 |eys".exi|t fdelet|
|00002490| 65 0d 65 6e 64 20 69 66 | 0d 64 65 6c 65 74 65 20 |e.end if|.delete |
|000024a0| 6c 69 6e 65 20 28 77 6f | 72 64 20 32 20 6f 66 20 |line (wo|rd 2 of |
|000024b0| 74 68 65 20 73 65 6c 65 | 63 74 65 64 6c 69 6e 65 |the sele|ctedline|
|000024c0| 29 20 6f 66 20 63 61 72 | 64 20 66 69 65 6c 64 20 |) of car|d field |
|000024d0| 64 61 74 61 0d 6f 70 65 | 6e 20 66 69 6c 65 20 70 |data.ope|n file p|
|000024e0| 61 74 68 20 26 20 22 46 | 61 76 6f 72 69 74 65 22 |ath & "F|avorite"|
|000024f0| 0d 77 72 69 74 65 20 63 | 61 72 64 20 66 69 65 6c |.write c|ard fiel|
|00002500| 64 20 64 61 74 61 20 74 | 6f 20 66 69 6c 65 20 70 |d data t|o file p|
|00002510| 61 74 68 20 26 20 22 46 | 61 76 6f 72 69 74 65 22 |ath & "F|avorite"|
|00002520| 0d 63 6c 6f 73 65 20 66 | 69 6c 65 20 70 61 74 68 |.close f|ile path|
|00002530| 20 26 20 22 46 61 76 6f | 72 69 74 65 22 0d 65 6e | & "Favo|rite".en|
|00002540| 64 20 66 64 65 6c 65 74 | 65 0d 0d 6f 6e 20 57 48 |d fdelet|e..on WH|
|00002550| 41 54 49 53 20 20 2d 2d | 20 4f 70 65 6e 20 74 68 |ATIS --| Open th|
|00002560| 65 20 57 48 41 54 49 53 | 20 66 69 6c 65 20 61 6e |e WHATIS| file an|
|00002570| 64 20 64 69 73 70 6c 61 | 79 20 69 74 0d 67 6c 6f |d displa|y it.glo|
|00002580| 62 61 6c 20 70 61 74 68 | 2c 67 6f 62 61 63 6b 2c |bal path|,goback,|
|00002590| 66 6c 6e 6d 65 0d 70 75 | 74 20 22 57 48 41 54 49 |flnme.pu|t "WHATI|
|000025a0| 53 22 20 69 6e 74 6f 20 | 66 6c 6e 6d 65 0d 66 69 |S" into |flnme.fi|
|000025b0| 6c 65 6d 61 6e 0d 65 6e | 64 20 57 48 41 54 49 53 |leman.en|d WHATIS|
|000025c0| 0d 6f 6e 20 53 49 54 45 | 53 31 20 20 2d 2d 20 4f |.on SITE|S1 -- O|
|000025d0| 70 65 6e 20 61 6e 64 20 | 64 69 73 70 6c 61 79 20 |pen and |display |
|000025e0| 53 49 54 45 53 31 0d 67 | 6c 6f 62 61 6c 20 70 61 |SITES1.g|lobal pa|
|000025f0| 74 68 2c 67 6f 62 61 63 | 6b 2c 66 6c 6e 6d 65 0d |th,gobac|k,flnme.|
|00002600| 70 75 74 20 22 53 49 54 | 45 53 31 22 20 69 6e 74 |put "SIT|ES1" int|
|00002610| 6f 20 66 6c 6e 6d 65 0d | 66 69 6c 65 6d 61 6e 0d |o flnme.|fileman.|
|00002620| 65 6e 64 20 53 49 54 45 | 53 31 0d 6f 6e 20 53 49 |end SITE|S1.on SI|
|00002630| 54 45 53 32 20 20 2d 2d | 20 4f 70 65 6e 20 61 6e |TES2 --| Open an|
|00002640| 64 20 64 69 73 70 6c 61 | 79 20 53 49 54 45 53 32 |d displa|y SITES2|
|00002650| 0d 67 6c 6f 62 61 6c 20 | 70 61 74 68 2c 67 6f 62 |.global |path,gob|
|00002660| 61 63 6b 2c 66 6c 6e 6d | 65 0d 70 75 74 20 22 53 |ack,flnm|e.put "S|
|00002670| 49 54 45 53 32 22 20 69 | 6e 74 6f 20 66 6c 6e 6d |ITES2" i|nto flnm|
|00002680| 65 0d 66 69 6c 65 6d 61 | 6e 0d 65 6e 64 20 53 49 |e.filema|n.end SI|
|00002690| 54 45 53 32 0d 6f 6e 20 | 63 61 74 68 65 6c 70 0d |TES2.on |cathelp.|
|000026a0| 67 6c 6f 62 61 6c 20 70 | 61 74 68 2c 67 6f 62 61 |global p|ath,goba|
|000026b0| 63 6b 2c 66 6c 6e 6d 65 | 0d 70 75 74 20 22 4f 50 |ck,flnme|.put "OP|
|000026c0| 30 30 30 22 20 69 6e 74 | 6f 20 66 6c 6e 6d 65 0d |000" int|o flnme.|
|000026d0| 66 69 6c 65 6d 61 6e 0d | 65 6e 64 20 63 61 74 68 |fileman.|end cath|
|000026e0| 65 6c 70 0d 6f 6e 20 47 | 4c 4f 53 53 41 52 59 0d |elp.on G|LOSSARY.|
|000026f0| 67 6c 6f 62 61 6c 20 70 | 61 74 68 2c 67 6f 62 61 |global p|ath,goba|
|00002700| 63 6b 2c 66 6c 6e 6d 65 | 0d 70 75 74 20 22 47 4c |ck,flnme|.put "GL|
|00002710| 4f 53 53 41 52 59 22 20 | 69 6e 74 6f 20 66 6c 6e |OSSARY" |into fln|
|00002720| 6d 65 0d 66 69 6c 65 6d | 61 6e 0d 65 6e 64 20 47 |me.filem|an.end G|
|00002730| 4c 4f 53 53 41 52 59 0d | 6f 6e 20 63 61 74 69 6e |LOSSARY.|on catin|
|00002740| 74 65 72 0d 67 6c 6f 62 | 61 6c 20 70 61 74 68 2c |ter.glob|al path,|
|00002750| 67 6f 62 61 63 6b 2c 66 | 6c 6e 6d 65 0d 70 75 74 |goback,f|lnme.put|
|00002760| 20 22 53 59 53 30 30 30 | 22 20 69 6e 74 6f 20 66 | "SYS000|" into f|
|00002770| 6c 6e 6d 65 0d 66 69 6c | 65 6d 61 6e 0d 65 6e 64 |lnme.fil|eman.end|
|00002780| 20 63 61 74 69 6e 74 65 | 72 0d 6f 6e 20 74 65 6c | catinte|r.on tel|
|00002790| 68 65 6c 70 0d 67 6c 6f | 62 61 6c 20 70 61 74 68 |help.glo|bal path|
|000027a0| 2c 67 6f 62 61 63 6b 2c | 66 6c 6e 6d 65 0d 70 75 |,goback,|flnme.pu|
|000027b0| 74 20 22 54 45 4c 4e 45 | 54 22 20 69 6e 74 6f 20 |t "TELNE|T" into |
|000027c0| 66 6c 6e 6d 65 0d 66 69 | 6c 65 6d 61 6e 0d 65 6e |flnme.fi|leman.en|
|000027d0| 64 20 74 65 6c 68 65 6c | 70 0d 0d 6f 6e 20 64 6f |d telhel|p..on do|
|000027e0| 6d 65 6e 75 20 77 68 61 | 74 0d 69 66 20 77 68 61 |menu wha|t.if wha|
|000027f0| 74 20 69 73 20 22 66 69 | 6e 64 2e 2e 2e 22 20 74 |t is "fi|nd..." t|
|00002800| 68 65 6e 0d 66 69 6e 64 | 73 69 74 65 0d 65 6c 73 |hen.find|site.els|
|00002810| 65 0d 70 61 73 73 20 64 | 6f 6d 65 6e 75 0d 65 6e |e.pass d|omenu.en|
|00002820| 64 20 69 66 0d 65 6e 64 | 20 64 6f 6d 65 6e 75 0d |d if.end| domenu.|
|00002830| 0d 6f 6e 20 66 69 6e 64 | 73 69 74 65 0d 67 6c 6f |.on find|site.glo|
|00002840| 62 61 6c 20 70 61 74 68 | 2c 66 6c 6e 6d 65 2c 66 |bal path|,flnme,f|
|00002850| 6f 75 6e 64 73 74 75 66 | 66 0d 61 73 6b 20 22 53 |oundstuf|f.ask "S|
|00002860| 65 61 63 68 20 64 61 74 | 61 62 61 73 65 20 66 6f |each dat|abase fo|
|00002870| 72 3a 20 22 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |r: ".put| it into|
|00002880| 20 66 69 6e 64 69 74 0d | 69 66 20 66 69 6e 64 69 | findit.|if findi|
|00002890| 74 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |t is emp|ty then |
|000028a0| 65 78 69 74 20 66 69 6e | 64 73 69 74 65 0d 73 65 |exit fin|dsite.se|
|000028b0| 74 20 6c 6f 63 6b 73 63 | 72 65 65 6e 20 74 6f 20 |t locksc|reen to |
|000028c0| 74 72 75 65 0d 73 65 74 | 20 6c 6f 63 6b 6d 65 73 |true.set| lockmes|
|000028d0| 73 61 67 65 73 20 74 6f | 20 74 72 75 65 0d 70 75 |sages to| true.pu|
|000028e0| 74 20 67 65 74 64 69 72 | 28 70 61 74 68 2c 22 44 |t getdir|(path,"D|
|000028f0| 22 29 20 69 6e 74 6f 20 | 64 69 72 6c 69 73 74 0d |") into |dirlist.|
|00002900| 70 75 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |put the |number o|
|00002910| 66 20 6c 69 6e 65 73 20 | 69 6e 20 64 69 72 6c 69 |f lines |in dirli|
|00002920| 73 74 20 69 6e 74 6f 20 | 72 70 74 6e 75 6d 0d 2d |st into |rptnum.-|
|00002930| 2d 20 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |- put em|pty into|
|00002940| 20 63 61 72 64 20 66 69 | 65 6c 64 20 64 61 74 61 | card fi|eld data|
|00002950| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|00002960| 66 6f 75 6e 64 73 74 75 | 66 66 0d 72 65 70 65 61 |foundstu|ff.repea|
|00002970| 74 20 77 69 74 68 20 78 | 3d 31 20 74 6f 20 72 70 |t with x|=1 to rp|
|00002980| 74 6e 75 6d 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |tnum.set| cursor |
|00002990| 74 6f 20 62 75 73 79 0d | 70 75 74 20 70 61 74 68 |to busy.|put path|
|000029a0| 20 26 20 6c 69 6e 65 20 | 78 20 6f 66 20 64 69 72 | & line |x of dir|
|000029b0| 6c 69 73 74 20 26 20 6c | 69 6e 65 20 78 20 6f 66 |list & l|ine x of|
|000029c0| 20 64 69 72 6c 69 73 74 | 20 69 6e 74 6f 20 6e 70 | dirlist| into np|
|000029d0| 61 74 68 0d 64 65 6c 65 | 74 65 20 6c 61 73 74 20 |ath.dele|te last |
|000029e0| 63 68 61 72 20 6f 66 20 | 6e 70 61 74 68 0d 69 66 |char of |npath.if|
|000029f0| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 6e 70 | last ch|ar of np|
|00002a00| 61 74 68 20 69 73 20 22 | 30 22 20 74 68 65 6e 20 |ath is "|0" then |
|00002a10| 64 65 6c 65 74 65 20 6c | 61 73 74 20 63 68 61 72 |delete l|ast char|
|00002a20| 20 6f 66 20 6e 70 61 74 | 68 0d 70 75 74 20 22 30 | of npat|h.put "0|
|00002a30| 30 30 22 20 61 66 74 65 | 72 20 6c 61 73 74 20 63 |00" afte|r last c|
|00002a40| 68 61 72 20 6f 66 20 6e | 70 61 74 68 0d 72 65 70 |har of n|path.rep|
|00002a50| 65 61 74 20 77 69 74 68 | 20 79 3d 31 20 74 6f 20 |eat with| y=1 to |
|00002a60| 37 0d 69 66 20 79 3d 31 | 20 74 68 65 6e 20 70 75 |7.if y=1| then pu|
|00002a70| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 73 75 66 |t empty |into suf|
|00002a80| 66 69 78 0d 65 6c 73 65 | 20 69 66 20 79 3d 32 20 |fix.else| if y=2 |
|00002a90| 74 68 65 6e 20 70 75 74 | 20 22 63 6f 6d 22 20 69 |then put| "com" i|
|00002aa0| 6e 74 6f 20 73 75 66 66 | 69 78 0d 65 6c 73 65 20 |nto suff|ix.else |
|00002ab0| 69 66 20 79 3d 33 20 74 | 68 65 6e 20 70 75 74 20 |if y=3 t|hen put |
|00002ac0| 22 63 6f 6e 22 20 69 6e | 74 6f 20 73 75 66 66 69 |"con" in|to suffi|
|00002ad0| 78 0d 65 6c 73 65 20 69 | 66 20 79 3d 34 20 74 68 |x.else i|f y=4 th|
|00002ae0| 65 6e 20 70 75 74 20 22 | 6b 31 32 22 20 69 6e 74 |en put "|k12" int|
|00002af0| 6f 20 73 75 66 66 69 78 | 0d 65 6c 73 65 20 69 66 |o suffix|.else if|
|00002b00| 20 79 3d 35 20 74 68 65 | 6e 20 70 75 74 20 22 6c | y=5 the|n put "l|
|00002b10| 61 77 22 20 69 6e 74 6f | 20 73 75 66 66 69 78 0d |aw" into| suffix.|
|00002b20| 65 6c 73 65 20 69 66 20 | 79 3d 36 20 74 68 65 6e |else if |y=6 then|
|00002b30| 20 70 75 74 20 22 6d 65 | 64 22 20 69 6e 74 6f 20 | put "me|d" into |
|00002b40| 73 75 66 66 69 78 0d 65 | 6c 73 65 20 69 66 20 79 |suffix.e|lse if y|
|00002b50| 3d 37 20 74 68 65 6e 20 | 70 75 74 20 22 70 75 62 |=7 then |put "pub|
|00002b60| 22 20 69 6e 74 6f 20 73 | 75 66 66 69 78 0d 70 75 |" into s|uffix.pu|
|00002b70| 74 20 6e 70 61 74 68 20 | 26 20 73 75 66 66 69 78 |t npath |& suffix|
|00002b80| 20 69 6e 74 6f 20 6e 70 | 61 74 68 32 0d 69 66 20 | into np|ath2.if |
|00002b90| 74 68 65 72 65 20 69 73 | 20 61 20 66 69 6c 65 20 |there is| a file |
|00002ba0| 6e 70 61 74 68 32 20 74 | 68 65 6e 0d 6f 70 65 6e |npath2 t|hen.open|
|00002bb0| 20 66 69 6c 65 20 6e 70 | 61 74 68 32 0d 72 65 61 | file np|ath2.rea|
|00002bc0| 64 20 66 72 6f 6d 20 66 | 69 6c 65 20 6e 70 61 74 |d from f|ile npat|
|00002bd0| 68 32 20 75 6e 74 69 6c | 20 65 6d 70 74 79 0d 67 |h2 until| empty.g|
|00002be0| 65 74 20 73 74 72 69 70 | 70 65 72 28 69 74 29 0d |et strip|per(it).|
|00002bf0| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 63 64 20 66 |put it i|nto cd f|
|00002c00| 6c 64 20 22 64 61 74 61 | 22 0d 63 6c 6f 73 65 20 |ld "data|".close |
|00002c10| 66 69 6c 65 20 6e 70 61 | 74 68 32 0d 72 65 70 65 |file npa|th2.repe|
|00002c20| 61 74 0d 66 69 6e 64 20 | 73 74 72 69 6e 67 20 66 |at.find |string f|
|00002c30| 69 6e 64 69 74 20 69 6e | 20 63 61 72 64 20 66 69 |indit in| card fi|
|00002c40| 65 6c 64 20 64 61 74 61 | 0d 69 66 20 74 68 65 20 |eld data|.if the |
|00002c50| 72 65 73 75 6c 74 20 69 | 73 20 65 6d 70 74 79 20 |result i|s empty |
|00002c60| 74 68 65 6e 0d 70 75 74 | 20 6c 69 6e 65 20 28 77 |then.put| line (w|
|00002c70| 6f 72 64 20 32 20 6f 66 | 20 74 68 65 20 66 6f 75 |ord 2 of| the fou|
|00002c80| 6e 64 6c 69 6e 65 29 20 | 6f 66 20 63 61 72 64 20 |ndline) |of card |
|00002c90| 66 69 65 6c 64 20 64 61 | 74 61 20 69 6e 74 6f 20 |field da|ta into |
|00002ca0| 66 6f 75 6e 64 74 65 6d | 70 0d 69 66 20 66 6f 75 |foundtem|p.if fou|
|00002cb0| 6e 64 74 65 6d 70 20 63 | 6f 6e 74 61 69 6e 73 20 |ndtemp c|ontains |
|00002cc0| 22 3c 22 20 74 68 65 6e | 20 70 75 74 20 66 6f 75 |"<" then| put fou|
|00002cd0| 6e 64 74 65 6d 70 20 26 | 20 72 65 74 75 72 6e 20 |ndtemp &| return |
|00002ce0| 61 66 74 65 72 20 6c 61 | 73 74 20 63 68 61 72 20 |after la|st char |
|00002cf0| 6f 66 20 66 6f 75 6e 64 | 73 74 75 66 66 0d 64 65 |of found|stuff.de|
|00002d00| 6c 65 74 65 20 6c 69 6e | 65 20 31 20 74 6f 20 28 |lete lin|e 1 to (|
|00002d10| 77 6f 72 64 20 32 20 6f | 66 20 74 68 65 20 66 6f |word 2 o|f the fo|
|00002d20| 75 6e 64 6c 69 6e 65 29 | 20 6f 66 20 63 61 72 64 |undline)| of card|
|00002d30| 20 66 69 65 6c 64 20 64 | 61 74 61 0d 65 6c 73 65 | field d|ata.else|
|00002d40| 0d 65 78 69 74 20 72 65 | 70 65 61 74 0d 65 6e 64 |.exit re|peat.end|
|00002d50| 20 69 66 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 | if.end |repeat.e|
|00002d60| 6e 64 20 69 66 0d 65 6e | 64 20 72 65 70 65 61 74 |nd if.en|d repeat|
|00002d70| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 69 66 20 66 |.end rep|eat.if f|
|00002d80| 6f 75 6e 64 73 74 75 66 | 66 20 69 73 20 65 6d 70 |oundstuf|f is emp|
|00002d90| 74 79 20 74 68 65 6e 0d | 70 75 74 20 63 61 72 64 |ty then.|put card|
|00002da0| 20 66 69 65 6c 64 20 66 | 69 6c 65 6e 61 6d 65 20 | field f|ilename |
|00002db0| 69 6e 74 6f 20 66 6c 6e | 6d 65 0d 66 69 6c 65 6d |into fln|me.filem|
|00002dc0| 61 6e 0d 61 6e 73 77 65 | 72 20 22 4e 6f 20 6d 61 |an.answe|r "No ma|
|00002dd0| 74 63 68 65 73 22 0d 65 | 6c 73 65 0d 70 75 74 20 |tches".e|lse.put |
|00002de0| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00002df0| 20 20 20 20 46 6f 75 6e | 64 20 73 69 74 65 73 22 | Foun|d sites"|
|00002e00| 20 26 20 72 65 74 75 72 | 6e 20 26 20 72 65 74 75 | & retur|n & retu|
|00002e10| 72 6e 20 69 6e 74 6f 20 | 63 61 72 64 20 66 69 65 |rn into |card fie|
|00002e20| 6c 64 20 64 61 74 61 0d | 70 75 74 20 22 46 6f 75 |ld data.|put "Fou|
|00002e30| 6e 64 22 20 69 6e 74 6f | 20 63 61 72 64 20 66 69 |nd" into| card fi|
|00002e40| 65 6c 64 20 66 69 6c 65 | 6e 61 6d 65 0d 70 75 74 |eld file|name.put|
|00002e50| 20 66 6f 75 6e 64 73 74 | 75 66 66 20 61 66 74 65 | foundst|uff afte|
|00002e60| 72 20 6c 61 73 74 20 63 | 68 61 72 20 6f 66 20 63 |r last c|har of c|
|00002e70| 61 72 64 20 66 69 65 6c | 64 20 64 61 74 61 0d 65 |ard fiel|d data.e|
|00002e80| 6e 61 62 6c 65 20 6d 65 | 6e 75 69 74 65 6d 20 22 |nable me|nuitem "|
|00002e90| 52 65 70 65 61 74 20 46 | 69 6e 64 22 20 6f 66 20 |Repeat F|ind" of |
|00002ea0| 6d 65 6e 75 20 22 47 6f | 22 0d 65 6e 64 20 69 66 |menu "Go|".end if|
|00002eb0| 0d 73 65 74 20 6c 6f 63 | 6b 73 63 72 65 65 6e 20 |.set loc|kscreen |
|00002ec0| 74 6f 20 66 61 6c 73 65 | 0d 73 65 74 20 6c 6f 63 |to false|.set loc|
|00002ed0| 6b 6d 65 73 73 61 67 65 | 73 20 74 6f 20 66 61 6c |kmessage|s to fal|
|00002ee0| 73 65 0d 65 6e 64 20 66 | 69 6e 64 73 69 74 65 0d |se.end f|indsite.|
|00002ef0| 0d 6f 6e 20 72 66 69 6e | 64 0d 67 6c 6f 62 61 6c |.on rfin|d.global|
|00002f00| 20 70 61 74 68 2c 66 6c | 6e 6d 65 2c 66 6f 75 6e | path,fl|nme,foun|
|00002f10| 64 73 74 75 66 66 0d 69 | 66 20 66 6f 75 6e 64 73 |dstuff.i|f founds|
|00002f20| 74 75 66 66 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |tuff is |not empt|
|00002f30| 79 20 74 68 65 6e 0d 70 | 75 74 20 22 20 20 20 20 |y then.p|ut " |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00002f50| 6f 75 6e 64 20 73 69 74 | 65 73 22 20 26 20 72 65 |ound sit|es" & re|
|00002f60| 74 75 72 6e 20 26 20 72 | 65 74 75 72 6e 20 69 6e |turn & r|eturn in|
|00002f70| 74 6f 20 63 61 72 64 20 | 66 69 65 6c 64 20 64 61 |to card |field da|
|00002f80| 74 61 0d 70 75 74 20 22 | 46 6f 75 6e 64 22 20 69 |ta.put "|Found" i|
|00002f90| 6e 74 6f 20 63 61 72 64 | 20 66 69 65 6c 64 20 66 |nto card| field f|
|00002fa0| 69 6c 65 6e 61 6d 65 0d | 70 75 74 20 66 6f 75 6e |ilename.|put foun|
|00002fb0| 64 73 74 75 66 66 20 61 | 66 74 65 72 20 6c 61 73 |dstuff a|fter las|
|00002fc0| 74 20 63 68 61 72 20 6f | 66 20 63 61 72 64 20 66 |t char o|f card f|
|00002fd0| 69 65 6c 64 20 64 61 74 | 61 0d 65 6e 64 20 69 66 |ield dat|a.end if|
|00002fe0| 0d 65 6e 64 20 72 66 69 | 6e 64 0d 0d 6f 6e 20 61 |.end rfi|nd..on a|
|00002ff0| 62 6f 75 74 68 72 20 2d | 2d 20 44 69 73 70 61 6c |bouthr -|- Dispal|
|00003000| 79 20 61 62 6f 75 74 20 | 64 69 61 6c 6f 67 2c 20 |y about |dialog, |
|00003010| 77 68 69 63 68 20 77 69 | 6c 6c 20 61 6c 6c 20 79 |which wi|ll all y|
|00003020| 6f 75 20 74 6f 20 64 69 | 73 70 6c 61 79 20 74 68 |ou to di|splay th|
|00003030| 65 0d 2d 2d 20 20 20 20 | 20 20 20 20 20 20 68 65 |e.-- | he|
|00003040| 6c 70 20 66 6c 64 2e 0d | 61 6e 73 77 65 72 20 22 |lp fld..|answer "|
|00003050| 48 79 74 65 6c 6e 65 74 | 20 36 2e 37 20 77 61 73 |Hytelnet| 6.7 was|
|00003060| 20 77 72 69 74 74 65 6e | 20 62 79 20 50 65 74 65 | written| by Pete|
|00003070| 72 20 53 63 6f 74 74 2e | 20 48 79 70 65 72 43 61 |r Scott.| HyperCa|
|00003080| 72 64 20 66 72 6f 6e 74 | 20 65 6e 64 20 62 79 20 |rd front| end by |
|00003090| 43 68 61 72 6c 65 73 20 | 42 75 72 63 68 69 6c 6c |Charles |Burchill|
|000030a0| 2e 22 20 26 20 72 65 74 | 75 72 6e 20 26 20 22 56 |." & ret|urn & "V|
|000030b0| 65 72 73 69 6f 6e 20 36 | 2e 37 2e 31 2c 20 4d 61 |ersion 6|.7.1, Ma|
|000030c0| 79 20 32 30 2c 31 39 39 | 36 22 20 77 69 74 68 20 |y 20,199|6" with |
|000030d0| 22 48 65 6c 70 22 20 6f | 72 20 22 4f 4b 22 0d 69 |"Help" o|r "OK".i|
|000030e0| 66 20 69 74 20 69 73 20 | 22 48 65 6c 70 22 20 74 |f it is |"Help" t|
|000030f0| 68 65 6e 20 68 65 6c 70 | 6f 75 74 20 2d 2d 20 73 |hen help|out -- s|
|00003100| 68 6f 77 20 63 64 20 66 | 6c 64 20 22 68 65 6c 70 |how cd f|ld "help|
|00003110| 22 0d 65 6e 64 20 61 62 | 6f 75 74 68 72 0d 6f 6e |".end ab|outhr.on|
|00003120| 20 68 65 6c 70 0d 68 65 | 6c 70 6f 75 74 0d 65 6e | help.he|lpout.en|
|00003130| 64 20 68 65 6c 70 0d 6f | 6e 20 68 65 6c 70 6f 75 |d help.o|n helpou|
|00003140| 74 0d 73 65 74 20 74 68 | 65 20 73 63 72 6f 6c 6c |t.set th|e scroll|
|00003150| 20 6f 66 20 63 64 20 66 | 6c 64 20 22 68 65 6c 70 | of cd f|ld "help|
|00003160| 22 20 74 6f 20 30 0d 73 | 68 6f 77 20 63 64 20 66 |" to 0.s|how cd f|
|00003170| 6c 64 20 22 68 65 6c 70 | 22 0d 65 6e 64 20 68 65 |ld "help|".end he|
|00003180| 6c 70 6f 75 74 0d 0d 6f | 6e 20 66 69 6c 65 6d 61 |lpout..o|n filema|
|00003190| 6e 20 20 2d 2d 20 66 69 | 6c 65 20 6d 61 6e 61 67 |n -- fi|le manag|
|000031a0| 65 72 0d 67 6c 6f 62 61 | 6c 20 70 61 74 68 2c 67 |er.globa|l path,g|
|000031b0| 6f 62 61 63 6b 2c 66 6c | 6e 6d 65 0d 69 66 20 66 |oback,fl|nme.if f|
|000031c0| 6c 6e 6d 65 20 69 73 20 | 22 46 61 76 6f 72 69 74 |lnme is |"Favorit|
|000031d0| 65 22 20 74 68 65 6e 0d | 65 6e 61 62 6c 65 20 6d |e" then.|enable m|
|000031e0| 65 6e 75 69 74 65 6d 20 | 22 44 65 6c 65 74 65 22 |enuitem |"Delete"|
|000031f0| 20 6f 66 20 6d 65 6e 75 | 20 22 48 79 74 65 6c 6e | of menu| "Hyteln|
|00003200| 65 74 22 0d 65 6c 73 65 | 0d 64 69 73 61 62 6c 65 |et".else|.disable|
|00003210| 20 6d 65 6e 75 69 74 65 | 6d 20 22 44 65 6c 65 74 | menuite|m "Delet|
|00003220| 65 22 20 6f 66 20 6d 65 | 6e 75 20 22 48 79 74 65 |e" of me|nu "Hyte|
|00003230| 6c 6e 65 74 22 0d 65 6e | 64 20 69 66 0d 0d 70 75 |lnet".en|d if..pu|
|00003240| 74 20 66 6c 6e 6d 65 20 | 69 6e 74 6f 20 73 66 6c |t flnme |into sfl|
|00003250| 6e 6d 65 20 2d 2d 20 74 | 65 6d 70 20 76 61 72 69 |nme -- t|emp vari|
|00003260| 61 62 6c 65 20 73 66 6c | 6e 6d 65 20 63 6f 6e 74 |able sfl|nme cont|
|00003270| 61 69 6e 73 20 74 68 65 | 20 66 69 6c 65 6e 61 6d |ains the| filenam|
|00003280| 65 0d 70 75 74 20 70 61 | 74 68 26 73 66 6c 6e 6d |e.put pa|th&sflnm|
|00003290| 65 20 69 6e 74 6f 20 66 | 6c 6e 6d 65 20 20 2d 2d |e into f|lnme --|
|000032a0| 20 4d 61 6b 65 20 66 6c | 6e 6d 65 20 74 68 65 20 | Make fl|nme the |
|000032b0| 77 68 6f 6c 65 20 70 61 | 74 68 20 74 6f 20 74 68 |whole pa|th to th|
|000032c0| 65 20 66 69 6c 65 0d 2d | 2d 20 20 20 20 20 20 20 |e file.-|- |
|000032d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000032e0| 20 20 20 20 20 20 50 61 | 74 68 20 63 6f 6e 74 61 | Pa|th conta|
|000032f0| 69 6e 73 20 74 68 65 20 | 70 61 74 68 20 74 6f 20 |ins the |path to |
|00003300| 74 68 65 20 48 79 74 65 | 6c 6e 65 74 20 44 61 74 |the Hyte|lnet Dat|
|00003310| 61 20 66 6f 6c 64 65 72 | 0d 2d 2d 20 20 20 20 20 |a folder|.-- |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003330| 20 20 20 20 20 20 20 20 | 43 72 65 61 74 65 64 20 | |Created |
|00003340| 61 74 20 73 74 61 72 74 | 75 70 2c 20 6f 72 20 62 |at start|up, or b|
|00003350| 79 20 74 68 65 20 6e 65 | 74 77 6f 72 6b 20 62 75 |y the ne|twork bu|
|00003360| 74 74 6f 6e 2e 0d 69 66 | 20 74 68 65 72 65 20 69 |tton..if| there i|
|00003370| 73 20 61 20 66 69 6c 65 | 20 66 6c 6e 6d 65 20 74 |s a file| flnme t|
|00003380| 68 65 6e 20 20 2d 2d 20 | 63 68 65 63 6b 20 69 66 |hen -- |check if|
|00003390| 20 74 68 65 20 66 69 6c | 65 20 72 65 61 6c 6c 79 | the fil|e really|
|000033a0| 20 65 78 69 74 73 20 69 | 6e 20 74 68 65 20 48 79 | exits i|n the Hy|
|000033b0| 74 65 6c 6e 65 74 20 64 | 61 74 61 20 66 6f 6c 64 |telnet d|ata fold|
|000033c0| 65 72 2e 2e 0d 69 66 20 | 67 6f 62 61 63 6b 20 69 |er...if |goback i|
|000033d0| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |s empty |then.put|
|000033e0| 20 73 66 6c 6e 6d 65 20 | 69 6e 74 6f 20 67 6f 62 | sflnme |into gob|
|000033f0| 61 63 6b 0d 65 6c 73 65 | 0d 70 75 74 20 22 2c 22 |ack.else|.put ","|
|00003400| 20 26 20 73 66 6c 6e 6d | 65 20 61 66 74 65 72 20 | & sflnm|e after |
|00003410| 6c 61 73 74 20 63 68 61 | 72 20 6f 66 20 67 6f 62 |last cha|r of gob|
|00003420| 61 63 6b 0d 65 6e 64 20 | 69 66 0d 70 75 74 20 73 |ack.end |if.put s|
|00003430| 66 6c 6e 6d 65 20 69 6e | 74 6f 20 63 64 20 66 6c |flnme in|to cd fl|
|00003440| 64 20 22 66 69 6c 65 6e | 61 6d 65 22 20 20 2d 2d |d "filen|ame" --|
|00003450| 20 73 68 6f 77 20 74 68 | 65 20 63 75 72 72 65 6e | show th|e curren|
|00003460| 74 20 66 69 6c 65 20 6e | 61 6d 65 2e 0d 2d 2d 20 |t file n|ame..-- |
|00003470| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 69 73 |the foll|owing is|
|00003480| 20 75 73 65 64 20 69 6e | 20 6d 61 6e 79 20 70 6c | used in| many pl|
|00003490| 61 63 65 73 20 61 6e 64 | 20 73 68 6f 75 6c 64 20 |aces and| should |
|000034a0| 62 65 20 70 75 74 20 69 | 6e 74 6f 20 61 20 66 75 |be put i|nto a fu|
|000034b0| 6e 63 74 69 6f 6e 2e 0d | 2d 2d 20 69 74 20 6f 70 |nction..|-- it op|
|000034c0| 65 6e 73 20 74 68 65 20 | 66 69 6c 65 20 61 6e 64 |ens the |file and|
|000034d0| 20 64 69 73 70 6c 61 79 | 73 20 69 74 20 69 6e 20 | display|s it in |
|000034e0| 74 68 65 20 64 61 74 61 | 20 66 6c 64 2e 0d 6f 70 |the data| fld..op|
|000034f0| 65 6e 20 66 69 6c 65 20 | 66 6c 6e 6d 65 20 20 2d |en file |flnme -|
|00003500| 2d 20 33 0d 72 65 61 64 | 20 66 72 6f 6d 20 66 69 |- 3.read| from fi|
|00003510| 6c 65 20 66 6c 6e 6d 65 | 20 75 6e 74 69 6c 20 65 |le flnme| until e|
|00003520| 6d 70 74 79 0d 67 65 74 | 20 73 74 72 69 70 70 65 |mpty.get| strippe|
|00003530| 72 28 69 74 29 0d 70 75 | 74 20 69 74 20 69 6e 74 |r(it).pu|t it int|
|00003540| 6f 20 63 64 20 66 6c 64 | 20 22 64 61 74 61 22 0d |o cd fld| "data".|
|00003550| 63 6c 6f 73 65 20 66 69 | 6c 65 20 66 6c 6e 6d 65 |close fi|le flnme|
|00003560| 0d 73 65 74 20 74 68 65 | 20 73 63 72 6f 6c 6c 20 |.set the| scroll |
|00003570| 6f 66 20 63 64 20 66 6c | 64 20 22 64 61 74 61 22 |of cd fl|d "data"|
|00003580| 20 74 6f 20 30 0d 2d 2d | 20 43 68 65 63 6b 20 74 | to 0.--| Check t|
|00003590| 68 65 20 73 69 7a 65 20 | 6f 66 20 67 6f 62 61 63 |he size |of gobac|
|000035a0| 6b 2c 20 6b 65 65 70 20 | 69 74 20 61 74 20 74 77 |k, keep |it at tw|
|000035b0| 65 6e 74 79 20 69 74 65 | 6d 73 0d 69 66 20 74 68 |enty ite|ms.if th|
|000035c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |e number| of item|
|000035d0| 73 20 69 6e 20 67 6f 62 | 61 63 6b 20 3e 20 32 30 |s in gob|ack > 20|
|000035e0| 20 74 68 65 6e 20 2d 2d | 20 6d 61 6b 65 20 73 75 | then --| make su|
|000035f0| 72 65 20 67 6f 62 61 63 | 6b 20 64 6f 65 73 20 6e |re gobac|k does n|
|00003600| 6f 74 20 67 65 74 20 74 | 6f 20 62 69 67 2c 20 74 |ot get t|o big, t|
|00003610| 68 69 73 20 63 6f 75 6c | 64 20 63 72 61 73 68 20 |his coul|d crash |
|00003620| 48 43 2c 20 6d 6f 72 65 | 20 69 6d 70 6f 72 74 61 |HC, more| importa|
|00003630| 6e 74 20 74 68 65 20 70 | 6f 70 2d 75 70 20 6d 65 |nt the p|op-up me|
|00003640| 6e 75 20 77 69 6c 6c 20 | 77 6f 72 6b 20 62 65 74 |nu will |work bet|
|00003650| 74 65 72 2e 0d 64 65 6c | 65 74 65 20 74 68 65 20 |ter..del|ete the |
|00003660| 66 69 72 73 74 20 69 74 | 65 6d 20 6f 66 20 67 6f |first it|em of go|
|00003670| 62 61 63 6b 0d 65 6e 64 | 20 69 66 0d 73 65 6c 65 |back.end| if.sele|
|00003680| 63 74 66 73 74 0d 65 6c | 73 65 0d 2d 2d 20 49 6e |ctfst.el|se.-- In|
|00003690| 20 6d 6f 73 74 20 76 65 | 72 73 69 6f 6e 73 20 6f | most ve|rsions o|
|000036a0| 66 20 68 79 74 65 6c 6e | 65 74 20 74 68 65 20 64 |f hyteln|et the d|
|000036b0| 61 74 61 20 66 69 6c 65 | 73 20 61 72 65 20 6b 65 |ata file|s are ke|
|000036c0| 70 74 20 69 6e 20 73 75 | 62 2d 64 69 72 73 2e 0d |pt in su|b-dirs..|
|000036d0| 2d 2d 20 49 66 20 74 68 | 65 20 66 69 6c 65 20 69 |-- If th|e file i|
|000036e0| 73 20 6e 6f 74 20 69 6e | 20 74 68 65 20 48 79 74 |s not in| the Hyt|
|000036f0| 65 6c 6e 65 74 20 64 61 | 74 61 20 66 6f 6c 64 65 |elnet da|ta folde|
|00003700| 72 20 63 68 65 63 6b 20 | 74 68 65 20 20 73 75 62 |r check |the sub|
|00003710| 20 64 69 72 2e 0d 70 75 | 74 20 70 61 74 68 20 26 | dir..pu|t path &|
|00003720| 20 28 63 68 61 72 20 31 | 20 74 6f 20 33 20 6f 66 | (char 1| to 3 of|
|00003730| 20 73 66 6c 6e 6d 65 29 | 20 26 20 22 3a 22 20 26 | sflnme)| & ":" &|
|00003740| 20 73 66 6c 6e 6d 65 20 | 69 6e 74 6f 20 66 6c 6e | sflnme |into fln|
|00003750| 6d 65 20 2d 2d 20 61 64 | 64 20 73 75 62 2d 64 69 |me -- ad|d sub-di|
|00003760| 72 20 6e 61 6d 65 20 74 | 6f 20 73 65 61 72 63 68 |r name t|o search|
|00003770| 20 70 61 74 68 20 66 6f | 72 20 66 69 6c 65 0d 2d | path fo|r file.-|
|00003780| 2d 20 54 68 65 20 72 65 | 73 74 20 6f 66 20 74 68 |- The re|st of th|
|00003790| 69 73 20 73 63 72 69 70 | 74 20 69 73 20 74 68 65 |is scrip|t is the|
|000037a0| 20 73 61 6d 65 20 61 73 | 20 61 62 6f 76 65 20 28 | same as| above (|
|000037b0| 62 65 66 6f 72 65 20 65 | 6c 73 65 29 2e 0d 69 66 |before e|lse)..if|
|000037c0| 20 74 68 65 72 65 20 69 | 73 20 61 20 66 69 6c 65 | there i|s a file|
|000037d0| 20 66 6c 6e 6d 65 20 74 | 68 65 6e 20 20 2d 2d 20 | flnme t|hen -- |
|000037e0| 63 68 65 63 6b 20 69 66 | 20 74 68 65 20 66 69 6c |check if| the fil|
|000037f0| 65 20 72 65 61 6c 6c 79 | 20 65 78 69 74 73 2e 0d |e really| exits..|
|00003800| 69 66 20 67 6f 62 61 63 | 6b 20 69 73 20 65 6d 70 |if gobac|k is emp|
|00003810| 74 79 20 74 68 65 6e 0d | 70 75 74 20 73 66 6c 6e |ty then.|put sfln|
|00003820| 6d 65 20 69 6e 74 6f 20 | 67 6f 62 61 63 6b 0d 65 |me into |goback.e|
|00003830| 6c 73 65 0d 70 75 74 20 | 22 2c 22 20 26 20 73 66 |lse.put |"," & sf|
|00003840| 6c 6e 6d 65 20 61 66 74 | 65 72 20 6c 61 73 74 20 |lnme aft|er last |
|00003850| 63 68 61 72 20 6f 66 20 | 67 6f 62 61 63 6b 0d 65 |char of |goback.e|
|00003860| 6e 64 20 69 66 0d 70 75 | 74 20 73 66 6c 6e 6d 65 |nd if.pu|t sflnme|
|00003870| 20 69 6e 74 6f 20 63 64 | 20 66 6c 64 20 22 66 69 | into cd| fld "fi|
|00003880| 6c 65 6e 61 6d 65 22 0d | 6f 70 65 6e 20 66 69 6c |lename".|open fil|
|00003890| 65 20 66 6c 6e 6d 65 20 | 20 2d 2d 20 34 0d 72 65 |e flnme | -- 4.re|
|000038a0| 61 64 20 66 72 6f 6d 20 | 66 69 6c 65 20 66 6c 6e |ad from |file fln|
|000038b0| 6d 65 20 75 6e 74 69 6c | 20 65 6d 70 74 79 0d 67 |me until| empty.g|
|000038c0| 65 74 20 73 74 72 69 70 | 70 65 72 28 69 74 29 0d |et strip|per(it).|
|000038d0| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 63 64 20 66 |put it i|nto cd f|
|000038e0| 6c 64 20 22 64 61 74 61 | 22 0d 63 6c 6f 73 65 20 |ld "data|".close |
|000038f0| 66 69 6c 65 20 66 6c 6e | 6d 65 0d 73 65 74 20 74 |file fln|me.set t|
|00003900| 68 65 20 73 63 72 6f 6c | 6c 20 6f 66 20 63 64 20 |he scrol|l of cd |
|00003910| 66 6c 64 20 22 64 61 74 | 61 22 20 74 6f 20 30 0d |fld "dat|a" to 0.|
|00003920| 69 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |if the n|umber of|
|00003930| 20 69 74 65 6d 73 20 69 | 6e 20 67 6f 62 61 63 6b | items i|n goback|
|00003940| 20 3e 20 32 30 20 74 68 | 65 6e 20 2d 2d 20 6d 61 | > 20 th|en -- ma|
|00003950| 6b 65 20 73 75 72 65 20 | 67 6f 62 61 63 6b 20 64 |ke sure |goback d|
|00003960| 6f 65 73 20 6e 6f 74 20 | 67 65 74 20 74 6f 20 62 |oes not |get to b|
|00003970| 69 67 2c 20 74 68 69 73 | 20 63 6f 75 6c 64 20 63 |ig, this| could c|
|00003980| 72 61 73 68 20 48 43 2c | 20 6d 6f 72 65 20 69 6d |rash HC,| more im|
|00003990| 70 6f 72 74 61 6e 74 20 | 74 68 65 20 70 6f 70 2d |portant |the pop-|
|000039a0| 75 70 20 6d 65 6e 75 20 | 77 69 6c 6c 20 77 6f 72 |up menu |will wor|
|000039b0| 6b 20 62 65 74 74 65 72 | 2e 0d 64 65 6c 65 74 65 |k better|..delete|
|000039c0| 20 74 68 65 20 66 69 72 | 73 74 20 69 74 65 6d 20 | the fir|st item |
|000039d0| 6f 66 20 67 6f 62 61 63 | 6b 0d 65 6e 64 20 69 66 |of gobac|k.end if|
|000039e0| 0d 73 65 6c 65 63 74 66 | 73 74 0d 65 6c 73 65 0d |.selectf|st.else.|
|000039f0| 61 6e 73 77 65 72 20 22 | 46 69 6c 65 20 22 20 26 |answer "|File " &|
|00003a00| 20 71 75 6f 74 65 20 26 | 20 73 66 6c 6e 6d 65 20 | quote &| sflnme |
|00003a10| 26 20 71 75 6f 74 65 20 | 26 20 22 20 6e 6f 74 20 |& quote |& " not |
|00003a20| 66 6f 75 6e 64 2e 22 20 | 26 20 72 65 74 75 72 6e |found." |& return|
|00003a30| 20 26 20 20 22 49 66 20 | 79 6f 75 72 20 64 61 74 | & "If |your dat|
|00003a40| 61 20 66 69 6c 65 73 20 | 61 72 65 20 6e 6f 74 20 |a files |are not |
|00003a50| 6c 6f 63 61 74 65 64 20 | 69 6e 20 74 68 65 20 73 |located |in the s|
|00003a60| 61 6d 65 20 64 69 72 65 | 63 74 6f 72 79 20 61 73 |ame dire|ctory as|
|00003a70| 20 74 68 69 73 20 73 74 | 61 63 6b 20 79 6f 75 20 | this st|ack you |
|00003a80| 77 69 6c 6c 20 68 61 76 | 65 20 74 6f 20 63 68 65 |will hav|e to che|
|00003a90| 63 6b 20 74 68 65 20 6e | 65 74 77 6f 72 6b 20 62 |ck the n|etwork b|
|00003aa0| 75 74 74 6f 6e 20 69 6e | 20 74 68 65 20 63 6f 6e |utton in| the con|
|00003ab0| 66 69 67 75 72 61 74 69 | 6f 6e 20 64 69 61 6c 6f |figurati|on dialo|
|00003ac0| 67 2e 22 0d 73 65 6c 65 | 63 74 20 63 68 61 72 20 |g.".sele|ct char |
|00003ad0| 30 20 6f 66 20 63 64 20 | 66 6c 64 20 22 64 61 74 |0 of cd |fld "dat|
|00003ae0| 61 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |a".end i|f.end if|
|00003af0| 0d 65 6e 64 20 66 69 6c | 65 6d 61 6e 0d 0d 6f 6e |.end fil|eman..on|
|00003b00| 20 73 65 6c 65 63 74 66 | 73 74 0d 70 75 74 20 74 | selectf|st.put t|
|00003b10| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00003b20| 65 73 20 69 6e 20 63 64 | 20 66 6c 64 20 22 64 61 |es in cd| fld "da|
|00003b30| 74 61 22 20 69 6e 74 6f | 20 75 70 70 65 72 0d 70 |ta" into| upper.p|
|00003b40| 75 74 20 31 20 69 6e 74 | 6f 20 69 74 65 6d 6c 69 |ut 1 int|o itemli|
|00003b50| 6e 65 0d 2d 2d 20 67 65 | 74 20 63 68 65 63 6b 69 |ne.-- ge|t checki|
|00003b60| 74 28 29 0d 2d 2d 20 69 | 66 20 69 74 20 69 73 20 |t().-- i|f it is |
|00003b70| 65 6d 70 74 79 20 74 68 | 65 6e 0d 2d 2d 70 75 74 |empty th|en.--put|
|00003b80| 20 28 77 6f 72 64 20 32 | 20 6f 66 20 74 68 65 20 | (word 2| of the |
|00003b90| 66 6f 75 6e 64 6c 69 6e | 65 29 20 69 6e 74 6f 20 |foundlin|e) into |
|00003ba0| 69 74 65 6d 6c 69 6e 65 | 0d 72 65 70 65 61 74 20 |itemline|.repeat |
|00003bb0| 77 69 74 68 20 78 20 3d | 20 69 74 65 6d 6c 69 6e |with x =| itemlin|
|00003bc0| 65 20 74 6f 20 31 35 0d | 67 65 74 20 6c 69 6e 65 |e to 15.|get line|
|00003bd0| 20 78 20 6f 66 20 63 64 | 20 66 6c 64 20 22 64 61 | x of cd| fld "da|
|00003be0| 74 61 22 0d 70 75 74 20 | 6f 66 66 73 65 74 28 22 |ta".put |offset("|
|00003bf0| 3c 22 2c 69 74 29 20 69 | 6e 74 6f 20 66 73 74 62 |<",it) i|nto fstb|
|00003c00| 72 61 63 6b 65 74 0d 70 | 75 74 20 6f 66 66 73 65 |racket.p|ut offse|
|00003c10| 74 28 22 3e 22 2c 69 74 | 29 20 69 6e 74 6f 20 62 |t(">",it|) into b|
|00003c20| 72 61 63 6b 65 74 0d 69 | 66 20 66 73 74 62 72 61 |racket.i|f fstbra|
|00003c30| 63 6b 65 74 20 3e 20 30 | 20 74 68 65 6e 0d 69 66 |cket > 0| then.if|
|00003c40| 20 28 62 72 61 63 6b 65 | 74 20 2d 20 66 73 74 62 | (bracke|t - fstb|
|00003c50| 72 61 63 6b 65 74 29 20 | 3c 20 33 20 74 68 65 6e |racket) |< 3 then|
|00003c60| 0d 61 64 64 20 32 20 74 | 6f 20 62 72 61 63 6b 65 |.add 2 t|o bracke|
|00003c70| 74 0d 65 6c 73 65 0d 69 | 66 20 69 74 65 6d 6c 69 |t.else.i|f itemli|
|00003c80| 6e 65 20 ad 20 75 70 70 | 65 72 20 74 68 65 6e 20 |ne . upp|er then |
|00003c90| 73 65 6c 65 63 74 20 63 | 68 61 72 61 63 74 65 72 |select c|haracter|
|00003ca0| 20 28 66 73 74 62 72 61 | 63 6b 65 74 2b 31 29 20 | (fstbra|cket+1) |
|00003cb0| 74 6f 20 28 62 72 61 63 | 6b 65 74 2d 31 29 20 6f |to (brac|ket-1) o|
|00003cc0| 66 20 6c 69 6e 65 20 78 | 20 69 6e 20 63 64 20 66 |f line x| in cd f|
|00003cd0| 6c 64 20 22 64 61 74 61 | 22 0d 65 78 69 74 20 72 |ld "data|".exit r|
|00003ce0| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 65 6e 64 |epeat.en|d if.end|
|00003cf0| 20 69 66 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 2d | if.end |repeat.-|
|00003d00| 2d 20 65 6e 64 20 69 66 | 0d 65 6e 64 20 73 65 6c |- end if|.end sel|
|00003d10| 65 63 74 66 73 74 0d 0d | 66 75 6e 63 74 69 6f 6e |ectfst..|function|
|00003d20| 20 73 74 72 69 70 70 65 | 72 20 69 74 0d 69 66 20 | strippe|r it.if |
|00003d30| 74 68 65 20 66 69 72 73 | 74 20 63 68 61 72 20 6f |the firs|t char o|
|00003d40| 66 20 6c 69 6e 65 20 32 | 20 6f 66 20 69 74 20 69 |f line 2| of it i|
|00003d50| 73 20 6e 75 6d 74 6f 63 | 68 61 72 28 31 30 29 20 |s numtoc|har(10) |
|00003d60| 74 68 65 6e 0d 70 75 74 | 20 74 68 65 20 6e 75 6d |then.put| the num|
|00003d70| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 6f 66 20 |ber of l|ines of |
|00003d80| 69 74 20 69 6e 74 6f 20 | 72 70 74 6e 75 6d 0d 72 |it into |rptnum.r|
|00003d90| 65 70 65 61 74 20 77 69 | 74 68 20 78 20 3d 20 32 |epeat wi|th x = 2|
|00003da0| 20 74 6f 20 72 70 74 6e | 75 6d 0d 69 66 20 78 20 | to rptn|um.if x |
|00003db0| 3e 20 31 30 30 20 74 68 | 65 6e 20 73 65 74 20 63 |> 100 th|en set c|
|00003dc0| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 69 66 |ursor to| busy.if|
|00003dd0| 20 74 68 65 20 66 69 72 | 73 74 20 63 68 61 72 20 | the fir|st char |
|00003de0| 6f 66 20 6c 69 6e 65 20 | 78 20 6f 66 20 69 74 20 |of line |x of it |
|00003df0| 69 73 20 6e 75 6d 74 6f | 63 68 61 72 28 31 30 29 |is numto|char(10)|
|00003e00| 20 74 68 65 6e 0d 64 65 | 6c 65 74 65 20 74 68 65 | then.de|lete the|
|00003e10| 20 66 69 72 73 74 20 63 | 68 61 72 20 6f 66 20 6c | first c|har of l|
|00003e20| 69 6e 65 20 78 20 6f 66 | 20 69 74 0d 65 6e 64 20 |ine x of| it.end |
|00003e30| 69 66 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 |if.end r|epeat.re|
|00003e40| 74 75 72 6e 20 69 74 0d | 65 6c 73 65 0d 72 65 74 |turn it.|else.ret|
|00003e50| 75 72 6e 20 69 74 0d 65 | 6e 64 20 69 66 0d 65 6e |urn it.e|nd if.en|
|00003e60| 64 20 73 74 72 69 70 70 | 65 72 0d 0d 6f 6e 20 53 |d stripp|er..on S|
|00003e70| 68 72 69 6e 6b 65 72 0d | 69 66 20 28 74 68 65 20 |hrinker.|if (the |
|00003e80| 66 72 65 65 73 69 7a 65 | 20 6f 66 20 74 68 69 73 |freesize| of this|
|00003e90| 20 73 74 61 63 6b 29 20 | 3e 20 28 30 2e 31 35 20 | stack) |> (0.15 |
|00003ea0| 2a 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |* the si|ze of th|
|00003eb0| 69 73 20 73 74 61 63 6b | 29 20 74 68 65 6e 0d 70 |is stack|) then.p|
|00003ec0| 75 74 20 22 63 6f 6d 70 | 61 63 74 69 6e 67 20 73 |ut "comp|acting s|
|00003ed0| 74 61 63 6b 2c 20 20 50 | 6c 65 61 73 65 20 77 61 |tack, P|lease wa|
|00003ee0| 69 74 22 0d 64 6f 6d 65 | 6e 75 20 22 63 6f 6d 70 |it".dome|nu "comp|
|00003ef0| 61 63 74 20 73 74 61 63 | 6b 22 0d 68 69 64 65 20 |act stac|k".hide |
|00003f00| 74 68 65 20 6d 65 73 73 | 61 67 65 20 62 6f 78 0d |the mess|age box.|
|00003f10| 65 6e 64 20 69 66 0d 65 | 6e 64 20 53 68 72 69 6e |end if.e|nd Shrin|
|00003f20| 6b 65 72 0d 0d 6f 6e 20 | 61 72 72 6f 77 6b 65 79 |ker..on |arrowkey|
|00003f30| 20 64 69 72 65 63 74 69 | 6f 6e 0d 67 6c 6f 62 61 | directi|on.globa|
|00003f40| 6c 20 66 6c 6e 6d 65 0d | 70 75 74 20 31 20 69 6e |l flnme.|put 1 in|
|00003f50| 74 6f 20 6c 6f 77 65 72 | 0d 70 75 74 20 74 68 65 |to lower|.put the|
|00003f60| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00003f70| 20 69 6e 20 63 64 20 66 | 6c 64 20 22 64 61 74 61 | in cd f|ld "data|
|00003f80| 22 2b 31 20 69 6e 74 6f | 20 75 70 70 65 72 0d 73 |"+1 into| upper.s|
|00003f90| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 77 61 74 |et curso|r to wat|
|00003fa0| 63 68 0d 69 66 20 64 69 | 72 65 63 74 69 6f 6e 20 |ch.if di|rection |
|00003fb0| 69 73 20 22 64 6f 77 6e | 22 20 74 68 65 6e 0d 69 |is "down|" then.i|
|00003fc0| 66 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 6c 69 |f the se|lectedli|
|00003fd0| 6e 65 20 69 73 20 65 6d | 70 74 79 20 74 68 65 6e |ne is em|pty then|
|00003fe0| 0d 70 75 74 20 6c 6f 77 | 65 72 20 69 6e 74 6f 20 |.put low|er into |
|00003ff0| 62 72 61 63 6b 65 74 0d | 67 65 74 20 63 68 65 63 |bracket.|get chec|
|00004000| 6b 69 74 28 29 0d 69 66 | 20 69 74 20 69 73 20 6e |kit().if| it is n|
|00004010| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 65 78 |ot empty| then.ex|
|00004020| 69 74 20 61 72 72 6f 77 | 6b 65 79 0d 65 6c 73 65 |it arrow|key.else|
|00004030| 0d 70 75 74 20 28 77 6f | 72 64 20 32 20 6f 66 20 |.put (wo|rd 2 of |
|00004040| 74 68 65 20 66 6f 75 6e | 64 6c 69 6e 65 29 20 69 |the foun|dline) i|
|00004050| 6e 74 6f 20 69 74 65 6d | 6c 69 6e 65 0d 65 6e 64 |nto item|line.end|
|00004060| 20 69 66 0d 65 6c 73 65 | 0d 70 75 74 20 28 28 77 | if.else|.put ((w|
|00004070| 6f 72 64 20 32 20 6f 66 | 20 74 68 65 20 73 65 6c |ord 2 of| the sel|
|00004080| 65 63 74 65 64 6c 69 6e | 65 29 2b 31 29 20 69 6e |ectedlin|e)+1) in|
|00004090| 74 6f 20 69 74 65 6d 6c | 69 6e 65 0d 65 6e 64 20 |to iteml|ine.end |
|000040a0| 69 66 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 78 |if.repea|t with x|
|000040b0| 20 3d 20 69 74 65 6d 6c | 69 6e 65 20 74 6f 20 75 | = iteml|ine to u|
|000040c0| 70 70 65 72 0d 67 65 74 | 20 6c 69 6e 65 20 78 20 |pper.get| line x |
|000040d0| 6f 66 20 63 64 20 66 6c | 64 20 22 64 61 74 61 22 |of cd fl|d "data"|
|000040e0| 0d 70 75 74 20 6f 66 66 | 73 65 74 28 22 3c 22 2c |.put off|set("<",|
|000040f0| 69 74 29 20 69 6e 74 6f | 20 66 73 74 62 72 61 63 |it) into| fstbrac|
|00004100| 6b 65 74 0d 70 75 74 20 | 6f 66 66 73 65 74 28 22 |ket.put |offset("|
|00004110| 3e 22 2c 69 74 29 20 69 | 6e 74 6f 20 62 72 61 63 |>",it) i|nto brac|
|00004120| 6b 65 74 0d 69 66 20 66 | 73 74 62 72 61 63 6b 65 |ket.if f|stbracke|
|00004130| 74 20 3e 20 30 20 74 68 | 65 6e 0d 69 66 20 28 62 |t > 0 th|en.if (b|
|00004140| 72 61 63 6b 65 74 20 2d | 20 66 73 74 62 72 61 63 |racket -| fstbrac|
|00004150| 6b 65 74 29 20 3c 20 33 | 20 74 68 65 6e 0d 61 64 |ket) < 3| then.ad|
|00004160| 64 20 32 20 74 6f 20 62 | 72 61 63 6b 65 74 0d 65 |d 2 to b|racket.e|
|00004170| 6c 73 65 0d 69 66 20 69 | 74 65 6d 6c 69 6e 65 20 |lse.if i|temline |
|00004180| ad 20 75 70 70 65 72 20 | 74 68 65 6e 20 73 65 6c |. upper |then sel|
|00004190| 65 63 74 20 63 68 61 72 | 61 63 74 65 72 20 28 66 |ect char|acter (f|
|000041a0| 73 74 62 72 61 63 6b 65 | 74 2b 31 29 20 74 6f 20 |stbracke|t+1) to |
|000041b0| 28 62 72 61 63 6b 65 74 | 2d 31 29 20 6f 66 20 6c |(bracket|-1) of l|
|000041c0| 69 6e 65 20 78 20 69 6e | 20 63 64 20 66 6c 64 20 |ine x in| cd fld |
|000041d0| 22 64 61 74 61 22 0d 65 | 78 69 74 20 72 65 70 65 |"data".e|xit repe|
|000041e0| 61 74 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |at.end i|f.end if|
|000041f0| 0d 2d 2d 20 20 61 64 64 | 20 31 20 74 6f 20 62 72 |.-- add| 1 to br|
|00004200| 61 63 6b 65 74 0d 65 6e | 64 20 72 65 70 65 61 74 |acket.en|d repeat|
|00004210| 0d 65 6e 64 20 69 66 0d | 0d 69 66 20 64 69 72 65 |.end if.|.if dire|
|00004220| 63 74 69 6f 6e 20 69 73 | 20 22 75 70 22 20 74 68 |ction is| "up" th|
|00004230| 65 6e 0d 69 66 20 77 6f | 72 64 20 34 20 6f 66 20 |en.if wo|rd 4 of |
|00004240| 74 68 65 20 73 65 6c 65 | 63 74 65 64 63 68 75 6e |the sele|ctedchun|
|00004250| 6b 20 3d 20 30 20 74 68 | 65 6e 20 70 75 74 20 65 |k = 0 th|en put e|
|00004260| 6d 70 74 79 20 69 6e 74 | 6f 20 74 68 65 20 73 65 |mpty int|o the se|
|00004270| 6c 65 63 74 65 64 6c 69 | 6e 65 0d 69 66 20 74 68 |lectedli|ne.if th|
|00004280| 65 20 73 65 6c 65 63 74 | 65 64 6c 69 6e 65 20 69 |e select|edline i|
|00004290| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |s empty |then.put|
|000042a0| 20 75 70 70 65 72 20 69 | 6e 74 6f 20 69 74 65 6d | upper i|nto item|
|000042b0| 6c 69 6e 65 0d 67 65 74 | 20 63 68 65 63 6b 69 74 |line.get| checkit|
|000042c0| 28 29 0d 69 66 20 69 74 | 20 69 73 20 6e 6f 74 20 |().if it| is not |
|000042d0| 65 6d 70 74 79 20 74 68 | 65 6e 0d 65 78 69 74 20 |empty th|en.exit |
|000042e0| 61 72 72 6f 77 6b 65 79 | 0d 65 6e 64 20 69 66 0d |arrowkey|.end if.|
|000042f0| 65 6c 73 65 0d 70 75 74 | 20 28 28 77 6f 72 64 20 |else.put| ((word |
|00004300| 32 20 6f 66 20 74 68 65 | 20 73 65 6c 65 63 74 65 |2 of the| selecte|
|00004310| 64 6c 69 6e 65 29 2d 31 | 29 20 69 6e 74 6f 20 69 |dline)-1|) into i|
|00004320| 74 65 6d 6c 69 6e 65 0d | 65 6e 64 20 69 66 0d 72 |temline.|end if.r|
|00004330| 65 70 65 61 74 20 77 69 | 74 68 20 78 20 3d 20 69 |epeat wi|th x = i|
|00004340| 74 65 6d 6c 69 6e 65 20 | 64 6f 77 6e 20 74 6f 20 |temline |down to |
|00004350| 31 0d 67 65 74 20 6c 69 | 6e 65 20 78 20 6f 66 20 |1.get li|ne x of |
|00004360| 63 64 20 66 6c 64 20 22 | 64 61 74 61 22 0d 70 75 |cd fld "|data".pu|
|00004370| 74 20 6f 66 66 73 65 74 | 28 22 3c 22 2c 69 74 29 |t offset|("<",it)|
|00004380| 20 69 6e 74 6f 20 66 73 | 74 62 72 61 63 6b 65 74 | into fs|tbracket|
|00004390| 0d 70 75 74 20 6f 66 66 | 73 65 74 28 22 3e 22 2c |.put off|set(">",|
|000043a0| 69 74 29 20 69 6e 74 6f | 20 62 72 61 63 6b 65 74 |it) into| bracket|
|000043b0| 0d 69 66 20 66 73 74 62 | 72 61 63 6b 65 74 20 3e |.if fstb|racket >|
|000043c0| 20 30 20 74 68 65 6e 0d | 69 66 20 28 62 72 61 63 | 0 then.|if (brac|
|000043d0| 6b 65 74 20 2d 20 66 73 | 74 62 72 61 63 6b 65 74 |ket - fs|tbracket|
|000043e0| 29 20 3c 20 33 20 74 68 | 65 6e 0d 61 64 64 20 32 |) < 3 th|en.add 2|
|000043f0| 20 74 6f 20 62 72 61 63 | 6b 65 74 0d 65 6c 73 65 | to brac|ket.else|
|00004400| 0d 69 66 20 78 20 ad 20 | 6c 6f 77 65 72 20 74 68 |.if x . |lower th|
|00004410| 65 6e 20 73 65 6c 65 63 | 74 20 63 68 61 72 61 63 |en selec|t charac|
|00004420| 74 65 72 20 28 66 73 74 | 62 72 61 63 6b 65 74 2b |ter (fst|bracket+|
|00004430| 31 29 20 74 6f 20 28 62 | 72 61 63 6b 65 74 2d 31 |1) to (b|racket-1|
|00004440| 29 20 6f 66 20 6c 69 6e | 65 20 78 20 69 6e 20 63 |) of lin|e x in c|
|00004450| 64 20 66 6c 64 20 22 64 | 61 74 61 22 0d 65 78 69 |d fld "d|ata".exi|
|00004460| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |t repeat|.end if.|
|00004470| 65 6e 64 20 69 66 0d 65 | 6e 64 20 72 65 70 65 61 |end if.e|nd repea|
|00004480| 74 0d 65 6e 64 20 69 66 | 0d 0d 69 66 20 64 69 72 |t.end if|..if dir|
|00004490| 65 63 74 69 6f 6e 20 69 | 73 20 22 72 69 67 68 74 |ection i|s "right|
|000044a0| 22 20 74 68 65 6e 0d 70 | 75 74 20 74 68 65 20 73 |" then.p|ut the s|
|000044b0| 65 6c 65 63 74 65 64 74 | 65 78 74 20 69 6e 74 6f |electedt|ext into|
|000044c0| 20 66 6c 6e 6d 65 0d 69 | 66 20 66 6c 6e 6d 65 20 | flnme.i|f flnme |
|000044d0| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 20 74 68 65 |is not e|mpty the|
|000044e0| 6e 20 66 69 6c 65 6d 61 | 6e 0d 65 6e 64 20 69 66 |n filema|n.end if|
|000044f0| 0d 0d 69 66 20 64 69 72 | 65 63 74 69 6f 6e 20 69 |..if dir|ection i|
|00004500| 73 20 22 6c 65 66 74 22 | 20 74 68 65 6e 0d 67 62 |s "left"| then.gb|
|00004510| 61 63 6b 0d 65 6e 64 20 | 69 66 0d 0d 65 6e 64 20 |ack.end |if..end |
|00004520| 61 72 72 6f 77 6b 65 79 | 0d 0d 0d 66 75 6e 63 74 |arrowkey|...funct|
|00004530| 69 6f 6e 20 63 68 65 63 | 6b 69 74 20 2d 2d 20 66 |ion chec|kit -- f|
|00004540| 6f 72 20 75 70 20 61 6e | 64 20 64 6f 77 6e 20 68 |or up an|d down h|
|00004550| 61 6e 64 6c 65 72 73 20 | 74 68 61 74 20 64 6f 20 |andlers |that do |
|00004560| 6e 6f 74 20 68 61 76 65 | 20 61 20 63 75 72 72 65 |not have| a curre|
|00004570| 6e 74 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |nt.-- | |
|00004580| 20 20 20 20 20 69 74 65 | 6d 20 73 65 6c 65 63 74 | ite|m select|
|00004590| 65 64 20 63 68 65 63 6b | 20 69 66 20 74 68 65 72 |ed check| if ther|
|000045a0| 65 20 69 73 20 61 6e 20 | 69 74 65 6d 20 62 79 20 |e is an |item by |
|000045b0| 6c 6f 6f 6b 69 6e 67 0d | 2d 2d 20 20 20 20 20 20 |looking.|-- |
|000045c0| 20 20 20 20 20 20 20 20 | 20 20 66 6f 72 20 61 20 | | for a |
|000045d0| 3c 20 62 72 61 63 6b 65 | 74 2e 0d 66 69 6e 64 20 |< bracke|t..find |
|000045e0| 22 3c 22 20 69 6e 20 63 | 64 20 66 6c 64 20 22 64 |"<" in c|d fld "d|
|000045f0| 61 74 61 22 0d 70 75 74 | 20 74 68 65 20 72 65 73 |ata".put| the res|
|00004600| 75 6c 74 20 69 6e 74 6f | 20 69 74 0d 72 65 74 75 |ult into| it.retu|
|00004610| 72 6e 20 69 74 0d 65 6e | 64 20 63 68 65 63 6b 69 |rn it.en|d checki|
|00004620| 74 0d 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 67 6f 66 |t...func|tion gof|
|00004630| 6f 72 69 74 20 70 72 6f | 67 6e 61 6d 65 2c 66 63 |orit pro|gname,fc|
|00004640| 68 75 6e 6b 20 2d 2d 20 | 70 72 6f 67 6e 61 6d 65 |hunk -- |progname|
|00004650| 20 61 6e 64 20 66 63 68 | 75 6e 6b 20 61 72 65 20 | and fch|unk are |
|00004660| 70 61 73 73 65 64 20 66 | 72 6f 6d 0d 2d 2d 20 20 |passed f|rom.-- |
|00004670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 61 | | da|
|00004690| 74 61 20 66 6c 64 2c 20 | 6f 72 20 67 6f 66 6f 72 |ta fld, |or gofor|
|000046a0| 69 74 20 62 75 74 74 6f | 6e 2e 0d 2d 2d 20 20 20 |it butto|n..-- |
|000046b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 72 6f | | pro|
|000046d0| 67 6e 61 6d 65 20 63 6f | 6e 74 61 69 6e 73 20 74 |gname co|ntains t|
|000046e0| 65 6c 6e 65 74 2c 20 6f | 72 20 74 6e 33 32 37 30 |elnet, o|r tn3270|
|000046f0| 0d 2d 2d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.-- | |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004710| 20 20 20 66 63 68 75 6e | 6b 20 69 73 20 74 68 65 | fchun|k is the|
|00004720| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00004730| 20 61 62 6f 76 65 20 77 | 6f 72 64 2e 0d 70 75 74 | above w|ord..put|
|00004740| 20 28 28 77 6f 72 64 20 | 34 20 6f 66 20 66 63 68 | ((word |4 of fch|
|00004750| 75 6e 6b 29 2b 34 29 20 | 69 6e 74 6f 20 49 50 74 |unk)+4) |into IPt|
|00004760| 65 73 74 20 20 2d 2d 20 | 49 50 74 65 73 74 20 77 |est -- |IPtest w|
|00004770| 69 6c 6c 20 62 65 20 75 | 73 65 64 20 74 6f 20 63 |ill be u|sed to c|
|00004780| 68 65 63 6b 20 69 66 0d | 2d 2d 20 20 20 20 20 20 |heck if.|-- |
|00004790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000047a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000047b0| 20 20 20 74 68 65 20 73 | 74 72 69 6e 67 20 61 66 | the s|tring af|
|000047c0| 74 65 72 20 70 72 6f 67 | 6e 61 6d 65 20 69 73 0d |ter prog|name is.|
|000047d0| 2d 2d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-- | |
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000047f0| 20 20 20 20 20 20 20 20 | 20 20 20 61 6e 20 69 6e | | an in|
|00004800| 74 65 72 6e 65 74 20 61 | 64 64 72 65 73 73 2e 0d |ternet a|ddress..|
|00004810| 72 65 70 65 61 74 0d 70 | 75 74 20 63 68 61 72 20 |repeat.p|ut char |
|00004820| 69 70 74 65 73 74 20 6f | 66 20 63 64 20 66 6c 64 |iptest o|f cd fld|
|00004830| 20 22 64 61 74 61 22 20 | 69 6e 74 6f 20 63 68 61 | "data" |into cha|
|00004840| 72 74 65 73 74 0d 69 66 | 20 63 68 61 72 74 65 73 |rtest.if| chartes|
|00004850| 74 20 3e 3d 20 6e 75 6d | 74 6f 63 68 61 72 28 33 |t >= num|tochar(3|
|00004860| 33 29 20 74 68 65 6e 20 | 2d 2d 20 63 68 61 72 74 |3) then |-- chart|
|00004870| 65 73 74 20 69 73 20 6e | 6f 74 20 72 65 74 75 72 |est is n|ot retur|
|00004880| 6e 2c 20 74 68 69 73 20 | 63 68 65 63 6b 73 20 69 |n, this |checks i|
|00004890| 66 20 69 74 20 69 73 20 | 74 68 65 20 65 6e 64 20 |f it is |the end |
|000048a0| 6f 66 20 61 20 6c 69 6e | 65 2e 0d 61 64 64 20 31 |of a lin|e..add 1|
|000048b0| 20 74 6f 20 49 50 74 65 | 73 74 0d 65 6c 73 65 20 | to IPte|st.else |
|000048c0| 69 66 20 63 68 61 72 74 | 65 73 74 20 3d 20 6e 75 |if chart|est = nu|
|000048d0| 6d 74 6f 63 68 61 72 28 | 33 32 29 20 74 68 65 6e |mtochar(|32) then|
|000048e0| 20 2d 2d 20 69 66 20 79 | 6f 75 20 66 6f 75 6e 64 | -- if y|ou found|
|000048f0| 20 61 20 73 70 61 63 65 | 2c 20 65 6e 64 20 6f 66 | a space|, end of|
|00004900| 20 73 74 72 69 6e 67 0d | 70 75 74 20 63 68 61 72 | string.|put char|
|00004910| 20 69 70 74 65 73 74 2b | 31 20 6f 66 20 63 64 20 | iptest+|1 of cd |
|00004920| 66 6c 64 20 22 64 61 74 | 61 22 20 69 6e 74 6f 20 |fld "dat|a" into |
|00004930| 63 68 61 72 74 65 73 74 | 32 0d 2d 2d 20 63 68 65 |chartest|2.-- che|
|00004940| 63 6b 20 69 66 20 6e 65 | 78 74 20 73 74 72 69 6e |ck if ne|xt strin|
|00004950| 67 20 69 73 20 61 20 70 | 6f 72 74 20 6e 75 6d 62 |g is a p|ort numb|
|00004960| 65 72 2c 20 69 66 20 69 | 74 20 69 73 20 63 6f 6e |er, if i|t is con|
|00004970| 74 69 6e 75 65 2e 0d 69 | 66 20 28 63 68 61 72 74 |tinue..i|f (chart|
|00004980| 65 73 74 32 3e 3d 31 20 | 61 6e 64 20 63 68 61 72 |est2>=1 |and char|
|00004990| 74 65 73 74 32 20 3c 3d | 39 29 20 74 68 65 6e 0d |test2 <=|9) then.|
|000049a0| 61 64 64 20 31 20 74 6f | 20 49 50 74 65 73 74 0d |add 1 to| IPtest.|
|000049b0| 65 6c 73 65 20 20 2d 2d | 20 69 66 20 74 68 65 72 |else --| if ther|
|000049c0| 65 20 69 73 20 6e 6f 20 | 70 6f 72 74 20 6e 75 6d |e is no |port num|
|000049d0| 62 65 72 20 74 68 65 6e | 20 63 6f 6e 74 69 6e 75 |ber then| continu|
|000049e0| 65 2e 0d 73 75 62 74 72 | 61 63 74 20 31 20 66 72 |e..subtr|act 1 fr|
|000049f0| 6f 6d 20 49 50 74 65 73 | 74 0d 65 78 69 74 20 72 |om IPtes|t.exit r|
|00004a00| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 65 6c 73 |epeat.en|d if.els|
|00004a10| 65 0d 73 75 62 74 72 61 | 63 74 20 31 20 66 72 6f |e.subtra|ct 1 fro|
|00004a20| 6d 20 49 50 74 65 73 74 | 0d 65 78 69 74 20 72 65 |m IPtest|.exit re|
|00004a30| 70 65 61 74 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |peat.end| if.end |
|00004a40| 72 65 70 65 61 74 0d 70 | 75 74 20 28 28 77 6f 72 |repeat.p|ut ((wor|
|00004a50| 64 20 34 20 6f 66 20 66 | 63 68 75 6e 6b 29 2b 31 |d 4 of f|chunk)+1|
|00004a60| 29 20 69 6e 74 6f 20 66 | 73 74 63 68 61 72 0d 70 |) into f|stchar.p|
|00004a70| 75 74 20 63 68 61 72 20 | 66 73 74 63 68 61 72 20 |ut char |fstchar |
|00004a80| 74 6f 20 49 50 74 65 73 | 74 20 6f 66 20 63 64 20 |to IPtes|t of cd |
|00004a90| 66 6c 64 20 22 64 61 74 | 61 22 20 69 6e 74 6f 20 |fld "dat|a" into |
|00004aa0| 69 70 67 6f 20 20 2d 2d | 20 67 65 74 20 74 68 65 |ipgo --| get the|
|00004ab0| 20 69 6e 74 65 72 6e 65 | 74 20 6e 61 6d 65 0d 72 | interne|t name.r|
|00004ac0| 65 70 65 61 74 0d 69 66 | 20 74 68 65 20 66 69 72 |epeat.if| the fir|
|00004ad0| 73 74 20 63 68 61 72 20 | 6f 66 20 69 70 67 6f 20 |st char |of ipgo |
|00004ae0| 3d 20 22 20 22 20 74 68 | 65 6e 20 64 65 6c 65 74 |= " " th|en delet|
|00004af0| 65 20 74 68 65 20 66 69 | 72 73 74 20 63 68 61 72 |e the fi|rst char|
|00004b00| 20 6f 66 20 69 70 67 6f | 0d 69 66 20 74 68 65 20 | of ipgo|.if the |
|00004b10| 6c 61 73 74 20 63 68 61 | 72 20 6f 66 20 69 70 67 |last cha|r of ipg|
|00004b20| 6f 20 3d 20 22 2e 22 20 | 74 68 65 6e 20 64 65 6c |o = "." |then del|
|00004b30| 65 74 65 20 74 68 65 20 | 6c 61 73 74 20 63 68 61 |ete the |last cha|
|00004b40| 72 20 6f 66 20 69 70 67 | 6f 0d 65 6c 73 65 20 65 |r of ipg|o.else e|
|00004b50| 78 69 74 20 72 65 70 65 | 61 74 0d 65 6e 64 20 72 |xit repe|at.end r|
|00004b60| 65 70 65 61 74 0d 69 66 | 20 69 70 67 6f 20 63 6f |epeat.if| ipgo co|
|00004b70| 6e 74 61 69 6e 73 20 22 | 2e 22 20 74 68 65 6e 20 |ntains "|." then |
|00004b80| 2d 2d 20 41 6c 6c 20 69 | 6e 74 65 72 6e 65 74 20 |-- All i|nternet |
|00004b90| 6e 61 6d 65 73 20 63 6f | 6e 74 69 61 6e 20 61 20 |names co|ntian a |
|00004ba0| 22 2e 22 20 69 66 20 69 | 74 20 64 6f 65 73 20 6e |"." if i|t does n|
|00004bb0| 6f 74 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |ot.-- | |
|00004bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6f 6e 74 | | cont|
|00004bd0| 61 69 6e 20 6f 6e 65 20 | 74 68 65 6e 20 69 74 20 |ain one |then it |
|00004be0| 69 73 20 6e 6f 74 20 61 | 6e 20 61 70 70 72 6f 70 |is not a|n approp|
|00004bf0| 72 69 61 74 65 20 6e 61 | 6d 65 2e 0d 73 65 6c 65 |riate na|me..sele|
|00004c00| 63 74 20 63 68 61 72 20 | 28 28 77 6f 72 64 20 32 |ct char |((word 2|
|00004c10| 20 6f 66 20 20 66 63 68 | 75 6e 6b 29 29 20 74 6f | of fch|unk)) to|
|00004c20| 20 49 50 74 65 73 74 20 | 6f 66 20 63 64 20 66 6c | IPtest |of cd fl|
|00004c30| 64 20 22 64 61 74 61 22 | 0d 61 6e 73 77 65 72 20 |d "data"|.answer |
|00004c40| 70 72 6f 67 6e 61 6d 65 | 20 26 20 22 20 74 6f 20 |progname| & " to |
|00004c50| 22 20 26 20 72 65 74 75 | 72 6e 20 26 20 71 75 6f |" & retu|rn & quo|
|00004c60| 74 65 20 26 20 69 70 67 | 6f 20 26 20 71 75 6f 74 |te & ipg|o & quot|
|00004c70| 65 20 77 69 74 68 20 22 | 43 6f 70 79 22 20 6f 72 |e with "|Copy" or|
|00004c80| 20 22 4e 6f 22 20 6f 72 | 20 22 59 65 73 22 0d 69 | "No" or| "Yes".i|
|00004c90| 66 20 69 74 20 69 73 20 | 22 79 65 73 22 20 74 68 |f it is |"yes" th|
|00004ca0| 65 6e 0d 67 65 74 20 67 | 6f 74 65 6c 6e 65 74 28 |en.get g|otelnet(|
|00004cb0| 70 72 6f 67 6e 61 6d 65 | 2c 69 70 67 6f 29 20 20 |progname|,ipgo) |
|00004cc0| 2d 2d 20 73 65 65 20 66 | 75 6e 63 74 69 6f 6e 20 |-- see f|unction |
|00004cd0| 62 65 6c 6f 77 2e 0d 65 | 6c 73 65 20 69 66 20 69 |below..e|lse if i|
|00004ce0| 74 20 69 73 20 22 43 6f | 70 79 22 20 74 68 65 6e |t is "Co|py" then|
|00004cf0| 0d 73 65 6c 65 63 74 20 | 63 68 61 72 20 28 66 73 |.select |char (fs|
|00004d00| 74 63 68 61 72 2b 31 29 | 20 74 6f 20 49 50 74 65 |tchar+1)| to IPte|
|00004d10| 73 74 20 6f 66 20 63 64 | 20 66 6c 64 20 22 64 61 |st of cd| fld "da|
|00004d20| 74 61 22 0d 64 6f 6d 65 | 6e 75 20 22 43 6f 70 79 |ta".dome|nu "Copy|
|00004d30| 20 74 65 78 74 22 0d 65 | 6e 64 20 69 66 0d 73 65 | text".e|nd if.se|
|00004d40| 6c 65 63 74 20 63 68 61 | 72 20 30 20 6f 66 20 63 |lect cha|r 0 of c|
|00004d50| 64 20 66 6c 64 20 22 64 | 61 74 61 22 0d 65 6c 73 |d fld "d|ata".els|
|00004d60| 65 0d 61 6e 73 77 65 72 | 20 22 4c 6f 63 61 74 69 |e.answer| "Locati|
|00004d70| 6f 6e 20 6e 6f 74 20 61 | 76 61 69 6c 61 62 6c 65 |on not a|vailable|
|00004d80| 2e 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 67 6f |.".end i|f.end go|
|00004d90| 66 6f 72 69 74 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |forit..f|unction |
|00004da0| 67 6f 74 65 6c 6e 65 74 | 20 70 72 6f 67 6e 61 6d |gotelnet| prognam|
|00004db0| 65 2c 69 70 67 6f 0d 67 | 6c 6f 62 61 6c 20 70 61 |e,ipgo.g|lobal pa|
|00004dc0| 74 68 2c 20 70 72 6f 67 | 43 68 65 63 6b 0d 70 75 |th, prog|Check.pu|
|00004dd0| 74 20 63 6f 6e 76 65 72 | 74 28 70 72 6f 67 6e 61 |t conver|t(progna|
|00004de0| 6d 65 29 20 69 6e 74 6f | 20 70 72 6f 67 6e 61 6d |me) into| prognam|
|00004df0| 65 0d 70 75 74 20 63 6f | 6e 76 65 72 74 28 69 70 |e.put co|nvert(ip|
|00004e00| 67 6f 29 20 69 6e 74 6f | 20 69 70 67 6f 0d 2d 2d |go) into| ipgo.--|
|00004e10| 20 2d 2d 48 6f 6f 6b 73 | 20 66 6f 72 20 74 75 72 | --Hooks| for tur|
|00004e20| 62 6f 20 67 6f 70 68 65 | 72 0d 49 66 20 74 68 65 |bo gophe|r.If the|
|00004e30| 20 68 69 6c 69 74 65 20 | 6f 66 20 63 61 72 64 20 | hilite |of card |
|00004e40| 62 75 74 74 6f 6e 20 22 | 75 73 65 20 54 75 72 62 |button "|use Turb|
|00004e50| 6f 20 47 6f 70 68 65 72 | 22 20 69 73 20 74 72 75 |o Gopher|" is tru|
|00004e60| 65 20 74 68 65 6e 0d 69 | 66 20 63 61 72 64 20 66 |e then.i|f card f|
|00004e70| 69 65 6c 64 20 22 66 69 | 6c 65 6e 61 6d 65 22 20 |ield "fi|lename" |
|00004e80| 63 6f 6e 74 61 69 6e 73 | 20 22 47 4f 50 22 20 74 |contains| "GOP" t|
|00004e90| 68 65 6e 20 70 75 74 20 | 22 67 6f 70 68 65 72 22 |hen put |"gopher"|
|00004ea0| 20 69 6e 74 6f 20 70 72 | 6f 67 6e 61 6d 65 0d 65 | into pr|ogname.e|
|00004eb0| 6e 64 20 69 66 0d 69 66 | 20 74 68 65 20 68 69 6c |nd if.if| the hil|
|00004ec0| 69 74 65 20 6f 66 20 63 | 61 72 64 20 62 75 74 74 |ite of c|ard butt|
|00004ed0| 6f 6e 20 22 73 65 72 69 | 61 6c 20 63 6f 6e 6e 65 |on "seri|al conne|
|00004ee0| 63 74 69 6f 6e 22 20 69 | 73 20 74 72 75 65 20 74 |ction" i|s true t|
|00004ef0| 68 65 6e 0d 70 75 74 20 | 77 6f 72 64 20 74 77 6f |hen.put |word two|
|00004f00| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 20 22 | of card| field "|
|00004f10| 70 6f 72 74 22 20 69 6e | 74 6f 20 70 72 74 0d 70 |port" in|to prt.p|
|00004f20| 75 74 20 70 72 6f 67 6e | 61 6d 65 20 26 20 22 20 |ut progn|ame & " |
|00004f30| 22 20 26 20 69 70 67 6f | 20 26 20 72 65 74 75 72 |" & ipgo| & retur|
|00004f40| 6e 20 69 6e 74 6f 20 6a | 75 6d 70 0d 67 65 74 20 |n into j|ump.get |
|00004f50| 73 65 72 69 61 6c 68 61 | 6e 64 6c 65 72 28 22 70 |serialha|ndler("p|
|00004f60| 75 74 22 2c 70 72 74 2c | 6a 75 6d 70 29 0d 69 66 |ut",prt,|jump).if|
|00004f70| 20 69 74 20 69 73 20 6e | 6f 74 20 65 6d 70 74 79 | it is n|ot empty|
|00004f80| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 54 68 | then.an|swer "Th|
|00004f90| 65 72 65 20 69 73 20 61 | 20 70 72 6f 62 6c 65 6d |ere is a| problem|
|00004fa0| 20 77 69 74 68 20 74 68 | 65 20 73 65 72 69 61 6c | with th|e serial|
|00004fb0| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 2e 22 20 26 20 | connect|ion." & |
|00004fc0| 72 65 74 75 72 6e 20 26 | 20 72 65 74 75 72 6e 20 |return &| return |
|00004fd0| 26 20 69 74 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 |& it.end| if.else|
|00004fe0| 20 69 66 20 70 72 6f 67 | 6e 61 6d 65 20 69 73 20 | if prog|name is |
|00004ff0| 22 74 65 6c 6e 65 74 22 | 20 74 68 65 6e 0d 2d 2d |"telnet"| then.--|
|00005000| 20 47 65 74 20 74 68 65 | 20 6c 6f 63 61 74 69 6f | Get the| locatio|
|00005010| 6e 20 6f 66 20 54 65 6c | 6e 65 74 20 66 72 6f 6d |n of Tel|net from|
|00005020| 20 74 68 65 20 63 6f 6e | 66 69 67 20 66 6c 64 2e | the con|fig fld.|
|00005030| 20 20 49 66 20 69 74 20 | 69 73 20 6e 6f 74 0d 2d | If it |is not.-|
|00005040| 2d 20 69 6e 20 74 68 65 | 20 6c 6f 63 61 74 69 6f |- in the| locatio|
|00005050| 6e 20 73 70 65 63 69 66 | 69 65 64 20 70 6c 65 61 |n specif|ied plea|
|00005060| 73 65 20 66 69 6e 64 20 | 69 74 2e 0d 70 75 74 20 |se find |it..put |
|00005070| 63 64 20 66 6c 64 20 22 | 74 65 6c 70 61 74 68 22 |cd fld "|telpath"|
|00005080| 20 69 6e 74 6f 20 74 65 | 6c 70 61 74 68 6c 6f 63 | into te|lpathloc|
|00005090| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 74 |.if ther|e is not|
|000050a0| 20 61 20 66 69 6c 65 20 | 74 65 6c 70 61 74 68 6c | a file |telpathl|
|000050b0| 6f 63 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 66 |oc then.|answer f|
|000050c0| 69 6c 65 20 22 57 68 65 | 72 65 20 69 73 20 6c 6f |ile "Whe|re is lo|
|000050d0| 63 61 74 69 6f 6e 20 6f | 66 20 54 65 6c 6e 65 74 |cation o|f Telnet|
|000050e0| 22 20 6f 66 20 74 79 70 | 65 20 22 41 50 50 4c 22 |" of typ|e "APPL"|
|000050f0| 0d 69 66 20 69 74 20 69 | 73 20 6e 6f 74 20 65 6d |.if it i|s not em|
|00005100| 70 74 79 20 74 68 65 6e | 0d 70 75 74 20 69 74 20 |pty then|.put it |
|00005110| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 22 74 65 6c |into cd |fld "tel|
|00005120| 70 61 74 68 22 0d 70 75 | 74 20 63 64 20 66 6c 64 |path".pu|t cd fld|
|00005130| 20 22 74 65 6c 70 61 74 | 68 22 20 69 6e 74 6f 20 | "telpat|h" into |
|00005140| 74 65 6c 70 61 74 68 6c | 6f 63 0d 65 6c 73 65 0d |telpathl|oc.else.|
|00005150| 65 78 69 74 20 67 6f 74 | 65 6c 6e 65 74 0d 65 6e |exit got|elnet.en|
|00005160| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 2d 2d 20 63 |d if.end| if.-- c|
|00005170| 68 65 63 6b 20 69 66 20 | 74 68 65 72 65 20 69 73 |heck if |there is|
|00005180| 20 61 20 74 65 6c 6e 65 | 74 20 63 6f 6e 66 69 67 | a telne|t config|
|00005190| 20 66 69 6c 65 20 61 74 | 20 74 68 65 20 6c 6f 63 | file at| the loc|
|000051a0| 61 74 69 6f 6e 20 73 70 | 65 63 69 66 69 65 64 20 |ation sp|ecified |
|000051b0| 69 6e 74 0d 2d 2d 20 74 | 68 65 20 63 6f 6e 66 69 |int.-- t|he confi|
|000051c0| 67 20 66 6c 64 2e 20 20 | 49 66 20 74 68 65 72 65 |g fld. |If there|
|000051d0| 20 69 73 20 6e 6f 74 20 | 66 69 6e 64 20 69 74 2c | is not |find it,|
|000051e0| 20 6f 72 20 65 78 69 74 | 2e 0d 70 75 74 20 63 64 | or exit|..put cd|
|000051f0| 20 66 6c 64 20 22 74 65 | 6c 63 6f 6e 66 69 67 22 | fld "te|lconfig"|
|00005200| 20 69 6e 74 6f 20 63 6f | 6e 66 69 67 0d 69 66 20 | into co|nfig.if |
|00005210| 74 68 65 72 65 20 69 73 | 20 6e 6f 74 20 61 20 66 |there is| not a f|
|00005220| 69 6c 65 20 63 6f 6e 66 | 69 67 20 74 68 65 6e 0d |ile conf|ig then.|
|00005230| 61 6e 73 77 65 72 20 66 | 69 6c 65 20 22 4c 6f 63 |answer f|ile "Loc|
|00005240| 61 74 65 20 74 65 6c 6e | 65 74 20 73 65 74 74 69 |ate teln|et setti|
|00005250| 6e 67 73 20 66 69 6c 65 | 20 22 20 26 20 71 75 6f |ngs file| " & quo|
|00005260| 74 65 20 26 20 22 54 65 | 6c 6e 65 74 2e 63 66 67 |te & "Te|lnet.cfg|
|00005270| 22 20 26 20 71 75 6f 74 | 65 20 6f 66 20 74 79 70 |" & quot|e of typ|
|00005280| 65 20 22 43 4f 4e 46 22 | 0d 69 66 20 69 74 20 69 |e "CONF"|.if it i|
|00005290| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then|
|000052a0| 0d 70 75 74 20 69 74 20 | 69 6e 74 6f 20 63 64 20 |.put it |into cd |
|000052b0| 66 6c 64 20 22 74 65 6c | 63 6f 6e 66 69 67 22 0d |fld "tel|config".|
|000052c0| 70 75 74 20 63 64 20 66 | 6c 64 20 22 74 65 6c 63 |put cd f|ld "telc|
|000052d0| 6f 6e 66 69 67 22 20 69 | 6e 74 6f 20 63 6f 6e 66 |onfig" i|nto conf|
|000052e0| 69 67 0d 65 6c 73 65 0d | 65 78 69 74 20 67 6f 74 |ig.else.|exit got|
|000052f0| 65 6c 6e 65 74 0d 65 6e | 64 20 69 66 0d 65 6e 64 |elnet.en|d if.end|
|00005300| 20 69 66 0d 2d 2d 20 20 | 69 66 20 74 68 65 72 65 | if.-- |if there|
|00005310| 20 69 73 20 61 20 66 69 | 6c 65 20 63 6f 6e 66 69 | is a fi|le confi|
|00005320| 67 20 26 20 74 68 65 72 | 65 20 69 73 20 61 20 66 |g & ther|e is a f|
|00005330| 69 6c 65 20 74 65 6c 70 | 61 74 68 6c 6f 63 20 74 |ile telp|athloc t|
|00005340| 68 65 6e 0d 6f 70 65 6e | 20 66 69 6c 65 20 63 6f |hen.open| file co|
|00005350| 6e 66 69 67 0d 77 72 69 | 74 65 20 22 6e 61 6d 65 |nfig.wri|te "name|
|00005360| 3d 20 22 20 26 20 71 75 | 6f 74 65 20 26 20 69 70 |= " & qu|ote & ip|
|00005370| 67 6f 20 26 20 71 75 6f | 74 65 20 26 20 72 65 74 |go & quo|te & ret|
|00005380| 75 72 6e 20 74 6f 20 66 | 69 6c 65 20 63 6f 6e 66 |urn to f|ile conf|
|00005390| 69 67 0d 77 72 69 74 65 | 20 22 68 6f 73 74 3d 20 |ig.write| "host= |
|000053a0| 22 20 26 20 71 75 6f 74 | 65 20 26 20 69 70 67 6f |" & quot|e & ipgo|
|000053b0| 20 26 20 71 75 6f 74 65 | 20 26 20 72 65 74 75 72 | & quote| & retur|
|000053c0| 6e 20 74 6f 20 66 69 6c | 65 20 63 6f 6e 66 69 67 |n to fil|e config|
|000053d0| 0d 63 6c 6f 73 65 20 66 | 69 6c 65 20 63 6f 6e 66 |.close f|ile conf|
|000053e0| 69 67 0d 2d 2d 20 63 68 | 65 63 6b 20 69 66 20 79 |ig.-- ch|eck if y|
|000053f0| 6f 75 20 61 72 65 20 72 | 75 6e 6e 69 6e 67 20 73 |ou are r|unning s|
|00005400| 79 73 74 65 6d 20 37 20 | 61 6e 64 20 74 68 65 6e |ystem 7 |and then|
|00005410| 20 6f 70 65 20 74 68 65 | 20 74 65 6c 6e 65 74 0d | ope the| telnet.|
|00005420| 2d 2d 20 63 6f 6e 66 69 | 67 20 66 69 6c 65 20 62 |-- confi|g file b|
|00005430| 79 20 64 6f 75 62 6c 65 | 20 63 6c 69 63 6b 69 6e |y double| clickin|
|00005440| 67 20 6f 6e 20 69 74 2c | 20 6f 72 20 69 66 20 73 |g on it,| or if s|
|00005450| 79 73 74 65 6d 20 36 20 | 74 68 65 6e 0d 2d 2d 20 |ystem 6 |then.-- |
|00005460| 6f 70 65 6e 20 69 6e 20 | 74 68 65 20 6e 6f 72 6d |open in |the norm|
|00005470| 61 6c 20 77 61 79 2e 0d | 69 66 20 74 68 65 20 73 |al way..|if the s|
|00005480| 79 73 74 65 6d 56 65 72 | 73 69 6f 6e 20 3e 3d 20 |ystemVer|sion >= |
|00005490| 37 20 74 68 65 6e 0d 73 | 65 74 20 69 74 65 6d 44 |7 then.s|et itemD|
|000054a0| 65 6c 69 6d 69 74 65 72 | 20 74 6f 20 63 6f 6c 6f |elimiter| to colo|
|000054b0| 6e 0d 70 75 74 20 6c 61 | 73 74 20 69 74 65 6d 20 |n.put la|st item |
|000054c0| 6f 66 20 63 6f 6e 66 69 | 67 20 69 6e 74 6f 20 63 |of confi|g into c|
|000054d0| 6f 6e 67 69 66 69 6c 65 | 0d 64 65 6c 65 74 65 20 |ongifile|.delete |
|000054e0| 6c 61 73 74 20 69 74 65 | 6d 20 6f 66 20 63 6f 6e |last ite|m of con|
|000054f0| 66 69 67 0d 73 65 74 20 | 69 74 65 6d 44 65 6c 69 |fig.set |itemDeli|
|00005500| 6d 69 74 65 72 20 74 6f | 20 63 6f 6d 6d 61 0d 66 |miter to| comma.f|
|00005510| 69 6e 64 65 72 65 76 65 | 6e 74 73 20 22 6f 70 65 |indereve|nts "ope|
|00005520| 6e 22 2c 20 63 6f 6e 66 | 69 67 2c 20 63 6f 6e 67 |n", conf|ig, cong|
|00005530| 69 66 69 6c 65 0d 65 6c | 73 65 0d 2d 2d 20 54 68 |ifile.el|se.-- Th|
|00005540| 65 20 70 72 6f 67 63 68 | 65 63 6b 20 76 61 72 69 |e progch|eck vari|
|00005550| 61 62 6c 65 20 69 73 20 | 73 65 74 20 69 66 20 74 |able is |set if t|
|00005560| 65 6c 6e 65 74 20 68 61 | 73 20 62 65 65 6e 20 6f |elnet ha|s been o|
|00005570| 70 65 6e 65 64 20 62 65 | 66 6f 72 65 0d 69 66 20 |pened be|fore.if |
|00005580| 70 72 6f 67 43 68 65 63 | 6b 20 69 73 20 30 20 74 |progChec|k is 0 t|
|00005590| 68 65 6e 0d 6f 70 65 6e | 20 63 6f 6e 66 69 67 20 |hen.open| config |
|000055a0| 77 69 74 68 20 74 65 6c | 70 61 74 68 6c 6f 63 0d |with tel|pathloc.|
|000055b0| 61 64 64 20 31 20 74 6f | 20 70 72 6f 67 43 68 65 |add 1 to| progChe|
|000055c0| 63 6b 0d 65 6c 73 65 0d | 61 6e 73 77 65 72 20 22 |ck.else.|answer "|
|000055d0| 49 66 20 54 65 6c 6e 65 | 74 20 69 73 20 73 74 69 |If Telne|t is sti|
|000055e0| 6c 6c 20 72 75 6e 6e 69 | 6e 67 20 69 6e 20 74 68 |ll runni|ng in th|
|000055f0| 65 20 62 61 63 6b 67 72 | 6f 75 6e 64 2e 20 22 20 |e backgr|ound. " |
|00005600| 26 20 72 65 74 75 72 6e | 20 26 20 72 65 74 75 72 |& return| & retur|
|00005610| 6e 20 26 22 a5 20 49 66 | 20 74 68 65 20 43 6f 6e |n &". If| the Con|
|00005620| 6e 65 63 74 69 6f 6e 73 | 20 6d 65 6e 75 20 72 65 |nections| menu re|
|00005630| 6d 61 69 6e 73 20 67 72 | 65 79 2c 22 20 26 20 72 |mains gr|ey," & r|
|00005640| 65 74 75 72 6e 20 26 20 | c2 0d 22 20 20 20 73 65 |eturn & |.." se|
|00005650| 6c 65 63 74 20 4c 6f 61 | 64 20 53 65 74 2e 2e 2e |lect Loa|d Set...|
|00005660| 20 66 72 6f 6d 20 74 68 | 65 20 46 69 6c 65 20 6d | from th|e File m|
|00005670| 65 6e 75 2e 22 20 26 20 | 72 65 74 75 72 6e 20 26 |enu." & |return &|
|00005680| 20 72 65 74 75 72 6e 20 | 26 20 22 a5 20 54 68 65 | return |& ". The|
|00005690| 6e 20 64 6f 75 62 6c 65 | 20 63 6c 69 63 6b 20 6f |n double| click o|
|000056a0| 6e 20 74 68 65 20 74 65 | 6c 6e 65 74 2e 63 66 67 |n the te|lnet.cfg|
|000056b0| 20 66 69 6c 65 22 20 26 | 20 72 65 74 75 72 6e 20 | file" &| return |
|000056c0| 26 c2 0d 22 20 20 20 69 | 6e 20 74 68 65 20 48 79 |&.." i|n the Hy|
|000056d0| 74 65 6c 6e 65 74 20 66 | 6f 6c 64 65 72 2e 22 0d |telnet f|older.".|
|000056e0| 6f 70 65 6e 20 63 6f 6e | 66 69 67 20 77 69 74 68 |open con|fig with|
|000056f0| 20 74 65 6c 70 61 74 68 | 6c 6f 63 0d 65 6e 64 20 | telpath|loc.end |
|00005700| 69 66 0d 65 6e 64 20 69 | 66 0d 0d 65 6c 73 65 20 |if.end i|f..else |
|00005710| 20 69 66 20 70 72 6f 67 | 6e 61 6d 65 20 69 73 20 | if prog|name is |
|00005720| 22 54 4e 33 32 37 30 22 | 20 74 68 65 6e 0d 70 75 |"TN3270"| then.pu|
|00005730| 74 20 63 64 20 66 6c 64 | 20 22 74 6e 70 61 74 68 |t cd fld| "tnpath|
|00005740| 22 20 69 6e 74 6f 20 74 | 6e 70 61 74 68 6c 6f 63 |" into t|npathloc|
|00005750| 0d 2d 2d 20 63 68 65 63 | 6b 20 69 66 20 74 68 65 |.-- chec|k if the|
|00005760| 72 65 20 69 73 20 61 20 | 54 4e 33 32 37 30 20 70 |re is a |TN3270 p|
|00005770| 72 6f 67 72 61 6d 20 61 | 74 20 74 68 65 20 6c 6f |rogram a|t the lo|
|00005780| 63 61 74 69 6f 6e 20 73 | 70 65 63 69 66 69 65 64 |cation s|pecified|
|00005790| 20 69 6e 20 74 68 65 0d | 2d 2d 20 63 6f 6e 66 69 | in the.|-- confi|
|000057a0| 67 75 72 61 67 74 69 6f | 6e 20 66 6c 64 2e 20 20 |guragtio|n fld. |
|000057b0| 49 66 20 74 68 65 72 20 | 69 73 20 6e 6f 20 70 72 |If ther |is no pr|
|000057c0| 6f 67 72 61 6d 20 67 6f | 20 61 6e 64 20 66 69 6e |ogram go| and fin|
|000057d0| 64 20 69 74 2e 0d 69 66 | 20 74 68 65 72 65 20 69 |d it..if| there i|
|000057e0| 73 20 6e 6f 74 20 61 20 | 66 69 6c 65 20 74 6e 70 |s not a |file tnp|
|000057f0| 61 74 68 6c 6f 63 20 74 | 68 65 6e 0d 61 6e 73 77 |athloc t|hen.answ|
|00005800| 65 72 20 66 69 6c 65 20 | 22 57 68 65 72 65 20 69 |er file |"Where i|
|00005810| 73 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 54 4e |s locati|on of TN|
|00005820| 33 32 37 30 22 20 6f 66 | 20 74 79 70 65 20 22 41 |3270" of| type "A|
|00005830| 50 50 4c 22 0d 69 66 20 | 69 74 20 69 73 20 6e 6f |PPL".if |it is no|
|00005840| 74 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |t empty |then.put|
|00005850| 20 69 74 20 69 6e 74 6f | 20 63 64 20 66 6c 64 20 | it into| cd fld |
|00005860| 22 74 6e 70 61 74 68 22 | 0d 70 75 74 20 63 64 20 |"tnpath"|.put cd |
|00005870| 66 6c 64 20 22 74 6e 70 | 61 74 68 22 20 69 6e 74 |fld "tnp|ath" int|
|00005880| 6f 20 74 6e 70 61 74 68 | 6c 6f 63 0d 65 6c 73 65 |o tnpath|loc.else|
|00005890| 0d 65 78 69 74 20 67 6f | 74 65 6c 6e 65 74 0d 65 |.exit go|telnet.e|
|000058a0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 2d 2d 20 |nd if.en|d if.-- |
|000058b0| 63 68 65 63 6b 20 69 66 | 20 74 68 65 72 65 20 69 |check if| there i|
|000058c0| 73 20 61 20 54 4e 33 32 | 37 30 20 63 6f 6e 66 69 |s a TN32|70 confi|
|000058d0| 67 20 66 69 6c 65 20 61 | 74 20 74 68 65 20 6c 6f |g file a|t the lo|
|000058e0| 63 61 74 69 6f 6e 20 73 | 70 65 63 69 66 69 65 64 |cation s|pecified|
|000058f0| 20 69 6e 74 0d 2d 2d 20 | 74 68 65 20 63 6f 6e 66 | int.-- |the conf|
|00005900| 69 67 20 66 6c 64 2e 20 | 20 49 66 20 74 68 65 72 |ig fld. | If ther|
|00005910| 65 20 69 73 20 6e 6f 74 | 20 66 69 6e 64 20 69 74 |e is not| find it|
|00005920| 2c 20 6f 72 20 65 78 69 | 74 2e 0d 70 75 74 20 63 |, or exi|t..put c|
|00005930| 64 20 66 6c 64 20 22 74 | 6e 63 6f 6e 66 69 67 22 |d fld "t|nconfig"|
|00005940| 20 69 6e 74 6f 20 63 6f | 6e 66 69 67 0d 69 66 20 | into co|nfig.if |
|00005950| 74 68 65 72 65 20 69 73 | 20 6e 6f 74 20 61 20 66 |there is| not a f|
|00005960| 69 6c 65 20 63 6f 6e 66 | 69 67 20 74 68 65 6e 0d |ile conf|ig then.|
|00005970| 61 6e 73 77 65 72 20 66 | 69 6c 65 20 22 4c 6f 63 |answer f|ile "Loc|
|00005980| 61 74 65 20 54 4e 33 32 | 37 30 20 73 65 74 74 69 |ate TN32|70 setti|
|00005990| 6e 67 73 20 66 69 6c 65 | 20 22 20 26 20 71 75 6f |ngs file| " & quo|
|000059a0| 74 65 20 26 20 22 54 4e | 33 32 37 30 2e 63 66 67 |te & "TN|3270.cfg|
|000059b0| 22 20 26 20 71 75 6f 74 | 65 20 6f 66 20 74 79 70 |" & quot|e of typ|
|000059c0| 65 20 22 47 46 54 53 22 | 0d 69 66 20 69 74 20 69 |e "GFTS"|.if it i|
|000059d0| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then|
|000059e0| 0d 70 75 74 20 69 74 20 | 69 6e 74 6f 20 63 64 20 |.put it |into cd |
|000059f0| 66 6c 64 20 22 74 6e 63 | 6f 6e 66 69 67 22 0d 70 |fld "tnc|onfig".p|
|00005a00| 75 74 20 63 64 20 66 6c | 64 20 22 74 6e 63 6f 6e |ut cd fl|d "tncon|
|00005a10| 66 69 67 22 20 69 6e 74 | 6f 20 63 6f 6e 66 69 67 |fig" int|o config|
|00005a20| 0d 65 6c 73 65 0d 65 78 | 69 74 20 67 6f 74 65 6c |.else.ex|it gotel|
|00005a30| 6e 65 74 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |net.end |if.end i|
|00005a40| 66 0d 2d 2d 20 20 69 66 | 20 74 68 65 72 65 20 69 |f.-- if| there i|
|00005a50| 73 20 61 20 66 69 6c 65 | 20 63 6f 6e 66 69 67 20 |s a file| config |
|00005a60| 26 20 74 68 65 72 65 20 | 69 73 20 61 20 66 69 6c |& there |is a fil|
|00005a70| 65 20 74 6e 70 61 74 68 | 6c 6f 63 20 74 68 65 6e |e tnpath|loc then|
|00005a80| 0d 6f 70 65 6e 20 66 69 | 6c 65 20 63 6f 6e 66 69 |.open fi|le confi|
|00005a90| 67 0d 2d 2d 20 74 68 65 | 20 6e 65 78 74 20 6c 69 |g.-- the| next li|
|00005aa0| 6e 65 20 69 73 20 61 20 | 63 6f 6e 69 66 69 67 20 |ne is a |conifig |
|00005ab0| 66 69 6c 65 20 66 6f 72 | 20 54 4e 33 32 37 30 20 |file for| TN3270 |
|00005ac0| 77 69 74 68 20 73 69 74 | 65 20 6e 61 6d 65 20 61 |with sit|e name a|
|00005ad0| 64 64 65 64 20 28 69 70 | 67 6f 29 2e 0d 77 72 69 |dded (ip|go)..wri|
|00005ae0| 74 65 20 22 30 20 34 30 | 20 38 30 20 32 30 20 33 |te "0 40| 80 20 3|
|00005af0| 30 20 31 30 20 38 30 20 | 30 20 22 20 26 20 69 70 |0 10 80 |0 " & ip|
|00005b00| 67 6f 20 26 20 22 20 32 | 20 31 20 31 35 20 31 20 |go & " 2| 1 15 1 |
|00005b10| 31 20 31 20 32 33 20 30 | 20 31 20 66 66 66 66 20 |1 1 23 0| 1 ffff |
|00005b20| 66 66 66 66 20 66 66 66 | 66 20 66 63 30 30 20 66 |ffff fff|f fc00 f|
|00005b30| 33 37 64 20 35 32 66 20 | 66 66 66 66 20 37 61 35 |37d 52f |ffff 7a5|
|00005b40| 64 20 39 66 38 65 20 30 | 20 63 34 32 66 20 65 61 |d 9f8e 0| c42f ea|
|00005b50| 66 66 20 31 66 32 31 20 | 62 37 39 33 20 31 34 33 |ff 1f21 |b793 143|
|00005b60| 31 20 64 64 36 62 20 38 | 63 32 20 36 61 32 20 34 |1 dd6b 8|c2 6a2 4|
|00005b70| 65 62 61 20 36 61 65 61 | 20 64 64 36 62 20 30 20 |eba 6aea| dd6b 0 |
|00005b80| 30 20 30 20 32 61 30 30 | 20 32 61 30 30 20 32 61 |0 0 2a00| 2a00 2a|
|00005b90| 30 30 20 32 34 20 39 20 | 30 20 31 20 30 20 30 20 |00 24 9 |0 1 0 0 |
|00005ba0| 34 65 62 61 20 36 61 65 | 61 20 64 64 36 62 20 31 |4eba 6ae|a dd6b 1|
|00005bb0| 20 31 20 30 20 64 65 66 | 61 75 6c 74 20 31 20 45 | 1 0 def|ault 1 E|
|00005bc0| 6e 67 6c 69 73 68 5f 28 | 55 2e 53 2e 29 20 39 20 |nglish_(|U.S.) 9 |
|00005bd0| 38 30 20 32 34 20 38 30 | 20 53 79 73 74 65 6d 5f |80 24 80| System_|
|00005be0| 41 6c 65 72 74 5f 53 6f | 75 6e 64 20 32 20 66 66 |Alert_So|und 2 ff|
|00005bf0| 20 61 62 22 20 26 20 72 | 65 74 75 72 6e 20 74 6f | ab" & r|eturn to|
|00005c00| 20 66 69 6c 65 20 63 6f | 6e 66 69 67 0d 63 6c 6f | file co|nfig.clo|
|00005c10| 73 65 20 66 69 6c 65 20 | 63 6f 6e 66 69 67 0d 2d |se file |config.-|
|00005c20| 2d 20 43 68 65 63 6b 20 | 74 68 65 20 73 79 73 74 |- Check |the syst|
|00005c30| 65 6d 20 6e 75 6d 62 65 | 72 2c 20 69 66 20 69 74 |em numbe|r, if it|
|00005c40| 20 69 73 20 73 79 73 74 | 65 6d 20 37 20 74 68 65 | is syst|em 7 the|
|00005c50| 6e 20 6f 70 65 6e 0d 2d | 2d 20 74 68 65 20 63 6f |n open.-|- the co|
|00005c60| 6e 66 69 67 20 66 69 6c | 65 20 62 79 20 64 6f 75 |nfig fil|e by dou|
|00005c70| 62 6c 65 20 63 6c 69 63 | 6b 69 6e 67 20 6f 6e 20 |ble clic|king on |
|00005c80| 69 74 2e 0d 69 66 20 74 | 68 65 20 73 79 73 74 65 |it..if t|he syste|
|00005c90| 6d 56 65 72 73 69 6f 6e | 20 3e 3d 20 37 20 74 68 |mVersion| >= 7 th|
|00005ca0| 65 6e 0d 73 65 74 20 69 | 74 65 6d 44 65 6c 69 6d |en.set i|temDelim|
|00005cb0| 69 74 65 72 20 74 6f 20 | 63 6f 6c 6f 6e 0d 70 75 |iter to |colon.pu|
|00005cc0| 74 20 6c 61 73 74 20 69 | 74 65 6d 20 6f 66 20 63 |t last i|tem of c|
|00005cd0| 6f 6e 66 69 67 20 69 6e | 74 6f 20 63 6f 6e 67 69 |onfig in|to congi|
|00005ce0| 66 69 6c 65 0d 64 65 6c | 65 74 65 20 6c 61 73 74 |file.del|ete last|
|00005cf0| 20 69 74 65 6d 20 6f 66 | 20 63 6f 6e 66 69 67 0d | item of| config.|
|00005d00| 73 65 74 20 69 74 65 6d | 44 65 6c 69 6d 69 74 65 |set item|Delimite|
|00005d10| 72 20 74 6f 20 63 6f 6d | 6d 61 0d 66 69 6e 64 65 |r to com|ma.finde|
|00005d20| 72 65 76 65 6e 74 73 20 | 22 6f 70 65 6e 22 2c 20 |revents |"open", |
|00005d30| 63 6f 6e 66 69 67 2c 20 | 63 6f 6e 67 69 66 69 6c |config, |congifil|
|00005d40| 65 0d 65 6c 73 65 0d 69 | 66 20 70 72 6f 67 43 68 |e.else.i|f progCh|
|00005d50| 65 63 6b 20 69 73 20 30 | 20 74 68 65 6e 0d 6f 70 |eck is 0| then.op|
|00005d60| 65 6e 20 63 6f 6e 66 69 | 67 20 77 69 74 68 20 74 |en confi|g with t|
|00005d70| 6e 70 61 74 68 6c 6f 63 | 0d 61 64 64 20 31 20 74 |npathloc|.add 1 t|
|00005d80| 6f 20 70 72 6f 67 63 68 | 65 63 6b 0d 65 6c 73 65 |o progch|eck.else|
|00005d90| 0d 61 6e 73 77 65 72 20 | 22 49 66 20 54 4e 33 32 |.answer |"If TN32|
|00005da0| 37 30 20 77 61 73 20 6c | 65 66 74 20 72 75 6e 6e |70 was l|eft runn|
|00005db0| 69 6e 67 20 69 6e 20 74 | 68 65 20 62 61 63 6b 67 |ing in t|he backg|
|00005dc0| 72 6f 75 6e 64 2e 20 22 | 20 26 20 72 65 74 75 72 |round. "| & retur|
|00005dd0| 6e 20 26 20 72 65 74 75 | 72 6e 20 26 22 a5 20 49 |n & retu|rn &". I|
|00005de0| 66 20 74 68 65 20 43 6f | 6e 6e 65 63 74 69 6f 6e |f the Co|nnection|
|00005df0| 73 20 6d 65 6e 75 20 72 | 65 6d 61 69 6e 73 20 67 |s menu r|emains g|
|00005e00| 72 65 79 2c 22 20 26 20 | 72 65 74 75 72 6e 20 26 |rey," & |return &|
|00005e10| 20 c2 0d 22 20 20 20 73 | 65 6c 65 63 74 20 4c 6f | .." s|elect Lo|
|00005e20| 61 64 20 53 65 74 2e 2e | 2e 20 66 72 6f 6d 20 74 |ad Set..|. from t|
|00005e30| 68 65 20 46 69 6c 65 20 | 6d 65 6e 75 2e 22 20 26 |he File |menu." &|
|00005e40| 20 72 65 74 75 72 6e 20 | 26 20 72 65 74 75 72 6e | return |& return|
|00005e50| 20 26 20 22 a5 20 54 68 | 65 6e 20 64 6f 75 62 6c | & ". Th|en doubl|
|00005e60| 65 20 63 6c 69 63 6b 20 | 6f 6e 20 74 68 65 20 54 |e click |on the T|
|00005e70| 4e 33 32 37 30 2e 63 66 | 67 20 66 69 6c 65 22 20 |N3270.cf|g file" |
|00005e80| 26 20 72 65 74 75 72 6e | 20 26 c2 0d 22 20 20 20 |& return| &.." |
|00005e90| 69 6e 20 74 68 65 20 48 | 79 74 65 6c 6e 65 74 20 |in the H|ytelnet |
|00005ea0| 66 6f 6c 64 65 72 2e 22 | 0d 6f 70 65 6e 20 63 6f |folder."|.open co|
|00005eb0| 6e 66 69 67 20 77 69 74 | 68 20 74 6e 70 61 74 68 |nfig wit|h tnpath|
|00005ec0| 6c 6f 63 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |loc.end |if.end i|
|00005ed0| 66 0d 0d 65 6c 73 65 20 | 69 66 20 70 72 6f 67 6e |f..else |if progn|
|00005ee0| 61 6d 65 20 69 73 20 22 | 67 6f 70 68 65 72 22 20 |ame is "|gopher" |
|00005ef0| 74 68 65 6e 0d 70 75 74 | 20 63 64 20 66 6c 64 20 |then.put| cd fld |
|00005f00| 22 67 70 70 61 74 68 22 | 20 69 6e 74 6f 20 67 70 |"gppath"| into gp|
|00005f10| 70 61 74 68 6c 6f 63 0d | 2d 2d 20 63 68 65 63 6b |pathloc.|-- check|
|00005f20| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 67 | if ther|e is a g|
|00005f30| 6f 70 68 65 72 20 70 72 | 6f 67 72 61 6d 20 61 74 |opher pr|ogram at|
|00005f40| 20 74 68 65 20 6c 6f 63 | 61 74 69 6f 6e 20 73 70 | the loc|ation sp|
|00005f50| 65 63 69 66 69 65 64 20 | 69 6e 20 74 68 65 0d 2d |ecified |in the.-|
|00005f60| 2d 20 63 6f 6e 66 69 67 | 75 72 61 67 74 69 6f 6e |- config|uragtion|
|00005f70| 20 66 6c 64 2e 20 20 49 | 66 20 74 68 65 72 20 69 | fld. I|f ther i|
|00005f80| 73 20 6e 6f 20 70 72 6f | 67 72 61 6d 20 67 6f 20 |s no pro|gram go |
|00005f90| 61 6e 64 20 66 69 6e 64 | 20 69 74 2e 0d 69 66 20 |and find| it..if |
|00005fa0| 74 68 65 72 65 20 69 73 | 20 6e 6f 74 20 61 20 66 |there is| not a f|
|00005fb0| 69 6c 65 20 67 70 70 61 | 74 68 6c 6f 63 20 74 68 |ile gppa|thloc th|
|00005fc0| 65 6e 0d 61 6e 73 77 65 | 72 20 66 69 6c 65 20 22 |en.answe|r file "|
|00005fd0| 57 68 65 72 65 20 69 73 | 20 6c 6f 63 61 74 69 6f |Where is| locatio|
|00005fe0| 6e 20 6f 66 20 54 75 72 | 62 6f 20 47 6f 70 68 65 |n of Tur|bo Gophe|
|00005ff0| 72 22 20 6f 66 20 74 79 | 70 65 20 22 41 50 50 4c |r" of ty|pe "APPL|
|00006000| 22 0d 69 66 20 69 74 20 | 69 73 20 6e 6f 74 20 65 |".if it |is not e|
|00006010| 6d 70 74 79 20 74 68 65 | 6e 0d 70 75 74 20 69 74 |mpty the|n.put it|
|00006020| 20 69 6e 74 6f 20 63 64 | 20 66 6c 64 20 22 67 70 | into cd| fld "gp|
|00006030| 70 61 74 68 22 0d 70 75 | 74 20 63 64 20 66 6c 64 |path".pu|t cd fld|
|00006040| 20 22 67 70 70 61 74 68 | 22 20 69 6e 74 6f 20 74 | "gppath|" into t|
|00006050| 6e 70 61 74 68 6c 6f 63 | 0d 65 6c 73 65 0d 65 78 |npathloc|.else.ex|
|00006060| 69 74 20 67 6f 74 65 6c | 6e 65 74 0d 65 6e 64 20 |it gotel|net.end |
|00006070| 69 66 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 63 64 |if.end i|f.put cd|
|00006080| 20 66 6c 64 20 22 67 70 | 63 6f 6e 66 69 67 22 20 | fld "gp|config" |
|00006090| 69 6e 74 6f 20 63 6f 6e | 66 69 67 0d 69 66 20 74 |into con|fig.if t|
|000060a0| 68 65 72 65 20 69 73 20 | 6e 6f 74 20 61 20 66 69 |here is |not a fi|
|000060b0| 6c 65 20 63 6f 6e 66 69 | 67 20 74 68 65 6e 0d 61 |le confi|g then.a|
|000060c0| 6e 73 77 65 72 20 66 69 | 6c 65 20 22 4c 6f 63 61 |nswer fi|le "Loca|
|000060d0| 74 65 20 67 6f 70 68 65 | 72 20 66 69 6c 65 20 22 |te gophe|r file "|
|000060e0| 20 26 20 71 75 6f 74 65 | 20 26 20 22 67 6f 70 68 | & quote| & "goph|
|000060f0| 65 72 2e 63 66 67 22 20 | 26 20 71 75 6f 74 65 20 |er.cfg" |& quote |
|00006100| 6f 66 20 74 79 70 65 20 | 22 42 4b 4d 4b 22 0d 69 |of type |"BKMK".i|
|00006110| 66 20 69 74 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |f it is |not empt|
|00006120| 79 20 74 68 65 6e 0d 70 | 75 74 20 69 74 20 69 6e |y then.p|ut it in|
|00006130| 74 6f 20 63 64 20 66 6c | 64 20 22 67 70 63 6f 6e |to cd fl|d "gpcon|
|00006140| 66 69 67 22 0d 70 75 74 | 20 63 64 20 66 6c 64 20 |fig".put| cd fld |
|00006150| 22 67 70 63 6f 6e 66 69 | 67 22 20 69 6e 74 6f 20 |"gpconfi|g" into |
|00006160| 63 6f 6e 66 69 67 0d 65 | 6c 73 65 0d 65 78 69 74 |config.e|lse.exit|
|00006170| 20 67 6f 74 65 6c 6e 65 | 74 0d 65 6e 64 20 69 66 | gotelne|t.end if|
|00006180| 0d 65 6e 64 20 69 66 0d | 2d 2d 20 20 69 66 20 74 |.end if.|-- if t|
|00006190| 68 65 72 65 20 69 73 20 | 61 20 66 69 6c 65 20 63 |here is |a file c|
|000061a0| 6f 6e 66 69 67 20 26 20 | 74 68 65 72 65 20 69 73 |onfig & |there is|
|000061b0| 20 61 20 66 69 6c 65 20 | 74 6e 70 61 74 68 6c 6f | a file |tnpathlo|
|000061c0| 63 20 74 68 65 6e 0d 6f | 70 65 6e 20 66 69 6c 65 |c then.o|pen file|
|000061d0| 20 63 6f 6e 66 69 67 0d | 2d 2d 20 74 68 65 20 6e | config.|-- the n|
|000061e0| 65 78 74 20 6c 69 6e 65 | 20 69 73 20 61 20 63 6f |ext line| is a co|
|000061f0| 6e 69 66 69 67 20 66 69 | 6c 65 20 66 6f 72 20 54 |nifig fi|le for T|
|00006200| 4e 33 32 37 30 20 77 69 | 74 68 20 73 69 74 65 20 |N3270 wi|th site |
|00006210| 6e 61 6d 65 20 61 64 64 | 65 64 20 28 69 70 67 6f |name add|ed (ipgo|
|00006220| 29 2e 0d 77 72 69 74 65 | 20 22 31 4f 70 65 6e 20 |)..write| "1Open |
|00006230| 22 20 26 20 69 70 67 6f | 20 26 20 74 61 62 20 26 |" & ipgo| & tab &|
|00006240| 20 22 22 20 26 20 74 61 | 62 20 26 20 69 70 67 6f | "" & ta|b & ipgo|
|00006250| 20 26 20 74 61 62 20 26 | 20 22 37 30 22 20 26 20 | & tab &| "70" & |
|00006260| 74 61 62 20 26 20 22 2b | 22 20 26 20 72 65 74 75 |tab & "+|" & retu|
|00006270| 72 6e 20 74 6f 20 66 69 | 6c 65 20 63 6f 6e 66 69 |rn to fi|le confi|
|00006280| 67 0d 63 6c 6f 73 65 20 | 66 69 6c 65 20 63 6f 6e |g.close |file con|
|00006290| 66 69 67 0d 2d 2d 20 43 | 68 65 63 6b 20 74 68 65 |fig.-- C|heck the|
|000062a0| 20 73 79 73 74 65 6d 20 | 6e 75 6d 62 65 72 2c 20 | system |number, |
|000062b0| 69 66 20 69 74 20 69 73 | 20 73 79 73 74 65 6d 20 |if it is| system |
|000062c0| 37 20 74 68 65 6e 20 6f | 70 65 6e 0d 2d 2d 20 74 |7 then o|pen.-- t|
|000062d0| 68 65 20 63 6f 6e 66 69 | 67 20 66 69 6c 65 20 62 |he confi|g file b|
|000062e0| 79 20 64 6f 75 62 6c 65 | 20 63 6c 69 63 6b 69 6e |y double| clickin|
|000062f0| 67 20 6f 6e 20 69 74 2e | 0d 69 66 20 74 68 65 20 |g on it.|.if the |
|00006300| 73 79 73 74 65 6d 56 65 | 72 73 69 6f 6e 20 3e 3d |systemVe|rsion >=|
|00006310| 20 37 20 74 68 65 6e 0d | 73 65 74 20 69 74 65 6d | 7 then.|set item|
|00006320| 44 65 6c 69 6d 69 74 65 | 72 20 74 6f 20 63 6f 6c |Delimite|r to col|
|00006330| 6f 6e 0d 70 75 74 20 6c | 61 73 74 20 69 74 65 6d |on.put l|ast item|
|00006340| 20 6f 66 20 63 6f 6e 66 | 69 67 20 69 6e 74 6f 20 | of conf|ig into |
|00006350| 63 6f 6e 67 69 66 69 6c | 65 0d 64 65 6c 65 74 65 |congifil|e.delete|
|00006360| 20 6c 61 73 74 20 69 74 | 65 6d 20 6f 66 20 63 6f | last it|em of co|
|00006370| 6e 66 69 67 0d 73 65 74 | 20 69 74 65 6d 44 65 6c |nfig.set| itemDel|
|00006380| 69 6d 69 74 65 72 20 74 | 6f 20 63 6f 6d 6d 61 0d |imiter t|o comma.|
|00006390| 66 69 6e 64 65 72 65 76 | 65 6e 74 73 20 22 6f 70 |finderev|ents "op|
|000063a0| 65 6e 22 2c 20 63 6f 6e | 66 69 67 2c 20 63 6f 6e |en", con|fig, con|
|000063b0| 67 69 66 69 6c 65 0d 65 | 6c 73 65 0d 69 66 20 70 |gifile.e|lse.if p|
|000063c0| 72 6f 67 43 68 65 63 6b | 20 69 73 20 30 20 74 68 |rogCheck| is 0 th|
|000063d0| 65 6e 0d 6f 70 65 6e 20 | 63 6f 6e 66 69 67 20 77 |en.open |config w|
|000063e0| 69 74 68 20 74 6e 70 61 | 74 68 6c 6f 63 0d 61 64 |ith tnpa|thloc.ad|
|000063f0| 64 20 31 20 74 6f 20 70 | 72 6f 67 63 68 65 63 6b |d 1 to p|rogcheck|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
