/ Chip 2000 January / Chip_2000-01_cd.bin / zkuste / MacOS / STUFF / LINESH.SIT / LineShareDemo / LineShare Scripts / Standard Fax 2_ARA_Data

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 53 74 61 6e 64 61 | 72 64 20 20 46 61 78 20 |..Standa|rd  Fax |
|00000010| 32 5f 41 52 41 5f 44 61 | 74 61 00 00 00 00 00 00 |2_ARA_Da|ta......|
|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 54 45 58 54 73 4c 69 | 4e 01 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 22 d3 00 | 00 01 c4 b2 a5 f4 29 b2 |....."..|......).|
|00000060| a5 f4 29 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 e8 b1 00 00 |........|........|
|00000080| 21 20 56 65 72 73 69 6f | 6e 20 33 2e 34 2e 32 0d |! Versio|n 3.4.2.|
|00000090| 21 0d 21 24 20 55 73 65 | 20 74 68 69 73 20 73 63 |!.!$ Use| this sc|
|000000a0| 72 69 70 74 20 77 69 74 | 68 20 43 6c 61 73 73 20 |ript wit|h Class |
|000000b0| 32 20 66 61 78 20 73 6f | 66 74 77 61 72 65 2c 20 |2 fax so|ftware, |
|000000c0| 41 52 41 2c 0d 21 24 20 | 61 6e 64 20 61 20 42 42 |ARA,.!$ |and a BB|
|000000d0| 53 2c 20 45 2d 6d 61 69 | 6c 20 6f 72 20 6f 74 68 |S, E-mai|l or oth|
|000000e0| 65 72 20 63 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |er commu|nication|
|000000f0| 20 73 65 72 76 65 72 20 | 73 6f 66 74 77 61 72 65 | server |software|
|00000100| 0d 21 0d 21 24 20 41 20 | 63 61 62 6c 65 20 66 6f |.!.!$ A |cable fo|
|00000110| 72 20 68 61 72 64 77 61 | 72 65 20 68 61 6e 64 73 |r hardwa|re hands|
|00000120| 68 61 6b 69 6e 67 20 69 | 73 20 72 65 71 75 69 72 |haking i|s requir|
|00000130| 65 64 0d 21 0d 5e 23 20 | 4d 6f 64 65 6d 3a 0d 5e |ed.!.^# |Modem:.^|
|00000140| 32 20 46 61 78 20 53 6f | 66 74 77 61 72 65 3a 20 |2 Fax So|ftware: |
|00000150| 3d 20 45 6e 75 6d 28 22 | 46 61 78 53 54 46 aa 22 |= Enum("|FaxSTF."|
|00000160| 3d 22 30 22 2c 22 34 2d | 53 69 67 68 74 aa 22 3d |="0","4-|Sight."=|
|00000170| 22 31 22 2c 22 44 65 6c | 72 69 6e 61 22 3d 22 32 |"1","Del|rina"="2|
|00000180| 22 2c 22 47 6c 65 6e 77 | 61 72 6e 65 20 73 77 2f |","Glenw|arne sw/|
|00000190| 68 73 6b 22 3d 22 33 22 | 2c 22 47 6c 65 6e 77 61 |hsk"="3"|,"Glenwa|
|000001a0| 72 6e 65 20 68 77 2f 68 | 73 6b 22 3d 22 34 22 2c |rne hw/h|sk"="4",|
|000001b0| 22 4d 61 78 46 61 78 22 | 3d 22 35 22 2c 22 43 6f |"MaxFax"|="5","Co|
|000001c0| 6d 6d 75 6e 69 47 61 74 | 65 22 3d 22 36 22 29 20 |mmuniGat|e"="6") |
|000001d0| 22 30 22 0d 5e 33 20 45 | 72 72 6f 72 20 43 6f 72 |"0".^3 E|rror Cor|
|000001e0| 72 65 63 74 69 6f 6e 3a | 20 3d 20 42 6f 6f 6c 28 |rection:| = Bool(|
|000001f0| 22 45 6e 61 62 6c 65 64 | 22 3d 22 41 55 54 4f 22 |"Enabled|"="AUTO"|
|00000200| 2c 22 44 69 73 61 62 6c | 65 64 22 3d 22 4e 4f 52 |,"Disabl|ed"="NOR|
|00000210| 4d 22 29 20 22 4e 4f 52 | 4d 22 0d 5e 34 20 48 61 |M") "NOR|M".^4 Ha|
|00000220| 6e 64 73 68 61 6b 65 20 | 77 69 72 65 73 3a 20 3d |ndshake |wires: =|
|00000230| 20 42 6f 6f 6c 28 22 43 | 54 53 2b 44 54 52 22 3d | Bool("C|TS+DTR"=|
|00000240| 22 26 44 30 22 2c 22 43 | 54 53 20 6f 6e 6c 79 22 |"&D0","C|TS only"|
|00000250| 3d 22 26 44 32 22 29 20 | 22 26 44 32 22 0d 5e 35 |="&D2") |"&D2".^5|
|00000260| 20 41 6e 73 77 65 72 20 | 4f 6e 3a 20 3d 20 45 6e | Answer |On: = En|
|00000270| 75 6d 28 22 4e 65 76 65 | 72 22 3d 22 30 22 2c 22 |um("Neve|r"="0","|
|00000280| 31 20 52 69 6e 67 22 3d | 22 31 22 2c 22 32 20 52 |1 Ring"=|"1","2 R|
|00000290| 69 6e 67 73 22 3d 22 32 | 22 2c 22 33 20 52 69 6e |ings"="2|","3 Rin|
|000002a0| 67 73 22 3d 22 33 22 2c | 22 35 20 52 69 6e 67 73 |gs"="3",|"5 Rings|
|000002b0| 22 3d 22 35 22 2c 22 37 | 20 52 69 6e 67 73 22 3d |"="5","7| Rings"=|
|000002c0| 22 37 22 29 20 22 32 22 | 0d 5e 36 20 44 61 74 61 |"7") "2"|.^6 Data|
|000002d0| 20 50 6f 72 74 20 53 70 | 65 65 64 3a 20 3d 20 45 | Port Sp|eed: = E|
|000002e0| 6e 75 6d 28 22 39 36 30 | 30 22 2c 22 31 39 32 30 |num("960|0","1920|
|000002f0| 30 22 2c 22 33 38 34 30 | 30 22 2c 22 35 37 36 30 |0","3840|0","5760|
|00000300| 30 22 2c 22 31 31 35 32 | 30 30 22 29 20 22 33 38 |0","1152|00") "38|
|00000310| 34 30 30 22 0d 21 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |400".! -|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 0d 21 20 52 65 73 65 | 74 74 69 6e 67 20 74 68 |-.! Rese|tting th|
|00000350| 65 20 6d 6f 64 65 6d 3a | 0d 21 20 2d 2d 2d 2d 2d |e modem:|.! -----|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000380| 2d 2d 2d 2d 2d 0d 40 48 | 61 6e 67 75 70 0d 20 20 |-----.@H|angup.  |
|00000390| 53 65 74 54 72 69 65 73 | 20 32 0d 20 20 46 6c 75 |SetTries| 2.  Flu|
|000003a0| 73 68 0d 20 20 48 73 52 | 65 73 65 74 20 30 2c 30 |sh.  HsR|eset 0,0|
|000003b0| 2c 30 2c 30 2c 30 2c 30 | 0d 20 20 44 74 72 53 65 |,0,0,0,0|.  DtrSe|
|000003c0| 74 0d 21 0d 21 20 54 72 | 79 20 74 6f 20 63 61 74 |t.!.! Tr|y to cat|
|000003d0| 63 68 20 74 68 65 20 22 | 4f 4b 22 20 61 6e 73 77 |ch the "|OK" answ|
|000003e0| 65 72 2c 20 75 73 65 20 | 74 68 65 20 45 73 63 61 |er, use |the Esca|
|000003f0| 70 65 20 73 65 71 20 61 | 6e 64 20 44 54 52 20 74 |pe seq a|nd DTR t|
|00000400| 72 61 6e 73 69 74 69 6f | 6e 73 0d 21 20 74 6f 20 |ransitio|ns.! to |
|00000410| 65 6e 74 65 72 20 74 68 | 65 20 63 6f 6d 6d 61 6e |enter th|e comman|
|00000420| 64 20 6d 6f 64 65 0d 21 | 0d 40 4c 61 62 65 6c 20 |d mode.!|.@Label |
|00000430| 31 0d 20 20 6d 61 74 63 | 68 63 6c 72 0d 20 20 6d |1.  matc|hclr.  m|
|00000440| 61 74 63 68 73 74 72 20 | 31 20 32 20 22 4f 4b 5c |atchstr |1 2 "OK\|
|00000450| 72 5c 6e 22 0d 20 20 77 | 72 69 74 65 20 22 41 54 |r\n".  w|rite "AT|
|00000460| 48 30 56 31 51 30 5c 72 | 22 0d 20 20 6d 61 74 63 |H0V1Q0\r|".  matc|
|00000470| 68 72 65 61 64 20 32 30 | 0d 20 20 43 68 72 44 65 |hread 20|.  ChrDe|
|00000480| 6c 61 79 20 31 0d 20 20 | 57 72 69 74 65 20 22 2b |lay 1.  |Write "+|
|00000490| 2b 2b 22 0d 20 20 43 68 | 72 44 65 6c 61 79 20 30 |++".  Ch|rDelay 0|
|000004a0| 0d 20 20 44 74 72 43 6c | 65 61 72 0d 20 20 53 42 |.  DtrCl|ear.  SB|
|000004b0| 72 65 61 6b 0d 20 20 44 | 74 72 53 65 74 0d 21 0d |reak.  D|trSet.!.|
|000004c0| 20 20 44 65 63 54 72 69 | 65 73 0d 20 20 49 66 54 |  DecTri|es.  IfT|
|000004d0| 72 69 65 73 20 30 20 31 | 0d 21 0d 21 20 4f 53 45 |ries 0 1|.!.! OSE|
|000004e0| 72 72 20 2d 36 30 31 39 | 20 22 4d 6f 64 65 6d 20 |rr -6019| "Modem |
|000004f0| 65 72 72 6f 72 20 2d 20 | 74 68 65 20 6d 6f 64 65 |error - |the mode|
|00000500| 6d 20 69 73 20 6e 6f 74 | 20 72 65 73 70 6f 6e 64 |m is not| respond|
|00000510| 69 6e 67 22 0d 21 0d 20 | 20 65 78 69 74 20 2d 36 |ing".!. | exit -6|
|00000520| 30 31 39 0d 40 4c 61 62 | 65 6c 20 32 0d 20 20 53 |019.@Lab|el 2.  S|
|00000530| 65 74 56 61 72 20 41 20 | 22 26 46 22 0d 20 20 47 |etVar A |"&F".  G|
|00000540| 65 74 4f 70 74 69 6f 6e | 20 41 20 22 44 46 4c 54 |etOption| A "DFLT|
|00000550| 22 20 33 0d 40 4c 61 62 | 65 6c 20 33 0d 20 20 77 |" 3.@Lab|el 3.  w|
|00000560| 72 69 74 65 20 22 41 54 | 5e 41 2b 46 43 4c 41 53 |rite "AT|^A+FCLAS|
|00000570| 53 3d 30 5c 72 22 0d 20 | 20 4a 73 72 20 31 30 30 |S=0\r". | Jsr 100|
|00000580| 0d 20 20 65 78 69 74 20 | 30 0d 21 0d 40 4c 61 62 |.  exit |0.!.@Lab|
|00000590| 65 6c 20 36 0d 20 20 53 | 61 79 20 22 54 68 69 73 |el 6.  S|ay "This|
|000005a0| 20 73 63 72 69 70 74 20 | 63 61 6e 6e 6f 74 20 62 | script |cannot b|
|000005b0| 65 20 75 73 65 64 20 77 | 69 74 68 20 74 68 69 73 |e used w|ith this|
|000005c0| 20 6d 6f 64 65 6d 22 0d | 20 20 69 66 4f 72 69 67 | modem".|  ifOrig|
|000005d0| 69 6e 61 74 65 20 37 0d | 20 20 70 61 75 73 65 20 |inate 7.|  pause |
|000005e0| 31 38 30 30 0d 40 4c 61 | 62 65 6c 20 37 0d 20 20 |1800.@La|bel 7.  |
|000005f0| 65 78 69 74 20 2d 36 30 | 31 39 0d 21 20 2d 2d 2d |exit -60|19.! ---|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 0d | 21 20 20 20 20 52 65 63 |-------.|!    Rec|
|00000630| 65 69 76 69 6e 67 20 69 | 6e 63 6f 6d 69 6e 67 20 |eiving i|ncoming |
|00000640| 63 61 6c 6c 73 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |calls.! |--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000670| 2d 2d 0d 40 41 4e 53 57 | 45 52 0d 40 4c 61 62 65 |--.@ANSW|ER.@Labe|
|00000680| 6c 20 31 30 0d 21 0d 21 | 20 53 65 74 20 74 68 65 |l 10.!.!| Set the|
|00000690| 20 6d 6f 64 65 6d 20 70 | 72 65 66 65 72 72 65 64 | modem p|referred|
|000006a0| 20 73 70 65 65 64 20 66 | 69 72 73 74 0d 20 20 53 | speed f|irst.  S|
|000006b0| 65 72 52 65 73 65 74 20 | 56 61 6c 28 22 5e 36 22 |erReset |Val("^6"|
|000006c0| 29 2c 30 2c 38 2c 31 0d | 20 20 4a 73 72 20 38 30 |),0,8,1.|  Jsr 80|
|000006d0| 0d 21 0d 21 20 53 65 74 | 20 74 68 65 20 63 6f 6d |.!.! Set| the com|
|000006e0| 6d 6f 6e 20 6f 70 74 69 | 6f 6e 73 0d 20 20 4a 73 |mon opti|ons.  Js|
|000006f0| 72 20 37 30 0d 21 0d 21 | 20 53 65 74 20 74 68 65 |r 70.!.!| Set the|
|00000700| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 20 6f | communi|cation o|
|00000710| 70 74 69 6f 6e 73 3a 0d | 21 20 a5 20 4e 6f 72 6d |ptions:.|! . Norm|
|00000720| 61 6c 2f 41 55 54 4f 20 | 43 6f 6e 6e 65 63 74 69 |al/AUTO |Connecti|
|00000730| 6f 6e 0d 21 20 a5 20 48 | 57 20 66 6c 6f 77 20 63 |on.! . H|W flow c|
|00000740| 6f 6e 74 72 6f 6c 20 20 | 28 66 6f 72 20 41 52 41 |ontrol  |(for ARA|
|00000750| 2c 20 46 61 78 20 73 68 | 6f 75 6c 64 20 6e 6f 74 |, Fax sh|ould not|
|00000760| 20 75 73 65 20 61 20 68 | 61 6e 64 73 68 61 6b 65 | use a h|andshake|
|00000770| 20 6f 6e 20 72 65 63 65 | 69 76 69 6e 67 29 0d 21 | on rece|iving).!|
|00000780| 20 a5 20 43 4f 4e 4e 45 | 43 54 20 3c 44 43 45 20 | . CONNE|CT <DCE |
|00000790| 73 70 65 65 64 3e 20 6f | 72 20 43 41 52 52 49 45 |speed> o|r CARRIE|
|000007a0| 52 2f 43 4f 4e 4e 45 43 | 54 0d 21 0d 20 20 47 65 |R/CONNEC|T.!.  Ge|
|000007b0| 74 4f 70 74 69 6f 6e 20 | 41 20 22 48 57 48 53 22 |tOption |A "HWHS"|
|000007c0| 20 36 0d 20 20 47 65 74 | 4f 70 74 69 6f 6e 20 42 | 6.  Get|Option B|
|000007d0| 20 22 5e 33 22 20 36 0d | 20 20 47 65 74 4f 70 74 | "^3" 6.|  GetOpt|
|000007e0| 69 6f 6e 20 43 20 22 4c | 4e 52 53 22 20 36 0d 20 |ion C "L|NRS" 6. |
|000007f0| 20 57 72 69 74 65 20 22 | 41 54 5e 41 5e 42 5e 43 | Write "|AT^A^B^C|
|00000800| 5c 72 22 0d 20 20 4a 73 | 72 20 31 30 30 0d 21 0d |\r".  Js|r 100.!.|
|00000810| 21 20 53 65 74 20 46 61 | 78 20 70 61 72 61 6d 65 |! Set Fa|x parame|
|00000820| 74 65 72 73 3a 20 4c 49 | 44 2c 20 44 43 43 2c 42 |ters: LI|D, DCC,B|
|00000830| 4f 52 0d 21 0d 20 20 57 | 72 69 74 65 20 22 41 54 |OR.!.  W|rite "AT|
|00000840| 2b 46 43 4c 41 53 53 3d | 32 3b 2b 46 43 52 3d 31 |+FCLASS=|2;+FCR=1|
|00000850| 3b 2b 46 41 41 3d 31 5c | 72 22 0d 20 20 4a 73 72 |;+FAA=1\|r".  Jsr|
|00000860| 20 31 30 30 0d 21 0d 21 | 20 53 65 74 20 46 4c 49 | 100.!.!| Set FLI|
|00000870| 44 20 2d 20 73 6f 6d 65 | 74 69 6d 65 73 20 69 74 |D - some|times it|
|00000880| 20 63 61 6e 20 66 61 69 | 6c 0d 21 0d 20 20 47 65 | can fai|l.!.  Ge|
|00000890| 74 43 6f 6d 6d 61 6e 64 | 20 41 20 22 46 61 78 22 |tCommand| A "Fax"|
|000008a0| 20 22 2b 46 4c 49 44 22 | 0d 20 20 57 72 69 74 65 | "+FLID"|.  Write|
|000008b0| 20 22 41 54 5e 41 5c 72 | 22 0d 20 20 4a 73 72 20 | "AT^A\r|".  Jsr |
|000008c0| 31 32 30 0d 21 0d 20 20 | 57 72 69 74 65 20 22 41 |120.!.  |Write "A|
|000008d0| 54 2b 46 44 43 43 3d 31 | 2c 33 2c 30 2c 32 2c 30 |T+FDCC=1|,3,0,2,0|
|000008e0| 2c 30 2c 30 2c 30 5c 72 | 22 0d 20 20 4a 73 72 20 |,0,0,0\r|".  Jsr |
|000008f0| 31 30 30 0d 21 0d 21 20 | 53 65 74 20 46 44 43 43 |100.!.! |Set FDCC|
|00000900| 20 2d 20 73 6f 6d 65 74 | 69 6d 65 73 20 69 74 20 | - somet|imes it |
|00000910| 63 61 6e 20 66 61 69 6c | 0d 21 0d 20 20 47 65 74 |can fail|.!.  Get|
|00000920| 43 6f 6d 6d 61 6e 64 20 | 41 20 22 46 61 78 22 20 |Command |A "Fax" |
|00000930| 22 2b 46 44 43 43 22 0d | 20 20 57 72 69 74 65 20 |"+FDCC".|  Write |
|00000940| 22 41 54 5e 41 5c 72 22 | 0d 20 20 4a 73 72 20 31 |"AT^A\r"|.  Jsr 1|
|00000950| 32 30 0d 21 0d 20 20 47 | 65 74 43 6f 6d 6d 61 6e |20.!.  G|etComman|
|00000960| 64 20 41 20 22 46 61 78 | 22 20 22 2b 46 42 4f 52 |d A "Fax|" "+FBOR|
|00000970| 22 0d 20 20 57 72 69 74 | 65 20 22 41 54 5e 41 5c |".  Writ|e "AT^A\|
|00000980| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 21 0d 21 |r".  Jsr| 100.!.!|
|00000990| 20 49 74 27 73 20 66 6f | 72 20 52 6f 63 6b 77 65 | It's fo|r Rockwe|
|000009a0| 6c 6c 20 4f 4e 4c 59 21 | 20 53 65 74 20 46 43 4c |ll ONLY!| Set FCL|
|000009b0| 41 53 53 20 74 6f 20 30 | 20 61 67 61 69 6e 0d 20 |ASS to 0| again. |
|000009c0| 20 47 65 74 4f 70 74 69 | 6f 6e 20 41 20 22 52 43 | GetOpti|on A "RC|
|000009d0| 57 4c 22 20 31 32 0d 20 | 20 57 72 69 74 65 20 22 |WL" 12. | Write "|
|000009e0| 41 54 2b 46 43 4c 41 53 | 53 3d 30 5c 72 22 0d 20 |AT+FCLAS|S=0\r". |
|000009f0| 20 4a 73 72 20 31 30 30 | 0d 21 0d 40 4c 61 62 65 | Jsr 100|.!.@Labe|
|00000a00| 6c 20 31 32 0d 21 0d 21 | 20 47 65 74 20 74 68 65 |l 12.!.!| Get the|
|00000a10| 20 53 70 65 61 6b 65 72 | 20 6f 70 74 69 6f 6e 73 | Speaker| options|
|00000a20| 0d 21 0d 20 20 47 65 74 | 43 6f 6d 6d 61 6e 64 20 |.!.  Get|Command |
|00000a30| 42 20 22 46 61 78 22 20 | 22 4d 22 0d 20 20 47 65 |B "Fax" |"M".  Ge|
|00000a40| 74 43 6f 6d 6d 61 6e 64 | 20 43 20 22 46 61 78 22 |tCommand| C "Fax"|
|00000a50| 20 22 4c 22 0d 20 20 53 | 65 74 56 61 72 20 41 20 | "L".  S|etVar A |
|00000a60| 22 53 30 3d 5e 35 22 0d | 21 0d 21 20 41 6e 73 77 |"S0=^5".|!.! Answ|
|00000a70| 65 72 20 63 61 6c 6c 20 | 61 66 74 65 72 20 3c 41 |er call |after <A|
|00000a80| 3e 20 72 69 6e 67 73 0d | 21 0d 20 20 57 72 69 74 |> rings.|!.  Writ|
|00000a90| 65 20 22 41 54 5e 41 5e | 42 5e 43 5c 72 22 0d 20 |e "AT^A^|B^C\r". |
|00000aa0| 20 4a 73 72 20 31 30 30 | 0d 21 0d 21 20 45 76 65 | Jsr 100|.!.! Eve|
|00000ab0| 72 79 74 68 69 6e 67 20 | 69 73 20 72 65 61 64 79 |rything |is ready|
|00000ac0| 20 2d 20 6c 65 74 27 73 | 20 73 69 74 20 61 6e 64 | - let's| sit and|
|00000ad0| 20 77 61 69 74 20 66 6f | 72 20 61 20 63 61 6c 6c | wait fo|r a call|
|00000ae0| 0d 21 20 57 65 27 6c 6c | 20 77 61 69 74 20 66 6f |.! We'll| wait fo|
|00000af0| 72 20 32 20 6d 69 6e 75 | 74 65 73 2c 20 74 68 65 |r 2 minu|tes, the|
|00000b00| 6e 20 72 65 69 6e 69 74 | 69 61 74 65 20 74 68 65 |n reinit|iate the|
|00000b10| 20 6d 6f 64 65 6d 0d 20 | 20 4e 6f 74 65 20 22 57 | modem. | Note "W|
|00000b20| 61 69 74 69 6e 67 20 66 | 6f 72 20 61 20 46 61 78 |aiting f|or a Fax|
|00000b30| 2f 41 52 41 2f 44 61 74 | 61 20 63 61 6c 6c c9 22 |/ARA/Dat|a call."|
|00000b40| 0d 20 20 4a 73 72 20 39 | 30 0d 20 20 49 66 53 74 |.  Jsr 9|0.  IfSt|
|00000b50| 72 20 44 20 34 30 20 22 | 46 41 58 22 0d 20 20 49 |r D 40 "|FAX".  I|
|00000b60| 66 53 74 72 20 44 20 32 | 30 20 22 44 41 54 41 22 |fStr D 2|0 "DATA"|
|00000b70| 0d 20 20 4a 75 6d 70 20 | 31 30 0d 21 0d 21 0d 21 |.  Jump |10.!.!.!|
|00000b80| 20 44 61 74 61 20 63 6f | 6e 6e 65 63 74 69 6f 6e | Data co|nnection|
|00000b90| 20 68 61 73 20 62 65 65 | 6e 20 65 73 74 61 62 6c | has bee|n establ|
|00000ba0| 69 73 68 65 64 20 28 77 | 65 20 72 65 61 64 20 22 |ished (w|e read "|
|00000bb0| 43 4f 4e 4e 45 43 54 22 | 29 0d 21 20 50 75 74 20 |CONNECT"|).! Put |
|00000bc0| 74 68 65 20 22 43 4f 4e | 4e 45 43 54 22 20 62 61 |the "CON|NECT" ba|
|00000bd0| 63 6b 20 74 6f 20 74 68 | 65 20 62 75 66 66 65 72 |ck to th|e buffer|
|00000be0| 20 61 6e 64 20 61 74 74 | 61 63 68 20 74 68 65 20 | and att|ach the |
|00000bf0| 22 44 61 74 61 22 20 73 | 75 62 50 6f 72 74 0d 21 |"Data" s|ubPort.!|
|00000c00| 20 69 66 20 69 74 20 77 | 61 73 20 61 6e 20 69 6e | if it w|as an in|
|00000c10| 63 6f 6d 69 6e 67 20 63 | 61 6c 6c 2c 20 70 75 74 |coming c|all, put|
|00000c20| 20 74 68 65 20 22 52 49 | 4e 47 22 20 62 65 66 6f | the "RI|NG" befo|
|00000c30| 72 65 20 74 68 65 20 22 | 43 4f 4e 4e 45 43 54 22 |re the "|CONNECT"|
|00000c40| 0d 21 0d 40 4c 61 62 65 | 6c 20 32 30 0d 20 20 49 |.!.@Labe|l 20.  I|
|00000c50| 66 4f 70 65 6e 20 22 44 | 61 74 61 22 20 32 31 0d |fOpen "D|ata" 21.|
|00000c60| 20 20 4a 75 6d 70 20 33 | 30 0d 40 4c 61 62 65 6c |  Jump 3|0.@Label|
|00000c70| 20 32 31 0d 20 20 49 66 | 4f 70 65 6e 20 22 41 52 | 21.  If|Open "AR|
|00000c80| 41 22 20 32 32 0d 20 20 | 4a 75 6d 70 20 33 35 0d |A" 22.  |Jump 35.|
|00000c90| 40 4c 61 62 65 6c 20 32 | 32 0d 20 20 4e 6f 74 65 |@Label 2|2.  Note|
|00000ca0| 20 22 57 61 69 74 69 6e | 67 20 66 6f 72 20 61 6e | "Waitin|g for an|
|00000cb0| 20 41 52 41 20 66 72 61 | 6d 65 22 0d 20 20 4d 61 | ARA fra|me".  Ma|
|00000cc0| 74 63 68 43 6c 72 0d 20 | 20 4d 61 74 63 68 53 74 |tchClr. | MatchSt|
|00000cd0| 72 20 31 20 32 33 20 22 | 5e 24 5c 72 22 0d 20 20 |r 1 23 "|^$\r".  |
|00000ce0| 4d 61 74 63 68 53 74 72 | 20 32 20 32 36 20 22 5c |MatchStr| 2 26 "\|
|00000cf0| 30 38 5c 30 31 5c 30 33 | 5c 31 34 5c 30 34 5c 30 |08\01\03|\14\04\0|
|00000d00| 33 5c 30 30 5c 30 38 22 | 0d 20 20 4d 61 74 63 68 |3\00\08"|.  Match|
|00000d10| 53 74 72 20 33 20 32 37 | 20 22 5c 30 31 5c 32 37 |Str 3 27| "\01\27|
|00000d20| 5c 30 32 5c 32 39 5c 30 | 31 5c 30 32 5c 30 31 5c |\02\29\0|1\02\01\|
|00000d30| 30 36 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 34 |06".  Ma|tchStr 4|
|00000d40| 20 32 38 20 22 5c 31 32 | 36 5c 32 35 35 5c 31 32 | 28 "\12|6\255\12|
|00000d50| 35 5c 33 35 5c 31 39 32 | 5c 33 33 5c 31 32 35 5c |5\35\192|\33\125\|
|00000d60| 33 33 22 0d 20 20 4d 61 | 74 63 68 52 65 61 64 20 |33".  Ma|tchRead |
|00000d70| 34 30 0d 20 20 4a 75 6d | 70 20 32 34 0d 40 4c 61 |40.  Jum|p 24.@La|
|00000d80| 62 65 6c 20 32 33 0d 20 | 20 51 75 65 75 65 49 6e |bel 23. | QueueIn|
|00000d90| 70 75 74 20 22 5e 24 5c | 72 22 0d 40 4c 61 62 65 |put "^$\|r".@Labe|
|00000da0| 6c 20 32 34 0d 20 20 4e | 6f 74 65 20 22 4e 6f 6e |l 24.  N|ote "Non|
|00000db0| 2d 41 52 41 20 63 61 6c | 6c 22 0d 20 20 4a 75 6d |-ARA cal|l".  Jum|
|00000dc0| 70 20 33 35 0d 21 0d 40 | 4c 61 62 65 6c 20 32 36 |p 35.!.@|Label 26|
|00000dd0| 0d 20 20 4e 6f 74 65 20 | 22 41 52 41 20 31 2e 30 |.  Note |"ARA 1.0|
|00000de0| 20 63 61 6c 6c 22 0d 20 | 20 51 75 65 75 65 49 6e | call". | QueueIn|
|00000df0| 70 75 74 20 22 5c 30 38 | 5c 30 31 5c 30 33 5c 31 |put "\08|\01\03\1|
|00000e00| 34 5c 30 34 5c 30 33 5c | 30 30 5c 30 38 22 0d 20 |4\04\03\|00\08". |
|00000e10| 20 4a 75 6d 70 20 33 30 | 0d 40 4c 61 62 65 6c 20 | Jump 30|.@Label |
|00000e20| 32 37 0d 20 20 4e 6f 74 | 65 20 22 41 52 41 20 32 |27.  Not|e "ARA 2|
|00000e30| 2e 30 20 63 61 6c 6c 22 | 0d 20 20 51 75 65 75 65 |.0 call"|.  Queue|
|00000e40| 49 6e 70 75 74 20 22 5c | 30 31 5c 32 37 5c 30 32 |Input "\|01\27\02|
|00000e50| 5c 32 39 5c 30 31 5c 30 | 32 5c 30 31 5c 30 36 22 |\29\01\0|2\01\06"|
|00000e60| 0d 20 20 4a 75 6d 70 20 | 33 30 0d 40 4c 61 62 65 |.  Jump |30.@Labe|
|00000e70| 6c 20 32 38 0d 20 20 4e | 6f 74 65 20 22 41 52 41 |l 28.  N|ote "ARA|
|00000e80| 20 33 2e 78 20 28 50 50 | 50 29 20 63 61 6c 6c 22 | 3.x (PP|P) call"|
|00000e90| 0d 20 20 51 75 65 75 65 | 49 6e 70 75 74 20 22 5c |.  Queue|Input "\|
|00000ea0| 31 32 36 5c 32 35 35 5c | 31 32 35 5c 33 35 5c 31 |126\255\|125\35\1|
|00000eb0| 39 32 5c 33 33 5c 31 32 | 35 5c 33 33 22 0d 21 20 |92\33\12|5\33".! |
|00000ec0| 20 4a 75 6d 70 20 33 30 | 0d 21 0d 40 4c 61 62 65 | Jump 30|.!.@Labe|
|00000ed0| 6c 20 33 30 0d 20 20 51 | 75 65 75 65 49 6e 70 75 |l 30.  Q|ueueInpu|
|00000ee0| 74 20 22 5c 72 5c 6e 43 | 41 52 52 49 45 52 20 5e |t "\r\nC|ARRIER ^|
|00000ef0| 42 5c 72 5c 6e 22 20 20 | 0d 20 20 49 66 53 74 72 |B\r\n"  |.  IfStr|
|00000f00| 20 41 20 33 31 20 22 4e | 4f 4e 45 22 0d 20 20 49 | A 31 "N|ONE".  I|
|00000f10| 66 53 74 72 20 41 20 33 | 31 20 22 4e 6f 6e 65 22 |fStr A 3|1 "None"|
|00000f20| 0d 20 20 51 75 65 75 65 | 49 6e 70 75 74 20 22 5c |.  Queue|Input "\|
|00000f30| 72 5c 6e 52 45 4c 5c 72 | 5c 6e 22 0d 40 4c 61 62 |r\nREL\r|\n".@Lab|
|00000f40| 65 6c 20 33 31 0d 20 20 | 49 66 4f 72 69 67 69 6e |el 31.  |IfOrigin|
|00000f50| 61 74 65 20 33 32 0d 20 | 20 51 75 65 75 65 49 6e |ate 32. | QueueIn|
|00000f60| 70 75 74 20 22 5c 72 5c | 6e 52 49 4e 47 5c 72 5c |put "\r\|nRING\r\|
|00000f70| 6e 22 0d 40 4c 61 62 65 | 6c 20 33 32 0d 20 20 41 |n".@Labe|l 32.  A|
|00000f80| 74 74 61 63 68 20 22 41 | 52 41 22 20 28 44 54 52 |ttach "A|RA" (DTR|
|00000f90| 29 0d 21 0d 40 4c 61 62 | 65 6c 20 33 35 0d 20 20 |).!.@Lab|el 35.  |
|00000fa0| 47 65 74 53 52 65 67 20 | 43 20 22 44 41 54 41 22 |GetSReg |C "DATA"|
|00000fb0| 20 34 0d 20 20 51 75 65 | 75 65 49 6e 70 75 74 20 | 4.  Que|ueInput |
|00000fc0| 22 5c 72 5e 43 43 4f 4e | 4e 45 43 54 20 5e 42 5c |"\r^CCON|NECT ^B\|
|00000fd0| 72 5e 43 22 0d 20 20 69 | 66 4f 72 69 67 69 6e 61 |r^C".  i|fOrigina|
|00000fe0| 74 65 20 33 36 0d 20 20 | 51 75 65 75 65 49 6e 70 |te 36.  |QueueInp|
|00000ff0| 75 74 20 22 5c 72 5e 43 | 52 49 4e 47 5c 72 5e 43 |ut "\r^C|RING\r^C|
|00001000| 22 0d 40 4c 61 62 65 6c | 20 33 36 0d 20 20 48 73 |".@Label| 36.  Hs|
|00001010| 52 65 73 65 74 20 30 2c | 31 2c 30 2c 30 2c 30 2c |Reset 0,|1,0,0,0,|
|00001020| 31 0d 20 20 41 74 74 61 | 63 68 20 22 44 61 74 61 |1.  Atta|ch "Data|
|00001030| 22 20 28 44 54 52 2c 45 | 73 63 61 70 65 2c 42 72 |" (DTR,E|scape,Br|
|00001040| 65 61 6b 29 0d 21 0d 21 | 0d 21 20 46 61 78 20 63 |eak).!.!|.! Fax c|
|00001050| 6f 6e 6e 65 63 74 69 6f | 6e 20 68 61 73 20 62 65 |onnectio|n has be|
|00001060| 65 6e 20 65 73 74 61 62 | 6c 69 73 68 65 64 20 28 |en estab|lished (|
|00001070| 77 65 20 72 65 61 64 20 | 22 2b 46 43 4f 4e 22 29 |we read |"+FCON")|
|00001080| 0d 21 20 50 75 74 20 74 | 68 65 20 2b 46 43 4f 4e |.! Put t|he +FCON|
|00001090| 20 62 61 63 6b 20 74 6f | 20 74 68 65 20 62 75 66 | back to| the buf|
|000010a0| 66 65 72 2c 0d 21 20 69 | 66 20 69 74 20 77 61 73 |fer,.! i|f it was|
|000010b0| 20 61 6e 20 69 6e 63 6f | 6d 69 6e 67 20 63 61 6c | an inco|ming cal|
|000010c0| 6c 2c 20 70 75 74 20 74 | 68 65 20 22 52 49 4e 47 |l, put t|he "RING|
|000010d0| 22 20 62 65 66 6f 72 65 | 20 74 68 65 20 22 2b 46 |" before| the "+F|
|000010e0| 43 4f 4e 22 0d 21 20 41 | 74 74 61 63 68 20 74 68 |CON".! A|ttach th|
|000010f0| 65 20 22 46 61 78 22 20 | 73 75 62 50 6f 72 74 0d |e "Fax" |subPort.|
|00001100| 21 0d 40 4c 61 62 65 6c | 20 34 30 0d 20 20 51 75 |!.@Label| 40.  Qu|
|00001110| 65 75 65 49 6e 70 75 74 | 20 22 5c 72 5c 6e 2b 46 |eueInput| "\r\n+F|
|00001120| 43 4f 4e 22 0d 20 20 69 | 66 4f 72 69 67 69 6e 61 |CON".  i|fOrigina|
|00001130| 74 65 20 34 31 0d 20 20 | 53 65 74 53 70 65 65 64 |te 41.  |SetSpeed|
|00001140| 20 31 39 32 30 30 0d 20 | 20 51 75 65 75 65 49 6e | 19200. | QueueIn|
|00001150| 70 75 74 20 22 5c 72 5c | 6e 52 49 4e 47 5c 72 5c |put "\r\|nRING\r\|
|00001160| 6e 22 0d 40 4c 61 62 65 | 6c 20 34 31 0d 20 20 49 |n".@Labe|l 41.  I|
|00001170| 66 53 74 72 20 32 20 34 | 32 20 22 30 22 0d 20 20 |fStr 2 4|2 "0".  |
|00001180| 49 66 53 74 72 20 32 20 | 34 32 20 22 33 22 0d 20 |IfStr 2 |42 "3". |
|00001190| 20 49 66 53 74 72 20 32 | 20 34 32 20 22 34 22 0d | IfStr 2| 42 "4".|
|000011a0| 20 20 41 74 74 61 63 68 | 20 22 46 61 78 22 20 28 |  Attach| "Fax" (|
|000011b0| 44 54 52 2c 49 64 6c 65 | 4c 69 6d 69 74 3d 33 30 |DTR,Idle|Limit=30|
|000011c0| 29 0d 40 4c 61 62 65 6c | 20 34 32 0d 20 20 41 74 |).@Label| 42.  At|
|000011d0| 74 61 63 68 20 22 46 61 | 78 22 20 28 44 54 52 2c |tach "Fa|x" (DTR,|
|000011e0| 52 65 73 65 74 2c 49 64 | 6c 65 4c 69 6d 69 74 3d |Reset,Id|leLimit=|
|000011f0| 33 30 29 0d 21 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |30).!.! |--------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001220| 2d 2d 0d 21 20 4f 72 69 | 67 69 6e 61 74 69 6e 67 |--.! Ori|ginating|
|00001230| 20 61 20 63 61 6c 6c 20 | 74 68 72 6f 75 67 68 20 | a call |through |
|00001240| 74 68 65 20 22 41 52 41 | 22 20 73 75 62 70 6f 72 |the "ARA|" subpor|
|00001250| 74 0d 21 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t.! ----|--------|
|00001260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 40 |--------|------.@|
|00001280| 4f 52 49 47 49 4e 41 54 | 45 20 22 41 52 41 22 0d |ORIGINAT|E "ARA".|
|00001290| 20 20 53 65 72 52 65 73 | 65 74 20 56 61 6c 28 22 |  SerRes|et Val("|
|000012a0| 5e 36 22 29 2c 30 2c 38 | 2c 31 0d 20 20 4a 73 72 |^6"),0,8|,1.  Jsr|
|000012b0| 20 38 30 0d 21 0d 21 20 | 53 65 74 20 74 68 65 20 | 80.!.! |Set the |
|000012c0| 63 6f 6d 6d 6f 6e 20 6f | 70 74 69 6f 6e 73 0d 20 |common o|ptions. |
|000012d0| 20 4a 73 72 20 37 30 0d | 20 20 4a 73 72 20 36 30 | Jsr 70.|  Jsr 60|
|000012e0| 0d 21 0d 21 20 53 65 74 | 20 74 68 65 20 63 6f 6d |.!.! Set| the com|
|000012f0| 6d 75 6e 69 63 61 74 69 | 6f 6e 20 6f 70 74 69 6f |municati|on optio|
|00001300| 6e 73 3a 0d 21 20 a5 20 | 4e 6f 72 6d 61 6c 20 43 |ns:.! . |Normal C|
|00001310| 6f 6e 6e 65 63 74 69 6f | 6e 0d 21 20 a5 20 48 57 |onnectio|n.! . HW|
|00001320| 20 66 6c 6f 77 20 63 6f | 6e 74 72 6f 6c 0d 21 20 | flow co|ntrol.! |
|00001330| a5 20 43 4f 4e 4e 45 43 | 54 20 3c 44 43 45 20 73 |. CONNEC|T <DCE s|
|00001340| 70 65 65 64 3e 20 6f 72 | 20 43 41 52 52 49 45 52 |peed> or| CARRIER|
|00001350| 2f 43 4f 4e 4e 45 43 54 | 0d 21 0d 20 20 47 65 74 |/CONNECT|.!.  Get|
|00001360| 4f 70 74 69 6f 6e 20 41 | 20 22 48 57 48 53 22 20 |Option A| "HWHS" |
|00001370| 36 0d 20 20 47 65 74 4f | 70 74 69 6f 6e 20 42 20 |6.  GetO|ption B |
|00001380| 22 5e 33 22 20 36 0d 20 | 20 47 65 74 4f 70 74 69 |"^3" 6. | GetOpti|
|00001390| 6f 6e 20 43 20 22 4c 4e | 52 53 22 20 36 0d 20 20 |on C "LN|RS" 6.  |
|000013a0| 57 72 69 74 65 20 22 41 | 54 5e 41 5e 42 5e 43 5c |Write "A|T^A^B^C\|
|000013b0| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 21 0d 21 |r".  Jsr| 100.!.!|
|000013c0| 20 64 69 61 6c 20 74 68 | 65 20 6e 75 6d 62 65 72 | dial th|e number|
|000013d0| 0d 20 20 57 72 69 74 65 | 20 22 41 54 44 5e 31 5c |.  Write| "ATD^1\|
|000013e0| 72 22 0d 21 0d 21 20 57 | 61 69 74 20 66 6f 72 20 |r".!.! W|ait for |
|000013f0| 61 20 6d 6f 64 65 6d 20 | 72 65 73 70 6f 6e 73 65 |a modem |response|
|00001400| 0d 20 20 4a 73 72 20 39 | 30 0d 20 20 49 66 53 74 |.  Jsr 9|0.  IfSt|
|00001410| 72 20 44 20 33 30 20 22 | 44 41 54 41 22 0d 20 20 |r D 30 "|DATA".  |
|00001420| 57 72 69 74 65 20 22 5c | 72 22 0d 20 20 45 78 69 |Write "\|r".  Exi|
|00001430| 74 20 2d 36 30 31 39 0d | 0d 21 20 2d 2d 2d 2d 2d |t -6019.|.! -----|
|00001440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001460| 2d 2d 2d 2d 2d 0d 21 20 | 4f 72 69 67 69 6e 61 74 |-----.! |Originat|
|00001470| 69 6e 67 20 61 20 63 61 | 6c 6c 20 74 68 72 6f 75 |ing a ca|ll throu|
|00001480| 67 68 20 74 68 65 20 22 | 44 41 54 41 22 20 73 75 |gh the "|DATA" su|
|00001490| 62 70 6f 72 74 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |bport.! |--------|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014c0| 2d 2d 0d 40 4f 52 49 47 | 49 4e 41 54 45 20 22 44 |--.@ORIG|INATE "D|
|000014d0| 61 74 61 22 20 28 22 5c | 72 5c 6e 4c 69 6e 65 53 |ata" ("\|r\nLineS|
|000014e0| 68 61 72 65 20 4c 69 6e | 65 20 69 73 20 42 75 73 |hare Lin|e is Bus|
|000014f0| 79 5c 72 5c 6e 42 55 53 | 59 5c 72 5c 6e 22 29 0d |y\r\nBUS|Y\r\n").|
|00001500| 20 20 53 65 72 52 65 73 | 65 74 20 56 61 6c 28 22 |  SerRes|et Val("|
|00001510| 5e 36 22 29 2c 30 2c 38 | 2c 31 0d 20 20 4a 73 72 |^6"),0,8|,1.  Jsr|
|00001520| 20 38 30 0d 21 0d 21 20 | 53 65 74 20 74 68 65 20 | 80.!.! |Set the |
|00001530| 63 6f 6d 6d 6f 6e 20 6f | 70 74 69 6f 6e 73 0d 20 |common o|ptions. |
|00001540| 20 4a 73 72 20 37 30 0d | 21 0d 21 20 53 65 74 20 | Jsr 70.|!.! Set |
|00001550| 74 68 65 20 63 6f 6d 6d | 75 6e 69 63 61 74 69 6f |the comm|unicatio|
|00001560| 6e 20 6f 70 74 69 6f 6e | 73 3a 0d 21 20 a5 20 4e |n option|s:.! . N|
|00001570| 6f 72 6d 61 6c 20 43 6f | 6e 6e 65 63 74 69 6f 6e |ormal Co|nnection|
|00001580| 0d 21 20 a5 20 48 57 20 | 66 6c 6f 77 20 63 6f 6e |.! . HW |flow con|
|00001590| 74 72 6f 6c 0d 21 20 a5 | 20 43 4f 4e 4e 45 43 54 |trol.! .| CONNECT|
|000015a0| 20 3c 44 43 45 20 73 70 | 65 65 64 3e 20 6f 72 20 | <DCE sp|eed> or |
|000015b0| 43 41 52 52 49 45 52 2f | 43 4f 4e 4e 45 43 54 0d |CARRIER/|CONNECT.|
|000015c0| 21 0d 20 20 47 65 74 4f | 70 74 69 6f 6e 20 41 20 |!.  GetO|ption A |
|000015d0| 22 48 57 48 53 22 20 36 | 0d 20 20 47 65 74 4f 70 |"HWHS" 6|.  GetOp|
|000015e0| 74 69 6f 6e 20 42 20 22 | 5e 33 22 20 36 0d 20 20 |tion B "|^3" 6.  |
|000015f0| 47 65 74 4f 70 74 69 6f | 6e 20 43 20 22 4c 4e 52 |GetOptio|n C "LNR|
|00001600| 53 22 20 36 0d 20 20 57 | 72 69 74 65 20 22 41 54 |S" 6.  W|rite "AT|
|00001610| 5e 41 5e 42 5e 43 5c 72 | 22 0d 20 20 4a 73 72 20 |^A^B^C\r|".  Jsr |
|00001620| 31 30 30 0d 21 0d 21 20 | 64 69 61 6c 20 74 68 65 |100.!.! |dial the|
|00001630| 20 6e 75 6d 62 65 72 0d | 20 20 57 72 69 74 65 20 | number.|  Write |
|00001640| 22 41 54 44 5e 31 5c 72 | 22 0d 20 20 48 73 52 65 |"ATD^1\r|".  HsRe|
|00001650| 73 65 74 20 2a 0d 21 0d | 21 20 57 61 69 74 20 66 |set *.!.|! Wait f|
|00001660| 6f 72 20 61 20 6d 6f 64 | 65 6d 20 72 65 73 70 6f |or a mod|em respo|
|00001670| 6e 73 65 0d 20 20 4a 73 | 72 20 39 30 0d 20 20 49 |nse.  Js|r 90.  I|
|00001680| 66 53 74 72 20 44 20 33 | 35 20 22 44 41 54 41 22 |fStr D 3|5 "DATA"|
|00001690| 0d 20 20 57 72 69 74 65 | 20 22 5c 72 22 0d 20 20 |.  Write| "\r".  |
|000016a0| 45 78 69 74 20 2d 36 30 | 31 39 0d 21 0d 21 20 2d |Exit -60|19.!.! -|
|000016b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 21 20 4f 72 69 67 |--------|-.! Orig|
|000016e0| 69 6e 61 74 69 6e 67 20 | 61 20 63 61 6c 6c 20 74 |inating |a call t|
|000016f0| 68 72 6f 75 67 68 20 74 | 68 65 20 22 46 61 78 22 |hrough t|he "Fax"|
|00001700| 20 73 75 62 50 6f 72 74 | 0d 21 20 2d 2d 2d 2d 2d | subPort|.! -----|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001730| 2d 2d 2d 2d 2d 0d 40 4f | 52 49 47 49 4e 41 54 45 |-----.@O|RIGINATE|
|00001740| 20 22 46 61 78 22 20 28 | 22 5c 72 5c 6e 4c 69 6e | "Fax" (|"\r\nLin|
|00001750| 65 53 68 61 72 65 20 4c | 69 6e 65 20 69 73 20 42 |eShare L|ine is B|
|00001760| 75 73 79 5c 72 5c 6e 42 | 55 53 59 5c 72 5c 6e 22 |usy\r\nB|USY\r\n"|
|00001770| 29 0d 21 0d 21 20 53 65 | 74 20 74 68 65 20 22 46 |).!.! Se|t the "F|
|00001780| 61 78 22 20 73 70 65 65 | 64 0d 21 0d 20 20 53 65 |ax" spee|d.!.  Se|
|00001790| 72 52 65 73 65 74 20 31 | 39 32 30 30 2c 30 2c 38 |rReset 1|9200,0,8|
|000017a0| 2c 31 0d 20 20 4a 73 72 | 20 38 30 0d 21 0d 21 20 |,1.  Jsr| 80.!.! |
|000017b0| 53 65 74 20 74 68 65 20 | 63 6f 6d 6d 6f 6e 20 6f |Set the |common o|
|000017c0| 70 74 69 6f 6e 73 0d 21 | 0d 20 20 4a 73 72 20 37 |ptions.!|.  Jsr 7|
|000017d0| 30 0d 21 0d 21 20 4e 6f | 77 20 65 6d 69 74 20 61 |0.!.! No|w emit a|
|000017e0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 20 74 68 61 74 |ll comma|nds that|
|000017f0| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|00001800| 20 68 61 73 20 73 65 6e | 74 20 74 6f 20 74 68 61 | has sen|t to tha|
|00001810| 74 20 70 6f 72 74 2c 0d | 21 20 65 78 63 65 70 74 |t port,.|! except|
|00001820| 20 22 56 22 20 61 6e 64 | 20 22 2b 46 43 4c 41 53 | "V" and| "+FCLAS|
|00001830| 53 22 0d 21 0d 20 20 45 | 6d 69 74 43 6c 65 61 72 |S".!.  E|mitClear|
|00001840| 20 22 56 22 2c 22 2b 46 | 43 4c 41 53 53 22 0d 20 | "V","+F|CLASS". |
|00001850| 20 4a 73 72 20 36 30 0d | 20 20 57 72 69 74 65 20 | Jsr 60.|  Write |
|00001860| 22 41 54 2b 46 43 4c 41 | 53 53 3d 32 5c 72 22 0d |"AT+FCLA|SS=2\r".|
|00001870| 20 20 4a 73 72 20 31 30 | 30 0d 21 0d 21 20 73 65 |  Jsr 10|0.!.! se|
|00001880| 74 74 69 6e 67 20 74 68 | 65 20 68 61 6e 64 73 68 |tting th|e handsh|
|00001890| 61 6b 69 6e 67 20 6d 6f | 64 65 20 66 6f 72 20 66 |aking mo|de for f|
|000018a0| 61 78 69 6e 67 0d 20 20 | 69 66 53 74 72 20 32 20 |axing.  |ifStr 2 |
|000018b0| 35 30 20 22 33 22 0d 20 | 20 69 66 53 74 72 20 32 |50 "3". | ifStr 2|
|000018c0| 20 35 31 20 22 34 22 0d | 20 20 48 73 52 65 73 65 | 51 "4".|  HsRese|
|000018d0| 74 20 2a 0d 20 20 4a 75 | 6d 70 20 35 33 0d 40 4c |t *.  Ju|mp 53.@L|
|000018e0| 61 62 65 6c 20 35 30 0d | 20 20 48 53 52 65 73 65 |abel 50.|  HSRese|
|000018f0| 74 20 31 2c 30 2c 31 37 | 2c 31 39 2c 31 2c 30 0d |t 1,0,17|,19,1,0.|
|00001900| 20 20 47 65 74 4f 70 74 | 69 6f 6e 20 41 20 22 53 |  GetOpt|ion A "S|
|00001910| 57 48 53 22 20 36 0d 20 | 20 4a 75 6d 70 20 35 32 |WHS" 6. | Jump 52|
|00001920| 0d 40 4c 61 62 65 6c 20 | 35 31 0d 20 20 48 53 52 |.@Label |51.  HSR|
|00001930| 65 73 65 74 20 30 2c 31 | 2c 30 2c 30 2c 30 2c 30 |eset 0,1|,0,0,0,0|
|00001940| 0d 20 20 47 65 74 4f 70 | 74 69 6f 6e 20 41 20 22 |.  GetOp|tion A "|
|00001950| 48 57 48 53 22 20 36 0d | 40 4c 61 62 65 6c 20 35 |HWHS" 6.|@Label 5|
|00001960| 32 0d 20 20 57 72 69 74 | 65 20 22 41 54 5e 41 5c |2.  Writ|e "AT^A\|
|00001970| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 40 4c 61 |r".  Jsr| 100.@La|
|00001980| 62 65 6c 20 35 33 0d 21 | 0d 21 20 64 69 61 6c 69 |bel 53.!|.! diali|
|00001990| 6e 67 20 74 68 65 20 6e | 75 6d 62 65 72 0d 20 20 |ng the n|umber.  |
|000019a0| 57 72 69 74 65 20 22 41 | 54 44 5e 31 5c 72 22 0d |Write "A|TD^1\r".|
|000019b0| 20 20 4a 73 72 20 39 30 | 0d 20 20 49 66 53 74 72 |  Jsr 90|.  IfStr|
|000019c0| 20 44 20 34 30 20 22 46 | 41 58 22 0d 20 20 57 72 | D 40 "F|AX".  Wr|
|000019d0| 69 74 65 20 22 5c 72 22 | 0d 20 20 45 78 69 74 20 |ite "\r"|.  Exit |
|000019e0| 2d 36 30 31 39 0d 21 0d | 21 20 54 68 69 73 20 73 |-6019.!.|! This s|
|000019f0| 65 63 74 69 6f 6e 20 65 | 6d 69 74 73 20 61 6c 6c |ection e|mits all|
|00001a00| 20 6d 6f 64 65 6d 20 63 | 6f 6d 6d 61 6e 64 73 20 | modem c|ommands |
|00001a10| 73 65 6e 74 20 66 72 6f | 6d 20 74 68 65 20 63 6c |sent fro|m the cl|
|00001a20| 69 65 6e 74 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |ient app|lication|
|00001a30| 0d 21 20 46 6f 72 20 65 | 61 63 68 20 73 65 74 20 |.! For e|ach set |
|00001a40| 6f 66 20 63 6f 6d 6d 61 | 6e 64 73 20 74 68 65 20 |of comma|nds the |
|00001a50| 22 4f 4b 22 20 61 6e 73 | 77 65 72 20 69 73 20 61 |"OK" ans|wer is a|
|00001a60| 77 61 69 74 65 64 0d 21 | 20 46 6f 72 20 34 2d 53 |waited.!| For 4-S|
|00001a70| 69 67 68 74 20 22 4f 4b | 22 20 61 6e 64 2f 6f 72 |ight "OK|" and/or|
|00001a80| 20 22 45 52 52 4f 52 22 | 20 69 73 20 4f 4b 0d 21 | "ERROR"| is OK.!|
|00001a90| 0d 40 4c 61 62 65 6c 20 | 36 30 0d 20 20 45 6d 69 |.@Label |60.  Emi|
|00001aa0| 74 53 74 61 72 74 0d 40 | 4c 61 62 65 6c 20 36 31 |tStart.@|Label 61|
|00001ab0| 0d 20 20 45 6d 69 74 43 | 6f 6d 6d 61 6e 64 20 36 |.  EmitC|ommand 6|
|00001ac0| 32 0d 20 20 69 66 53 74 | 72 20 32 20 36 33 20 22 |2.  ifSt|r 2 63 "|
|00001ad0| 31 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 4a |1".  Jsr| 100.  J|
|00001ae0| 75 6d 70 20 36 31 0d 40 | 4c 61 62 65 6c 20 36 32 |ump 61.@|Label 62|
|00001af0| 0d 20 20 72 65 74 75 72 | 6e 0d 40 4c 61 62 65 6c |.  retur|n.@Label|
|00001b00| 20 36 33 0d 20 20 4a 73 | 72 20 31 32 30 0d 20 20 | 63.  Js|r 120.  |
|00001b10| 4a 75 6d 70 20 36 31 0d | 21 0d 21 20 54 68 69 73 |Jump 61.|!.! This|
|00001b20| 20 73 65 63 74 69 6f 6e | 20 69 6e 69 74 69 61 74 | section| initiat|
|00001b30| 65 73 20 74 68 65 20 6d | 6f 64 65 6d 20 62 65 66 |es the m|odem bef|
|00001b40| 6f 72 65 20 41 4e 53 57 | 45 52 20 61 6e 64 20 4f |ore ANSW|ER and O|
|00001b50| 52 49 47 49 4e 41 54 45 | 73 3a 0d 21 20 72 65 73 |RIGINATE|s:.! res|
|00001b60| 65 74 20 6f 6e 20 44 74 | 72 20 64 72 6f 70 20 2b |et on Dt|r drop +|
|00001b70| 20 44 43 44 20 76 61 6c | 69 64 0d 21 20 56 65 72 | DCD val|id.! Ver|
|00001b80| 62 61 6c 20 72 65 73 70 | 6f 6e 73 65 73 20 6d 6f |bal resp|onses mo|
|00001b90| 64 65 2c 20 6e 6f 20 65 | 63 68 6f 20 0d 21 0d 40 |de, no e|cho .!.@|
|00001ba0| 4c 61 62 65 6c 20 37 30 | 0d 20 20 57 72 69 74 65 |Label 70|.  Write|
|00001bb0| 20 22 41 54 5e 34 26 43 | 31 56 31 45 30 5c 72 22 | "AT^4&C|1V1E0\r"|
|00001bc0| 0d 20 20 4a 73 72 20 31 | 30 30 0d 20 20 72 65 74 |.  Jsr 1|00.  ret|
|00001bd0| 75 72 6e 20 0d 21 0d 21 | 0d 21 20 54 68 69 73 20 |urn .!.!|.! This |
|00001be0| 73 65 63 74 69 6f 6e 20 | 73 79 6e 63 72 6f 6e 69 |section |syncroni|
|00001bf0| 7a 65 20 74 68 65 20 6d | 6f 64 65 6d 20 61 66 74 |ze the m|odem aft|
|00001c00| 65 72 20 74 68 65 20 73 | 65 72 69 61 6c 20 70 6f |er the s|erial po|
|00001c10| 72 74 20 73 70 65 65 64 | 20 73 77 69 74 63 68 69 |rt speed| switchi|
|00001c20| 6e 67 0d 21 0d 40 4c 61 | 62 65 6c 20 38 30 0d 20 |ng.!.@La|bel 80. |
|00001c30| 20 43 68 72 44 65 6c 61 | 79 20 31 0d 20 20 57 72 | ChrDela|y 1.  Wr|
|00001c40| 69 74 65 20 22 41 54 5c | 72 22 0d 20 20 43 68 72 |ite "AT\|r".  Chr|
|00001c50| 44 65 6c 61 79 20 30 0d | 20 20 4a 73 72 20 31 30 |Delay 0.|  Jsr 10|
|00001c60| 30 0d 20 20 72 65 74 75 | 72 6e 0d 21 0d 21 20 45 |0.  retu|rn.!.! E|
|00001c70| 72 72 6f 72 20 63 6f 64 | 65 73 0d 40 4c 61 62 65 |rror cod|es.@Labe|
|00001c80| 6c 20 38 31 0d 20 20 65 | 78 69 74 20 2d 36 30 32 |l 81.  e|xit -602|
|00001c90| 30 0d 40 4c 61 62 65 6c | 20 38 32 0d 20 20 65 78 |0.@Label| 82.  ex|
|00001ca0| 69 74 20 2d 36 30 32 32 | 0d 40 4c 61 62 65 6c 20 |it -6022|.@Label |
|00001cb0| 38 33 0d 20 20 65 78 69 | 74 20 2d 36 30 32 31 0d |83.  exi|t -6021.|
|00001cc0| 40 4c 61 62 65 6c 20 38 | 34 0d 20 20 65 78 69 74 |@Label 8|4.  exit|
|00001cd0| 20 2d 36 30 32 33 0d 21 | 0d 21 0d 21 20 54 68 69 | -6023.!|.!.! Thi|
|00001ce0| 73 20 73 75 62 72 6f 75 | 74 69 6e 65 20 77 61 69 |s subrou|tine wai|
|00001cf0| 74 73 20 66 6f 72 20 74 | 68 65 20 6d 6f 64 65 6d |ts for t|he modem|
|00001d00| 20 72 65 73 70 6f 6e 73 | 65 0d 21 20 4f 6e 20 65 | respons|e.! On e|
|00001d10| 78 69 74 2c 20 5e 44 20 | 63 6f 6e 74 61 69 6e 73 |xit, ^D |contains|
|00001d20| 20 74 68 65 20 72 65 73 | 75 6c 74 20 63 6f 64 65 | the res|ult code|
|00001d30| 3a 20 22 46 41 58 22 20 | 6f 72 20 22 44 41 54 41 |: "FAX" |or "DATA|
|00001d40| 22 0d 21 20 5e 41 20 63 | 6f 6e 74 61 69 6e 73 20 |".! ^A c|ontains |
|00001d50| 74 68 65 20 70 72 6f 74 | 6f 63 6f 6c 20 75 73 65 |the prot|ocol use|
|00001d60| 64 0d 21 20 5e 42 20 63 | 6f 6e 74 61 69 6e 73 20 |d.! ^B c|ontains |
|00001d70| 74 68 65 20 63 61 72 72 | 69 65 72 20 73 70 65 65 |the carr|ier spee|
|00001d80| 64 0d 21 20 49 66 20 6d | 6f 64 65 6d 20 72 65 70 |d.! If m|odem rep|
|00001d90| 6f 72 74 73 20 61 6e 20 | 65 72 72 6f 72 2c 20 74 |orts an |error, t|
|00001da0| 68 65 20 73 63 72 69 70 | 74 73 20 65 78 69 74 73 |he scrip|ts exits|
|00001db0| 20 77 69 74 68 20 61 6e | 20 65 72 72 6f 72 20 63 | with an| error c|
|00001dc0| 6f 64 65 0d 21 0d 40 4c | 61 62 65 6c 20 38 39 0d |ode.!.@L|abel 89.|
|00001dd0| 20 20 4e 6f 74 65 20 22 | 52 69 6e 67 c9 22 0d 20 |  Note "|Ring.". |
|00001de0| 20 4a 75 6d 70 20 39 31 | 0d 21 0d 40 4c 61 62 65 | Jump 91|.!.@Labe|
|00001df0| 6c 20 39 30 0d 20 20 53 | 65 74 56 61 72 20 41 20 |l 90.  S|etVar A |
|00001e00| 22 4e 4f 4e 45 22 0d 20 | 20 53 65 74 56 61 72 20 |"NONE". | SetVar |
|00001e10| 42 20 22 22 0d 20 20 4d | 61 74 63 68 43 6c 72 0d |B "".  M|atchClr.|
|00001e20| 20 20 4d 61 74 63 68 73 | 74 72 20 31 20 39 32 20 |  Matchs|tr 1 92 |
|00001e30| 22 43 41 52 52 49 45 52 | 20 5e 24 5c 72 5c 6e 22 |"CARRIER| ^$\r\n"|
|00001e40| 0d 20 20 4d 61 74 63 68 | 73 74 72 20 32 20 39 33 |.  Match|str 2 93|
|00001e50| 20 22 50 52 4f 54 4f 43 | 4f 4c 3a 20 5e 24 5c 72 | "PROTOC|OL: ^$\r|
|00001e60| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 73 74 72 20 33 |\n".  Ma|tchstr 3|
|00001e70| 20 39 34 20 22 2b 46 43 | 4f 4e 22 0d 21 0d 20 20 | 94 "+FC|ON".!.  |
|00001e80| 4d 61 74 63 68 73 74 72 | 20 34 20 39 35 20 22 43 |Matchstr| 4 95 "C|
|00001e90| 4f 4e 4e 45 43 54 20 5e | 24 2f 22 0d 20 20 4d 61 |ONNECT ^|$/".  Ma|
|00001ea0| 74 63 68 73 74 72 20 35 | 20 39 37 20 22 43 4f 4e |tchstr 5| 97 "CON|
|00001eb0| 4e 45 43 54 20 5e 24 5c | 72 5c 6e 22 0d 20 20 4d |NECT ^$\|r\n".  M|
|00001ec0| 61 74 63 68 73 74 72 20 | 36 20 38 39 20 22 52 49 |atchstr |6 89 "RI|
|00001ed0| 4e 47 5c 72 5c 6e 22 0d | 20 20 4d 61 74 63 68 73 |NG\r\n".|  Matchs|
|00001ee0| 74 72 20 31 30 20 38 32 | 20 22 42 55 53 59 5c 72 |tr 10 82| "BUSY\r|
|00001ef0| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |\n".  Ma|tchStr 1|
|00001f00| 31 20 38 33 20 22 4e 4f | 20 43 41 52 52 49 45 52 |1 83 "NO| CARRIER|
|00001f10| 5c 72 5c 6e 22 0d 20 20 | 4d 61 74 63 68 53 74 72 |\r\n".  |MatchStr|
|00001f20| 20 31 32 20 38 34 20 22 | 4e 4f 20 41 4e 53 57 45 | 12 84 "|NO ANSWE|
|00001f30| 52 5c 72 5c 6e 22 0d 20 | 20 4d 61 74 63 68 53 74 |R\r\n". | MatchSt|
|00001f40| 72 20 31 33 20 38 31 20 | 22 4e 4f 20 44 49 41 4c |r 13 81 |"NO DIAL|
|00001f50| 54 4f 4e 45 5c 72 5c 6e | 22 0d 40 4c 61 62 65 6c |TONE\r\n|".@Label|
|00001f60| 20 39 31 0d 20 20 4d 61 | 74 63 68 72 65 61 64 20 | 91.  Ma|tchread |
|00001f70| 31 32 30 30 0d 20 20 53 | 65 74 56 61 72 20 44 20 |1200.  S|etVar D |
|00001f80| 22 4e 4f 4e 45 22 0d 20 | 20 72 65 74 75 72 6e 0d |"NONE". | return.|
|00001f90| 21 0d 40 4c 61 62 65 6c | 20 39 32 0d 20 20 53 65 |!.@Label| 92.  Se|
|00001fa0| 74 56 61 72 20 42 20 22 | 5e 24 22 0d 20 20 4a 75 |tVar B "|^$".  Ju|
|00001fb0| 6d 70 20 39 31 0d 40 4c | 61 62 65 6c 20 39 33 0d |mp 91.@L|abel 93.|
|00001fc0| 20 20 53 65 74 56 61 72 | 20 41 20 22 5e 24 22 0d |  SetVar| A "^$".|
|00001fd0| 20 20 4a 75 6d 70 20 39 | 31 0d 21 0d 21 20 46 61 |  Jump 9|1.!.! Fa|
|00001fe0| 78 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 20 77 61 73 |x connec|tion was|
|00001ff0| 20 65 73 74 61 62 6c 69 | 73 68 65 64 0d 21 0d 40 | establi|shed.!.@|
|00002000| 4c 61 62 65 6c 20 39 34 | 0d 20 20 53 65 74 56 61 |Label 94|.  SetVa|
|00002010| 72 20 44 20 22 46 41 58 | 22 0d 20 20 72 65 74 75 |r D "FAX|".  retu|
|00002020| 72 6e 0d 21 0d 21 20 43 | 4f 4e 4e 45 43 54 20 78 |rn.!.! C|ONNECT x|
|00002030| 78 78 78 2f 58 58 58 58 | 20 77 61 73 20 64 65 74 |xxx/XXXX| was det|
|00002040| 65 63 74 65 64 0d 40 4c | 61 62 65 6c 20 39 35 0d |ected.@L|abel 95.|
|00002050| 20 20 4a 73 72 20 39 38 | 0d 20 20 4d 61 74 63 68 |  Jsr 98|.  Match|
|00002060| 43 6c 72 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |Clr.  Ma|tchStr 1|
|00002070| 20 39 36 20 22 5e 24 5c | 72 5c 6e 22 0d 20 20 4d | 96 "^$\|r\n".  M|
|00002080| 61 74 63 68 52 65 61 64 | 20 31 30 0d 40 4c 61 62 |atchRead| 10.@Lab|
|00002090| 65 6c 20 39 36 0d 20 20 | 53 65 74 56 61 72 20 41 |el 96.  |SetVar A|
|000020a0| 20 22 5e 24 22 0d 20 20 | 53 65 74 56 61 72 20 44 | "^$".  |SetVar D|
|000020b0| 20 22 44 41 54 41 22 0d | 20 20 72 65 74 75 72 6e | "DATA".|  return|
|000020c0| 0d 21 0d 21 20 43 4f 4e | 4e 45 43 54 20 78 78 78 |.!.! CON|NECT xxx|
|000020d0| 20 77 61 73 20 64 65 74 | 65 63 74 65 64 0d 40 4c | was det|ected.@L|
|000020e0| 61 62 65 6c 20 39 37 0d | 20 20 4a 73 72 20 39 38 |abel 97.|  Jsr 98|
|000020f0| 0d 20 20 53 65 74 56 61 | 72 20 44 20 22 44 41 54 |.  SetVa|r D "DAT|
|00002100| 41 22 0d 20 20 72 65 74 | 75 72 6e 0d 21 0d 40 4c |A".  ret|urn.!.@L|
|00002110| 61 62 65 6c 20 39 38 0d | 20 20 69 66 53 74 72 20 |abel 98.|  ifStr |
|00002120| 42 20 39 39 20 22 22 0d | 20 20 72 65 74 75 72 6e |B 99 "".|  return|
|00002130| 0d 40 4c 61 62 65 6c 20 | 39 39 0d 20 20 53 65 74 |.@Label |99.  Set|
|00002140| 56 61 72 20 42 20 22 5e | 24 22 0d 20 20 72 65 74 |Var B "^|$".  ret|
|00002150| 75 72 6e 20 0d 21 0d 21 | 20 50 72 6f 63 65 73 73 |urn .!.!| Process|
|00002160| 69 6e 67 20 74 68 65 20 | 41 54 20 63 6f 6d 6d 61 |ing the |AT comma|
|00002170| 6e 64 3a 0d 21 20 4f 4b | 20 2d 3e 20 70 72 6f 63 |nd:.! OK| -> proc|
|00002180| 65 65 64 0d 21 20 45 52 | 52 4f 52 20 6f 72 20 54 |eed.! ER|ROR or T|
|00002190| 69 6d 65 4f 75 74 20 2d | 3e 65 78 69 74 20 2d 36 |imeOut -|>exit -6|
|000021a0| 30 31 39 0d 21 20 49 74 | 20 63 61 6e 20 62 65 20 |019.! It| can be |
|000021b0| 63 61 6c 6c 65 64 20 41 | 46 54 45 52 20 74 68 65 |called A|FTER the|
|000021c0| 20 22 57 72 69 74 65 22 | 20 63 6f 6d 6d 61 6e 64 | "Write"| command|
|000021d0| 2c 20 73 69 6e 63 65 20 | 4c 69 6e 65 53 68 61 72 |, since |LineShar|
|000021e0| 65 20 62 75 66 66 65 72 | 73 20 69 6e 70 75 74 0d |e buffer|s input.|
|000021f0| 21 0d 40 4c 61 62 65 6c | 20 31 30 30 0d 20 20 4d |!.@Label| 100.  M|
|00002200| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|00002210| 74 72 20 31 20 31 30 32 | 20 22 4f 4b 5c 72 5c 6e |tr 1 102| "OK\r\n|
|00002220| 22 0d 20 20 4d 61 74 63 | 68 53 74 72 20 32 20 31 |".  Matc|hStr 2 1|
|00002230| 30 31 20 22 45 52 52 4f | 52 5c 72 5c 6e 22 0d 20 |01 "ERRO|R\r\n". |
|00002240| 20 4d 61 74 63 68 52 65 | 61 64 20 32 30 0d 40 4c | MatchRe|ad 20.@L|
|00002250| 61 62 65 6c 20 31 30 31 | 0d 20 20 45 78 69 74 20 |abel 101|.  Exit |
|00002260| 2d 36 30 31 39 0d 40 4c | 61 62 65 6c 20 31 30 32 |-6019.@L|abel 102|
|00002270| 0d 20 20 72 65 74 75 72 | 6e 0d 21 0d 21 0d 21 20 |.  retur|n.!.!.! |
|00002280| 43 61 6c 6c 20 74 68 69 | 73 20 73 75 62 72 20 69 |Call thi|s subr i|
|00002290| 66 20 79 6f 75 20 64 6f | 6e 27 74 20 63 61 72 65 |f you do|n't care|
|000022a0| 20 61 62 6f 75 74 20 79 | 6f 75 72 20 63 6f 6d 6d | about y|our comm|
|000022b0| 61 6e 64 73 0d 21 20 28 | 34 2d 53 69 67 68 74 20 |ands.! (|4-Sight |
|000022c0| 73 6f 6d 65 74 69 6d 65 | 73 20 64 6f 20 74 68 61 |sometime|s do tha|
|000022d0| 74 29 0d 21 0d 40 4c 61 | 62 65 6c 20 31 32 30 0d |t).!.@La|bel 120.|
|000022e0| 20 20 4d 61 74 63 68 43 | 6c 72 0d 20 20 4d 61 74 |  MatchC|lr.  Mat|
|000022f0| 63 68 53 74 72 20 31 20 | 31 32 31 20 22 4f 4b 5c |chStr 1 |121 "OK\|
|00002300| 72 5c 6e 22 0d 20 20 4d | 61 74 63 68 53 74 72 20 |r\n".  M|atchStr |
|00002310| 32 20 31 32 31 20 22 45 | 52 52 4f 52 5c 72 5c 6e |2 121 "E|RROR\r\n|
|00002320| 22 0d 20 20 4d 61 74 63 | 68 52 65 61 64 20 32 30 |".  Matc|hRead 20|
|00002330| 0d 20 20 45 78 69 74 20 | 2d 36 30 31 39 0d 40 4c |.  Exit |-6019.@L|
|00002340| 61 62 65 6c 20 31 32 31 | 0d 20 20 72 65 74 75 72 |abel 121|.  retur|
|00002350| 6e 0d 21 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n.!.....|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 01 00 00 00 01 72 | 00 00 00 72 00 00 00 52 |.......r|...r...R|
|00002390| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000023a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000023b0| 13 46 61 78 20 43 6c 61 | 73 73 32 26 41 52 41 26 |.Fax Cla|ss2&ARA&|
|000023c0| 44 61 74 61 74 61 6f 6f | 6b 20 50 72 65 66 73 e0 |Datataoo|k Prefs.|
|000023d0| 00 00 54 45 58 54 73 4c | 69 4e 01 00 ff ff ff ff |..TEXTsL|iN......|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 a9 b8 67 27 00 00 | 21 f6 00 00 01 8a 00 ff |....g'..|!.......|
|00002400| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00002410| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00002420| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00002430| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00002440| ff ff ff f0 00 00 00 ff | ff ff ff f0 00 00 00 ff |........|........|
|00002450| ff ff ff f0 00 00 00 00 | 00 00 00 10 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 0f ff ff ff 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 0f ff c0 00 00 00 00 00 |........|........|
|00002480| 00 00 00 32 03 42 20 00 | 00 00 05 33 2e 34 2e 32 |...2.B .|...3.4.2|
|00002490| 25 33 2e 34 2e 32 0d a9 | 31 39 39 33 2d 39 38 20 |%3.4.2..|1993-98 |
|000024a0| 53 74 61 6c 6b 65 72 20 | 53 6f 66 74 77 61 72 65 |Stalker |Software|
|000024b0| 2c 20 49 6e 63 2e 00 00 | 00 20 03 42 80 00 00 00 |, Inc...|. .B....|
|000024c0| 05 33 2e 34 2e 32 13 4c | 69 6e 65 53 68 61 72 65 |.3.4.2.L|ineShare|
|000024d0| aa 20 73 6f 66 74 77 61 | 72 65 00 00 00 14 00 00 |. softwa|re......|
|000024e0| 00 00 00 00 00 00 6d 61 | 63 73 c4 4c 69 4e 00 00 |......ma|cs.LiN..|
|000024f0| 00 00 00 00 01 00 00 00 | 01 72 00 00 00 72 00 00 |........|.r...r..|
|00002500| 00 52 01 b0 2d 88 32 ae | 00 00 00 1c 00 52 00 01 |.R..-.2.|.....R..|
|00002510| 76 65 72 73 00 01 00 12 | 72 6f 75 74 00 00 00 2a |vers....|rout...*|
|00002520| 00 01 ff ff 00 00 00 00 | 00 00 00 00 00 02 ff ff |........|........|
|00002530| 00 00 00 36 00 00 00 00 | 00 00 ff ff 00 00 00 5a |...6....|.......Z|
|00002540| 01 b0 45 d4 00 00 00 00 | 00 00 00 00 00 00 00 00 |..E.....|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+