/ PC World Komputer 1998 April A / Pcwk4a98.iso / Wtestowe / OnNet16 / TN3270.SCR

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 44 53 44 49 52 20 20 | 2c 04 08 00 20 20 20 00 |PDSDIR  |,...   .|
|00000010| 43 41 4c 4c 5f 4c 4f 47 | 0a 00 34 0b 53 43 58 00 |CALL_LOG|..4.SCX.|
|00000020| 4c 45 41 52 4e 57 49 4e | be 00 28 16 53 43 58 00 |LEARNWIN|..(.SCX.|
|00000030| 49 4e 56 4f 4b 45 20 20 | 21 02 4b 00 53 43 58 00 |INVOKE  |!.K.SCX.|
|00000040| 52 4c 59 48 4c 4c 58 46 | 26 02 0f 0a 53 43 58 00 |RLYHLLXF|&...SCX.|
|00000050| 43 4f 4e 4e 45 43 54 4e | c7 02 9c 0b 53 43 58 00 |CONNECTN|....SCX.|
|00000060| 43 4f 4e 4e 45 43 54 54 | 81 03 8e 01 53 43 58 00 |CONNECTT|....SCX.|
|00000070| 43 4f 4e 4e 45 43 54 45 | 9a 03 f3 04 53 43 58 00 |CONNECTE|....SCX.|
|00000080| 43 4f 4e 4e 45 43 54 47 | ea 03 19 04 53 43 58 00 |CONNECTG|....SCX.|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 2a 20 43 41 4c 4c 4c 4f | 47 57 2e 53 43 52 0d 0a |* CALLLO|GW.SCR..|
|000000b0| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|000000c0| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|000000d0| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 6f 6e 20 68 |ology In|c...on h|
|000000e0| 61 6e 67 75 70 0d 0a 6f | 6e 20 65 72 72 6f 72 20 |angup..o|n error |
|000000f0| 71 75 69 65 74 20 63 6c | 6f 73 65 20 23 31 20 3b |quiet cl|ose #1 ;|
|00000100| 20 73 74 6f 70 20 65 72 | 72 6f 72 0d 0a 67 6c 6f | stop er|ror..glo|
|00000110| 62 61 6c 20 26 24 42 45 | 47 53 49 5a 45 20 26 24 |bal &$BE|GSIZE &$|
|00000120| 48 4f 57 43 4f 4e 0d 0a | 26 4c 4f 47 46 49 4c 45 |HOWCON..|&LOGFILE|
|00000130| 20 3d 20 26 66 64 69 72 | 28 26 72 64 72 69 76 65 | = &fdir|(&rdrive|
|00000140| 29 43 41 4c 4c 5f 4c 4f | 47 2e 26 73 75 62 73 74 |)CALL_LO|G.&subst|
|00000150| 72 69 6e 67 28 26 6a 64 | 61 74 65 28 26 64 61 74 |ring(&jd|ate(&dat|
|00000160| 65 29 2c 34 2c 33 29 0d | 0a 69 66 20 28 26 73 65 |e),4,3).|.if (&se|
|00000170| 73 5f 63 6f 6e 20 3d 20 | 26 2e 73 65 73 5f 63 6f |s_con = |&.ses_co|
|00000180| 6e 29 20 74 68 65 6e 20 | 67 6c 6f 62 61 6c 20 26 |n) then |global &|
|00000190| 73 65 73 5f 63 6f 6e 0d | 0a 69 66 20 28 26 73 65 |ses_con.|.if (&se|
|000001a0| 73 5f 63 6f 6e 20 3c 3e | 20 26 73 65 73 73 69 6f |s_con <>| &sessio|
|000001b0| 6e 69 64 3a 26 63 61 6c | 6c 73 65 71 29 0d 0a 74 |nid:&cal|lseq)..t|
|000001c0| 68 65 6e 20 26 73 65 73 | 5f 63 6f 6e 20 3d 20 22 |hen &ses|_con = "|
|000001d0| 26 73 65 73 73 69 6f 6e | 69 64 3a 26 63 61 6c 6c |&session|id:&call|
|000001e0| 73 65 71 22 0d 0a 74 68 | 65 6e 20 67 6f 74 6f 20 |seq"..th|en goto |
|000001f0| 3a 31 33 0d 0a 65 6c 73 | 65 20 67 6f 74 6f 20 3a |:13..els|e goto :|
|00000200| 34 39 0d 0a 73 74 6f 70 | 0d 0a 2d 43 4f 4d 49 4e |49..stop|..-COMIN|
|00000210| 47 20 20 20 6f 6e 20 68 | 61 6e 67 75 70 20 71 75 |G   on h|angup qu|
|00000220| 69 65 74 20 65 78 65 63 | 75 74 65 20 43 41 4c 4c |iet exec|ute CALL|
|00000230| 5f 4c 4f 47 0d 0a 67 6f | 73 75 62 20 3a 38 39 0d |_LOG..go|sub :89.|
|00000240| 0a 26 24 48 4f 57 43 4f | 4e 20 3d 20 22 44 49 41 |.&$HOWCO|N = "DIA|
|00000250| 4c 2d 55 50 22 20 20 0d | 0a 69 66 20 28 26 6d 6f |L-UP"  .|.if (&mo|
|00000260| 64 65 6d 69 64 20 3d 20 | 22 44 22 29 0d 0a 74 68 |demid = |"D")..th|
|00000270| 65 6e 20 26 24 48 4f 57 | 43 4f 4e 20 3d 20 22 44 |en &$HOW|CON = "D|
|00000280| 49 52 45 43 54 20 22 0d | 0a 74 68 65 6e 20 67 6f |IRECT ".|.then go|
|00000290| 74 6f 20 3a 33 30 0d 0a | 69 66 20 28 26 77 68 65 |to :30..|if (&whe|
|000002a0| 72 65 3d 54 54 59 29 20 | 6f 72 20 28 26 77 68 65 |re=TTY) |or (&whe|
|000002b0| 72 65 3d 50 43 29 20 74 | 68 65 6e 20 26 24 48 4f |re=PC) t|hen &$HO|
|000002c0| 57 43 4f 4e 20 3d 20 22 | 44 49 41 4c 2d 55 50 22 |WCON = "|DIAL-UP"|
|000002d0| 0d 0a 74 68 65 6e 20 67 | 6f 74 6f 20 3a 33 30 0d |..then g|oto :30.|
|000002e0| 0a 69 66 20 28 26 63 33 | 32 37 30 20 3d 20 22 52 |.if (&c3|270 = "R|
|000002f0| 45 4c 41 59 22 29 20 74 | 68 65 6e 20 26 24 48 4f |ELAY") t|hen &$HO|
|00000300| 57 43 4f 4e 20 3d 20 22 | 44 49 41 4c 2d 55 50 22 |WCON = "|DIAL-UP"|
|00000310| 0d 0a 74 68 65 6e 20 67 | 6f 74 6f 20 3a 33 30 0d |..then g|oto :30.|
|00000320| 0a 69 66 20 28 26 63 33 | 32 37 30 20 3d 20 22 49 |.if (&c3|270 = "I|
|00000330| 42 4d 22 29 20 6f 72 20 | 28 26 63 33 32 37 30 20 |BM") or |(&c3270 |
|00000340| 3d 20 22 49 42 4d 4c 44 | 46 54 22 29 20 6f 72 20 |= "IBMLD|FT") or |
|00000350| 28 26 63 33 32 37 30 20 | 3d 20 22 49 42 4d 53 44 |(&c3270 |= "IBMSD|
|00000360| 46 54 22 29 20 6f 72 20 | 28 26 63 33 32 37 30 20 |FT") or |(&c3270 |
|00000370| 3d 20 22 49 52 4d 41 22 | 29 20 6f 72 20 28 26 63 |= "IRMA"|) or (&c|
|00000380| 33 32 37 30 20 3d 20 22 | 46 4f 52 54 45 22 29 0d |3270 = "|FORTE").|
|00000390| 0a 74 68 65 6e 20 26 24 | 48 4f 57 43 4f 4e 20 3d |.then &$|HOWCON =|
|000003a0| 20 22 43 4f 41 58 49 41 | 4c 22 0d 0a 74 68 65 6e | "COAXIA|L"..then|
|000003b0| 20 67 6f 74 6f 20 3a 33 | 30 0d 0a 69 66 20 28 26 | goto :3|0..if (&|
|000003c0| 63 33 32 37 30 20 3d 20 | 22 54 49 43 22 29 20 74 |c3270 = |"TIC") t|
|000003d0| 68 65 6e 20 26 24 48 4f | 57 43 4f 4e 20 3d 20 22 |hen &$HO|WCON = "|
|000003e0| 54 49 43 22 0d 0a 74 68 | 65 6e 20 67 6f 74 6f 20 |TIC"..th|en goto |
|000003f0| 3a 33 30 0d 0a 69 66 20 | 28 26 63 33 32 37 30 20 |:30..if |(&c3270 |
|00000400| 3d 20 22 47 41 54 45 57 | 41 59 22 29 20 74 68 65 |= "GATEW|AY") the|
|00000410| 6e 20 26 24 48 4f 57 43 | 4f 4e 20 3d 20 22 47 41 |n &$HOWC|ON = "GA|
|00000420| 54 45 57 41 59 22 0d 0a | 74 68 65 6e 20 67 6f 74 |TEWAY"..|then got|
|00000430| 6f 20 3a 33 30 0d 0a 2d | 4c 4f 47 52 45 43 0d 0a |o :30..-|LOGREC..|
|00000440| 26 4c 4f 47 52 45 43 20 | 3d 20 22 26 64 61 74 65 |&LOGREC |= "&date|
|00000450| 20 26 74 69 6d 65 20 2d | 20 41 20 26 6c 65 66 74 | &time -| A &left|
|00000460| 28 26 24 48 4f 57 43 4f | 4e 2c 37 29 20 63 6f 6e |(&$HOWCO|N,7) con|
|00000470| 6e 65 63 74 69 6f 6e 20 | 77 61 73 20 6d 61 64 65 |nection |was made|
|00000480| 20 74 6f 20 27 26 6c 65 | 66 74 28 26 73 79 73 6e | to '&le|ft(&sysn|
|00000490| 61 6d 65 2c 38 29 27 20 | 41 42 4e 4f 52 4d 41 4c |ame,8)' |ABNORMAL|
|000004a0| 20 45 4e 44 21 22 0d 0a | 6f 6e 20 65 72 72 6f 72 | END!"..|on error|
|000004b0| 0d 0a 26 41 54 54 45 4d | 50 54 53 3d 31 0d 0a 2d |..&ATTEM|PTS=1..-|
|000004c0| 4f 50 45 4e 41 47 31 0d | 0a 6f 70 65 6e 20 26 4c |OPENAG1.|.open &L|
|000004d0| 4f 47 46 49 4c 45 20 61 | 73 20 23 31 20 6c 65 6e |OGFILE a|s #1 len|
|000004e0| 20 31 0d 0a 26 48 52 43 | 3d 26 72 63 0d 0a 69 66 | 1..&HRC|=&rc..if|
|000004f0| 20 28 26 48 52 43 3d 30 | 29 20 74 68 65 6e 20 67 | (&HRC=0|) then g|
|00000500| 6f 74 6f 20 3a 34 32 0d | 0a 69 66 20 28 26 41 54 |oto :42.|.if (&AT|
|00000510| 54 45 4d 50 54 53 3d 33 | 29 20 74 68 65 6e 20 63 |TEMPTS=3|) then c|
|00000520| 6c 6f 73 65 20 23 31 3b | 73 74 6f 70 20 65 72 72 |lose #1;|stop err|
|00000530| 6f 72 0d 0a 26 41 54 54 | 45 4d 50 54 53 3d 26 41 |or..&ATT|EMPTS=&A|
|00000540| 54 54 45 4d 50 54 53 2b | 31 0d 0a 77 61 69 74 20 |TTEMPTS+|1..wait |
|00000550| 30 2e 35 0d 0a 67 6f 74 | 6f 20 3a 33 34 0d 0a 2d |0.5..got|o :34..-|
|00000560| 43 4f 4e 54 31 0d 0a 6f | 6e 20 65 72 72 6f 72 20 |CONT1..o|n error |
|00000570| 71 75 69 65 74 20 63 6c | 6f 73 65 20 23 31 3b 73 |quiet cl|ose #1;s|
|00000580| 74 6f 70 20 65 72 72 6f | 72 0d 0a 67 6f 73 75 62 |top erro|r..gosub|
|00000590| 20 3a 36 38 0d 0a 70 6f | 69 6e 74 20 23 31 20 26 | :68..po|int #1 &|
|000005a0| 24 42 45 47 53 49 5a 45 | 2b 31 0d 0a 77 72 69 74 |$BEGSIZE|+1..writ|
|000005b0| 65 20 66 69 6c 65 20 23 | 31 20 22 26 4c 4f 47 52 |e file #|1 "&LOGR|
|000005c0| 45 43 26 63 72 26 6c 66 | 22 0d 0a 63 6c 6f 73 65 |EC&cr&lf|"..close|
|000005d0| 20 23 31 0d 0a 71 75 69 | 65 74 20 73 74 6f 70 0d | #1..qui|et stop.|
|000005e0| 0a 2d 47 4f 49 4e 47 20 | 20 20 20 26 4c 4f 47 52 |.-GOING |   &LOGR|
|000005f0| 45 43 20 3d 20 22 26 64 | 61 74 65 20 26 74 69 6d |EC = "&d|ate &tim|
|00000600| 65 20 2d 20 41 20 26 6c | 65 66 74 28 26 24 48 4f |e - A &l|eft(&$HO|
|00000610| 57 43 4f 4e 2c 37 29 20 | 63 6f 6e 6e 65 63 74 69 |WCON,7) |connecti|
|00000620| 6f 6e 20 77 61 73 20 6d | 61 64 65 20 74 6f 20 27 |on was m|ade to '|
|00000630| 26 6c 65 66 74 28 26 73 | 79 73 6e 61 6d 65 2c 38 |&left(&s|ysname,8|
|00000640| 29 27 20 66 6f 72 20 26 | 63 74 69 6d 65 2e 2e 22 |)' for &|ctime.."|
|00000650| 0d 0a 6f 6e 20 65 72 72 | 6f 72 0d 0a 26 41 54 54 |..on err|or..&ATT|
|00000660| 45 4d 50 54 53 3d 31 0d | 0a 2d 4f 50 45 4e 41 47 |EMPTS=1.|.-OPENAG|
|00000670| 32 0d 0a 6f 70 65 6e 20 | 26 4c 4f 47 46 49 4c 45 |2..open |&LOGFILE|
|00000680| 20 61 73 20 23 31 20 6c | 65 6e 20 31 0d 0a 26 48 | as #1 l|en 1..&H|
|00000690| 52 43 3d 26 72 63 0d 0a | 69 66 20 28 26 48 52 43 |RC=&rc..|if (&HRC|
|000006a0| 3d 30 29 20 74 68 65 6e | 20 67 6f 74 6f 20 3a 36 |=0) then| goto :6|
|000006b0| 30 0d 0a 69 66 20 28 26 | 41 54 54 45 4d 50 54 53 |0..if (&|ATTEMPTS|
|000006c0| 3d 33 29 20 74 68 65 6e | 20 63 6c 6f 73 65 20 23 |=3) then| close #|
|000006d0| 31 3b 73 74 6f 70 20 65 | 72 72 6f 72 0d 0a 26 41 |1;stop e|rror..&A|
|000006e0| 54 54 45 4d 50 54 53 3d | 26 41 54 54 45 4d 50 54 |TTEMPTS=|&ATTEMPT|
|000006f0| 53 2b 31 0d 0a 77 61 69 | 74 20 30 2e 35 0d 0a 67 |S+1..wai|t 0.5..g|
|00000700| 6f 74 6f 20 3a 35 32 0d | 0a 2d 43 4f 4e 54 32 0d |oto :52.|.-CONT2.|
|00000710| 0a 6f 6e 20 65 72 72 6f | 72 20 71 75 69 65 74 20 |.on erro|r quiet |
|00000720| 63 6c 6f 73 65 20 23 31 | 3b 73 74 6f 70 20 65 72 |close #1|;stop er|
|00000730| 72 6f 72 0d 0a 70 6f 69 | 6e 74 20 23 31 20 26 24 |ror..poi|nt #1 &$|
|00000740| 42 45 47 53 49 5a 45 2b | 31 0d 0a 77 72 69 74 65 |BEGSIZE+|1..write|
|00000750| 20 66 69 6c 65 20 23 31 | 20 22 26 4c 4f 47 52 45 | file #1| "&LOGRE|
|00000760| 43 26 63 72 26 6c 66 22 | 0d 0a 63 6c 6f 73 65 20 |C&cr&lf"|..close |
|00000770| 23 31 0d 0a 69 66 20 28 | 26 31 20 3d 20 22 44 49 |#1..if (|&1 = "DI|
|00000780| 53 43 4f 4e 22 29 20 20 | 20 20 20 20 20 20 20 20 |SCON")  |        |
|00000790| 20 20 20 20 20 20 0d 0a | 74 68 65 6e 20 71 75 69 |      ..|then qui|
|000007a0| 65 74 20 73 74 6f 70 20 | 20 20 20 20 20 20 20 20 |et stop |        |
|000007b0| 20 20 20 20 20 20 0d 0a | 65 6c 73 65 20 71 75 69 |      ..|else qui|
|000007c0| 65 74 20 68 61 6e 67 75 | 70 20 20 20 20 20 20 20 |et hangu|p       |
|000007d0| 20 20 20 20 20 20 0d 0a | 2d 43 48 45 43 4b 45 4f |      ..|-CHECKEO|
|000007e0| 46 20 63 6c 6f 73 65 20 | 23 31 0d 0a 26 24 42 45 |F close |#1..&$BE|
|000007f0| 47 53 49 5a 45 20 3d 20 | 26 66 73 69 7a 65 28 26 |GSIZE = |&fsize(&|
|00000800| 4c 4f 47 46 49 4c 45 29 | 0d 0a 6f 6e 20 65 72 72 |LOGFILE)|..on err|
|00000810| 6f 72 0d 0a 26 41 54 54 | 45 4d 50 54 53 3d 31 0d |or..&ATT|EMPTS=1.|
|00000820| 0a 2d 4f 50 45 4e 41 47 | 33 0d 0a 6f 70 65 6e 20 |.-OPENAG|3..open |
|00000830| 26 6c 6f 67 66 69 6c 65 | 20 61 73 20 23 31 20 6c |&logfile| as #1 l|
|00000840| 65 6e 67 74 68 20 31 0d | 0a 26 48 52 43 3d 26 72 |ength 1.|.&HRC=&r|
|00000850| 63 0d 0a 69 66 20 28 26 | 48 52 43 3d 30 29 20 74 |c..if (&|HRC=0) t|
|00000860| 68 65 6e 20 67 6f 74 6f | 20 3a 38 30 0d 0a 69 66 |hen goto| :80..if|
|00000870| 20 28 26 41 54 54 45 4d | 50 54 53 3d 33 29 20 74 | (&ATTEM|PTS=3) t|
|00000880| 68 65 6e 20 63 6c 6f 73 | 65 20 23 31 3b 73 74 6f |hen clos|e #1;sto|
|00000890| 70 20 65 72 72 6f 72 0d | 0a 26 41 54 54 45 4d 50 |p error.|.&ATTEMP|
|000008a0| 54 53 3d 26 41 54 54 45 | 4d 50 54 53 2b 31 0d 0a |TS=&ATTE|MPTS+1..|
|000008b0| 77 61 69 74 20 30 2e 35 | 0d 0a 67 6f 74 6f 20 3a |wait 0.5|..goto :|
|000008c0| 37 32 0d 0a 2d 43 4f 4e | 54 33 0d 0a 6f 6e 20 65 |72..-CON|T3..on e|
|000008d0| 72 72 6f 72 20 71 75 69 | 65 74 20 63 6c 6f 73 65 |rror qui|et close|
|000008e0| 20 23 31 3b 73 74 6f 70 | 20 65 72 72 6f 72 0d 0a | #1;stop| error..|
|000008f0| 69 66 20 28 26 24 42 45 | 47 53 49 5a 45 20 3d 20 |if (&$BE|GSIZE = |
|00000900| 30 29 0d 0a 74 68 65 6e | 20 72 65 74 75 72 6e 0d |0)..then| return.|
|00000910| 0a 70 6f 69 6e 74 20 23 | 31 20 26 24 42 45 47 53 |.point #|1 &$BEGS|
|00000920| 49 5a 45 0d 0a 72 65 61 | 64 20 66 69 6c 65 20 23 |IZE..rea|d file #|
|00000930| 31 20 26 4c 41 53 54 42 | 59 54 45 0d 0a 69 66 20 |1 &LASTB|YTE..if |
|00000940| 28 26 4c 41 53 54 42 59 | 54 45 20 3d 20 26 63 68 |(&LASTBY|TE = &ch|
|00000950| 61 72 28 31 41 29 29 0d | 0a 74 68 65 6e 20 26 24 |ar(1A)).|.then &$|
|00000960| 42 45 47 53 49 5a 45 20 | 3d 20 26 24 42 45 47 53 |BEGSIZE |= &$BEGS|
|00000970| 49 5a 45 20 2d 20 31 0d | 0a 72 65 74 75 72 6e 0d |IZE - 1.|.return.|
|00000980| 0a 2d 43 4b 44 49 53 43 | 4f 4e 20 26 4f 4e 50 46 |.-CKDISC|ON &ONPF|
|00000990| 49 4c 45 20 3d 20 26 66 | 64 69 72 28 26 72 64 72 |ILE = &f|dir(&rdr|
|000009a0| 69 76 65 29 52 45 4c 41 | 59 2e 4f 4e 50 0d 0a 69 |ive)RELA|Y.ONP..i|
|000009b0| 66 20 6e 6f 74 20 65 78 | 69 73 74 73 20 26 4f 4e |f not ex|ists &ON|
|000009c0| 50 46 49 4c 45 0d 0a 74 | 68 65 6e 20 73 74 6f 70 |PFILE..t|hen stop|
|000009d0| 20 65 72 72 6f 72 0d 0a | 6f 6e 20 65 72 72 6f 72 | error..|on error|
|000009e0| 0d 0a 26 41 54 54 45 4d | 50 54 53 3d 31 0d 0a 2d |..&ATTEM|PTS=1..-|
|000009f0| 4f 50 45 4e 41 47 34 0d | 0a 6f 70 65 6e 20 26 4f |OPENAG4.|.open &O|
|00000a00| 4e 50 46 49 4c 45 20 61 | 73 20 23 35 20 66 6f 72 |NPFILE a|s #5 for|
|00000a10| 20 69 6e 70 75 74 0d 0a | 26 48 52 43 3d 26 72 63 | input..|&HRC=&rc|
|00000a20| 0d 0a 69 66 20 28 26 48 | 52 43 3d 30 29 20 74 68 |..if (&H|RC=0) th|
|00000a30| 65 6e 20 67 6f 74 6f 20 | 3a 31 30 32 0d 0a 69 66 |en goto |:102..if|
|00000a40| 20 28 26 41 54 54 45 4d | 50 54 53 3d 33 29 20 74 | (&ATTEM|PTS=3) t|
|00000a50| 68 65 6e 20 63 6c 6f 73 | 65 20 23 35 3b 73 74 6f |hen clos|e #5;sto|
|00000a60| 70 20 65 72 72 6f 72 0d | 0a 26 41 54 54 45 4d 50 |p error.|.&ATTEMP|
|00000a70| 54 53 3d 26 41 54 54 45 | 4d 50 54 53 2b 31 0d 0a |TS=&ATTE|MPTS+1..|
|00000a80| 77 61 69 74 20 30 2e 35 | 0d 0a 67 6f 74 6f 20 3a |wait 0.5|..goto :|
|00000a90| 39 34 0d 0a 2d 43 4f 4e | 54 34 0d 0a 6f 6e 20 65 |94..-CON|T4..on e|
|00000aa0| 72 72 6f 72 20 71 75 69 | 65 74 20 63 6c 6f 73 65 |rror qui|et close|
|00000ab0| 20 23 35 3b 73 74 6f 70 | 20 65 72 72 6f 72 0d 0a | #5;stop| error..|
|00000ac0| 6c 6f 6f 70 20 2a 2b 36 | 20 75 6e 74 69 6c 20 6e |loop *+6| until n|
|00000ad0| 6f 74 20 66 6f 75 6e 64 | 0d 0a 72 65 61 64 20 66 |ot found|..read f|
|00000ae0| 69 6c 65 20 23 35 20 26 | 4f 4e 50 52 45 43 0d 0a |ile #5 &|ONPREC..|
|00000af0| 69 66 20 6e 6f 74 20 66 | 6f 75 6e 64 20 67 6f 74 |if not f|ound got|
|00000b00| 6f 20 3a 31 31 31 0d 0a | 69 66 20 28 26 69 6e 73 |o :111..|if (&ins|
|00000b10| 74 72 69 6e 67 28 26 75 | 70 70 65 72 28 26 4f 4e |tring(&u|pper(&ON|
|00000b20| 50 52 45 43 29 2c 22 4f | 4e 20 44 49 53 43 4f 4e |PREC),"O|N DISCON|
|00000b30| 4e 45 43 54 20 48 41 4e | 47 55 50 22 29 3c 3e 30 |NECT HAN|GUP")<>0|
|00000b40| 29 0d 0a 74 68 65 6e 20 | 6f 6e 20 64 69 73 63 6f |)..then |on disco|
|00000b50| 6e 6e 65 63 74 20 71 75 | 69 65 74 20 65 78 65 63 |nnect qu|iet exec|
|00000b60| 75 74 65 20 43 41 4c 4c | 5f 4c 4f 47 0d 0a 74 68 |ute CALL|_LOG..th|
|00000b70| 65 6e 20 63 6c 6f 73 65 | 20 23 35 0d 0a 74 68 65 |en close| #5..the|
|00000b80| 6e 20 72 65 74 75 72 6e | 0d 0a 2d 4e 4f 54 5f 48 |n return|..-NOT_H|
|00000b90| 45 52 45 20 63 6c 6f 73 | 65 20 23 35 0d 0a 6f 6e |ERE clos|e #5..on|
|00000ba0| 20 64 69 73 63 6f 6e 6e | 65 63 74 20 71 75 69 65 | disconn|ect quie|
|00000bb0| 74 20 65 78 65 63 75 74 | 65 20 43 41 4c 4c 5f 4c |t execut|e CALL_L|
|00000bc0| 4f 47 20 44 49 53 43 4f | 4e 0d 0a 72 65 74 75 72 |OG DISCO|N..retur|
|00000bd0| 6e 0d 0a 1a 00 00 00 00 | 00 00 00 00 00 00 00 00 |n.......|........|
|00000be0| 2a 20 4c 45 41 52 4e 57 | 49 4e 2e 53 43 52 0d 0a |* LEARNW|IN.SCR..|
|00000bf0| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|00000c00| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|00000c10| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 47 4c 4f 42 |ology In|c...GLOB|
|00000c20| 41 4c 20 26 4c 4f 47 53 | 43 52 20 26 4f 55 54 46 |AL &LOGS|CR &OUTF|
|00000c30| 49 4c 45 20 26 53 54 45 | 50 20 26 4f 4c 44 4c 4f |ILE &STE|P &OLDLO|
|00000c40| 47 53 0d 0a 26 52 45 43 | 41 4c 4c 20 3d 20 27 4e |GS..&REC|ALL = 'N|
|00000c50| 4f 27 0d 0a 49 46 20 28 | 26 42 55 47 4f 55 54 20 |O'..IF (|&BUGOUT |
|00000c60| 3d 20 22 42 55 47 4f 55 | 54 22 29 20 47 4f 54 4f |= "BUGOU|T") GOTO|
|00000c70| 20 3a 31 32 37 0d 0a 47 | 4c 4f 42 41 4c 20 26 42 | :127..G|LOBAL &B|
|00000c80| 55 47 4f 55 54 0d 0a 26 | 42 55 47 4f 55 54 20 3d |UGOUT..&|BUGOUT =|
|00000c90| 20 22 42 55 47 4f 55 54 | 22 0d 0a 26 4d 41 58 52 | "BUGOUT|"..&MAXR|
|00000ca0| 45 50 4c 59 20 3d 20 36 | 0d 0a 26 4d 49 4e 57 54 |EPLY = 6|..&MINWT|
|00000cb0| 49 4d 45 20 3d 20 32 30 | 0d 0a 26 41 4c 4c 4f 57 |IME = 20|..&ALLOW|
|00000cc0| 45 44 20 3d 20 22 41 42 | 43 44 45 46 47 48 49 4a |ED = "AB|CDEFGHIJ|
|00000cd0| 4b 4c 4d 4e 4f 50 51 52 | 53 54 55 56 57 58 59 5a |KLMNOPQR|STUVWXYZ|
|00000ce0| 24 23 40 21 25 60 27 28 | 29 2d 7b 7d 5b 5d 5f 5c |$#@!%`'(|)-{}[]_\|
|00000cf0| 2f 2a 2e 2c 3f 3a 3b 22 | 0d 0a 53 45 54 20 4b 45 |/*.,?:;"|..SET KE|
|00000d00| 59 42 4f 41 52 44 20 4f | 46 46 0d 0a 53 45 54 20 |YBOARD O|FF..SET |
|00000d10| 42 52 45 41 4b 20 4f 46 | 46 0d 0a 53 4d 53 47 20 |BREAK OF|F..SMSG |
|00000d20| 57 4c 45 41 52 4e 49 4e | 47 20 2e 2e 2e 20 50 6c |WLEARNIN|G ... Pl|
|00000d30| 65 61 73 65 20 74 79 70 | 65 20 73 6c 6f 77 6c 79 |ease typ|e slowly|
|00000d40| 20 61 6e 64 20 63 61 72 | 65 66 75 6c 6c 79 21 20 | and car|efully! |
|00000d50| 55 73 65 20 4b 65 79 62 | 6f 61 72 64 20 6f 6e 6c |Use Keyb|oard onl|
|00000d60| 79 2e 0d 0a 4f 4e 20 48 | 41 4e 47 55 50 20 53 45 |y...ON H|ANGUP SE|
|00000d70| 4c 45 43 54 20 4c 45 41 | 52 4e 0d 0a 26 4c 4f 47 |LECT LEA|RN..&LOG|
|00000d80| 53 43 52 20 3d 20 22 4e | 4f 22 0d 0a 26 53 54 45 |SCR = "N|O"..&STE|
|00000d90| 50 20 3d 20 30 0d 0a 26 | 4c 41 53 54 43 48 41 52 |P = 0..&|LASTCHAR|
|00000da0| 20 3d 0d 0a 26 4e 45 58 | 54 4c 41 53 54 20 3d 0d | =..&NEX|TLAST =.|
|00000db0| 0a 26 4c 41 53 54 53 45 | 4e 44 20 3d 20 26 53 45 |.&LASTSE|ND = &SE|
|00000dc0| 43 4f 4e 44 53 28 26 54 | 49 4d 45 29 0d 0a 26 54 |CONDS(&T|IME)..&T|
|00000dd0| 4f 42 45 53 45 4e 54 20 | 3d 0d 0a 4f 4e 20 45 52 |OBESENT |=..ON ER|
|00000de0| 52 4f 52 20 47 4f 54 4f | 20 2d 45 52 52 4f 52 0d |ROR GOTO| -ERROR.|
|00000df0| 0a 2d 47 45 54 4b 45 59 | 20 20 49 46 20 28 26 57 |.-GETKEY|  IF (&W|
|00000e00| 48 45 52 45 20 3d 20 22 | 4f 46 46 4c 49 4e 45 22 |HERE = "|OFFLINE"|
|00000e10| 29 20 47 4f 54 4f 20 3a | 31 33 36 0d 0a 49 46 20 |) GOTO :|136..IF |
|00000e20| 28 26 57 48 45 52 45 3d | 22 33 32 37 30 22 29 20 |(&WHERE=|"3270") |
|00000e30| 6f 72 20 28 26 57 48 45 | 52 45 3d 22 35 32 35 30 |or (&WHE|RE="5250|
|00000e40| 22 29 20 61 6e 64 20 28 | 26 52 45 43 41 4c 4c 20 |") and (|&RECALL |
|00000e50| 3d 20 27 4e 4f 27 29 0d | 0a 54 48 45 4e 20 4f 4e |= 'NO').|.THEN ON|
|00000e60| 20 48 41 4e 47 55 50 20 | 53 45 4c 45 43 54 20 4c | HANGUP |SELECT L|
|00000e70| 45 41 52 4e 0d 0a 54 48 | 45 4e 20 26 52 45 43 41 |EARN..TH|EN &RECA|
|00000e80| 4c 4c 20 3d 20 27 59 45 | 53 27 0d 0a 57 41 49 54 |LL = 'YE|S'..WAIT|
|00000e90| 20 31 20 55 4e 54 49 4c | 20 49 4e 4b 45 59 20 20 | 1 UNTIL| INKEY  |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 26 4b 45 |        |   ..&KE|
|00000eb0| 59 20 3d 20 26 49 4e 4b | 45 59 0d 0a 49 46 20 28 |Y = &INK|EY..IF (|
|00000ec0| 26 4b 45 59 3d 22 22 29 | 20 47 4f 54 4f 20 3a 32 |&KEY="")| GOTO :2|
|00000ed0| 32 0d 0a 47 4f 53 55 42 | 20 3a 36 39 20 20 20 20 |2..GOSUB| :69    |
|00000ee0| 20 20 20 20 20 20 20 20 | 0d 0a 26 4c 41 53 54 53 |        |..&LASTS|
|00000ef0| 45 4e 44 3d 26 53 45 43 | 4f 4e 44 53 28 26 54 49 |END=&SEC|ONDS(&TI|
|00000f00| 4d 45 29 20 20 20 20 20 | 20 20 0d 0a 26 53 50 45 |ME)     |  ..&SPE|
|00000f10| 43 49 41 4c 20 3d 20 26 | 4b 45 59 4e 41 4d 45 28 |CIAL = &|KEYNAME(|
|00000f20| 26 4b 45 59 29 20 20 20 | 20 20 20 20 0d 0a 49 46 |&KEY)   |    ..IF|
|00000f30| 20 28 22 26 53 50 45 43 | 49 41 4c 22 3d 22 41 2d | ("&SPEC|IAL"="A-|
|00000f40| 4c 22 29 20 54 48 45 4e | 20 47 4f 54 4f 20 3a 31 |L") THEN| GOTO :1|
|00000f50| 33 36 20 20 20 0d 0a 49 | 46 20 28 22 26 53 50 45 |36   ..I|F ("&SPE|
|00000f60| 43 49 41 4c 22 3d 22 43 | 53 2d 4c 22 29 20 54 48 |CIAL"="C|S-L") TH|
|00000f70| 45 4e 20 47 4f 54 4f 20 | 3a 31 33 36 20 20 20 0d |EN GOTO |:136   .|
|00000f80| 0a 49 46 20 28 22 26 6b | 65 79 22 3d 78 22 30 39 |.IF ("&k|ey"=x"09|
|00000f90| 22 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |")      |        |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 0d 0a 54 48 45 4e 20 |        | ..THEN |
|00000fb0| 47 4f 53 55 42 20 3a 35 | 39 0d 0a 54 48 45 4e 20 |GOSUB :5|9..THEN |
|00000fc0| 26 54 48 45 43 4d 44 3d | 22 49 46 20 28 26 2e 57 |&THECMD=|"IF (&.W|
|00000fd0| 48 45 52 45 3d 33 32 37 | 30 29 20 6f 72 20 28 26 |HERE=327|0) or (&|
|00000fe0| 2e 57 48 45 52 45 3d 35 | 32 35 30 29 20 54 48 45 |.WHERE=5|250) THE|
|00000ff0| 4e 20 4b 45 59 20 54 41 | 42 46 52 57 44 20 3b 45 |N KEY TA|BFRWD ;E|
|00001000| 4c 53 45 20 53 55 42 53 | 54 49 54 55 54 45 20 26 |LSE SUBS|TITUTE &|
|00001010| 2e 4f 50 54 49 4f 4e 28 | 4b 45 59 20 54 41 42 29 |.OPTION(|KEY TAB)|
|00001020| 22 0d 0a 54 48 45 4e 20 | 47 4f 54 4f 20 3a 34 36 |"..THEN |GOTO :46|
|00001030| 0d 0a 49 46 20 28 22 26 | 53 50 45 43 49 41 4c 22 |..IF ("&|SPECIAL"|
|00001040| 3d 22 22 29 20 54 48 45 | 4e 20 47 4f 54 4f 20 3a |="") THE|N GOTO :|
|00001050| 35 33 20 20 20 20 20 20 | 0d 0a 47 4f 53 55 42 20 |53      |..GOSUB |
|00001060| 3a 35 39 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:59     |        |
|00001070| 20 20 20 0d 0a 49 46 20 | 28 26 49 4e 53 54 52 49 |   ..IF |(&INSTRI|
|00001080| 4e 47 28 22 55 50 20 44 | 4f 57 4e 20 52 49 47 48 |NG("UP D|OWN RIGH|
|00001090| 54 20 4c 45 46 54 20 42 | 41 43 4b 53 50 41 43 45 |T LEFT B|ACKSPACE|
|000010a0| 20 49 4e 53 45 52 54 20 | 48 4f 4d 45 20 44 45 4c | INSERT |HOME DEL|
|000010b0| 45 54 45 20 22 2c 22 26 | 53 50 45 43 49 41 4c 20 |ETE ","&|SPECIAL |
|000010c0| 22 29 3c 3e 30 29 0d 0a | 54 48 45 4e 20 26 54 48 |")<>0)..|THEN &TH|
|000010d0| 45 43 4d 44 3d 22 49 46 | 20 28 26 2e 57 48 45 52 |ECMD="IF| (&.WHER|
|000010e0| 45 3d 33 32 37 30 29 20 | 20 6f 72 20 28 26 2e 57 |E=3270) | or (&.W|
|000010f0| 48 45 52 45 3d 35 32 35 | 30 29 20 54 48 45 4e 20 |HERE=525|0) THEN |
|00001100| 4b 45 59 20 26 53 50 45 | 43 49 41 4c 20 3b 45 4c |KEY &SPE|CIAL ;EL|
|00001110| 53 45 20 53 55 42 53 54 | 49 54 55 54 45 20 26 2e |SE SUBST|ITUTE &.|
|00001120| 4f 50 54 49 4f 4e 28 4b | 45 59 20 26 53 50 45 43 |OPTION(K|EY &SPEC|
|00001130| 49 41 4c 29 22 0d 0a 54 | 48 45 4e 20 47 4f 54 4f |IAL)"..T|HEN GOTO|
|00001140| 20 3a 34 36 0d 0a 26 4b | 45 59 4d 41 50 20 3d 20 | :46..&K|EYMAP = |
|00001150| 26 4f 50 54 49 4f 4e 28 | 4b 45 59 20 26 53 50 45 |&OPTION(|KEY &SPE|
|00001160| 43 49 41 4c 29 20 20 20 | 20 20 20 20 20 20 0d 0a |CIAL)   |      ..|
|00001170| 49 46 20 28 26 4b 45 59 | 4d 41 50 3d 22 22 29 20 |IF (&KEY|MAP="") |
|00001180| 54 48 45 4e 20 47 4f 54 | 4f 20 3a 35 30 20 20 20 |THEN GOT|O :50   |
|00001190| 0d 0a 26 54 48 45 43 4d | 44 3d 22 53 55 42 53 54 |..&THECM|D="SUBST|
|000011a0| 49 54 55 54 45 20 26 2e | 4f 50 54 49 4f 4e 28 4b |ITUTE &.|OPTION(K|
|000011b0| 45 59 20 26 53 50 45 43 | 49 41 4c 29 22 0d 0a 2d |EY &SPEC|IAL)"..-|
|000011c0| 4e 45 58 54 53 54 45 50 | 20 20 20 20 20 20 20 20 |NEXTSTEP|        |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011e0| 20 20 20 20 20 20 20 0d | 0a 53 55 42 20 53 55 42 |       .|.SUB SUB|
|000011f0| 53 54 49 54 55 54 45 20 | 26 54 48 45 43 4d 44 20 |STITUTE |&THECMD |
|00001200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001210| 20 0d 0a 47 4f 53 55 42 | 20 3a 36 34 20 22 26 54 | ..GOSUB| :64 "&T|
|00001220| 48 45 43 4d 44 22 20 20 | 20 20 20 20 20 20 20 20 |HECMD"  |        |
|00001230| 20 20 20 20 20 0d 0a 47 | 4f 54 4f 20 3a 32 32 20 |     ..G|OTO :22 |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 0a 2d 4b |        |    ..-K|
|00001260| 45 59 4d 41 50 45 52 52 | 4f 52 0d 0a 53 4d 53 47 |EYMAPERR|OR..SMSG|
|00001270| 20 22 4b 54 68 69 73 20 | 69 73 20 6e 6f 74 20 61 | "KThis |is not a|
|00001280| 20 76 61 6c 69 64 20 6b | 65 79 20 74 6f 20 75 73 | valid k|ey to us|
|00001290| 65 20 69 6e 20 6c 65 61 | 72 6e 20 6d 6f 64 65 22 |e in lea|rn mode"|
|000012a0| 0d 0a 47 4f 54 4f 20 3a | 32 32 0d 0a 2d 55 53 45 |..GOTO :|22..-USE|
|000012b0| 4b 45 59 20 20 53 4d 53 | 47 0d 0a 26 54 4f 42 45 |KEY  SMS|G..&TOBE|
|000012c0| 53 45 4e 54 3d 22 26 54 | 4f 42 45 53 45 4e 54 2e |SENT="&T|OBESENT.|
|000012d0| 26 4b 45 59 22 20 20 20 | 20 20 20 0d 0a 53 45 4e |&KEY"   |   ..SEN|
|000012e0| 44 20 4e 22 26 4b 45 59 | 22 20 20 20 20 20 20 20 |D N"&KEY|"       |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 0a 26 |        |     ..&|
|00001300| 4e 45 58 54 4c 41 53 54 | 20 3d 20 26 4c 41 53 54 |NEXTLAST| = &LAST|
|00001310| 43 48 41 52 20 20 20 20 | 20 20 20 20 20 20 20 0d |CHAR    |       .|
|00001320| 0a 26 4c 41 53 54 43 48 | 41 52 20 3d 20 26 55 50 |.&LASTCH|AR = &UP|
|00001330| 50 45 52 28 26 4b 45 59 | 29 20 20 20 20 20 20 20 |PER(&KEY|)       |
|00001340| 20 0d 0a 47 4f 54 4f 20 | 3a 32 32 20 20 20 20 20 | ..GOTO |:22     |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001360| 0d 0a 2d 46 4f 52 43 45 | 5f 53 45 4e 44 20 20 20 |..-FORCE|_SEND   |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001380| 20 20 0d 0a 49 46 20 28 | 26 4c 45 4e 28 26 54 4f |  ..IF (|&LEN(&TO|
|00001390| 42 45 53 45 4e 54 29 3e | 30 29 0d 0a 54 48 45 4e |BESENT)>|0)..THEN|
|000013a0| 20 47 4f 53 55 42 20 3a | 36 34 20 22 53 45 4e 44 | GOSUB :|64 "SEND|
|000013b0| 20 4e 27 26 54 4f 42 45 | 53 45 4e 54 27 22 0d 0a | N'&TOBE|SENT'"..|
|000013c0| 54 48 45 4e 20 26 54 4f | 42 45 53 45 4e 54 3d 22 |THEN &TO|BESENT="|
|000013d0| 22 0d 0a 52 45 54 55 52 | 4e 0d 0a 2d 53 54 4f 52 |"..RETUR|N..-STOR|
|000013e0| 45 5f 43 4d 44 0d 0a 26 | 53 54 45 50 3d 26 43 41 |E_CMD..&|STEP=&CA|
|000013f0| 4c 43 28 26 53 54 45 50 | 2b 31 29 0d 0a 47 4c 4f |LC(&STEP|+1)..GLO|
|00001400| 42 41 4c 20 26 54 48 45 | 43 4d 44 26 53 54 45 50 |BAL &THE|CMD&STEP|
|00001410| 0d 0a 26 54 48 45 43 4d | 44 26 53 54 45 50 3d 26 |..&THECM|D&STEP=&|
|00001420| 31 0d 0a 52 45 54 55 52 | 4e 0d 0a 2d 43 48 45 43 |1..RETUR|N..-CHEC|
|00001430| 4b 5f 46 4f 52 5f 57 41 | 49 54 0d 0a 2d 43 48 45 |K_FOR_WA|IT..-CHE|
|00001440| 43 4b 52 0d 0a 49 46 20 | 28 26 4c 45 4e 28 26 52 |CKR..IF |(&LEN(&R|
|00001450| 45 43 45 49 56 45 29 3d | 30 29 20 47 4f 54 4f 20 |ECEIVE)=|0) GOTO |
|00001460| 3a 31 32 34 0d 0a 49 46 | 20 28 26 4c 45 4e 28 26 |:124..IF| (&LEN(&|
|00001470| 52 45 43 45 49 56 45 29 | 3e 32 29 20 47 4f 54 4f |RECEIVE)|>2) GOTO|
|00001480| 20 3a 37 36 0d 0a 26 52 | 43 48 41 52 3d 26 55 50 | :76..&R|CHAR=&UP|
|00001490| 50 45 52 28 26 52 45 43 | 45 49 56 45 29 0d 0a 49 |PER(&REC|EIVE)..I|
|000014a0| 46 20 28 22 26 52 43 48 | 41 52 22 3d 22 26 4c 41 |F ("&RCH|AR"="&LA|
|000014b0| 53 54 43 48 41 52 22 29 | 20 4f 52 20 28 22 26 52 |STCHAR")| OR ("&R|
|000014c0| 43 48 41 52 22 3d 22 26 | 4e 45 58 54 4c 41 53 54 |CHAR"="&|NEXTLAST|
|000014d0| 22 29 20 4f 52 20 28 22 | 26 52 43 48 41 52 22 3d |") OR ("|&RCHAR"=|
|000014e0| 22 26 4e 45 58 54 4c 41 | 53 54 2e 26 4c 41 53 54 |"&NEXTLA|ST.&LAST|
|000014f0| 43 48 41 52 22 29 0d 0a | 54 48 45 4e 20 47 4f 54 |CHAR")..|THEN GOT|
|00001500| 4f 20 3a 31 32 34 0d 0a | 2d 43 48 45 43 4b 52 5f |O :124..|-CHECKR_|
|00001510| 43 4f 4e 54 0d 0a 47 4f | 53 55 42 20 3a 35 39 20 |CONT..GO|SUB :59 |
|00001520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |        |       .|
|00001530| 0a 2d 57 41 49 54 4c 4e | 0d 0a 49 46 20 28 30 3c |.-WAITLN|..IF (0<|
|00001540| 3e 26 49 4e 53 54 52 49 | 4e 47 28 26 52 45 43 45 |>&INSTRI|NG(&RECE|
|00001550| 49 56 45 2c 22 52 45 41 | 44 59 22 29 29 0d 0a 54 |IVE,"REA|DY"))..T|
|00001560| 48 45 4e 20 26 58 3d 22 | 52 65 61 64 79 22 0d 0a |HEN &X="|Ready"..|
|00001570| 54 48 45 4e 20 47 4f 54 | 4f 20 3a 31 31 38 0d 0a |THEN GOT|O :118..|
|00001580| 49 46 20 28 30 3c 3e 26 | 49 4e 53 54 52 49 4e 47 |IF (0<>&|INSTRING|
|00001590| 28 26 52 45 43 45 49 56 | 45 2c 22 43 4f 4e 4e 45 |(&RECEIV|E,"CONNE|
|000015a0| 43 54 22 29 29 0d 0a 54 | 48 45 4e 20 26 58 3d 22 |CT"))..T|HEN &X="|
|000015b0| 43 6f 6e 6e 65 63 74 22 | 0d 0a 54 48 45 4e 20 47 |Connect"|..THEN G|
|000015c0| 4f 54 4f 20 3a 31 31 38 | 0d 0a 49 46 20 28 30 3c |OTO :118|..IF (0<|
|000015d0| 3e 26 49 4e 53 54 52 49 | 4e 47 28 26 52 45 43 45 |>&INSTRI|NG(&RECE|
|000015e0| 49 56 45 2c 22 4c 4f 47 | 22 29 29 0d 0a 54 48 45 |IVE,"LOG|"))..THE|
|000015f0| 4e 20 26 58 3d 22 4c 4f | 47 22 0d 0a 54 48 45 4e |N &X="LO|G"..THEN|
|00001600| 20 47 4f 54 4f 20 3a 31 | 31 38 0d 0a 49 46 20 28 | GOTO :1|18..IF (|
|00001610| 30 3c 3e 26 49 4e 53 54 | 52 49 4e 47 28 26 52 45 |0<>&INST|RING(&RE|
|00001620| 43 45 49 56 45 2c 22 45 | 4e 54 45 52 22 29 29 0d |CEIVE,"E|NTER")).|
|00001630| 0a 54 48 45 4e 20 26 58 | 3d 22 45 6e 74 65 72 22 |.THEN &X|="Enter"|
|00001640| 0d 0a 54 48 45 4e 20 47 | 4f 54 4f 20 3a 31 31 38 |..THEN G|OTO :118|
|00001650| 0d 0a 26 58 3d 26 54 52 | 41 4e 53 28 26 52 45 43 |..&X=&TR|ANS(&REC|
|00001660| 45 49 56 45 2c 22 26 43 | 52 2e 26 6c 66 22 2c 22 |EIVE,"&C|R.&lf","|
|00001670| 20 20 22 29 20 20 20 0d | 0a 41 52 47 53 20 26 58 |  ")   .|.ARGS &X|
|00001680| 0d 0a 49 46 20 28 26 4e | 3d 30 29 20 54 48 45 4e |..IF (&N|=0) THEN|
|00001690| 20 47 4f 54 4f 20 3a 31 | 30 30 20 20 20 20 0d 0a | GOTO :1|00    ..|
|000016a0| 26 49 3d 26 4e 20 20 20 | 20 20 20 20 20 20 20 20 |&I=&N   |        |
|000016b0| 20 20 20 20 20 20 20 0d | 0a 4c 4f 4f 50 20 3a 31 |       .|.LOOP :1|
|000016c0| 30 30 20 26 4e 20 20 20 | 20 20 20 20 20 0d 0a 49 |00 &N   |     ..I|
|000016d0| 46 20 28 26 26 49 3d 26 | 54 52 41 4e 53 28 26 26 |F (&&I=&|TRANS(&&|
|000016e0| 49 2c 22 30 31 32 33 34 | 35 36 37 38 39 22 2c 22 |I,"01234|56789","|
|000016f0| 58 22 29 29 20 61 6e 64 | 20 28 26 72 69 67 68 74 |X")) and| (&right|
|00001700| 28 26 26 49 2c 33 29 3c | 3e 22 64 61 79 22 29 0d |(&&I,3)<|>"day").|
|00001710| 0a 54 48 45 4e 20 26 58 | 3d 26 26 49 0d 0a 54 48 |.THEN &X|=&&I..TH|
|00001720| 45 4e 20 47 4f 54 4f 20 | 3a 31 31 38 20 20 20 20 |EN GOTO |:118    |
|00001730| 20 20 0d 0a 26 49 3d 26 | 49 20 2d 20 31 0d 0a 2d |  ..&I=&|I - 1..-|
|00001740| 57 41 49 54 4c 4e 31 20 | 20 20 20 20 20 20 20 20 |WAITLN1 |        |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |        |       .|
|00001760| 0a 26 49 3d 30 20 20 20 | 20 20 20 20 20 20 20 20 |.&I=0   |        |
|00001770| 20 20 20 20 20 20 20 20 | 0d 0a 4c 4f 4f 50 20 3a |        |..LOOP :|
|00001780| 31 30 37 20 26 4c 45 4e | 28 26 52 45 43 45 49 56 |107 &LEN|(&RECEIV|
|00001790| 45 29 0d 0a 26 49 3d 26 | 49 20 2b 20 31 0d 0a 26 |E)..&I=&|I + 1..&|
|000017a0| 58 3d 26 53 55 42 53 54 | 52 28 26 52 45 43 45 49 |X=&SUBST|R(&RECEI|
|000017b0| 56 45 2c 26 49 2c 31 29 | 0d 0a 49 46 20 28 26 49 |VE,&I,1)|..IF (&I|
|000017c0| 4e 53 54 52 49 4e 47 28 | 26 41 4c 4c 4f 57 45 44 |NSTRING(|&ALLOWED|
|000017d0| 2c 26 58 29 3c 3e 30 29 | 0d 0a 54 48 45 4e 20 47 |,&X)<>0)|..THEN G|
|000017e0| 4f 54 4f 20 3a 31 31 30 | 20 20 0d 0a 2d 57 41 49 |OTO :110|  ..-WAI|
|000017f0| 54 4c 4e 32 0d 0a 26 58 | 3d 26 72 65 63 65 69 76 |TLN2..&X|=&receiv|
|00001800| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e       |        |
|00001810| 20 20 20 0d 0a 47 4f 54 | 4f 20 3a 31 31 38 20 20 |   ..GOT|O :118  |
|00001820| 20 20 20 20 20 20 20 20 | 0d 0a 2d 57 41 49 54 4c |        |..-WAITL|
|00001830| 4e 32 5f 4d 4f 52 45 20 | 20 20 20 20 20 20 20 20 |N2_MORE |        |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 0d 0a 4c 4f 4f 50 |        |  ..LOOP|
|00001850| 20 3a 31 31 37 20 26 43 | 41 4c 43 28 26 4c 45 4e | :117 &C|ALC(&LEN|
|00001860| 28 26 52 45 43 45 49 56 | 45 29 2d 26 49 29 0d 0a |(&RECEIV|E)-&I)..|
|00001870| 26 49 3d 26 49 20 2b 20 | 31 0d 0a 26 59 3d 26 53 |&I=&I + |1..&Y=&S|
|00001880| 55 42 53 54 52 28 26 52 | 45 43 45 49 56 45 2c 26 |UBSTR(&R|ECEIVE,&|
|00001890| 49 2c 31 29 20 20 20 20 | 20 20 0d 0a 49 46 20 28 |I,1)    |  ..IF (|
|000018a0| 26 49 4e 53 54 52 49 4e | 47 28 26 41 4c 4c 4f 57 |&INSTRIN|G(&ALLOW|
|000018b0| 45 44 2c 26 59 29 3d 30 | 29 0d 0a 54 48 45 4e 20 |ED,&Y)=0|)..THEN |
|000018c0| 47 4f 54 4f 20 3a 31 31 | 38 20 20 20 20 20 20 0d |GOTO :11|8      .|
|000018d0| 0a 26 58 3d 26 58 2e 26 | 59 20 20 20 20 20 20 20 |.&X=&X.&|Y       |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018f0| 0d 0a 2d 57 41 49 54 4c | 4e 32 5f 58 0d 0a 2d 47 |..-WAITL|N2_X..-G|
|00001900| 4f 54 5f 57 41 49 54 0d | 0a 49 46 20 28 26 4c 45 |OT_WAIT.|.IF (&LE|
|00001910| 4e 28 26 58 29 3e 26 4d | 41 58 52 45 50 4c 59 29 |N(&X)>&M|AXREPLY)|
|00001920| 20 26 58 20 3d 20 26 4c | 45 46 54 28 26 52 49 47 | &X = &L|EFT(&RIG|
|00001930| 48 54 28 26 58 2c 26 4d | 41 58 52 45 50 4c 59 2b |HT(&X,&M|AXREPLY+|
|00001940| 31 29 2c 28 26 4d 41 58 | 52 45 50 4c 59 2d 31 29 |1),(&MAX|REPLY-1)|
|00001950| 29 0d 0a 26 57 41 49 54 | 43 41 4c 43 20 3d 20 26 |)..&WAIT|CALC = &|
|00001960| 43 41 4c 43 28 26 4d 49 | 4e 57 54 49 4d 45 2b 26 |CALC(&MI|NWTIME+&|
|00001970| 53 45 43 4f 4e 44 53 28 | 26 54 49 4d 45 29 2d 26 |SECONDS(|&TIME)-&|
|00001980| 4c 41 53 54 53 45 4e 44 | 29 0d 0a 26 57 41 49 54 |LASTSEND|)..&WAIT|
|00001990| 57 41 49 54 20 3d 20 22 | 22 0d 0a 49 46 20 28 26 |WAIT = "|"..IF (&|
|000019a0| 57 48 45 52 45 3d 33 32 | 37 30 29 20 6f 72 20 28 |WHERE=32|70) or (|
|000019b0| 26 57 48 45 52 45 3d 35 | 32 35 30 29 20 26 57 41 |&WHERE=5|250) &WA|
|000019c0| 49 54 57 41 49 54 20 3d | 20 22 3b 57 41 49 54 20 |ITWAIT =| ";WAIT |
|000019d0| 31 22 0d 0a 47 4f 53 55 | 42 20 3a 36 34 20 22 57 |1"..GOSU|B :64 "W|
|000019e0| 41 49 54 20 26 57 41 49 | 54 43 41 4c 43 20 27 26 |AIT &WAI|TCALC '&|
|000019f0| 58 27 20 61 6e 64 20 49 | 44 4c 45 26 57 41 49 54 |X' and I|DLE&WAIT|
|00001a00| 57 41 49 54 22 0d 0a 2d | 43 48 45 43 4b 57 41 49 |WAIT"..-|CHECKWAI|
|00001a10| 54 5f 45 58 49 54 0d 0a | 52 45 53 45 54 20 26 52 |T_EXIT..|RESET &R|
|00001a20| 45 43 45 49 56 45 0d 0a | 52 45 54 55 52 4e 0d 0a |ECEIVE..|RETURN..|
|00001a30| 2d 42 55 47 4f 55 54 0d | 0a 4f 4e 20 48 41 4e 47 |-BUGOUT.|.ON HANG|
|00001a40| 55 50 0d 0a 26 42 55 47 | 4f 55 54 20 3d 20 22 22 |UP..&BUG|OUT = ""|
|00001a50| 0d 0a 49 46 20 28 26 4f | 55 54 46 49 4c 45 20 3d |..IF (&O|UTFILE =|
|00001a60| 20 22 22 29 20 47 4f 54 | 4f 20 3a 31 33 32 0d 0a | "") GOT|O :132..|
|00001a70| 71 75 69 65 74 20 73 74 | 6f 70 20 30 0d 0a 2d 42 |quiet st|op 0..-B|
|00001a80| 55 47 4f 55 54 31 0d 0a | 67 6f 73 75 62 20 3a 31 |UGOUT1..|gosub :1|
|00001a90| 34 35 0d 0a 71 75 69 65 | 74 20 48 41 4e 47 55 50 |45..quie|t HANGUP|
|00001aa0| 0d 0a 71 75 69 65 74 20 | 73 74 6f 70 20 30 0d 0a |..quiet |stop 0..|
|00001ab0| 2d 4f 55 54 50 55 54 0d | 0a 49 46 20 28 26 4c 4f |-OUTPUT.|.IF (&LO|
|00001ac0| 47 53 43 52 20 3c 3e 20 | 43 41 4e 43 45 4c 29 20 |GSCR <> |CANCEL) |
|00001ad0| 53 4d 53 47 20 22 56 53 | 61 76 69 6e 67 20 4c 65 |SMSG "VS|aving Le|
|00001ae0| 61 72 6e 65 64 20 53 63 | 72 69 70 74 2e 20 20 26 |arned Sc|ript.  &|
|00001af0| 43 52 20 50 6c 65 61 73 | 65 20 73 74 61 6e 64 20 |CR Pleas|e stand |
|00001b00| 62 79 2e 22 0d 0a 4f 4e | 20 48 41 4e 47 55 50 0d |by."..ON| HANGUP.|
|00001b10| 0a 26 42 55 47 4f 55 54 | 20 3d 20 22 22 0d 0a 47 |.&BUGOUT| = ""..G|
|00001b20| 4f 53 55 42 20 3a 35 39 | 20 20 20 20 20 20 20 20 |OSUB :59|        |
|00001b30| 20 20 20 20 20 20 20 0d | 0a 53 45 54 20 4b 45 59 |       .|.SET KEY|
|00001b40| 42 4f 41 52 44 20 4f 4e | 0d 0a 53 45 54 20 42 52 |BOARD ON|..SET BR|
|00001b50| 45 41 4b 20 4f 4e 0d 0a | 67 6f 73 75 62 20 3a 31 |EAK ON..|gosub :1|
|00001b60| 34 35 0d 0a 71 75 69 65 | 74 20 73 74 6f 70 20 30 |45..quie|t stop 0|
|00001b70| 0d 0a 2d 57 52 54 46 49 | 4c 45 0d 0a 49 46 20 28 |..-WRTFI|LE..IF (|
|00001b80| 26 53 54 45 50 3d 30 29 | 20 54 48 45 4e 20 47 4f |&STEP=0)| THEN GO|
|00001b90| 54 4f 20 3a 31 39 37 20 | 20 20 20 20 20 20 20 20 |TO :197 |        |
|00001ba0| 20 0d 0a 49 46 20 28 26 | 4c 4f 47 53 43 52 20 3d | ..IF (&|LOGSCR =|
|00001bb0| 20 43 41 4e 43 45 4c 29 | 20 54 48 45 4e 0d 0a 54 | CANCEL)| THEN..T|
|00001bc0| 48 45 4e 20 53 4d 53 47 | 20 22 49 4c 45 41 52 4e |HEN SMSG| "ILEARN|
|00001bd0| 49 4e 47 20 43 61 6e 63 | 65 6c 6c 65 64 2e 22 0d |ING Canc|elled.".|
|00001be0| 0a 54 48 45 4e 20 53 54 | 4f 50 20 30 0d 0a 2d 46 |.THEN ST|OP 0..-F|
|00001bf0| 4e 43 48 45 43 4b 20 57 | 41 49 54 20 31 0d 0a 26 |NCHECK W|AIT 1..&|
|00001c00| 4f 55 54 46 49 4c 45 20 | 3d 20 26 55 50 50 45 52 |OUTFILE |= &UPPER|
|00001c10| 28 26 54 52 49 4d 28 26 | 4f 55 54 46 49 4c 45 29 |(&TRIM(&|OUTFILE)|
|00001c20| 29 0d 0a 49 46 20 28 26 | 4c 45 4e 28 26 4f 55 54 |)..IF (&|LEN(&OUT|
|00001c30| 46 49 4c 45 29 3d 30 29 | 20 47 4f 54 4f 20 3a 31 |FILE)=0)| GOTO :1|
|00001c40| 35 30 0d 0a 41 52 47 53 | 54 52 49 4e 47 20 26 4f |50..ARGS|TRING &O|
|00001c50| 55 54 46 49 4c 45 0d 0a | 4f 4e 20 45 52 52 4f 52 |UTFILE..|ON ERROR|
|00001c60| 0d 0a 51 55 49 45 54 20 | 50 41 52 53 45 20 46 49 |..QUIET |PARSE FI|
|00001c70| 4c 45 49 44 0d 0a 26 52 | 54 43 20 3d 20 26 52 43 |LEID..&R|TC = &RC|
|00001c80| 0d 0a 4f 4e 20 45 52 52 | 4f 52 20 47 4f 54 4f 20 |..ON ERR|OR GOTO |
|00001c90| 2d 45 52 52 4f 52 0d 0a | 49 46 20 28 26 52 54 43 |-ERROR..|IF (&RTC|
|00001ca0| 3e 30 29 20 47 4f 54 4f | 20 3a 31 36 32 0d 0a 49 |>0) GOTO| :162..I|
|00001cb0| 46 20 28 26 46 45 28 26 | 4f 55 54 46 49 4c 45 29 |F (&FE(&|OUTFILE)|
|00001cc0| 3d 22 22 29 20 26 4f 55 | 54 46 49 4c 45 20 3d 20 |="") &OU|TFILE = |
|00001cd0| 26 4f 55 54 46 49 4c 45 | 2e 2e 53 43 52 0d 0a 49 |&OUTFILE|..SCR..I|
|00001ce0| 46 20 4e 4f 54 20 28 26 | 53 55 42 53 54 52 28 26 |F NOT (&|SUBSTR(&|
|00001cf0| 4f 55 54 46 49 4c 45 2c | 32 2c 31 29 3d 22 3a 22 |OUTFILE,|2,1)=":"|
|00001d00| 29 20 26 4f 55 54 46 49 | 4c 45 20 3d 20 2a 3a 26 |) &OUTFI|LE = *:&|
|00001d10| 4f 55 54 46 49 4c 45 0d | 0a 49 46 20 28 26 46 45 |OUTFILE.|.IF (&FE|
|00001d20| 28 26 4f 55 54 46 49 4c | 45 29 3d 53 43 52 29 20 |(&OUTFIL|E)=SCR) |
|00001d30| 47 4f 54 4f 20 3a 31 36 | 35 0d 0a 2d 46 4e 42 41 |GOTO :16|5..-FNBA|
|00001d40| 44 0d 0a 73 6d 73 67 20 | 77 20 49 6e 76 61 6c 69 |D..smsg |w Invali|
|00001d50| 64 20 46 69 6c 65 20 4e | 61 6d 65 3a 20 26 4f 55 |d File N|ame: &OU|
|00001d60| 54 46 49 4c 45 0d 0a 73 | 74 6f 70 20 65 72 72 6f |TFILE..s|top erro|
|00001d70| 72 0d 0a 2d 43 48 4b 44 | 55 50 0d 0a 49 46 20 28 |r..-CHKD|UP..IF (|
|00001d80| 26 46 53 49 5a 45 28 26 | 4f 55 54 46 49 4c 45 29 |&FSIZE(&|OUTFILE)|
|00001d90| 3d 22 22 29 20 47 4f 54 | 4f 20 3a 31 36 37 0d 0a |="") GOT|O :167..|
|00001da0| 2d 4f 50 45 4e 49 54 20 | 20 4f 50 45 4e 20 26 4f |-OPENIT | OPEN &O|
|00001db0| 55 54 46 49 4c 45 20 41 | 53 20 23 31 20 46 4f 52 |UTFILE A|S #1 FOR|
|00001dc0| 20 4f 55 54 50 55 54 0d | 0a 57 52 49 54 45 20 46 | OUTPUT.|.WRITE F|
|00001dd0| 49 4c 45 20 23 31 20 2a | 0d 0a 57 52 49 54 45 20 |ILE #1 *|..WRITE |
|00001de0| 46 49 4c 45 20 23 31 20 | 2a 20 22 4c 65 61 72 6e |FILE #1 |* "Learn|
|00001df0| 65 64 22 20 73 63 72 69 | 70 74 20 66 6f 72 20 73 |ed" scri|pt for s|
|00001e00| 79 73 74 65 6d 20 26 53 | 59 53 4e 41 4d 45 0d 0a |ystem &S|YSNAME..|
|00001e10| 57 52 49 54 45 20 46 49 | 4c 45 20 23 31 20 2a 0d |WRITE FI|LE #1 *.|
|00001e20| 0a 57 52 49 54 45 20 46 | 49 4c 45 20 23 31 20 4f |.WRITE F|ILE #1 O|
|00001e30| 4e 20 54 49 4d 45 4f 55 | 54 20 47 4f 54 4f 20 2d |N TIMEOU|T GOTO -|
|00001e40| 54 49 4d 45 4f 55 54 0d | 0a 57 52 49 54 45 20 46 |TIMEOUT.|.WRITE F|
|00001e50| 49 4c 45 20 23 31 20 49 | 46 20 28 26 2e 57 48 45 |ILE #1 I|F (&.WHE|
|00001e60| 52 45 3d 54 54 59 29 20 | 54 48 45 4e 20 53 45 54 |RE=TTY) |THEN SET|
|00001e70| 20 53 4c 4f 57 20 4f 4e | 0d 0a 57 52 49 54 45 20 | SLOW ON|..WRITE |
|00001e80| 46 49 4c 45 20 23 31 20 | 22 20 22 0d 0a 49 46 20 |FILE #1 |" "..IF |
|00001e90| 28 26 4c 4f 47 53 43 52 | 3d 4e 4f 29 20 47 4f 54 |(&LOGSCR|=NO) GOT|
|00001ea0| 4f 20 3a 31 38 30 0d 0a | 44 49 52 45 43 54 4f 52 |O :180..|DIRECTOR|
|00001eb0| 59 20 51 55 45 52 59 20 | 22 26 53 59 53 4e 41 4d |Y QUERY |"&SYSNAM|
|00001ec0| 45 22 20 4c 4f 47 4f 4e | 53 43 52 20 26 4f 4c 44 |E" LOGON|SCR &OLD|
|00001ed0| 4c 4f 47 53 0d 0a 49 46 | 20 28 26 4c 45 46 54 28 |LOGS..IF| (&LEFT(|
|00001ee0| 26 4f 4c 44 4c 4f 47 53 | 2c 31 29 3c 3e 22 40 22 |&OLDLOGS|,1)<>"@"|
|00001ef0| 29 20 47 4f 54 4f 20 3a | 31 38 30 0d 0a 49 46 20 |) GOTO :|180..IF |
|00001f00| 28 26 4f 4c 44 4c 4f 47 | 53 3d 26 46 4e 41 4d 45 |(&OLDLOG|S=&FNAME|
|00001f10| 28 26 4f 55 54 46 49 4c | 45 29 29 20 47 4f 54 4f |(&OUTFIL|E)) GOTO|
|00001f20| 20 3a 31 38 30 0d 0a 57 | 52 49 54 45 20 46 49 4c | :180..W|RITE FIL|
|00001f30| 45 20 23 31 20 22 51 55 | 49 45 54 20 45 58 45 43 |E #1 "QU|IET EXEC|
|00001f40| 20 26 4f 4c 44 4c 4f 47 | 53 22 0d 0a 57 52 49 54 | &OLDLOG|S"..WRIT|
|00001f50| 45 20 46 49 4c 45 20 23 | 31 20 22 20 22 0d 0a 2d |E FILE #|1 " "..-|
|00001f60| 57 52 54 4c 4f 47 31 0d | 0a 26 54 48 49 53 20 3d |WRTLOG1.|.&THIS =|
|00001f70| 20 31 0d 0a 4c 4f 4f 50 | 20 3a 31 38 36 20 26 53 | 1..LOOP| :186 &S|
|00001f80| 54 45 50 0d 0a 57 52 49 | 54 45 20 46 49 4c 45 20 |TEP..WRI|TE FILE |
|00001f90| 23 31 20 26 54 48 45 43 | 4d 44 26 54 48 49 53 0d |#1 &THEC|MD&THIS.|
|00001fa0| 0a 52 45 53 45 54 20 26 | 54 48 45 43 4d 44 26 54 |.RESET &|THECMD&T|
|00001fb0| 48 49 53 0d 0a 26 54 48 | 49 53 20 3d 20 26 43 41 |HIS..&TH|IS = &CA|
|00001fc0| 4c 43 28 26 54 48 49 53 | 2b 31 29 0d 0a 2d 57 52 |LC(&THIS|+1)..-WR|
|00001fd0| 54 4e 45 58 54 0d 0a 57 | 52 49 54 45 20 46 49 4c |TNEXT..W|RITE FIL|
|00001fe0| 45 20 23 31 20 49 46 20 | 28 26 2e 57 48 45 52 45 |E #1 IF |(&.WHERE|
|00001ff0| 3d 54 54 59 29 20 54 48 | 45 4e 20 53 45 54 20 53 |=TTY) TH|EN SET S|
|00002000| 4c 4f 57 20 4f 46 46 0d | 0a 57 52 49 54 45 20 46 |LOW OFF.|.WRITE F|
|00002010| 49 4c 45 20 23 31 20 53 | 54 4f 50 0d 0a 57 52 49 |ILE #1 S|TOP..WRI|
|00002020| 54 45 20 46 49 4c 45 20 | 23 31 20 22 20 22 0d 0a |TE FILE |#1 " "..|
|00002030| 57 52 49 54 45 20 46 49 | 4c 45 20 23 31 20 2d 54 |WRITE FI|LE #1 -T|
|00002040| 49 4d 45 4f 55 54 0d 0a | 57 52 49 54 45 20 46 49 |IMEOUT..|WRITE FI|
|00002050| 4c 45 20 23 31 20 49 46 | 20 28 26 2e 57 48 45 52 |LE #1 IF| (&.WHER|
|00002060| 45 3d 54 54 59 29 20 54 | 48 45 4e 20 53 45 54 20 |E=TTY) T|HEN SET |
|00002070| 53 4c 4f 57 20 4f 46 46 | 0d 0a 57 52 49 54 45 20 |SLOW OFF|..WRITE |
|00002080| 46 49 4c 45 20 23 31 20 | 53 54 4f 50 20 45 52 52 |FILE #1 |STOP ERR|
|00002090| 4f 52 20 57 4c 45 41 52 | 4e 45 44 20 72 65 73 70 |OR WLEAR|NED resp|
|000020a0| 6f 6e 73 65 20 6e 6f 74 | 20 72 65 63 65 69 76 65 |onse not| receive|
|000020b0| 64 20 66 72 6f 6d 20 6f | 74 68 65 72 20 63 6f 6d |d from o|ther com|
|000020c0| 70 75 74 65 72 21 0d 0a | 43 4c 4f 53 45 20 23 31 |puter!..|CLOSE #1|
|000020d0| 0d 0a 49 46 20 28 26 4c | 4f 47 53 43 52 3d 59 45 |..IF (&L|OGSCR=YE|
|000020e0| 53 29 0d 0a 54 48 45 4e | 20 53 4d 53 47 20 49 4c |S)..THEN| SMSG IL|
|000020f0| 6f 67 6f 6e 20 53 63 72 | 69 70 74 20 66 69 6c 65 |ogon Scr|ipt file|
|00002100| 20 26 4f 55 54 46 49 4c | 45 20 68 61 73 20 62 65 | &OUTFIL|E has be|
|00002110| 65 6e 20 63 72 65 61 74 | 65 64 21 0d 0a 45 4c 53 |en creat|ed!..ELS|
|00002120| 45 20 53 4d 53 47 20 49 | 53 63 72 69 70 74 20 66 |E SMSG I|Script f|
|00002130| 69 6c 65 20 26 4f 55 54 | 46 49 4c 45 20 68 61 73 |ile &OUT|FILE has|
|00002140| 20 62 65 65 6e 20 63 72 | 65 61 74 65 64 21 0d 0a | been cr|eated!..|
|00002150| 2d 45 58 49 54 57 52 54 | 20 20 20 20 20 20 20 20 |-EXITWRT|        |
|00002160| 20 53 45 54 20 4b 45 59 | 42 4f 41 52 44 20 4f 4e | SET KEY|BOARD ON|
|00002170| 0d 0a 53 45 54 20 42 52 | 45 41 4b 20 4f 4e 0d 0a |..SET BR|EAK ON..|
|00002180| 4f 4e 20 48 41 4e 47 55 | 50 0d 0a 49 46 20 28 26 |ON HANGU|P..IF (&|
|00002190| 4c 45 41 52 4e 3d 59 45 | 53 29 20 26 4c 45 41 52 |LEARN=YE|S) &LEAR|
|000021a0| 4e 3d 4e 4f 0d 0a 72 65 | 74 75 72 6e 0d 0a 2d 45 |N=NO..re|turn..-E|
|000021b0| 52 52 4f 52 20 20 20 4f | 4e 20 45 52 52 4f 52 0d |RROR   O|N ERROR.|
|000021c0| 0a 4f 4e 20 48 41 4e 47 | 55 50 0d 0a 51 55 49 45 |.ON HANG|UP..QUIE|
|000021d0| 54 20 43 4c 4f 53 45 20 | 23 31 0d 0a 53 45 54 20 |T CLOSE |#1..SET |
|000021e0| 4b 45 59 42 4f 41 52 44 | 20 4f 4e 0d 0a 53 45 54 |KEYBOARD| ON..SET|
|000021f0| 20 42 52 45 41 4b 20 4f | 4e 0d 0a 53 54 4f 50 20 | BREAK O|N..STOP |
|00002200| 45 52 52 4f 52 0d 0a 1a | 00 00 00 00 00 00 00 00 |ERROR...|........|
|00002210| 2a 20 49 4e 56 4f 4b 45 | 2e 53 43 52 0d 0a 2a 20 |* INVOKE|.SCR..* |
|00002220| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
|00002230| 39 33 20 52 65 6c 61 79 | 20 54 65 63 68 6e 6f 6c |93 Relay| Technol|
|00002240| 6f 67 79 20 49 6e 63 2e | 0d 0a 51 55 49 45 54 20 |ogy Inc.|..QUIET |
|00002250| 43 48 41 49 4e 20 26 31 | 0d 0a 1a 00 00 00 00 00 |CHAIN &1|........|
|00002260| 2a 20 52 4c 59 48 4c 4c | 58 46 2e 53 43 52 0d 0a |* RLYHLL|XF.SCR..|
|00002270| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|00002280| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|00002290| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 70 61 72 73 |ology In|c...pars|
|000022a0| 65 20 4e 22 20 22 20 2e | 2e 2e 20 20 20 20 20 20 |e N" " .|..      |
|000022b0| 20 20 20 20 0d 0a 26 46 | 55 4e 43 4e 20 20 3d 20 |    ..&F|UNCN  = |
|000022c0| 26 74 72 69 6d 28 26 31 | 29 20 20 20 20 20 0d 0a |&trim(&1|)     ..|
|000022d0| 26 50 43 46 49 4c 45 20 | 3d 20 26 74 72 69 6d 28 |&PCFILE |= &trim(|
|000022e0| 26 32 29 20 20 20 20 20 | 0d 0a 26 48 4f 53 54 46 |&2)     |..&HOSTF|
|000022f0| 49 4c 45 20 3d 20 26 74 | 72 69 6d 28 26 33 29 20 |ILE = &t|rim(&3) |
|00002300| 20 20 0d 0a 26 4f 50 54 | 53 45 4e 44 20 3d 20 22 |  ..&OPT|SEND = "|
|00002310| 22 20 20 20 20 20 20 20 | 20 20 20 20 0d 0a 26 41 |"       |    ..&A|
|00002320| 53 43 49 49 20 3d 20 22 | 4e 4f 22 20 20 20 20 20 |SCII = "|NO"     |
|00002330| 20 20 20 20 20 20 0d 0a | 69 66 20 28 26 46 55 4e |      ..|if (&FUN|
|00002340| 43 4e 3d 22 55 50 22 29 | 20 61 6e 64 20 6e 6f 74 |CN="UP")| and not|
|00002350| 20 65 78 69 73 74 20 26 | 50 43 46 49 4c 45 0d 0a | exist &|PCFILE..|
|00002360| 74 68 65 6e 20 73 74 6f | 70 20 32 20 22 57 46 69 |then sto|p 2 "WFi|
|00002370| 6c 65 20 27 26 50 43 46 | 49 4c 45 27 20 63 61 6e |le '&PCF|ILE' can|
|00002380| 6e 6f 74 20 62 65 20 66 | 6f 75 6e 64 21 22 0d 0a |not be f|ound!"..|
|00002390| 67 6c 6f 62 61 6c 20 26 | 24 53 59 53 54 59 50 45 |global &|$SYSTYPE|
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000023b0| 20 20 20 20 20 20 20 0d | 0a 69 66 20 28 26 24 53 |       .|.if (&$S|
|000023c0| 59 53 54 59 50 45 3c 3e | 22 22 29 20 67 6f 74 6f |YSTYPE<>|"") goto|
|000023d0| 20 3a 31 36 0d 0a 69 66 | 20 28 26 6c 65 66 74 28 | :16..if| (&left(|
|000023e0| 26 48 4f 53 54 46 49 4c | 45 2c 31 29 3d 22 27 22 |&HOSTFIL|E,1)="'"|
|000023f0| 29 20 26 24 53 59 53 54 | 59 50 45 20 3d 20 22 54 |) &$SYST|YPE = "T|
|00002400| 53 4f 22 0d 0a 69 66 20 | 28 26 69 6e 73 74 72 28 |SO"..if |(&instr(|
|00002410| 26 48 4f 53 54 46 49 4c | 45 2c 22 2e 22 29 3e 30 |&HOSTFIL|E,".")>0|
|00002420| 29 20 26 24 53 59 53 54 | 59 50 45 20 3d 20 22 54 |) &$SYST|YPE = "T|
|00002430| 53 4f 22 0d 0a 69 66 20 | 28 26 24 53 59 53 54 59 |SO"..if |(&$SYSTY|
|00002440| 50 45 3d 22 22 29 20 26 | 24 53 59 53 54 59 50 45 |PE="") &|$SYSTYPE|
|00002450| 20 3d 20 22 56 4d 22 20 | 20 20 20 20 0d 0a 2d 47 | = "VM" |    ..-G|
|00002460| 4f 54 53 59 53 0d 0a 26 | 53 55 42 20 3d 20 34 0d |OTSYS..&|SUB = 4.|
|00002470| 0a 69 66 20 28 26 24 53 | 59 53 54 59 50 45 3d 22 |.if (&$S|YSTYPE="|
|00002480| 54 53 4f 22 29 20 67 6f | 74 6f 20 3a 32 33 0d 0a |TSO") go|to :23..|
|00002490| 6c 6f 6f 70 20 3a 32 32 | 20 77 68 69 6c 65 20 28 |loop :22| while (|
|000024a0| 26 53 55 42 3c 3d 26 4e | 29 0d 0a 69 66 20 28 26 |&SUB<=&N|)..if (&|
|000024b0| 6c 65 66 74 28 26 26 53 | 55 42 2c 31 29 3d 22 28 |left(&&S|UB,1)="(|
|000024c0| 22 29 20 67 6f 74 6f 20 | 3a 32 33 0d 0a 26 48 4f |") goto |:23..&HO|
|000024d0| 53 54 46 49 4c 45 20 3d | 20 22 26 48 4f 53 54 46 |STFILE =| "&HOSTF|
|000024e0| 49 4c 45 20 26 26 53 55 | 42 22 0d 0a 2d 46 49 4e |ILE &&SU|B"..-FIN|
|000024f0| 44 4f 50 54 20 26 53 55 | 42 20 3d 20 26 53 55 42 |DOPT &SU|B = &SUB|
|00002500| 2b 31 0d 0a 2d 47 4f 54 | 4f 50 54 53 0d 0a 26 53 |+1..-GOT|OPTS..&S|
|00002510| 50 52 45 46 49 58 20 3d | 20 26 6c 65 66 74 28 26 |PREFIX =| &left(&|
|00002520| 24 53 59 53 54 59 50 45 | 2c 31 29 0d 0a 69 66 20 |$SYSTYPE|,1)..if |
|00002530| 28 26 24 53 59 53 54 59 | 50 45 3d 22 56 4d 22 29 |(&$SYSTY|PE="VM")|
|00002540| 0d 0a 74 68 65 6e 20 26 | 53 4f 50 54 53 20 3d 20 |..then &|SOPTS = |
|00002550| 22 41 53 43 49 49 20 43 | 52 4c 46 20 41 50 50 45 |"ASCII C|RLF APPE|
|00002560| 4e 44 20 4c 52 45 43 4c | 20 52 45 43 46 4d 20 54 |ND LRECL| RECFM T|
|00002570| 49 4d 45 20 50 4b 54 53 | 49 5a 45 20 4e 4f 43 4c |IME PKTS|IZE NOCL|
|00002580| 45 41 52 20 50 52 4f 47 | 52 45 53 53 20 51 55 49 |EAR PROG|RESS QUI|
|00002590| 45 54 20 22 0d 0a 69 66 | 20 28 26 24 53 59 53 54 |ET "..if| (&$SYST|
|000025a0| 59 50 45 3d 22 54 53 4f | 22 29 0d 0a 74 68 65 6e |YPE="TSO|")..then|
|000025b0| 20 26 53 4f 50 54 53 20 | 3d 20 22 41 53 43 49 49 | &SOPTS |= "ASCII|
|000025c0| 20 43 52 4c 46 20 41 50 | 50 45 4e 44 20 4c 52 45 | CRLF AP|PEND LRE|
|000025d0| 43 4c 20 42 4c 4b 53 49 | 5a 45 20 52 45 43 46 4d |CL BLKSI|ZE RECFM|
|000025e0| 20 53 50 41 43 45 20 54 | 49 4d 45 20 50 4b 54 53 | SPACE T|IME PKTS|
|000025f0| 49 5a 45 20 4e 4f 43 4c | 45 41 52 20 50 52 4f 47 |IZE NOCL|EAR PROG|
|00002600| 52 45 53 53 20 51 55 49 | 45 54 20 22 0d 0a 69 66 |RESS QUI|ET "..if|
|00002610| 20 28 26 24 53 59 53 54 | 59 50 45 3d 22 54 53 4f | (&$SYST|YPE="TSO|
|00002620| 22 29 20 61 6e 64 20 28 | 26 46 55 4e 43 4e 3d 22 |") and (|&FUNCN="|
|00002630| 55 50 22 29 20 26 4f 50 | 54 53 45 4e 44 20 3d 20 |UP") &OP|TSEND = |
|00002640| 22 52 45 43 52 45 41 54 | 45 22 0d 0a 6c 6f 6f 70 |"RECREAT|E"..loop|
|00002650| 20 3a 37 32 20 77 68 69 | 6c 65 20 28 26 53 55 42 | :72 whi|le (&SUB|
|00002660| 3c 3d 26 4e 29 0d 0a 26 | 4f 50 54 4e 20 3d 20 26 |<=&N)..&|OPTN = &|
|00002670| 75 70 70 65 72 28 26 74 | 72 69 6d 28 26 26 53 55 |upper(&t|rim(&&SU|
|00002680| 42 29 29 0d 0a 26 4f 50 | 54 56 20 3d 20 22 22 0d |B))..&OP|TV = "".|
|00002690| 0a 26 58 20 3d 20 26 69 | 6e 73 74 72 69 6e 67 28 |.&X = &i|nstring(|
|000026a0| 26 4f 50 54 4e 2c 22 28 | 22 29 0d 0a 69 66 20 28 |&OPTN,"(|")..if (|
|000026b0| 26 58 3e 30 29 20 26 4f | 50 54 56 20 3d 20 26 6d |&X>0) &O|PTV = &m|
|000026c0| 69 64 28 26 4f 50 54 4e | 2c 26 58 29 20 3b 20 26 |id(&OPTN|,&X) ; &|
|000026d0| 4f 50 54 4e 20 3d 20 26 | 6c 65 66 74 28 26 4f 50 |OPTN = &|left(&OP|
|000026e0| 54 4e 2c 26 58 2d 31 29 | 0d 0a 69 66 20 28 26 4f |TN,&X-1)|..if (&O|
|000026f0| 50 54 4e 3d 22 22 29 20 | 26 4f 50 54 53 45 4e 44 |PTN="") |&OPTSEND|
|00002700| 20 3d 20 22 26 4f 50 54 | 53 45 4e 44 20 28 22 20 | = "&OPT|SEND (" |
|00002710| 3b 20 67 6f 74 6f 20 3a | 37 32 0d 0a 69 66 20 28 |; goto :|72..if (|
|00002720| 26 69 6e 73 74 72 69 6e | 67 28 26 53 4f 50 54 53 |&instrin|g(&SOPTS|
|00002730| 2c 22 26 4f 50 54 4e 20 | 22 29 3d 30 29 20 67 6f |,"&OPTN |")=0) go|
|00002740| 74 6f 20 3a 37 32 0d 0a | 67 6f 74 6f 20 2d 26 53 |to :72..|goto -&S|
|00002750| 50 52 45 46 49 58 2e 26 | 4f 50 54 4e 0d 0a 2d 43 |PREFIX.&|OPTN..-C|
|00002760| 41 53 43 49 49 0d 0a 2d | 54 41 53 43 49 49 0d 0a |ASCII..-|TASCII..|
|00002770| 2d 56 41 53 43 49 49 20 | 20 26 41 53 43 49 49 20 |-VASCII | &ASCII |
|00002780| 3d 20 22 59 45 53 22 0d | 0a 67 6f 74 6f 20 3a 37 |= "YES".|.goto :7|
|00002790| 32 0d 0a 2d 54 43 52 4c | 46 0d 0a 2d 56 43 52 4c |2..-TCRL|F..-VCRL|
|000027a0| 46 0d 0a 67 6f 74 6f 20 | 3a 37 32 0d 0a 2d 54 41 |F..goto |:72..-TA|
|000027b0| 50 50 45 4e 44 0d 0a 2d | 56 41 50 50 45 4e 44 20 |PPEND..-|VAPPEND |
|000027c0| 26 4f 50 54 53 45 4e 44 | 20 3d 20 22 26 4f 50 54 |&OPTSEND| = "&OPT|
|000027d0| 53 45 4e 44 20 41 50 50 | 45 4e 44 22 0d 0a 67 6f |SEND APP|END"..go|
|000027e0| 74 6f 20 3a 37 32 0d 0a | 2d 54 4c 52 45 43 4c 20 |to :72..|-TLRECL |
|000027f0| 20 26 4f 50 54 53 45 4e | 44 20 3d 20 22 26 4f 50 | &OPTSEN|D = "&OP|
|00002800| 54 53 45 4e 44 20 4c 45 | 4e 26 4f 50 54 56 22 0d |TSEND LE|N&OPTV".|
|00002810| 0a 67 6f 74 6f 20 3a 37 | 32 0d 0a 2d 56 4c 52 45 |.goto :7|2..-VLRE|
|00002820| 43 4c 20 20 26 53 55 42 | 20 3d 20 26 53 55 42 2b |CL  &SUB| = &SUB+|
|00002830| 31 0d 0a 26 4f 50 54 53 | 45 4e 44 20 3d 20 22 26 |1..&OPTS|END = "&|
|00002840| 4f 50 54 53 45 4e 44 20 | 4c 45 4e 47 54 48 20 26 |OPTSEND |LENGTH &|
|00002850| 26 53 55 42 22 0d 0a 67 | 6f 74 6f 20 3a 37 32 0d |&SUB"..g|oto :72.|
|00002860| 0a 2d 56 52 45 43 46 4d | 20 20 26 53 55 42 20 3d |.-VRECFM|  &SUB =|
|00002870| 20 26 53 55 42 2b 31 0d | 0a 26 4f 50 54 56 20 3d | &SUB+1.|.&OPTV =|
|00002880| 20 28 26 26 53 55 42 29 | 0d 0a 2d 54 52 45 43 46 | (&&SUB)|..-TRECF|
|00002890| 4d 20 20 69 66 20 28 26 | 4f 50 54 56 3d 22 28 46 |M  if (&|OPTV="(F|
|000028a0| 29 22 29 20 26 4f 50 54 | 53 45 4e 44 20 3d 20 22 |)") &OPT|SEND = "|
|000028b0| 26 4f 50 54 53 45 4e 44 | 20 46 49 58 45 44 22 0d |&OPTSEND| FIXED".|
|000028c0| 0a 69 66 20 28 26 4f 50 | 54 56 3d 22 28 56 29 22 |.if (&OP|TV="(V)"|
|000028d0| 29 20 26 4f 50 54 53 45 | 4e 44 20 3d 20 22 26 4f |) &OPTSE|ND = "&O|
|000028e0| 50 54 53 45 4e 44 20 56 | 41 52 49 41 42 4c 45 22 |PTSEND V|ARIABLE"|
|000028f0| 0d 0a 69 66 20 28 26 4f | 50 54 56 3d 22 28 55 29 |..if (&O|PTV="(U)|
|00002900| 22 29 20 26 4f 50 54 53 | 45 4e 44 20 3d 20 22 26 |") &OPTS|END = "&|
|00002910| 4f 50 54 53 45 4e 44 20 | 55 4e 44 45 46 49 4e 45 |OPTSEND |UNDEFINE|
|00002920| 44 22 0d 0a 67 6f 74 6f | 20 3a 37 32 0d 0a 2d 54 |D"..goto| :72..-T|
|00002930| 42 4c 4b 53 49 5a 45 20 | 26 4f 50 54 53 45 4e 44 |BLKSIZE |&OPTSEND|
|00002940| 20 3d 20 22 26 4f 50 54 | 53 45 4e 44 20 42 4c 4b | = "&OPT|SEND BLK|
|00002950| 53 49 5a 45 26 4f 50 54 | 56 22 0d 0a 67 6f 74 6f |SIZE&OPT|V"..goto|
|00002960| 20 3a 37 32 0d 0a 2d 54 | 53 50 41 43 45 0d 0a 2d | :72..-T|SPACE..-|
|00002970| 54 54 49 4d 45 0d 0a 2d | 56 54 49 4d 45 0d 0a 2d |TTIME..-|VTIME..-|
|00002980| 54 50 4b 54 53 49 5a 45 | 0d 0a 2d 56 50 4b 54 53 |TPKTSIZE|..-VPKTS|
|00002990| 49 5a 45 0d 0a 2d 54 4e | 4f 43 4c 45 41 52 0d 0a |IZE..-TN|OCLEAR..|
|000029a0| 2d 56 4e 4f 43 4c 45 41 | 52 0d 0a 2d 54 50 52 4f |-VNOCLEA|R..-TPRO|
|000029b0| 47 52 45 53 53 0d 0a 2d | 56 50 52 4f 47 52 45 53 |GRESS..-|VPROGRES|
|000029c0| 53 0d 0a 2d 54 51 55 49 | 45 54 0d 0a 2d 56 51 55 |S..-TQUI|ET..-VQU|
|000029d0| 49 45 54 0d 0a 2d 4e 45 | 58 54 4f 50 54 20 26 53 |IET..-NE|XTOPT &S|
|000029e0| 55 42 20 3d 20 26 53 55 | 42 2b 31 0d 0a 69 66 20 |UB = &SU|B+1..if |
|000029f0| 28 26 24 53 59 53 54 59 | 50 45 3c 3e 22 54 53 4f |(&$SYSTY|PE<>"TSO|
|00002a00| 22 29 20 61 6e 64 20 28 | 26 4f 50 54 53 45 4e 44 |") and (|&OPTSEND|
|00002a10| 3d 22 22 29 20 26 4f 50 | 54 53 45 4e 44 20 3d 20 |="") &OP|TSEND = |
|00002a20| 22 28 22 0d 0a 69 66 20 | 28 26 41 53 43 49 49 3d |"("..if |(&ASCII=|
|00002a30| 22 4e 4f 22 29 20 26 4f | 50 54 53 45 4e 44 20 3d |"NO") &O|PTSEND =|
|00002a40| 20 22 26 4f 50 54 53 45 | 4e 44 20 52 45 4c 41 59 | "&OPTSE|ND RELAY|
|00002a50| 22 0d 0a 6f 6e 20 74 69 | 6d 65 6f 75 74 20 67 6f |"..on ti|meout go|
|00002a60| 74 6f 20 2d 58 45 52 52 | 4f 52 0d 0a 6f 6e 20 65 |to -XERR|OR..on e|
|00002a70| 72 72 6f 72 0d 0a 69 66 | 20 28 26 46 55 4e 43 4e |rror..if| (&FUNCN|
|00002a80| 3d 22 55 50 22 29 20 67 | 6f 74 6f 20 3a 38 37 0d |="UP") g|oto :87.|
|00002a90| 0a 73 65 74 20 72 65 63 | 76 66 69 6c 65 20 6e 6f |.set rec|vfile no|
|00002aa0| 6d 75 6c 74 69 70 6c 65 | 0d 0a 73 65 6e 64 20 22 |multiple|..send "|
|00002ab0| 72 65 6c 61 79 20 64 6f | 77 6e 6c 6f 61 64 20 26 |relay do|wnload &|
|00002ac0| 48 4f 53 54 46 49 4c 45 | 20 26 4f 50 54 53 45 4e |HOSTFILE| &OPTSEN|
|00002ad0| 44 22 0d 0a 77 61 69 74 | 20 33 30 20 75 6e 74 69 |D"..wait| 30 unti|
|00002ae0| 6c 20 72 77 61 69 74 69 | 6e 67 20 6f 72 20 22 46 |l rwaiti|ng or "F|
|00002af0| 6f 75 6e 64 22 0d 0a 69 | 66 20 22 46 6f 75 6e 64 |ound"..i|f "Found|
|00002b00| 22 20 73 74 6f 70 20 31 | 36 0d 0a 71 75 69 65 74 |" stop 1|6..quiet|
|00002b10| 20 72 65 63 76 66 69 6c | 65 20 26 50 43 46 49 4c | recvfil|e &PCFIL|
|00002b20| 45 0d 0a 26 52 54 43 20 | 3d 20 26 52 43 0d 0a 69 |E..&RTC |= &RC..i|
|00002b30| 66 20 28 26 52 54 43 3d | 30 29 20 73 74 6f 70 20 |f (&RTC=|0) stop |
|00002b40| 30 0d 0a 63 61 6e 63 65 | 6c 20 72 65 63 76 69 6e |0..cance|l recvin|
|00002b50| 67 0d 0a 73 74 6f 70 20 | 26 52 54 43 0d 0a 2d 55 |g..stop |&RTC..-U|
|00002b60| 50 4c 4f 41 44 0d 0a 73 | 65 6e 64 20 22 72 65 6c |PLOAD..s|end "rel|
|00002b70| 61 79 20 75 70 6c 6f 61 | 64 20 26 48 4f 53 54 46 |ay uploa|d &HOSTF|
|00002b80| 49 4c 45 20 26 4f 50 54 | 53 45 4e 44 22 0d 0a 2d |ILE &OPT|SEND"..-|
|00002b90| 55 50 57 41 49 54 0d 0a | 77 61 69 74 20 33 30 20 |UPWAIT..|wait 30 |
|00002ba0| 75 6e 74 69 6c 20 68 6f | 73 74 77 61 69 74 20 6f |until ho|stwait o|
|00002bb0| 72 20 22 43 6f 6e 74 69 | 6e 75 65 3f 3f 22 0d 0a |r "Conti|nue??"..|
|00002bc0| 69 66 20 22 43 6f 6e 74 | 69 6e 75 65 3f 3f 22 20 |if "Cont|inue??" |
|00002bd0| 73 65 6e 64 20 22 59 22 | 20 3b 20 67 6f 74 6f 20 |send "Y"| ; goto |
|00002be0| 3a 38 39 0d 0a 71 75 69 | 65 74 20 73 65 6e 64 66 |:89..qui|et sendf|
|00002bf0| 69 6c 65 20 26 50 43 46 | 49 4c 45 0d 0a 26 52 54 |ile &PCF|ILE..&RT|
|00002c00| 43 20 3d 20 26 52 43 0d | 0a 69 66 20 28 26 52 54 |C = &RC.|.if (&RT|
|00002c10| 43 3d 30 29 20 73 74 6f | 70 20 30 0d 0a 63 61 6e |C=0) sto|p 0..can|
|00002c20| 63 65 6c 20 73 65 6e 64 | 69 6e 67 0d 0a 73 74 6f |cel send|ing..sto|
|00002c30| 70 20 26 52 54 43 0d 0a | 2d 58 45 52 52 4f 52 0d |p &RTC..|-XERROR.|
|00002c40| 0a 73 6d 73 67 20 22 45 | 54 68 65 20 68 6f 73 74 |.smsg "E|The host|
|00002c50| 20 69 73 20 6e 6f 74 20 | 72 65 73 70 6f 6e 64 69 | is not |respondi|
|00002c60| 6e 67 22 0d 0a 73 74 6f | 70 20 39 39 0d 0a 1a 00 |ng"..sto|p 99....|
|00002c70| 2a 20 43 4f 4e 4e 45 43 | 54 4e 2e 53 43 52 0d 0a |* CONNEC|TN.SCR..|
|00002c80| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|00002c90| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|00002ca0| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 67 6c 6f 62 |ology In|c...glob|
|00002cb0| 61 6c 20 26 24 47 41 54 | 45 45 52 52 4f 52 20 26 |al &$GAT|EERROR &|
|00002cc0| 24 47 41 54 45 53 45 52 | 56 45 52 20 26 24 47 41 |$GATESER|VER &$GA|
|00002cd0| 54 45 50 55 4e 41 4d 45 | 20 26 24 47 41 54 45 4c |TEPUNAME| &$GATEL|
|00002ce0| 55 4e 41 4d 45 20 26 24 | 48 4f 53 54 4c 55 4e 41 |UNAME &$|HOSTLUNA|
|00002cf0| 4d 45 0d 0a 67 6c 6f 62 | 61 6c 20 26 24 47 41 54 |ME..glob|al &$GAT|
|00002d00| 45 55 53 45 52 49 44 20 | 26 24 47 41 54 45 55 53 |EUSERID |&$GATEUS|
|00002d10| 45 52 50 57 20 26 24 47 | 41 54 45 4c 41 53 54 43 |ERPW &$G|ATELASTC|
|00002d20| 53 0d 0a 69 66 20 28 26 | 24 47 41 54 45 4c 41 53 |S..if (&|$GATELAS|
|00002d30| 54 43 53 3d 22 22 29 20 | 6f 72 20 28 26 24 47 41 |TCS="") |or (&$GA|
|00002d40| 54 45 4c 41 53 54 43 53 | 3d 22 26 43 41 4c 4c 53 |TELASTCS|="&CALLS|
|00002d50| 45 51 22 29 20 67 6f 74 | 6f 20 3a 31 32 0d 0a 26 |EQ") got|o :12..&|
|00002d60| 24 47 41 54 45 53 45 52 | 56 45 52 20 3d 20 22 22 |$GATESER|VER = ""|
|00002d70| 0d 0a 26 24 47 41 54 45 | 50 55 4e 41 4d 45 20 3d |..&$GATE|PUNAME =|
|00002d80| 20 22 22 0d 0a 26 24 47 | 41 54 45 4c 55 4e 41 4d | ""..&$G|ATELUNAM|
|00002d90| 45 20 3d 20 22 22 0d 0a | 26 24 48 4f 53 54 4c 55 |E = ""..|&$HOSTLU|
|00002da0| 4e 41 4d 45 20 3d 20 22 | 22 0d 0a 26 24 47 41 54 |NAME = "|"..&$GAT|
|00002db0| 45 55 53 45 52 49 44 20 | 3d 20 22 22 0d 0a 26 24 |EUSERID |= ""..&$|
|00002dc0| 47 41 54 45 55 53 45 52 | 50 57 20 3d 20 22 22 0d |GATEUSER|PW = "".|
|00002dd0| 0a 2d 53 54 41 52 54 20 | 20 20 26 24 47 41 54 45 |.-START |  &$GATE|
|00002de0| 4c 41 53 54 43 53 20 3d | 20 26 43 41 4c 4c 53 45 |LASTCS =| &CALLSE|
|00002df0| 51 0d 0a 6c 6f 63 61 6c | 20 26 45 43 20 26 53 45 |Q..local| &EC &SE|
|00002e00| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P       |        |
|00002e10| 20 0d 0a 26 45 43 20 3d | 20 26 36 0d 0a 69 66 20 | ..&EC =| &6..if |
|00002e20| 28 26 70 72 6d 61 63 68 | 69 6e 65 3d 22 4f 22 29 |(&prmach|ine="O")|
|00002e30| 20 26 53 45 50 20 3d 20 | 22 26 43 52 26 43 52 22 | &SEP = |"&CR&CR"|
|00002e40| 20 0d 0a 65 6c 73 65 20 | 26 53 45 50 20 3d 20 22 | ..else |&SEP = "|
|00002e50| 20 22 20 20 20 20 20 20 | 0d 0a 69 66 20 28 26 49 | "      |..if (&I|
|00002e60| 4e 4b 45 59 3c 3e 22 22 | 29 20 67 6f 74 6f 20 2a |NKEY<>""|) goto *|
|00002e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e80| 20 0d 0a 4f 4e 20 41 54 | 54 4e 4b 45 59 20 45 53 | ..ON AT|TNKEY ES|
|00002e90| 43 41 50 45 20 47 4f 54 | 4f 20 2d 45 53 43 41 50 |CAPE GOT|O -ESCAP|
|00002ea0| 45 0d 0a 69 66 20 28 26 | 45 43 3d 22 4e 22 29 20 |E..if (&|EC="N") |
|00002eb0| 67 6f 74 6f 20 3a 32 33 | 0d 0a 69 66 20 28 26 70 |goto :23|..if (&p|
|00002ec0| 72 6d 61 63 68 69 6e 65 | 3d 22 4f 22 29 0d 0a 74 |rmachine|="O")..t|
|00002ed0| 68 65 6e 20 53 4d 53 47 | 20 22 5a 54 68 65 20 67 |hen SMSG| "ZThe g|
|00002ee0| 61 74 65 77 61 79 20 63 | 6f 6e 6e 65 63 74 69 6f |ateway c|onnectio|
|00002ef0| 6e 20 69 73 20 69 6e 20 | 70 72 6f 67 72 65 73 73 |n is in |progress|
|00002f00| 2e 26 53 45 50 2e 50 6c | 65 61 73 65 20 73 74 61 |.&SEP.Pl|ease sta|
|00002f10| 6e 64 20 62 79 2e 22 0d | 0a 65 6c 73 65 20 53 4d |nd by.".|.else SM|
|00002f20| 53 47 20 22 49 54 68 65 | 20 67 61 74 65 77 61 79 |SG "IThe| gateway|
|00002f30| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 20 69 73 20 69 | connect|ion is i|
|00002f40| 6e 20 70 72 6f 67 72 65 | 73 73 2e 20 50 6c 65 61 |n progre|ss. Plea|
|00002f50| 73 65 20 73 74 61 6e 64 | 20 62 79 20 28 75 73 65 |se stand| by (use|
|00002f60| 20 45 73 63 20 74 6f 20 | 63 61 6e 63 65 6c 29 2e | Esc to |cancel).|
|00002f70| 22 0d 0a 2d 53 54 4d 53 | 47 31 0d 0a 26 24 47 41 |"..-STMS|G1..&$GA|
|00002f80| 54 45 45 52 52 4f 52 20 | 3d 20 22 22 0d 0a 53 45 |TEERROR |= ""..SE|
|00002f90| 54 20 52 54 53 20 4f 4e | 0d 0a 57 41 49 54 20 36 |T RTS ON|..WAIT 6|
|00002fa0| 30 20 57 48 49 4c 45 20 | 43 54 53 20 41 4e 44 20 |0 WHILE |CTS AND |
|00002fb0| 4e 4f 54 20 52 4c 53 44 | 0d 0a 49 46 20 43 54 53 |NOT RLSD|..IF CTS|
|00002fc0| 20 41 4e 44 20 52 4c 53 | 44 20 67 6f 74 6f 20 3a | AND RLS|D goto :|
|00002fd0| 32 39 0d 0a 67 6f 74 6f | 20 3a 33 31 0d 0a 2d 44 |29..goto| :31..-D|
|00002fe0| 4f 4e 45 20 20 20 20 69 | 66 20 28 26 45 43 3c 3e |ONE    i|f (&EC<>|
|00002ff0| 22 4e 22 29 20 53 4d 53 | 47 0d 0a 53 54 4f 50 20 |"N") SMS|G..STOP |
|00003000| 30 0d 0a 2d 46 41 49 4c | 45 44 20 20 6f 6e 20 61 |0..-FAIL|ED  on a|
|00003010| 74 74 6e 6b 65 79 20 45 | 53 43 41 50 45 0d 0a 61 |ttnkey E|SCAPE..a|
|00003020| 72 67 73 74 72 69 6e 67 | 20 26 24 47 41 54 45 45 |rgstring| &$GATEE|
|00003030| 52 52 4f 52 20 20 20 20 | 20 20 20 20 20 20 20 20 |RROR    |        |
|00003040| 20 20 0d 0a 69 66 20 28 | 26 31 3d 22 4e 45 54 57 |  ..if (|&1="NETW|
|00003050| 4f 52 4b 22 29 20 67 6f | 74 6f 20 3a 34 30 0d 0a |ORK") go|to :40..|
|00003060| 69 66 20 28 26 31 3d 22 | 54 49 4d 45 4f 55 54 22 |if (&1="|TIMEOUT"|
|00003070| 29 20 67 6f 74 6f 20 3a | 34 33 0d 0a 69 66 20 28 |) goto :|43..if (|
|00003080| 26 31 3d 22 53 45 52 56 | 45 52 22 29 20 67 6f 74 |&1="SERV|ER") got|
|00003090| 6f 20 3a 34 36 0d 0a 69 | 66 20 28 26 31 3d 22 50 |o :46..i|f (&1="P|
|000030a0| 52 4f 4d 50 54 22 29 20 | 67 6f 74 6f 20 3a 35 34 |ROMPT") |goto :54|
|000030b0| 0d 0a 53 4d 53 47 20 22 | 26 45 43 2e 54 68 65 20 |..SMSG "|&EC.The |
|000030c0| 67 61 74 65 77 61 79 20 | 63 6f 6e 6e 65 63 74 69 |gateway |connecti|
|000030d0| 6f 6e 20 63 6f 75 6c 64 | 20 6e 6f 74 20 62 65 20 |on could| not be |
|000030e0| 65 73 74 61 62 6c 69 73 | 68 65 64 21 22 0d 0a 69 |establis|hed!"..i|
|000030f0| 66 20 28 26 45 43 3d 22 | 58 22 29 20 53 4d 53 47 |f (&EC="|X") SMSG|
|00003100| 0d 0a 73 74 6f 70 20 31 | 31 0d 0a 2d 45 4e 45 54 |..stop 1|1..-ENET|
|00003110| 57 4f 52 4b 20 53 4d 53 | 47 20 22 26 45 43 2e 54 |WORK SMS|G "&EC.T|
|00003120| 68 65 20 6e 65 74 77 6f | 72 6b 20 69 73 20 6e 6f |he netwo|rk is no|
|00003130| 74 20 6f 70 65 72 61 74 | 69 6f 6e 61 6c 21 22 0d |t operat|ional!".|
|00003140| 0a 69 66 20 28 26 45 43 | 3d 22 58 22 29 20 53 4d |.if (&EC|="X") SM|
|00003150| 53 47 0d 0a 73 74 6f 70 | 20 31 31 0d 0a 2d 45 54 |SG..stop| 11..-ET|
|00003160| 49 4d 45 4f 55 54 20 53 | 4d 53 47 20 22 26 45 43 |IMEOUT S|MSG "&EC|
|00003170| 2e 54 68 65 20 63 6f 6d | 6d 75 6e 69 63 61 74 69 |.The com|municati|
|00003180| 6f 6e 20 73 65 72 76 65 | 72 20 69 73 20 6e 6f 74 |on serve|r is not|
|00003190| 20 72 65 73 70 6f 6e 64 | 69 6e 67 21 22 0d 0a 69 | respond|ing!"..i|
|000031a0| 66 20 28 26 45 43 3d 22 | 58 22 29 20 53 4d 53 47 |f (&EC="|X") SMSG|
|000031b0| 0d 0a 73 74 6f 70 20 31 | 31 0d 0a 2d 45 53 45 52 |..stop 1|1..-ESER|
|000031c0| 56 45 52 20 69 66 20 28 | 26 32 3e 30 29 20 67 6f |VER if (|&2>0) go|
|000031d0| 74 6f 20 3a 36 36 0d 0a | 53 4d 53 47 20 22 26 45 |to :66..|SMSG "&E|
|000031e0| 43 2e 43 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 20 |C.Commun|ication |
|000031f0| 73 65 72 76 65 72 20 66 | 61 69 6c 75 72 65 21 22 |server f|ailure!"|
|00003200| 0d 0a 69 66 20 28 26 45 | 43 3d 22 58 22 29 20 53 |..if (&E|C="X") S|
|00003210| 4d 53 47 0d 0a 73 74 6f | 70 20 31 31 0d 0a 2d 45 |MSG..sto|p 11..-E|
|00003220| 53 43 41 50 45 20 20 4f | 4e 20 41 54 54 4e 4b 45 |SCAPE  O|N ATTNKE|
|00003230| 59 20 45 53 43 41 50 45 | 0d 0a 53 4d 53 47 20 22 |Y ESCAPE|..SMSG "|
|00003240| 53 54 68 65 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |SThe con|nection |
|00003250| 68 61 73 20 62 65 65 6e | 20 74 65 72 6d 69 6e 61 |has been| termina|
|00003260| 74 65 64 21 22 0d 0a 73 | 74 6f 70 20 34 0d 0a 27 |ted!"..s|top 4..'|
|00003270| 20 20 20 20 20 20 20 20 | 41 20 72 65 74 75 72 6e |        |A return|
|00003280| 20 63 6f 64 65 20 6f 66 | 20 22 39 39 22 20 63 61 | code of| "99" ca|
|00003290| 75 73 65 73 20 74 68 65 | 20 63 61 6c 6c 20 74 6f |uses the| call to|
|000032a0| 20 62 65 20 72 65 74 72 | 79 65 64 2e 0d 0a 2d 45 | be retr|yed...-E|
|000032b0| 50 52 4f 4d 50 54 20 69 | 66 20 28 26 70 72 6d 61 |PROMPT i|f (&prma|
|000032c0| 63 68 69 6e 65 3d 22 4f | 22 29 20 73 6d 73 67 20 |chine="O|") smsg |
|000032d0| 22 49 22 0d 0a 65 6c 73 | 65 20 73 6d 73 67 20 22 |"I"..els|e smsg "|
|000032e0| 49 50 6c 65 61 73 65 20 | 65 6e 74 65 72 20 61 20 |IPlease |enter a |
|000032f0| 75 73 65 72 20 6e 61 6d | 65 20 61 6e 64 20 70 61 |user nam|e and pa|
|00003300| 73 73 77 6f 72 64 20 66 | 6f 72 20 61 63 63 65 73 |ssword f|or acces|
|00003310| 73 20 74 6f 20 74 68 65 | 20 67 61 74 65 77 61 79 |s to the| gateway|
|00003320| 2e 22 0d 0a 2d 58 50 52 | 4f 4d 50 54 20 69 66 20 |."..-XPR|OMPT if |
|00003330| 28 26 24 47 41 54 45 55 | 53 45 52 49 44 3d 22 3f |(&$GATEU|SERID="?|
|00003340| 22 29 20 26 24 47 41 54 | 45 55 53 45 52 49 44 3d |") &$GAT|EUSERID=|
|00003350| 22 22 20 20 20 20 20 20 | 20 20 0d 0a 69 66 20 28 |""      |  ..if (|
|00003360| 26 24 47 41 54 45 55 53 | 45 52 50 57 3d 22 3f 22 |&$GATEUS|ERPW="?"|
|00003370| 29 20 26 24 47 41 54 45 | 55 53 45 52 50 57 3d 22 |) &$GATE|USERPW="|
|00003380| 22 20 20 20 20 20 20 20 | 20 0d 0a 69 66 20 28 26 |"       | ..if (&|
|00003390| 70 72 6d 61 63 68 69 6e | 65 3c 3e 22 4f 22 29 20 |prmachin|e<>"O") |
|000033a0| 73 74 6f 70 20 39 39 0d | 0a 6c 6f 63 61 6c 20 26 |stop 99.|.local &|
|000033b0| 54 49 54 4c 45 20 26 4d | 54 45 58 54 0d 0a 26 54 |TITLE &M|TEXT..&T|
|000033c0| 49 54 4c 45 20 3d 20 22 | 4e 65 74 77 61 72 65 20 |ITLE = "|Netware |
|000033d0| 66 6f 72 20 53 41 41 22 | 0d 0a 26 4d 54 45 58 54 |for SAA"|..&MTEXT|
|000033e0| 20 3d 20 22 45 6e 74 65 | 72 20 43 6f 6d 6d 75 6e | = "Ente|r Commun|
|000033f0| 69 63 61 74 69 6f 6e 20 | 53 65 72 76 65 72 20 55 |ication |Server U|
|00003400| 73 65 72 20 4e 61 6d 65 | 20 61 6e 64 20 50 61 73 |ser Name| and Pas|
|00003410| 73 77 6f 72 64 3a 22 0d | 0a 6f 6e 20 65 72 72 6f |sword:".|.on erro|
|00003420| 72 0d 0a 64 69 73 70 6c | 61 79 20 64 69 61 6c 6f |r..displ|ay dialo|
|00003430| 67 20 55 53 45 52 49 44 | 20 26 54 49 54 4c 45 20 |g USERID| &TITLE |
|00003440| 26 4d 54 45 58 54 20 26 | 24 47 41 54 45 55 53 45 |&MTEXT &|$GATEUSE|
|00003450| 52 49 44 20 26 24 47 41 | 54 45 55 53 45 52 50 57 |RID &$GA|TEUSERPW|
|00003460| 0d 0a 69 66 20 28 26 52 | 43 3e 30 29 20 67 6f 74 |..if (&R|C>0) got|
|00003470| 6f 20 3a 35 30 0d 0a 73 | 74 6f 70 20 39 39 0d 0a |o :50..s|top 99..|
|00003480| 2d 45 52 52 4d 53 47 20 | 20 6c 6f 63 61 6c 20 26 |-ERRMSG | local &|
|00003490| 55 53 45 4d 53 47 0d 0a | 69 66 20 28 26 32 3d 22 |USEMSG..|if (&2="|
|000034a0| 46 46 46 30 22 29 20 26 | 55 53 45 4d 53 47 20 3d |FFF0") &|USEMSG =|
|000034b0| 20 22 54 68 65 20 67 61 | 74 65 77 61 79 20 73 65 | "The ga|teway se|
|000034c0| 72 76 65 72 20 63 61 6e | 6e 6f 74 20 62 65 20 6c |rver can|not be l|
|000034d0| 6f 63 61 74 65 64 22 0d | 0a 69 66 20 28 26 32 3d |ocated".|.if (&2=|
|000034e0| 22 42 30 44 22 29 20 26 | 55 53 45 4d 53 47 20 3d |"B0D") &|USEMSG =|
|000034f0| 20 22 53 4e 41 20 4c 55 | 20 6f 72 20 4c 55 20 67 | "SNA LU| or LU g|
|00003500| 72 6f 75 70 20 6e 6f 74 | 20 61 76 61 69 6c 61 62 |roup not| availab|
|00003510| 6c 65 22 0d 0a 69 66 20 | 28 26 32 3d 22 44 30 32 |le"..if |(&2="D02|
|00003520| 22 29 20 26 55 53 45 4d | 53 47 20 3d 20 22 53 4e |") &USEM|SG = "SN|
|00003530| 41 20 61 67 65 6e 74 20 | 28 50 55 29 20 6e 6f 74 |A agent |(PU) not|
|00003540| 20 61 63 74 69 76 65 22 | 0d 0a 69 66 20 28 26 32 | active"|..if (&2|
|00003550| 3d 22 44 30 33 22 29 20 | 26 55 53 45 4d 53 47 20 |="D03") |&USEMSG |
|00003560| 3d 20 22 52 65 71 75 65 | 73 74 65 64 20 73 65 72 |= "Reque|sted ser|
|00003570| 76 69 63 65 20 6e 6f 74 | 20 61 76 61 69 6c 61 62 |vice not| availab|
|00003580| 6c 65 22 0d 0a 69 66 20 | 28 26 32 3d 22 44 31 31 |le"..if |(&2="D11|
|00003590| 22 29 20 26 55 53 45 4d | 53 47 20 3d 20 22 43 61 |") &USEM|SG = "Ca|
|000035a0| 6e 6e 6f 74 20 6f 70 65 | 6e 20 72 65 71 75 65 73 |nnot ope|n reques|
|000035b0| 74 65 64 20 72 6f 75 74 | 65 22 0d 0a 69 66 20 28 |ted rout|e"..if (|
|000035c0| 26 32 3d 22 31 34 30 44 | 22 29 20 26 55 53 45 4d |&2="140D|") &USEM|
|000035d0| 53 47 20 3d 20 22 53 4e | 41 20 61 67 65 6e 74 20 |SG = "SN|A agent |
|000035e0| 28 50 55 29 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 |(PU) not| defined|
|000035f0| 22 0d 0a 69 66 20 28 26 | 55 53 45 4d 53 47 3c 3e |"..if (&|USEMSG<>|
|00003600| 22 22 29 20 67 6f 74 6f | 20 3a 38 32 0d 0a 69 66 |"") goto| :82..if|
|00003610| 20 28 26 32 3d 22 31 34 | 31 31 22 29 20 26 55 53 | (&2="14|11") &US|
|00003620| 45 4d 53 47 20 3d 20 22 | 45 78 70 69 72 65 64 20 |EMSG = "|Expired |
|00003630| 75 73 65 72 20 61 63 63 | 6f 75 6e 74 22 0d 0a 69 |user acc|ount"..i|
|00003640| 66 20 28 26 32 3d 22 31 | 34 31 35 22 29 20 26 55 |f (&2="1|415") &U|
|00003650| 53 45 4d 53 47 20 3d 20 | 22 49 6e 76 61 6c 69 64 |SEMSG = |"Invalid|
|00003660| 20 70 61 73 73 77 6f 72 | 64 22 0d 0a 69 66 20 28 | passwor|d"..if (|
|00003670| 26 32 3d 22 31 34 32 35 | 22 29 20 26 55 53 45 4d |&2="1425|") &USEM|
|00003680| 53 47 20 3d 20 22 55 73 | 65 72 20 6e 61 6d 65 20 |SG = "Us|er name |
|00003690| 6e 6f 74 20 72 65 67 69 | 73 74 65 72 65 64 20 77 |not regi|stered w|
|000036a0| 69 74 68 20 47 61 74 65 | 77 61 79 22 0d 0a 69 66 |ith Gate|way"..if|
|000036b0| 20 28 26 32 3d 22 31 34 | 32 43 22 29 20 26 55 53 | (&2="14|2C") &US|
|000036c0| 45 4d 53 47 20 3d 20 22 | 49 6e 76 61 6c 69 64 20 |EMSG = "|Invalid |
|000036d0| 75 73 65 72 20 6e 61 6d | 65 20 6f 72 20 70 61 73 |user nam|e or pas|
|000036e0| 73 77 6f 72 64 22 0d 0a | 69 66 20 28 26 55 53 45 |sword"..|if (&USE|
|000036f0| 4d 53 47 3c 3e 22 22 29 | 20 67 6f 74 6f 20 3a 38 |MSG<>"")| goto :8|
|00003700| 35 0d 0a 53 4d 53 47 20 | 22 26 45 43 2e 43 6f 6d |5..SMSG |"&EC.Com|
|00003710| 6d 75 6e 69 63 61 74 69 | 6f 6e 20 73 65 72 76 65 |municati|on serve|
|00003720| 72 20 65 72 72 6f 72 20 | 27 26 32 27 21 22 0d 0a |r error |'&2'!"..|
|00003730| 69 66 20 28 26 45 43 3d | 22 58 22 29 20 53 4d 53 |if (&EC=|"X") SMS|
|00003740| 47 0d 0a 73 74 6f 70 20 | 31 31 0d 0a 2d 45 52 52 |G..stop |11..-ERR|
|00003750| 4d 53 47 31 20 53 4d 53 | 47 20 22 26 45 43 2e 55 |MSG1 SMS|G "&EC.U|
|00003760| 6e 61 62 6c 65 20 74 6f | 20 63 6f 6e 6e 65 63 74 |nable to| connect|
|00003770| 3a 20 26 55 53 45 4d 53 | 47 21 22 0d 0a 69 66 20 |: &USEMS|G!"..if |
|00003780| 28 26 45 43 3d 22 58 22 | 29 20 53 4d 53 47 0d 0a |(&EC="X"|) SMSG..|
|00003790| 73 74 6f 70 20 31 31 0d | 0a 2d 45 52 52 4d 53 47 |stop 11.|.-ERRMSG|
|000037a0| 32 20 53 4d 53 47 20 22 | 26 45 43 2e 26 55 53 45 |2 SMSG "|&EC.&USE|
|000037b0| 4d 53 47 2e 2e 26 53 45 | 50 2e 50 6c 65 61 73 65 |MSG..&SE|P.Please|
|000037c0| 20 72 65 65 6e 74 65 72 | 20 75 73 65 72 20 69 6e | reenter| user in|
|000037d0| 66 6f 72 6d 61 74 69 6f | 6e 2e 22 0d 0a 69 66 20 |formatio|n."..if |
|000037e0| 28 26 45 43 3d 22 58 22 | 29 20 53 4d 53 47 0d 0a |(&EC="X"|) SMSG..|
|000037f0| 26 24 47 41 54 45 55 53 | 45 52 50 57 3d 22 22 0d |&$GATEUS|ERPW="".|
|00003800| 0a 67 6f 74 6f 20 3a 35 | 36 0d 0a 1a 00 00 00 00 |.goto :5|6.......|
|00003810| 2a 20 43 4f 4e 4e 45 43 | 54 54 2e 53 43 52 0d 0a |* CONNEC|TT.SCR..|
|00003820| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|00003830| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|00003840| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 6c 6f 63 61 |ology In|c...loca|
|00003850| 6c 20 26 54 49 54 4c 45 | 20 26 4d 54 45 58 54 20 |l &TITLE| &MTEXT |
|00003860| 26 48 4f 53 54 41 44 44 | 52 20 26 44 52 43 0d 0a |&HOSTADD|R &DRC..|
|00003870| 26 54 49 54 4c 45 20 3d | 20 22 43 6f 6e 6e 65 63 |&TITLE =| "Connec|
|00003880| 74 20 56 69 61 20 54 43 | 50 2f 49 50 22 0d 0a 26 |t Via TC|P/IP"..&|
|00003890| 4d 54 45 58 54 20 3d 20 | 22 54 79 70 65 20 74 68 |MTEXT = |"Type th|
|000038a0| 65 20 48 6f 73 74 20 4e | 61 6d 65 20 6f 72 20 49 |e Host N|ame or I|
|000038b0| 50 20 61 64 64 72 65 73 | 73 2e 22 0d 0a 64 69 73 |P addres|s."..dis|
|000038c0| 70 6c 61 79 20 64 69 61 | 6c 6f 67 20 49 4e 50 55 |play dia|log INPU|
|000038d0| 54 20 26 54 49 54 4c 45 | 20 26 4d 54 45 58 54 20 |T &TITLE| &MTEXT |
|000038e0| 26 48 4f 53 54 41 44 44 | 52 0d 0a 26 44 52 43 20 |&HOSTADD|R..&DRC |
|000038f0| 3d 20 26 52 43 0d 0a 69 | 66 20 28 26 44 52 43 3e |= &RC..i|f (&DRC>|
|00003900| 30 29 20 61 6e 64 20 28 | 26 44 52 43 3c 34 29 20 |0) and (|&DRC<4) |
|00003910| 67 6f 74 6f 20 3a 31 32 | 0d 0a 26 48 4f 53 54 41 |goto :12|..&HOSTA|
|00003920| 44 44 52 20 3d 20 26 55 | 50 50 45 52 28 22 26 48 |DDR = &U|PPER("&H|
|00003930| 4f 53 54 41 44 44 52 22 | 29 0d 0a 73 65 74 20 74 |OSTADDR"|)..set t|
|00003940| 65 6c 65 70 68 6f 6e 65 | 20 22 26 48 4f 53 54 41 |elephone| "&HOSTA|
|00003950| 44 44 52 22 0d 0a 73 74 | 6f 70 20 39 39 0d 0a 2d |DDR"..st|op 99..-|
|00003960| 43 41 4e 43 45 4c 20 20 | 53 4d 53 47 20 22 53 54 |CANCEL  |SMSG "ST|
|00003970| 68 65 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 20 68 61 |he conne|ction ha|
|00003980| 73 20 62 65 65 6e 20 74 | 65 72 6d 69 6e 61 74 65 |s been t|erminate|
|00003990| 64 21 22 0d 0a 73 74 6f | 70 20 34 0d 0a 1a 00 00 |d!"..sto|p 4.....|
|000039a0| 2a 20 43 4f 4e 4e 45 43 | 54 45 2e 53 43 52 0d 0a |* CONNEC|TE.SCR..|
|000039b0| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|000039c0| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|000039d0| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 6c 6f 63 61 |ology In|c...loca|
|000039e0| 6c 20 26 45 43 20 20 20 | 20 20 20 20 20 20 20 20 |l &EC   |        |
|000039f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a00| 20 20 20 20 20 20 0d 0a | 6c 6f 63 61 6c 20 26 53 |      ..|local &S|
|00003a10| 45 50 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |EP      |        |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a30| 20 20 0d 0a 6c 6f 63 61 | 6c 20 26 4d 53 47 20 20 |  ..loca|l &MSG  |
|00003a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 0a |        |      ..|
|00003a60| 6c 6f 63 61 6c 20 26 54 | 54 59 50 45 20 20 20 20 |local &T|TYPE    |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a80| 20 20 20 20 20 20 20 20 | 20 20 0d 0a 6c 6f 63 61 |        |  ..loca|
|00003a90| 6c 20 26 47 54 49 4d 45 | 20 20 20 20 20 20 20 20 |l &GTIME|        |
|00003aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ab0| 20 20 20 20 20 20 0d 0a | 26 4d 53 47 20 3d 20 22 |      ..|&MSG = "|
|00003ac0| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"       |        |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ae0| 20 20 0d 0a 26 45 43 20 | 3d 20 26 36 0d 0a 69 66 |  ..&EC |= &6..if|
|00003af0| 20 28 26 70 72 6d 61 63 | 68 69 6e 65 3d 22 4f 22 | (&prmac|hine="O"|
|00003b00| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00003b10| 20 20 20 20 20 20 20 20 | 0d 0a 74 68 65 6e 20 26 |        |..then &|
|00003b20| 53 45 50 20 3d 20 22 26 | 43 52 26 43 52 22 20 20 |SEP = "&|CR&CR"  |
|00003b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b40| 20 0d 0a 65 6c 73 65 20 | 26 53 45 50 20 3d 20 22 | ..else |&SEP = "|
|00003b50| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|00003b60| 20 20 20 20 20 20 20 20 | 20 20 0d 0a 69 66 20 28 |        |  ..if (|
|00003b70| 26 74 65 72 6d 69 6e 61 | 6c 20 3d 20 22 35 32 35 |&termina|l = "525|
|00003b80| 30 22 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0")     |        |
|00003b90| 20 20 20 20 20 0d 0a 74 | 68 65 6e 20 26 54 54 59 |     ..t|hen &TTY|
|00003ba0| 50 45 20 3d 20 22 54 4e | 35 32 35 30 22 0d 0a 65 |PE = "TN|5250"..e|
|00003bb0| 6c 73 65 20 26 54 54 59 | 50 45 20 3d 20 22 54 4e |lse &TTY|PE = "TN|
|00003bc0| 33 32 37 30 22 0d 0a 26 | 47 54 49 4d 45 20 3d 20 |3270"..&|GTIME = |
|00003bd0| 26 6f 70 74 69 6f 6e 28 | 47 54 49 4d 45 4f 55 54 |&option(|GTIMEOUT|
|00003be0| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00003bf0| 0d 0a 69 66 20 28 26 64 | 61 74 61 74 79 70 65 28 |..if (&d|atatype(|
|00003c00| 26 47 54 49 4d 45 29 3c | 3e 22 4e 55 4d 22 29 20 |&GTIME)<|>"NUM") |
|00003c10| 6f 72 20 28 26 47 54 49 | 4d 45 3d 30 29 20 26 47 |or (&GTI|ME=0) &G|
|00003c20| 54 49 4d 45 20 3d 20 32 | 30 0d 0a 69 66 20 28 26 |TIME = 2|0..if (&|
|00003c30| 49 4e 4b 45 59 3c 3e 22 | 22 29 20 67 6f 74 6f 20 |INKEY<>"|") goto |
|00003c40| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*       |        |
|00003c50| 20 20 20 20 20 0d 0a 4f | 4e 20 41 54 54 4e 4b 45 |     ..O|N ATTNKE|
|00003c60| 59 20 45 53 43 41 50 45 | 20 47 4f 54 4f 20 2d 45 |Y ESCAPE| GOTO -E|
|00003c70| 53 43 41 50 45 20 20 20 | 20 20 20 20 20 20 20 20 |SCAPE   |        |
|00003c80| 20 0d 0a 69 66 20 28 26 | 45 43 3d 22 4e 22 29 20 | ..if (&|EC="N") |
|00003c90| 67 6f 74 6f 20 3a 32 34 | 0d 0a 69 66 20 28 26 70 |goto :24|..if (&p|
|00003ca0| 72 6d 61 63 68 69 6e 65 | 3d 22 4f 22 29 0d 0a 74 |rmachine|="O")..t|
|00003cb0| 68 65 6e 20 53 4d 53 47 | 20 27 5a 43 61 6c 6c 69 |hen SMSG| 'ZCalli|
|00003cc0| 6e 67 20 22 26 53 59 53 | 4e 41 4d 45 22 20 61 74 |ng "&SYS|NAME" at|
|00003cd0| 20 22 26 4d 41 53 4b 50 | 48 4f 4e 45 22 2e 26 53 | "&MASKP|HONE".&S|
|00003ce0| 45 50 2e 50 6c 65 61 73 | 65 20 73 74 61 6e 64 20 |EP.Pleas|e stand |
|00003cf0| 62 79 2e 27 0d 0a 65 6c | 73 65 20 53 4d 53 47 20 |by.'..el|se SMSG |
|00003d00| 22 49 43 61 6c 6c 69 6e | 67 20 22 26 53 59 53 4e |"ICallin|g "&SYSN|
|00003d10| 41 4d 45 22 20 61 74 20 | 22 26 4d 41 53 4b 50 48 |AME" at |"&MASKPH|
|00003d20| 4f 4e 45 22 2e 20 50 6c | 65 61 73 65 20 73 74 61 |ONE". Pl|ease sta|
|00003d30| 6e 64 20 62 79 20 28 75 | 73 65 20 45 73 63 20 74 |nd by (u|se Esc t|
|00003d40| 6f 20 63 61 6e 63 65 6c | 29 2e 22 0d 0a 2d 53 54 |o cancel|)."..-ST|
|00003d50| 4d 53 47 31 0d 0a 57 41 | 49 54 20 26 47 54 49 4d |MSG1..WA|IT &GTIM|
|00003d60| 45 20 57 48 49 4c 45 20 | 43 54 53 20 41 4e 44 20 |E WHILE |CTS AND |
|00003d70| 4e 4f 54 20 52 4c 53 44 | 20 20 20 20 20 20 20 20 |NOT RLSD|        |
|00003d80| 0d 0a 49 46 20 4e 4f 54 | 20 52 4c 53 44 20 67 6f |..IF NOT| RLSD go|
|00003d90| 74 6f 20 3a 33 30 20 20 | 20 20 20 20 20 20 20 20 |to :30  |        |
|00003da0| 20 20 20 20 20 20 20 20 | 0d 0a 2d 44 4f 4e 45 0d |        |..-DONE.|
|00003db0| 0a 69 66 20 28 26 45 43 | 3c 3e 22 4e 22 29 20 53 |.if (&EC|<>"N") S|
|00003dc0| 4d 53 47 0d 0a 53 54 4f | 50 20 30 0d 0a 2d 46 41 |MSG..STO|P 0..-FA|
|00003dd0| 49 4c 45 44 0d 0a 6f 6e | 20 61 74 74 6e 6b 65 79 |ILED..on| attnkey|
|00003de0| 20 45 53 43 41 50 45 0d | 0a 53 4d 53 47 20 22 26 | ESCAPE.|.SMSG "&|
|00003df0| 45 43 2e 54 68 65 20 26 | 54 54 59 50 45 20 63 6f |EC.The &|TTYPE co|
|00003e00| 6e 6e 65 63 74 69 6f 6e | 20 63 6f 75 6c 64 20 6e |nnection| could n|
|00003e10| 6f 74 20 62 65 20 65 73 | 74 61 62 6c 69 73 68 65 |ot be es|tablishe|
|00003e20| 64 21 22 0d 0a 69 66 20 | 28 26 45 43 3d 22 58 22 |d!"..if |(&EC="X"|
|00003e30| 29 20 53 4d 53 47 0d 0a | 73 74 6f 70 20 31 31 0d |) SMSG..|stop 11.|
|00003e40| 0a 2d 45 53 43 41 50 45 | 20 20 4f 4e 20 41 54 54 |.-ESCAPE|  ON ATT|
|00003e50| 4e 4b 45 59 20 45 53 43 | 41 50 45 0d 0a 53 4d 53 |NKEY ESC|APE..SMS|
|00003e60| 47 20 22 53 54 68 65 20 | 63 6f 6e 6e 65 63 74 69 |G "SThe |connecti|
|00003e70| 6f 6e 20 68 61 73 20 62 | 65 65 6e 20 74 65 72 6d |on has b|een term|
|00003e80| 69 6e 61 74 65 64 21 22 | 0d 0a 73 74 6f 70 20 34 |inated!"|..stop 4|
|00003e90| 0d 0a 1a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ea0| 2a 20 43 4f 4e 4e 45 43 | 54 47 2e 53 43 52 0d 0a |* CONNEC|TG.SCR..|
|00003eb0| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |* Copyri|ght (c) |
|00003ec0| 31 39 39 33 20 52 65 6c | 61 79 20 54 65 63 68 6e |1993 Rel|ay Techn|
|00003ed0| 6f 6c 6f 67 79 20 49 6e | 63 2e 0d 0a 67 6c 6f 62 |ology In|c...glob|
|00003ee0| 61 6c 20 26 24 47 41 54 | 45 45 52 52 4f 52 20 26 |al &$GAT|EERROR &|
|00003ef0| 24 47 41 54 45 4c 55 4e | 41 4d 45 0d 0a 6c 6f 63 |$GATELUN|AME..loc|
|00003f00| 61 6c 20 26 45 43 20 20 | 20 20 20 20 20 20 20 20 |al &EC  |        |
|00003f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f20| 20 20 20 20 20 20 20 0d | 0a 6c 6f 63 61 6c 20 26 |       .|.local &|
|00003f30| 53 45 50 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |SEP     |        |
|00003f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f50| 20 20 20 0d 0a 6c 6f 63 | 61 6c 20 26 4d 53 47 20 |   ..loc|al &MSG |
|00003f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |        |       .|
|00003f80| 0a 6c 6f 63 61 6c 20 26 | 54 54 59 50 45 20 20 20 |.local &|TTYPE   |
|00003f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003fa0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 6c 6f 63 |        |   ..loc|
|00003fb0| 61 6c 20 26 47 54 49 4d | 45 20 20 20 20 20 20 20 |al &GTIM|E       |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003fd0| 20 20 20 20 20 20 20 0d | 0a 26 4d 53 47 20 3d 20 |       .|.&MSG = |
|00003fe0| 22 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |""      |        |
|00003ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004000| 20 20 20 0d 0a 26 45 43 | 20 3d 20 26 36 0d 0a 69 |   ..&EC| = &6..i|
|00004010| 66 20 28 26 70 72 6d 61 | 63 68 69 6e 65 3d 22 4f |f (&prma|chine="O|
|00004020| 22 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |")      |        |
|00004030| 20 20 20 20 20 20 20 20 | 20 0d 0a 74 68 65 6e 20 |        | ..then |
|00004040| 26 53 45 50 20 3d 20 22 | 26 43 52 26 43 52 22 20 |&SEP = "|&CR&CR" |
|00004050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004060| 20 20 0d 0a 65 6c 73 65 | 20 26 53 45 50 20 3d 20 |  ..else| &SEP = |
|00004070| 22 20 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" "     |        |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 69 66 20 |        |   ..if |
|00004090| 28 26 74 65 72 6d 69 6e | 61 6c 20 3d 20 22 35 32 |(&termin|al = "52|
|000040a0| 35 30 22 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |50")    |        |
|000040b0| 20 20 20 20 20 20 0d 0a | 74 68 65 6e 20 26 54 54 |      ..|then &TT|
|000040c0| 59 50 45 20 3d 20 22 35 | 32 35 30 22 0d 0a 65 6c |YPE = "5|250"..el|
|000040d0| 73 65 20 26 54 54 59 50 | 45 20 3d 20 22 33 32 37 |se &TTYP|E = "327|
|000040e0| 30 22 0d 0a 26 47 54 49 | 4d 45 20 3d 20 26 6f 70 |0"..&GTI|ME = &op|
|000040f0| 74 69 6f 6e 28 47 54 49 | 4d 45 4f 55 54 29 20 20 |tion(GTI|MEOUT)  |
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 0a 69 |        |     ..i|
|00004110| 66 20 28 26 64 61 74 61 | 74 79 70 65 28 26 47 54 |f (&data|type(&GT|
|00004120| 49 4d 45 29 3c 3e 22 4e | 55 4d 22 29 20 6f 72 20 |IME)<>"N|UM") or |
|00004130| 28 26 47 54 49 4d 45 3d | 30 29 20 26 47 54 49 4d |(&GTIME=|0) &GTIM|
|00004140| 45 20 3d 20 32 30 0d 0a | 69 66 20 28 26 49 4e 4b |E = 20..|if (&INK|
|00004150| 45 59 3c 3e 22 22 29 20 | 67 6f 74 6f 20 2a 20 20 |EY<>"") |goto *  |
|00004160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004170| 20 20 0d 0a 4f 4e 20 41 | 54 54 4e 4b 45 59 20 45 |  ..ON A|TTNKEY E|
|00004180| 53 43 41 50 45 20 47 4f | 54 4f 20 2d 45 53 43 41 |SCAPE GO|TO -ESCA|
|00004190| 50 45 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 0a |PE      |      ..|
|000041a0| 57 41 49 54 20 26 47 54 | 49 4d 45 20 57 48 49 4c |WAIT &GT|IME WHIL|
|000041b0| 45 20 43 54 53 20 41 4e | 44 20 4e 4f 54 20 52 4c |E CTS AN|D NOT RL|
|000041c0| 53 44 20 20 20 20 20 20 | 20 20 0d 0a 49 46 20 4e |SD      |  ..IF N|
|000041d0| 4f 54 20 52 4c 53 44 20 | 67 6f 74 6f 20 3a 32 36 |OT RLSD |goto :26|
|000041e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000041f0| 20 20 0d 0a 2d 44 4f 4e | 45 0d 0a 69 66 20 28 26 |  ..-DON|E..if (&|
|00004200| 45 43 3c 3e 22 4e 22 29 | 20 53 4d 53 47 0d 0a 53 |EC<>"N")| SMSG..S|
|00004210| 54 4f 50 20 30 0d 0a 2d | 46 41 49 4c 45 44 0d 0a |TOP 0..-|FAILED..|
|00004220| 6f 6e 20 61 74 74 6e 6b | 65 79 20 45 53 43 41 50 |on attnk|ey ESCAP|
|00004230| 45 0d 0a 53 4d 53 47 20 | 22 26 45 43 2e 26 24 47 |E..SMSG |"&EC.&$G|
|00004240| 41 54 45 45 52 52 4f 52 | 22 0d 0a 69 66 20 28 26 |ATEERROR|"..if (&|
|00004250| 45 43 3d 22 58 22 29 20 | 53 4d 53 47 0d 0a 73 74 |EC="X") |SMSG..st|
|00004260| 6f 70 20 31 31 0d 0a 2d | 45 53 43 41 50 45 20 20 |op 11..-|ESCAPE  |
|00004270| 4f 4e 20 41 54 54 4e 4b | 45 59 20 45 53 43 41 50 |ON ATTNK|EY ESCAP|
|00004280| 45 0d 0a 53 4d 53 47 20 | 22 53 54 68 65 20 63 6f |E..SMSG |"SThe co|
|00004290| 6e 6e 65 63 74 69 6f 6e | 20 68 61 73 20 62 65 65 |nnection| has bee|
|000042a0| 6e 20 74 65 72 6d 69 6e | 61 74 65 64 21 22 0d 0a |n termin|ated!"..|
|000042b0| 73 74 6f 70 20 34 0d 0a | 1a 00 00 00 00 00 00 00 |stop 4..|........|
+--------+-------------------------+-------------------------+--------+--------+