/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / I-L / LineShare 3.1.3 Demo.sit / LineShare 3.1.3 Demo / Old Scripts / Supra Voice&Fax1&ARA&Data-old

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1d 53 75 70 72 61 20 | 56 6f 69 63 65 26 46 61 |..Supra |Voice&Fa|
|00000010| 78 31 26 41 52 41 26 44 | 61 74 61 2d 6f 6c 64 00 |x1&ARA&D|ata-old.|
|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 00 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 30 34 00 | 00 01 ac aa 5a 0f 98 aa |.....04.|....Z...|
|00000060| 5a 0f 98 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 49 15 00 00 |........|....I...|
|00000080| 21 56 33 2e 30 0d 21 0d | 21 24 20 55 73 65 20 74 |!V3.0.!.|!$ Use t|
|00000090| 68 69 73 20 73 63 72 69 | 70 74 20 77 69 74 68 20 |his scri|pt with |
|000000a0| 53 75 70 72 61 20 31 34 | 34 30 30 62 70 73 20 61 |Supra 14|400bps a|
|000000b0| 6e 64 20 39 36 30 30 62 | 70 73 20 66 61 78 20 6d |nd 9600b|ps fax m|
|000000c0| 6f 64 65 6d 73 2e 0d 21 | 24 20 53 75 70 70 6f 72 |odems..!|$ Suppor|
|000000d0| 74 73 3a 20 76 6f 69 63 | 65 2c 20 66 61 78 2c 20 |ts: voic|e, fax, |
|000000e0| 61 6e 64 20 41 52 41 20 | 69 6e 63 6f 6d 69 6e 67 |and ARA |incoming|
|000000f0| 20 63 61 6c 6c 73 2e 0d | 21 0d 21 24 20 4d 61 6b | calls..|!.!$ Mak|
|00000100| 65 20 73 75 72 65 20 74 | 68 61 74 20 2a 43 6c 61 |e sure t|hat *Cla|
|00000110| 73 73 20 31 2a 20 66 61 | 78 20 73 6f 66 74 77 61 |ss 1* fa|x softwa|
|00000120| 72 65 20 69 73 20 69 6e | 73 74 61 6c 6c 65 64 2c |re is in|stalled,|
|00000130| 20 61 6e 64 20 74 68 61 | 74 0d 21 24 20 79 6f 75 | and tha|t.!$ you|
|00000140| 72 20 6d 6f 64 65 6d 20 | 68 61 73 20 76 6f 69 63 |r modem |has voic|
|00000150| 65 2d 63 61 70 61 62 6c | 65 20 52 4f 4d 73 2e 0d |e-capabl|e ROMs..|
|00000160| 21 0d 21 24 20 41 20 68 | 61 72 64 77 61 72 65 20 |!.!$ A h|ardware |
|00000170| 68 61 6e 64 73 68 61 6b | 69 6e 67 20 63 61 62 6c |handshak|ing cabl|
|00000180| 65 20 69 73 20 72 65 71 | 75 69 72 65 64 2e 0d 20 |e is req|uired.. |
|00000190| 0d 5e 32 20 46 61 78 20 | 53 6f 66 74 77 61 72 65 |.^2 Fax |Software|
|000001a0| 3a 20 20 20 20 20 3d 20 | 45 6e 75 6d 28 22 46 61 |:     = |Enum("Fa|
|000001b0| 78 53 54 46 20 43 6c 61 | 73 73 20 31 22 20 3d 20 |xSTF Cla|ss 1" = |
|000001c0| 22 30 22 2c 22 46 61 78 | 69 6c 69 74 61 74 65 22 |"0","Fax|ilitate"|
|000001d0| 3d 22 31 22 2c 22 46 61 | 78 53 54 46 20 43 6c 61 |="1","Fa|xSTF Cla|
|000001e0| 73 73 20 32 22 20 3d 20 | 22 32 22 2c 22 44 65 6c |ss 2" = |"2","Del|
|000001f0| 72 69 6e 61 22 3d 22 33 | 22 2c 22 34 2d 53 69 67 |rina"="3|","4-Sig|
|00000200| 68 74 22 3d 22 34 22 29 | 20 22 30 22 0d 5e 33 20 |ht"="4")| "0".^3 |
|00000210| 45 72 72 6f 72 20 43 6f | 72 72 65 63 74 69 6f 6e |Error Co|rrection|
|00000220| 3a 20 3d 20 42 6f 6f 6c | 28 22 45 6e 61 62 6c 65 |: = Bool|("Enable|
|00000230| 64 22 3d 22 5c 4e 33 22 | 2c 22 44 69 73 61 62 6c |d"="\N3"|,"Disabl|
|00000240| 65 64 22 3d 22 5c 4e 30 | 22 29 20 22 5c 4e 30 22 |ed"="\N0|") "\N0"|
|00000250| 0d 5e 34 20 48 61 6e 64 | 73 68 61 6b 65 20 77 69 |.^4 Hand|shake wi|
|00000260| 72 65 73 3a 20 20 3d 20 | 42 6f 6f 6c 28 22 42 6f |res:  = |Bool("Bo|
|00000270| 74 68 22 3d 22 26 44 30 | 5c 4b 30 22 2c 22 43 54 |th"="&D0|\K0","CT|
|00000280| 53 20 6f 6e 6c 79 22 3d | 22 26 44 32 5c 4b 35 22 |S only"=|"&D2\K5"|
|00000290| 29 20 22 26 44 32 5c 4b | 35 22 0d 21 20 2d 2d 2d |) "&D2\K|5".! ---|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 0d | 21 20 52 65 73 65 74 74 |-------.|! Resett|
|000002d0| 69 6e 67 20 74 68 65 20 | 6d 6f 64 65 6d 3a 0d 21 |ing the |modem:.!|
|000002e0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 40 48 41 4e |--------|---.@HAN|
|00000310| 47 55 50 0d 20 20 53 65 | 72 52 65 73 65 74 20 31 |GUP.  Se|rReset 1|
|00000320| 39 32 30 30 2c 30 2c 38 | 2c 31 0d 20 20 48 73 52 |9200,0,8|,1.  HsR|
|00000330| 65 73 65 74 20 30 2c 30 | 2c 31 37 2c 31 39 2c 30 |eset 0,0|,17,19,0|
|00000340| 2c 30 0d 20 20 46 6c 75 | 73 68 0d 20 20 53 65 74 |,0.  Flu|sh.  Set|
|00000350| 54 72 69 65 73 20 32 0d | 20 20 77 72 69 74 65 20 |Tries 2.|  write |
|00000360| 22 41 54 48 30 53 30 3d | 30 5c 72 22 0d 20 20 46 |"ATH0S0=|0\r".  F|
|00000370| 6c 75 73 68 0d 20 0d 21 | 0d 21 20 54 72 79 20 74 |lush. .!|.! Try t|
|00000380| 6f 20 63 61 74 63 68 20 | 74 68 65 20 22 4f 4b 22 |o catch |the "OK"|
|00000390| 20 61 6e 73 77 65 72 2c | 20 75 73 65 20 74 68 65 | answer,| use the|
|000003a0| 20 45 73 63 61 70 65 20 | 73 65 71 20 61 6e 64 20 | Escape |seq and |
|000003b0| 44 54 52 20 74 72 61 6e | 73 69 74 69 6f 6e 73 0d |DTR tran|sitions.|
|000003c0| 21 20 74 6f 20 65 6e 74 | 65 72 20 74 68 65 20 63 |! to ent|er the c|
|000003d0| 6f 6d 6d 61 6e 64 20 6d | 6f 64 65 0d 21 0d 40 4c |ommand m|ode.!.@L|
|000003e0| 61 62 65 6c 20 31 0d 20 | 20 77 72 69 74 65 20 22 |abel 1. | write "|
|000003f0| 41 54 2b 56 43 3d 30 5c | 72 22 0d 20 20 66 6c 75 |AT+VC=0\|r".  flu|
|00000400| 73 68 0d 20 20 77 72 69 | 74 65 20 22 41 54 26 46 |sh.  wri|te "AT&F|
|00000410| 31 56 31 5c 72 22 0d 20 | 20 6d 61 74 63 68 63 6c |1V1\r". | matchcl|
|00000420| 72 0d 20 20 6d 61 74 63 | 68 73 74 72 20 31 20 32 |r.  matc|hstr 1 2|
|00000430| 20 22 4f 4b 5c 72 5c 6e | 22 0d 20 20 6d 61 74 63 | "OK\r\n|".  matc|
|00000440| 68 72 65 61 64 20 32 30 | 0d 20 20 43 68 72 64 65 |hread 20|.  Chrde|
|00000450| 6c 61 79 20 31 0d 20 20 | 57 72 69 74 65 20 22 2b |lay 1.  |Write "+|
|00000460| 2b 2b 22 0d 20 20 43 68 | 72 64 65 6c 61 79 20 30 |++".  Ch|rdelay 0|
|00000470| 0d 20 20 44 74 72 43 6c | 65 61 72 0d 20 20 53 42 |.  DtrCl|ear.  SB|
|00000480| 72 65 61 6b 0d 20 20 44 | 74 72 53 65 74 0d 20 0d |reak.  D|trSet. .|
|00000490| 20 20 77 72 69 74 65 20 | 22 41 54 2b 56 43 3d 30 |  write |"AT+VC=0|
|000004a0| 5c 72 22 0d 20 20 6d 61 | 74 63 68 63 6c 72 0d 20 |\r".  ma|tchclr. |
|000004b0| 20 6d 61 74 63 68 73 74 | 72 20 31 20 31 20 22 4f | matchst|r 1 1 "O|
|000004c0| 4b 5c 72 5c 6e 22 0d 20 | 20 6d 61 74 63 68 72 65 |K\r\n". | matchre|
|000004d0| 61 64 20 31 30 0d 21 0d | 20 20 57 72 69 74 65 20 |ad 10.!.|  Write |
|000004e0| 22 41 54 45 30 56 31 5c | 72 22 0d 20 20 4d 61 74 |"ATE0V1\|r".  Mat|
|000004f0| 63 68 73 74 72 20 31 20 | 31 20 22 4f 4b 5c 72 5c |chstr 1 |1 "OK\r\|
|00000500| 6e 22 0d 20 20 4d 61 74 | 63 68 72 65 61 64 20 31 |n".  Mat|chread 1|
|00000510| 30 0d 20 0d 20 20 77 72 | 69 74 65 20 22 41 54 48 |0. .  wr|ite "ATH|
|00000520| 30 5c 72 22 0d 20 20 6d | 61 74 63 68 73 74 72 20 |0\r".  m|atchstr |
|00000530| 31 20 31 20 22 4f 4b 5c | 72 5c 6e 22 0d 20 20 6d |1 1 "OK\|r\n".  m|
|00000540| 61 74 63 68 72 65 61 64 | 20 31 30 0d 20 20 44 65 |atchread| 10.  De|
|00000550| 63 54 72 69 65 73 0d 20 | 20 49 66 54 72 69 65 73 |cTries. | IfTries|
|00000560| 20 30 20 31 0d 20 20 65 | 78 69 74 20 2d 36 30 31 | 0 1.  e|xit -601|
|00000570| 39 0d 20 0d 40 4c 61 62 | 65 6c 20 32 0d 20 20 53 |9. .@Lab|el 2.  S|
|00000580| 65 72 52 65 73 65 74 20 | 31 39 32 30 30 2c 30 2c |erReset |19200,0,|
|00000590| 38 2c 31 0d 20 20 4a 73 | 72 20 38 30 0d 20 20 57 |8,1.  Js|r 80.  W|
|000005a0| 72 69 74 65 20 22 41 54 | 2b 46 43 4c 41 53 53 3d |rite "AT|+FCLASS=|
|000005b0| 30 3b 2b 46 41 45 3d 30 | 5c 72 22 0d 20 20 4a 73 |0;+FAE=0|\r".  Js|
|000005c0| 72 20 31 30 30 0d 20 20 | 65 78 69 74 20 30 0d 20 |r 100.  |exit 0. |
|000005d0| 0d 20 0d 21 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. .! ---|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000600| 21 20 20 20 20 52 65 63 | 65 69 76 69 6e 67 20 69 |!    Rec|eiving i|
|00000610| 6e 63 6f 6d 69 6e 67 20 | 63 61 6c 6c 73 0d 21 20 |ncoming |calls.! |
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 40 41 4e 53 57 |--------|--.@ANSW|
|00000650| 45 52 0d 20 20 53 65 72 | 52 65 73 65 74 20 31 39 |ER.  Ser|Reset 19|
|00000660| 32 30 30 2c 30 2c 38 2c | 31 0d 40 4c 61 62 65 6c |200,0,8,|1.@Label|
|00000670| 20 33 0d 20 20 4a 73 72 | 20 37 30 0d 20 0d 20 20 | 3.  Jsr| 70. .  |
|00000680| 69 66 4f 70 65 6e 20 22 | 56 6f 69 63 65 22 20 31 |ifOpen "|Voice" 1|
|00000690| 31 0d 21 0d 21 20 57 61 | 69 74 69 6e 67 20 66 6f |1.!.! Wa|iting fo|
|000006a0| 72 20 46 61 78 2f 41 52 | 41 20 63 61 6c 6c 73 20 |r Fax/AR|A calls |
|000006b0| 6f 6e 6c 79 20 28 6e 6f | 20 56 6f 69 63 65 20 41 |only (no| Voice A|
|000006c0| 70 70 20 72 75 6e 6e 69 | 6e 67 29 0d 20 20 4e 6f |pp runni|ng).  No|
|000006d0| 74 65 20 22 56 6f 69 63 | 65 20 41 70 70 6c 69 63 |te "Voic|e Applic|
|000006e0| 61 74 69 6f 6e 20 69 73 | 20 6e 6f 74 20 72 75 6e |ation is| not run|
|000006f0| 6e 69 6e 67 2e 2e 2e 22 | 0d 20 0d 21 20 20 4e 6f |ning..."|. .!  No|
|00000700| 20 56 6f 69 63 65 20 41 | 70 70 20 72 75 6e 6e 69 | Voice A|pp runni|
|00000710| 6e 67 20 2d 2d 20 74 75 | 72 6e 20 6f 66 66 20 63 |ng -- tu|rn off c|
|00000720| 61 6c 6c 65 72 20 49 44 | 0d 20 20 57 72 69 74 65 |aller ID|.  Write|
|00000730| 20 22 41 54 23 43 49 44 | 3d 30 5c 72 22 0d 20 20 | "AT#CID|=0\r".  |
|00000740| 4a 73 72 20 31 30 30 0d | 20 0d 21 20 20 54 68 69 |Jsr 100.| .!  Thi|
|00000750| 73 20 77 6f 75 6c 64 20 | 61 6c 6c 6f 77 20 75 73 |s would |allow us|
|00000760| 20 74 6f 20 6e 6f 74 20 | 67 6f 20 69 6e 74 6f 20 | to not |go into |
|00000770| 41 41 20 6d 6f 64 65 20 | 69 66 20 77 65 20 63 6f |AA mode |if we co|
|00000780| 75 6c 64 20 68 61 76 65 | 20 6d 6f 72 65 20 6c 61 |uld have| more la|
|00000790| 62 65 6c 73 2e 0d 20 20 | 69 66 4f 70 65 6e 20 22 |bels..  |ifOpen "|
|000007a0| 41 52 41 22 20 20 34 0d | 20 20 49 66 4f 70 65 6e |ARA"  4.|  IfOpen|
|000007b0| 20 22 44 61 74 61 22 20 | 34 0d 20 20 69 66 4f 70 | "Data" |4.  ifOp|
|000007c0| 65 6e 20 22 46 61 78 22 | 20 20 34 0d 20 20 4e 6f |en "Fax"|  4.  No|
|000007d0| 74 65 20 22 4e 6f 20 73 | 65 72 76 69 63 65 73 20 |te "No s|ervices |
|000007e0| 61 63 74 69 76 65 3a 20 | 74 68 65 20 6d 6f 64 65 |active: |the mode|
|000007f0| 6d 20 77 69 6c 6c 20 6e | 6f 74 20 72 65 73 70 6f |m will n|ot respo|
|00000800| 6e 64 2e 22 0d 20 20 50 | 61 75 73 65 20 36 30 30 |nd.".  P|ause 600|
|00000810| 0d 20 20 4a 75 6d 70 20 | 33 0d 0d 21 20 46 61 78 |.  Jump |3..! Fax|
|00000820| 2f 44 61 74 61 20 6f 6e | 6c 79 20 28 6e 6f 20 76 |/Data on|ly (no v|
|00000830| 6f 69 63 65 29 0d 40 4c | 61 62 65 6c 20 34 0d 20 |oice).@L|abel 4. |
|00000840| 20 4a 73 72 20 31 33 30 | 0d 20 20 4a 73 72 20 35 | Jsr 130|.  Jsr 5|
|00000850| 35 0d 21 0d 21 20 46 65 | 74 63 68 20 74 68 65 20 |5.!.! Fe|tch the |
|00000860| 74 75 62 65 20 61 66 74 | 65 72 20 53 30 20 72 69 |tube aft|er S0 ri|
|00000870| 6e 67 73 0d 20 20 53 65 | 74 56 61 72 20 42 20 22 |ngs.  Se|tVar B "|
|00000880| 53 30 3d 32 22 0d 20 20 | 47 65 74 43 6f 6d 6d 61 |S0=2".  |GetComma|
|00000890| 6e 64 20 41 20 22 46 61 | 78 22 20 22 53 30 22 0d |nd A "Fa|x" "S0".|
|000008a0| 20 20 49 66 53 74 72 20 | 41 20 35 20 22 53 30 3d |  IfStr |A 5 "S0=|
|000008b0| 30 22 0d 20 20 49 66 53 | 74 72 20 41 20 35 20 22 |0".  IfS|tr A 5 "|
|000008c0| 22 0d 20 20 53 65 74 56 | 61 72 20 42 20 22 5e 41 |".  SetV|ar B "^A|
|000008d0| 22 0d 40 4c 61 62 65 6c | 20 35 0d 20 20 57 72 69 |".@Label| 5.  Wri|
|000008e0| 74 65 20 22 41 54 5e 42 | 5c 72 22 0d 20 20 4a 73 |te "AT^B|\r".  Js|
|000008f0| 72 20 31 30 30 0d 21 0d | 21 20 54 65 6c 6c 20 74 |r 100.!.|! Tell t|
|00000900| 68 65 20 6d 6f 64 65 6d | 20 74 6f 20 64 65 74 65 |he modem| to dete|
|00000910| 72 6d 69 6e 65 20 74 68 | 65 20 74 79 70 65 20 6f |rmine th|e type o|
|00000920| 66 20 74 68 65 20 69 6e | 63 6f 6d 69 6e 67 20 63 |f the in|coming c|
|00000930| 61 6c 6c 0d 21 20 53 77 | 69 74 63 68 20 74 6f 20 |all.! Sw|itch to |
|00000940| 74 68 65 20 22 6e 75 6d | 65 72 69 63 22 20 6d 6f |the "num|eric" mo|
|00000950| 64 65 2c 20 69 66 20 6e | 65 63 65 73 73 61 72 79 |de, if n|ecessary|
|00000960| 0d 20 20 53 65 74 56 61 | 72 20 41 20 22 31 22 0d |.  SetVa|r A "1".|
|00000970| 20 20 4a 73 72 20 35 36 | 0d 0d 21 0d 21 20 45 76 |  Jsr 56|..!.! Ev|
|00000980| 65 72 79 74 68 69 6e 67 | 20 69 73 20 72 65 61 64 |erything| is read|
|00000990| 79 20 2d 20 6c 65 74 27 | 73 20 73 69 74 20 61 6e |y - let'|s sit an|
|000009a0| 64 20 77 61 69 74 20 66 | 6f 72 20 61 20 63 61 6c |d wait f|or a cal|
|000009b0| 6c 0d 20 20 4e 6f 74 65 | 20 22 57 61 69 74 69 6e |l.  Note| "Waitin|
|000009c0| 67 20 66 6f 72 20 61 20 | 66 61 78 20 6f 72 20 41 |g for a |fax or A|
|000009d0| 52 41 2f 44 61 74 61 20 | 63 61 6c 6c 2e 2e 2e 22 |RA/Data |call..."|
|000009e0| 0d 20 20 4a 73 72 20 31 | 37 35 0d 20 20 49 66 53 |.  Jsr 1|75.  IfS|
|000009f0| 74 72 20 41 20 32 30 20 | 22 44 61 74 61 22 0d 20 |tr A 20 |"Data". |
|00000a00| 20 49 66 53 74 72 20 41 | 20 34 30 20 22 46 61 78 | IfStr A| 40 "Fax|
|00000a10| 31 22 0d 20 20 49 66 53 | 74 72 20 41 20 34 35 20 |1".  IfS|tr A 45 |
|00000a20| 22 46 61 78 32 22 0d 20 | 20 4a 75 6d 70 20 33 0d |"Fax2". | Jump 3.|
|00000a30| 0d 21 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 56 6f |.! -----|----- Vo|
|00000a40| 69 63 65 20 4d 6f 64 65 | 20 2d 2d 2d 2d 2d 2d 2d |ice Mode| -------|
|00000a50| 2d 2d 0d 21 20 63 68 65 | 63 6b 20 74 6f 20 73 65 |--.! che|ck to se|
|00000a60| 65 20 69 66 20 74 68 65 | 20 76 6f 69 63 65 20 63 |e if the| voice c|
|00000a70| 6f 64 65 20 68 61 73 20 | 62 65 65 6e 20 64 6f 77 |ode has |been dow|
|00000a80| 6e 6c 6f 61 64 65 64 0d | 21 20 69 66 20 6e 6f 74 |nloaded.|! if not|
|00000a90| 2c 20 74 65 6c 6c 20 50 | 68 6f 6e 65 50 72 6f 20 |, tell P|honePro |
|00000aa0| 74 6f 20 64 6f 77 6e 6c | 6f 61 64 20 69 74 2e 0d |to downl|oad it..|
|00000ab0| 21 0d 40 4c 61 62 65 6c | 20 31 31 0d 20 20 4e 6f |!.@Label| 11.  No|
|00000ac0| 74 65 20 22 43 68 65 63 | 6b 69 6e 67 20 74 68 65 |te "Chec|king the|
|00000ad0| 20 6d 6f 64 65 6d 2e 2e | 2e 22 0d 20 20 57 72 69 | modem..|.".  Wri|
|00000ae0| 74 65 20 22 41 54 2b 56 | 43 3d 30 5c 72 22 0d 20 |te "AT+V|C=0\r". |
|00000af0| 20 4a 73 72 20 31 32 30 | 20 0d 20 20 57 72 69 74 | Jsr 120| .  Writ|
|00000b00| 65 20 22 41 54 2b 56 43 | 3d 31 5c 72 22 0d 20 20 |e "AT+VC|=1\r".  |
|00000b10| 4d 61 74 63 68 43 6c 72 | 0d 20 20 4d 61 74 63 68 |MatchClr|.  Match|
|00000b20| 53 74 72 20 31 20 31 34 | 20 22 4f 4b 5c 72 5c 6e |Str 1 14| "OK\r\n|
|00000b30| 22 0d 20 20 4d 61 74 63 | 68 53 74 72 20 32 20 31 |".  Matc|hStr 2 1|
|00000b40| 33 20 22 45 52 52 4f 52 | 5c 72 5c 6e 22 0d 20 20 |3 "ERROR|\r\n".  |
|00000b50| 4d 61 74 63 68 52 65 61 | 64 20 32 30 0d 20 20 45 |MatchRea|d 20.  E|
|00000b60| 78 69 74 20 2d 36 30 31 | 39 0d 21 0d 21 20 20 74 |xit -601|9.!.!  t|
|00000b70| 65 6c 6c 20 74 68 65 20 | 56 6f 69 63 65 20 54 6f |ell the |Voice To|
|00000b80| 6f 6c 20 74 6f 20 64 6f | 77 6e 6c 6f 61 64 20 74 |ol to do|wnload t|
|00000b90| 68 65 20 76 6f 69 63 65 | 20 63 6f 64 65 0d 21 0d |he voice| code.!.|
|00000ba0| 40 4c 61 62 65 6c 20 31 | 33 0d 20 20 4e 6f 74 65 |@Label 1|3.  Note|
|00000bb0| 20 22 44 6f 77 6e 6c 6f | 61 64 69 6e 67 20 76 6f | "Downlo|ading vo|
|00000bc0| 69 63 65 20 63 6f 64 65 | 20 74 6f 20 6d 6f 64 65 |ice code| to mode|
|00000bd0| 6d 2e 2e 2e 22 0d 20 20 | 50 61 75 73 65 20 32 30 |m...".  |Pause 20|
|00000be0| 0d 20 20 51 75 65 75 65 | 49 6e 70 75 74 20 22 5c |.  Queue|Input "\|
|00000bf0| 72 5c 6e 4c 4f 41 44 5c | 72 5c 6e 22 0d 20 20 41 |r\nLOAD\|r\n".  A|
|00000c00| 74 74 61 63 68 20 22 56 | 6f 69 63 65 22 20 28 4d |ttach "V|oice" (M|
|00000c10| 61 73 74 65 72 29 0d 20 | 0d 40 4c 61 62 65 6c 20 |aster). |.@Label |
|00000c20| 31 34 0d 20 20 57 72 69 | 74 65 20 22 41 54 2b 56 |14.  Wri|te "AT+V|
|00000c30| 43 3d 30 5c 72 22 0d 20 | 20 4a 73 72 20 31 30 30 |C=0\r". | Jsr 100|
|00000c40| 0d 20 0d 21 0d 21 20 73 | 69 74 20 61 6e 64 20 77 |. .!.! s|it and w|
|00000c50| 61 69 74 20 66 6f 72 20 | 61 20 63 61 6c 6c 20 66 |ait for |a call f|
|00000c60| 6f 72 20 75 70 20 74 6f | 20 33 30 20 73 65 63 6f |or up to| 30 seco|
|00000c70| 6e 64 73 2c 20 74 68 65 | 6e 20 72 65 2d 69 6e 69 |nds, the|n re-ini|
|00000c80| 74 69 61 74 65 20 74 68 | 65 20 6d 6f 64 65 6d 0d |tiate th|e modem.|
|00000c90| 21 20 47 65 74 20 63 61 | 6c 6c 65 72 20 49 44 2c |! Get ca|ller ID,|
|00000ca0| 20 69 66 20 76 6f 69 63 | 65 20 65 6e 61 62 6c 65 | if voic|e enable|
|00000cb0| 64 0d 21 21 20 51 75 65 | 75 65 49 6e 70 75 74 20 |d.!! Que|ueInput |
|00000cc0| 22 5c 72 5c 6e 47 45 54 | 5f 43 41 4c 4c 45 52 5f |"\r\nGET|_CALLER_|
|00000cd0| 49 44 5f 46 4c 41 47 5c | 72 5c 6e 22 0d 21 21 20 |ID_FLAG\|r\n".!! |
|00000ce0| 41 74 74 61 63 68 20 22 | 56 6f 69 63 65 22 20 28 |Attach "|Voice" (|
|00000cf0| 4d 61 73 74 65 72 29 0d | 21 21 20 53 65 74 56 61 |Master).|!! SetVa|
|00000d00| 72 20 42 20 22 5e 24 22 | 0d 21 21 20 57 72 69 74 |r B "^$"|.!! Writ|
|00000d10| 65 20 22 41 54 23 43 49 | 44 3d 5e 42 5c 72 22 0d |e "AT#CI|D=^B\r".|
|00000d20| 21 21 20 4a 73 72 20 31 | 30 30 0d 20 0d 20 20 4e |!! Jsr 1|00. .  N|
|00000d30| 6f 74 65 20 22 57 61 69 | 74 69 6e 67 20 66 6f 72 |ote "Wai|ting for|
|00000d40| 20 61 20 56 6f 69 63 65 | 2f 46 61 78 2f 41 52 41 | a Voice|/Fax/ARA|
|00000d50| 2f 44 61 74 61 20 63 61 | 6c 6c 22 0d 20 20 4d 61 |/Data ca|ll".  Ma|
|00000d60| 74 63 68 43 6c 72 0d 20 | 20 4d 61 74 63 68 53 74 |tchClr. | MatchSt|
|00000d70| 72 20 31 20 31 35 20 22 | 52 49 4e 47 5c 72 5c 6e |r 1 15 "|RING\r\n|
|00000d80| 22 0d 20 20 4d 61 74 63 | 68 52 65 61 64 20 31 38 |".  Matc|hRead 18|
|00000d90| 30 30 0d 20 20 4a 75 6d | 70 20 33 0d 20 0d 40 4c |00.  Jum|p 3. .@L|
|00000da0| 61 62 65 6c 20 31 35 0d | 20 20 4e 6f 74 65 20 22 |abel 15.|  Note "|
|00000db0| 52 69 6e 67 2e 2e 2e 22 | 0d 20 20 51 75 65 75 65 |Ring..."|.  Queue|
|00000dc0| 49 6e 70 75 74 20 22 5c | 72 5c 6e 52 49 4e 47 5c |Input "\|r\nRING\|
|00000dd0| 72 5c 6e 22 0d 20 20 41 | 74 74 61 63 68 20 22 56 |r\n".  A|ttach "V|
|00000de0| 6f 69 63 65 22 20 28 4d | 61 73 74 65 72 29 0d 20 |oice" (M|aster). |
|00000df0| 20 57 72 69 74 65 20 22 | 2b 2b 2b 22 0d 20 20 4e | Write "|+++".  N|
|00000e00| 6f 74 65 20 22 53 77 69 | 74 63 68 69 6e 67 20 66 |ote "Swi|tching f|
|00000e10| 72 6f 6d 20 76 6f 69 63 | 65 2e 2e 2e 22 0d 0d 21 |rom voic|e..."..!|
|00000e20| 20 66 61 6c 6c 20 74 68 | 72 6f 75 67 68 20 69 66 | fall th|rough if|
|00000e30| 20 74 68 65 20 63 61 6c | 6c 20 69 73 20 6e 6f 74 | the cal|l is not|
|00000e40| 20 61 20 76 6f 69 63 65 | 20 63 61 6c 6c 20 28 61 | a voice| call (a|
|00000e50| 73 20 69 6e 64 69 63 61 | 74 65 64 20 62 79 20 74 |s indica|ted by t|
|00000e60| 68 65 20 74 65 6c 65 70 | 68 6f 6e 65 20 74 6f 6f |he telep|hone too|
|00000e70| 6c 29 0d 21 0d 20 20 53 | 65 74 56 61 72 20 41 20 |l).!.  S|etVar A |
|00000e80| 22 5e 24 22 0d 20 20 53 | 65 72 52 65 73 65 74 20 |"^$".  S|erReset |
|00000e90| 31 39 32 30 30 2c 30 2c | 38 2c 31 0d 20 20 48 73 |19200,0,|8,1.  Hs|
|00000ea0| 52 65 73 65 74 20 30 2c | 30 2c 31 37 2c 31 39 2c |Reset 0,|0,17,19,|
|00000eb0| 30 2c 30 0d 20 20 4a 73 | 72 20 38 30 0d 20 0d 20 |0,0.  Js|r 80. . |
|00000ec0| 20 49 66 53 74 72 20 41 | 20 31 37 20 22 46 61 78 | IfStr A| 17 "Fax|
|00000ed0| 22 0d 20 20 49 66 53 74 | 72 20 41 20 31 38 20 22 |".  IfSt|r A 18 "|
|00000ee0| 41 52 41 22 0d 20 20 45 | 78 69 74 20 2d 36 30 31 |ARA".  E|xit -601|
|00000ef0| 39 0d 20 0d 21 0d 21 20 | 46 6f 72 63 65 20 74 6f |9. .!.! |Force to|
|00000f00| 20 61 6e 73 77 65 72 20 | 61 20 46 61 78 20 63 61 | answer |a Fax ca|
|00000f10| 6c 6c 0d 21 0d 40 4c 61 | 62 65 6c 20 31 37 0d 20 |ll.!.@La|bel 17. |
|00000f20| 20 4e 6f 74 65 20 22 41 | 6e 73 77 65 72 69 6e 67 | Note "A|nswering|
|00000f30| 20 61 20 66 61 78 20 63 | 61 6c 6c 2e 2e 2e 22 0d | a fax c|all...".|
|00000f40| 20 20 53 65 74 56 61 72 | 20 41 20 22 30 22 0d 20 |  SetVar| A "0". |
|00000f50| 20 4a 73 72 20 35 36 0d | 20 20 57 72 69 74 65 20 | Jsr 56.|  Write |
|00000f60| 22 41 54 41 5c 72 22 0d | 20 20 4a 73 72 20 31 37 |"ATA\r".|  Jsr 17|
|00000f70| 35 0d 20 20 69 66 53 74 | 72 20 41 20 34 30 20 22 |5.  ifSt|r A 40 "|
|00000f80| 46 61 78 31 22 0d 20 20 | 69 66 53 74 72 20 41 20 |Fax1".  |ifStr A |
|00000f90| 34 35 20 22 46 61 78 32 | 22 0d 20 20 57 72 69 74 |45 "Fax2|".  Writ|
|00000fa0| 65 20 22 5c 72 22 0d 20 | 20 45 78 69 74 20 2d 36 |e "\r". | Exit -6|
|00000fb0| 30 31 39 0d 0d 21 0d 21 | 20 46 6f 72 63 65 20 74 |019..!.!| Force t|
|00000fc0| 6f 20 61 6e 73 77 65 72 | 20 61 6e 20 41 52 41 2f |o answer| an ARA/|
|00000fd0| 44 61 74 61 20 63 61 6c | 6c 0d 21 0d 40 4c 61 62 |Data cal|l.!.@Lab|
|00000fe0| 65 6c 20 31 38 0d 20 20 | 4e 6f 74 65 20 22 41 6e |el 18.  |Note "An|
|00000ff0| 73 77 65 72 69 6e 67 20 | 61 20 64 61 74 61 20 63 |swering |a data c|
|00001000| 61 6c 6c 2e 2e 2e 22 0d | 20 20 4a 73 72 20 37 30 |all...".|  Jsr 70|
|00001010| 0d 21 20 53 65 74 20 74 | 68 65 20 63 6f 6d 6d 75 |.! Set t|he commu|
|00001020| 6e 69 63 61 74 69 6f 6e | 20 6f 70 74 69 6f 6e 73 |nication| options|
|00001030| 3a 0d 20 20 4a 73 72 20 | 35 35 0d 20 20 57 72 69 |:.  Jsr |55.  Wri|
|00001040| 74 65 20 22 41 54 2b 46 | 41 41 3d 30 3b 2b 46 43 |te "AT+F|AA=0;+FC|
|00001050| 4c 41 53 53 3d 30 5c 72 | 22 0d 20 20 4a 73 72 20 |LASS=0\r|".  Jsr |
|00001060| 31 30 30 0d 20 20 57 72 | 69 74 65 20 22 41 54 41 |100.  Wr|ite "ATA|
|00001070| 5c 72 22 0d 20 20 4a 73 | 72 20 31 38 30 0d 20 20 |\r".  Js|r 180.  |
|00001080| 49 66 53 74 72 20 41 20 | 32 30 20 22 44 61 74 61 |IfStr A |20 "Data|
|00001090| 22 0d 20 20 57 72 69 74 | 65 20 22 5c 72 22 0d 20 |".  Writ|e "\r". |
|000010a0| 20 45 78 69 74 20 2d 36 | 30 31 39 0d 0d 21 0d 21 | Exit -6|019..!.!|
|000010b0| 20 44 61 74 61 20 63 6f | 6e 6e 65 63 74 69 6f 6e | Data co|nnection|
|000010c0| 20 68 61 73 20 62 65 65 | 6e 20 65 73 74 61 62 6c | has bee|n establ|
|000010d0| 69 73 68 65 64 20 28 77 | 65 20 72 65 61 64 20 22 |ished (w|e read "|
|000010e0| 43 4f 4e 4e 45 43 54 22 | 29 0d 21 20 50 75 74 20 |CONNECT"|).! Put |
|000010f0| 74 68 65 20 22 43 4f 4e | 4e 45 43 54 22 20 62 61 |the "CON|NECT" ba|
|00001100| 63 6b 20 74 6f 20 74 68 | 65 20 62 75 66 66 65 72 |ck to th|e buffer|
|00001110| 20 61 6e 64 20 61 74 74 | 61 63 68 20 74 68 65 20 | and att|ach the |
|00001120| 22 44 61 74 61 22 20 73 | 75 62 50 6f 72 74 0d 21 |"Data" s|ubPort.!|
|00001130| 20 69 66 20 69 74 20 77 | 61 73 20 61 6e 20 69 6e | if it w|as an in|
|00001140| 63 6f 6d 69 6e 67 20 63 | 61 6c 6c 2c 20 70 75 74 |coming c|all, put|
|00001150| 20 74 68 65 20 22 52 49 | 4e 47 22 20 62 65 66 6f | the "RI|NG" befo|
|00001160| 72 65 20 74 68 65 20 22 | 43 4f 4e 4e 45 43 54 22 |re the "|CONNECT"|
|00001170| 0d 21 0d 40 4c 61 62 65 | 6c 20 32 30 0d 20 20 49 |.!.@Labe|l 20.  I|
|00001180| 66 4f 70 65 6e 20 22 44 | 61 74 61 22 20 32 31 0d |fOpen "D|ata" 21.|
|00001190| 20 20 4a 75 6d 70 20 33 | 30 0d 40 4c 61 62 65 6c |  Jump 3|0.@Label|
|000011a0| 20 32 31 0d 20 20 49 66 | 4f 70 65 6e 20 22 41 52 | 21.  If|Open "AR|
|000011b0| 41 22 20 32 32 0d 20 20 | 4a 75 6d 70 20 33 35 0d |A" 22.  |Jump 35.|
|000011c0| 40 4c 61 62 65 6c 20 32 | 32 0d 20 20 4e 6f 74 65 |@Label 2|2.  Note|
|000011d0| 20 22 57 61 69 74 69 6e | 67 20 66 6f 72 20 61 6e | "Waitin|g for an|
|000011e0| 20 41 52 41 20 66 72 61 | 6d 65 22 0d 20 20 4d 61 | ARA fra|me".  Ma|
|000011f0| 74 63 68 43 6c 72 0d 20 | 20 4d 61 74 63 68 53 74 |tchClr. | MatchSt|
|00001200| 72 20 31 20 32 33 20 22 | 5e 24 5c 72 22 0d 20 20 |r 1 23 "|^$\r".  |
|00001210| 4d 61 74 63 68 53 74 72 | 20 32 20 32 38 20 22 5c |MatchStr| 2 28 "\|
|00001220| 30 38 5c 30 31 5c 30 33 | 5c 31 34 5c 30 34 5c 30 |08\01\03|\14\04\0|
|00001230| 33 5c 30 30 5c 30 38 5c | 32 35 30 5c 31 36 5c 30 |3\00\08\|250\16\0|
|00001240| 33 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 33 20 |3".  Mat|chStr 3 |
|00001250| 32 39 20 22 5c 30 31 5c | 32 37 5c 30 32 5c 32 39 |29 "\01\|27\02\29|
|00001260| 5c 30 31 5c 30 32 5c 30 | 31 5c 30 36 22 0d 20 20 |\01\02\0|1\06".  |
|00001270| 4d 61 74 63 68 52 65 61 | 64 20 34 30 0d 20 20 4a |MatchRea|d 40.  J|
|00001280| 75 6d 70 20 32 34 0d 40 | 4c 61 62 65 6c 20 32 33 |ump 24.@|Label 23|
|00001290| 0d 20 20 51 75 65 75 65 | 49 6e 70 75 74 20 22 5e |.  Queue|Input "^|
|000012a0| 24 5c 72 22 0d 40 4c 61 | 62 65 6c 20 32 34 0d 20 |$\r".@La|bel 24. |
|000012b0| 20 4e 6f 74 65 20 22 4e | 6f 6e 2d 41 52 41 20 63 | Note "N|on-ARA c|
|000012c0| 61 6c 6c 22 0d 20 20 4a | 75 6d 70 20 33 35 0d 0d |all".  J|ump 35..|
|000012d0| 40 4c 61 62 65 6c 20 32 | 38 0d 20 20 4e 6f 74 65 |@Label 2|8.  Note|
|000012e0| 20 22 41 52 41 20 31 2e | 30 20 63 61 6c 6c 22 0d | "ARA 1.|0 call".|
|000012f0| 20 20 4a 75 6d 70 20 33 | 30 0d 40 4c 61 62 65 6c |  Jump 3|0.@Label|
|00001300| 20 32 39 0d 20 20 4e 6f | 74 65 20 22 41 52 41 20 | 29.  No|te "ARA |
|00001310| 32 2e 30 20 63 61 6c 6c | 22 0d 20 20 4a 75 6d 70 |2.0 call|".  Jump|
|00001320| 20 33 30 0d 0d 40 4c 61 | 62 65 6c 20 33 30 0d 20 | 30..@La|bel 30. |
|00001330| 20 51 75 65 75 65 49 6e | 70 75 74 20 22 5c 72 5c | QueueIn|put "\r\|
|00001340| 6e 43 41 52 52 49 45 52 | 20 5e 42 5c 72 5c 6e 22 |nCARRIER| ^B\r\n"|
|00001350| 20 20 0d 20 20 49 66 53 | 74 72 20 43 20 33 31 20 |  .  IfS|tr C 31 |
|00001360| 22 4e 4f 4e 45 22 0d 20 | 20 51 75 65 75 65 49 6e |"NONE". | QueueIn|
|00001370| 70 75 74 20 22 5c 72 5c | 6e 52 45 4c 5c 72 5c 6e |put "\r\|nREL\r\n|
|00001380| 22 0d 40 4c 61 62 65 6c | 20 33 31 0d 20 20 49 66 |".@Label| 31.  If|
|00001390| 4f 72 69 67 69 6e 61 74 | 65 20 33 32 0d 20 20 51 |Originat|e 32.  Q|
|000013a0| 75 65 75 65 49 6e 70 75 | 74 20 22 5c 72 5c 6e 52 |ueueInpu|t "\r\nR|
|000013b0| 49 4e 47 5c 72 5c 6e 22 | 0d 40 4c 61 62 65 6c 20 |ING\r\n"|.@Label |
|000013c0| 33 32 0d 20 20 41 74 74 | 61 63 68 20 22 41 52 41 |32.  Att|ach "ARA|
|000013d0| 22 20 28 44 54 52 29 0d | 0d 40 4c 61 62 65 6c 20 |" (DTR).|.@Label |
|000013e0| 33 35 0d 20 20 47 65 74 | 53 52 65 67 20 43 20 22 |35.  Get|SReg C "|
|000013f0| 44 41 54 41 22 20 34 0d | 20 20 51 75 65 75 65 49 |DATA" 4.|  QueueI|
|00001400| 6e 70 75 74 20 22 5c 72 | 5e 43 43 4f 4e 4e 45 43 |nput "\r|^CCONNEC|
|00001410| 54 20 5e 42 5c 72 5e 43 | 22 0d 20 20 69 66 4f 72 |T ^B\r^C|".  ifOr|
|00001420| 69 67 69 6e 61 74 65 20 | 33 36 0d 20 20 51 75 65 |iginate |36.  Que|
|00001430| 75 65 49 6e 70 75 74 20 | 22 5c 72 5e 43 52 49 4e |ueInput |"\r^CRIN|
|00001440| 47 5c 72 5e 43 22 0d 40 | 4c 61 62 65 6c 20 33 36 |G\r^C".@|Label 36|
|00001450| 0d 20 20 41 74 74 61 63 | 68 20 22 44 61 74 61 22 |.  Attac|h "Data"|
|00001460| 20 28 44 54 52 2c 45 73 | 63 61 70 65 2c 42 72 65 | (DTR,Es|cape,Bre|
|00001470| 61 6b 29 0d 0d 21 0d 21 | 20 46 61 78 20 43 6c 61 |ak)..!.!| Fax Cla|
|00001480| 73 73 20 31 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |ss 1 con|nection |
|00001490| 68 61 73 20 62 65 65 6e | 20 65 73 74 61 62 6c 69 |has been| establi|
|000014a0| 73 68 65 64 0d 21 20 41 | 74 74 61 63 68 20 74 68 |shed.! A|ttach th|
|000014b0| 65 20 22 46 61 78 22 20 | 73 75 62 50 6f 72 74 0d |e "Fax" |subPort.|
|000014c0| 40 4c 61 62 65 6c 20 34 | 30 0d 20 20 51 75 65 75 |@Label 4|0.  Queu|
|000014d0| 65 49 6e 70 75 74 20 22 | 31 5c 72 22 0d 20 20 69 |eInput "|1\r".  i|
|000014e0| 66 4f 72 69 67 69 6e 61 | 74 65 20 34 31 0d 20 20 |fOrigina|te 41.  |
|000014f0| 51 75 65 75 65 49 6e 70 | 75 74 20 22 32 5c 72 22 |QueueInp|ut "2\r"|
|00001500| 0d 40 4c 61 62 65 6c 20 | 34 31 0d 20 20 49 66 53 |.@Label |41.  IfS|
|00001510| 74 72 20 32 20 34 32 20 | 22 30 22 0d 20 20 41 74 |tr 2 42 |"0".  At|
|00001520| 74 61 63 68 20 22 46 61 | 78 22 20 28 44 54 52 2c |tach "Fa|x" (DTR,|
|00001530| 52 65 73 65 74 29 0d 40 | 4c 61 62 65 6c 20 34 32 |Reset).@|Label 42|
|00001540| 0d 20 20 41 74 74 61 63 | 68 20 22 46 61 78 22 20 |.  Attac|h "Fax" |
|00001550| 28 44 54 52 2c 52 65 73 | 65 74 28 32 34 30 30 29 |(DTR,Res|et(2400)|
|00001560| 29 0d 0d 21 0d 21 20 46 | 61 78 20 43 6c 61 73 73 |)..!.! F|ax Class|
|00001570| 20 32 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 20 68 61 | 2 conne|ction ha|
|00001580| 73 20 62 65 65 6e 20 65 | 73 74 61 62 6c 69 73 68 |s been e|stablish|
|00001590| 65 64 0d 21 20 41 74 74 | 61 63 68 20 74 68 65 20 |ed.! Att|ach the |
|000015a0| 22 46 61 78 22 20 73 75 | 62 50 6f 72 74 0d 40 4c |"Fax" su|bPort.@L|
|000015b0| 61 62 65 6c 20 34 35 0d | 20 20 51 75 65 75 65 49 |abel 45.|  QueueI|
|000015c0| 6e 70 75 74 20 22 5c 72 | 5c 6e 2b 46 43 4f 4e 5c |nput "\r|\n+FCON\|
|000015d0| 72 5c 6e 22 0d 20 20 69 | 66 4f 72 69 67 69 6e 61 |r\n".  i|fOrigina|
|000015e0| 74 65 20 34 36 0d 20 20 | 51 75 65 75 65 49 6e 70 |te 46.  |QueueInp|
|000015f0| 75 74 20 22 5c 72 5c 6e | 52 49 4e 47 5c 72 5c 6e |ut "\r\n|RING\r\n|
|00001600| 22 0d 40 4c 61 62 65 6c | 20 34 36 0d 20 20 49 66 |".@Label| 46.  If|
|00001610| 53 74 72 20 32 20 34 37 | 20 22 32 22 0d 20 20 41 |Str 2 47| "2".  A|
|00001620| 74 74 61 63 68 20 22 46 | 61 78 22 20 28 44 54 52 |ttach "F|ax" (DTR|
|00001630| 29 0d 40 4c 61 62 65 6c | 20 34 37 0d 20 20 41 74 |).@Label| 47.  At|
|00001640| 74 61 63 68 20 22 46 61 | 78 22 20 28 44 54 52 2c |tach "Fa|x" (DTR,|
|00001650| 52 65 73 65 74 29 0d 0d | 21 20 2d 2d 2d 2d 2d 2d |Reset)..|! ------|
|00001660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001680| 2d 2d 2d 2d 0d 21 20 4f | 72 69 67 69 6e 61 74 69 |----.! O|riginati|
|00001690| 6e 67 20 61 20 63 61 6c | 6c 20 74 68 72 6f 75 67 |ng a cal|l throug|
|000016a0| 68 20 74 68 65 20 22 56 | 6f 69 63 65 22 20 73 75 |h the "V|oice" su|
|000016b0| 62 70 6f 72 74 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |bport.! |--------|
|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 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016e0| 2d 2d 0d 40 4f 52 49 47 | 49 4e 41 54 45 20 22 56 |--.@ORIG|INATE "V|
|000016f0| 6f 69 63 65 22 20 28 22 | 5c 72 5c 6e 42 55 53 59 |oice" ("|\r\nBUSY|
|00001700| 5c 72 5c 6e 22 29 0d 20 | 20 4e 6f 74 65 20 22 50 |\r\n"). | Note "P|
|00001710| 68 6f 6e 65 50 72 6f 20 | 69 73 20 6f 72 69 67 69 |honePro |is origi|
|00001720| 6e 61 74 69 6e 67 20 61 | 20 63 61 6c 6c 20 2e 2e |nating a| call ..|
|00001730| 2e 22 0d 20 20 53 65 72 | 52 65 73 65 74 20 2a 0d |.".  Ser|Reset *.|
|00001740| 20 20 48 73 52 65 73 65 | 74 20 2a 0d 20 20 41 74 |  HsRese|t *.  At|
|00001750| 74 61 63 68 20 22 56 6f | 69 63 65 22 20 28 45 73 |tach "Vo|ice" (Es|
|00001760| 63 61 70 65 2c 20 4d 61 | 73 74 65 72 29 0d 20 20 |cape, Ma|ster).  |
|00001770| 45 78 69 74 20 2d 36 30 | 31 39 0d 20 0d 20 0d 20 |Exit -60|19. . . |
|00001780| 0d 21 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.! -----|--------|
|00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 21 20 |--------|-----.! |
|000017b0| 4f 72 69 67 69 6e 61 74 | 69 6e 67 20 61 20 63 61 |Originat|ing a ca|
|000017c0| 6c 6c 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 22 |ll throu|gh the "|
|000017d0| 41 52 41 22 20 73 75 62 | 70 6f 72 74 0d 21 20 2d |ARA" sub|port.! -|
|000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 40 4f 52 49 47 49 |--------|-.@ORIGI|
|00001810| 4e 41 54 45 20 22 41 52 | 41 22 0d 20 20 4a 73 72 |NATE "AR|A".  Jsr|
|00001820| 20 35 31 0d 20 20 4a 75 | 6d 70 20 33 30 0d 0d 21 | 51.  Ju|mp 30..!|
|00001830| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 21 20 4f 72 |--------|---.! Or|
|00001860| 69 67 69 6e 61 74 69 6e | 67 20 61 20 63 61 6c 6c |iginatin|g a call|
|00001870| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 22 44 61 | through| the "Da|
|00001880| 74 61 22 20 73 75 62 70 | 6f 72 74 0d 21 20 2d 2d |ta" subp|ort.! --|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 40 4f 52 49 47 49 4e |--------|.@ORIGIN|
|000018c0| 41 54 45 20 22 44 61 74 | 61 22 0d 20 20 4a 73 72 |ATE "Dat|a".  Jsr|
|000018d0| 20 35 31 0d 20 20 4a 75 | 6d 70 20 33 35 0d 0d 40 | 51.  Ju|mp 35..@|
|000018e0| 4c 61 62 65 6c 20 35 31 | 0d 20 20 53 65 72 52 65 |Label 51|.  SerRe|
|000018f0| 73 65 74 20 33 38 34 30 | 30 2c 30 2c 38 2c 31 0d |set 3840|0,0,8,1.|
|00001900| 20 20 4a 73 72 20 38 30 | 0d 21 0d 21 20 53 65 74 |  Jsr 80|.!.! Set|
|00001910| 20 74 68 65 20 63 6f 6d | 6d 6f 6e 20 6f 70 74 69 | the com|mon opti|
|00001920| 6f 6e 73 20 26 20 43 6f | 6d 6d 20 6f 70 74 69 6f |ons & Co|mm optio|
|00001930| 6e 73 0d 20 20 4a 73 72 | 20 37 30 0d 20 20 4a 73 |ns.  Jsr| 70.  Js|
|00001940| 72 20 35 35 0d 21 0d 21 | 20 50 72 65 70 61 72 65 |r 55.!.!| Prepare|
|00001950| 20 74 6f 20 72 65 63 65 | 69 76 65 20 61 6c 6c 20 | to rece|ive all |
|00001960| 65 72 72 6f 72 20 72 65 | 73 75 6c 74 20 63 6f 64 |error re|sult cod|
|00001970| 65 73 2c 20 64 69 61 6c | 20 74 68 65 20 6e 75 6d |es, dial| the num|
|00001980| 62 65 72 0d 20 20 57 72 | 69 74 65 20 22 41 54 44 |ber.  Wr|ite "ATD|
|00001990| 54 5e 31 5c 72 22 0d 20 | 20 4a 73 72 20 31 38 30 |T^1\r". | Jsr 180|
|000019a0| 0d 20 20 49 66 53 74 72 | 20 41 20 31 30 33 20 22 |.  IfStr| A 103 "|
|000019b0| 44 61 74 61 22 0d 20 20 | 57 72 69 74 65 20 22 5c |Data".  |Write "\|
|000019c0| 72 22 0d 20 20 45 78 69 | 74 20 2d 36 30 31 39 0d |r".  Exi|t -6019.|
|000019d0| 20 0d 21 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .! ----|--------|
|000019e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 21 |--------|------.!|
|00001a00| 20 4f 72 69 67 69 6e 61 | 74 69 6e 67 20 61 20 63 | Origina|ting a c|
|00001a10| 61 6c 6c 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |all thro|ugh the |
|00001a20| 22 46 61 78 22 20 73 75 | 62 50 6f 72 74 0d 21 20 |"Fax" su|bPort.! |
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 40 4f 52 49 47 |--------|--.@ORIG|
|00001a60| 49 4e 41 54 45 20 22 46 | 61 78 22 20 28 22 5c 72 |INATE "F|ax" ("\r|
|00001a70| 5c 6e 42 55 53 59 5c 72 | 5c 6e 22 29 0d 21 20 43 |\nBUSY\r|\n").! C|
|00001a80| 6c 65 61 72 20 74 68 65 | 20 6d 6f 64 65 6d 27 73 |lear the| modem's|
|00001a90| 20 6d 61 67 69 63 20 6d | 65 6d 6f 72 79 0d 20 20 | magic m|emory.  |
|00001aa0| 4a 73 72 20 31 33 30 0d | 20 20 53 65 72 52 65 73 |Jsr 130.|  SerRes|
|00001ab0| 65 74 20 2a 0d 20 20 48 | 73 52 65 73 65 74 20 2a |et *.  H|sReset *|
|00001ac0| 0d 20 20 4a 73 72 20 38 | 30 0d 20 20 57 72 69 74 |.  Jsr 8|0.  Writ|
|00001ad0| 65 20 22 41 54 5a 5c 72 | 22 0d 20 20 4a 73 72 20 |e "ATZ\r|".  Jsr |
|00001ae0| 31 30 30 0d 20 20 57 72 | 69 74 65 20 22 41 54 2b |100.  Wr|ite "AT+|
|00001af0| 56 43 3d 30 5c 72 22 0d | 20 20 4a 73 72 20 31 32 |VC=0\r".|  Jsr 12|
|00001b00| 30 0d 21 0d 21 20 53 65 | 74 20 74 68 65 20 63 6f |0.!.! Se|t the co|
|00001b10| 6d 6d 6f 6e 20 6f 70 74 | 69 6f 6e 73 0d 20 20 4a |mmon opt|ions.  J|
|00001b20| 73 72 20 37 30 0d 20 0d | 21 0d 21 20 4e 6f 77 20 |sr 70. .|!.! Now |
|00001b30| 65 6d 69 74 20 61 6c 6c | 20 63 6f 6d 6d 61 6e 64 |emit all| command|
|00001b40| 73 20 74 68 61 74 20 74 | 68 65 20 61 70 70 6c 69 |s that t|he appli|
|00001b50| 63 61 74 69 6f 6e 20 68 | 61 73 20 73 65 6e 74 20 |cation h|as sent |
|00001b60| 74 6f 20 74 68 61 74 20 | 70 6f 72 74 2c 0d 21 20 |to that |port,.! |
|00001b70| 65 78 63 65 70 74 20 22 | 2b 46 43 4c 41 53 53 22 |except "|+FCLASS"|
|00001b80| 2c 20 65 74 63 0d 21 0d | 20 20 45 6d 69 74 43 6c |, etc.!.|  EmitCl|
|00001b90| 65 61 72 20 22 2b 46 43 | 4c 41 53 53 22 2c 22 56 |ear "+FC|LASS","V|
|00001ba0| 22 2c 22 45 22 2c 22 53 | 30 22 0d 20 20 4a 73 72 |","E","S|0".  Jsr|
|00001bb0| 20 36 30 0d 21 0d 21 20 | 53 65 74 20 74 68 65 20 | 60.!.! |Set the |
|00001bc0| 46 61 78 20 6d 6f 64 65 | 0d 20 20 53 65 74 56 61 |Fax mode|.  SetVa|
|00001bd0| 72 20 41 20 22 30 22 0d | 20 20 4a 73 72 20 35 36 |r A "0".|  Jsr 56|
|00001be0| 20 0d 20 20 57 72 69 74 | 65 20 22 41 54 44 5e 31 | .  Writ|e "ATD^1|
|00001bf0| 5c 72 22 0d 20 20 4a 73 | 72 20 31 37 35 0d 20 20 |\r".  Js|r 175.  |
|00001c00| 48 73 52 65 73 65 74 20 | 2a 0d 20 20 49 66 53 74 |HsReset |*.  IfSt|
|00001c10| 72 20 41 20 34 30 20 22 | 46 61 78 31 22 0d 20 20 |r A 40 "|Fax1".  |
|00001c20| 49 66 53 74 72 20 41 20 | 34 35 20 22 46 61 78 32 |IfStr A |45 "Fax2|
|00001c30| 22 0d 20 20 57 72 69 74 | 65 20 22 5c 72 22 0d 20 |".  Writ|e "\r". |
|00001c40| 20 45 78 69 74 20 2d 36 | 30 31 39 0d 20 0d 21 0d | Exit -6|019. .!.|
|00001c50| 21 20 53 65 74 20 74 68 | 65 20 63 6f 6d 6d 75 6e |! Set th|e commun|
|00001c60| 69 63 61 74 69 6f 6e 20 | 6f 70 74 69 6f 6e 73 3a |ication |options:|
|00001c70| 0d 21 20 a5 20 5c 4e 30 | 20 26 51 36 3a 20 4e 6f |.! . \N0| &Q6: No|
|00001c80| 72 6d 61 6c 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |rmal con|nection |
|00001c90| 28 66 6f 72 20 41 52 41 | 29 0d 21 20 a5 20 26 4b |(for ARA|).! . &K|
|00001ca0| 33 3a 20 48 57 20 66 6c | 6f 77 20 63 6f 6e 74 72 |3: HW fl|ow contr|
|00001cb0| 6f 6c 20 20 20 20 20 20 | 20 28 66 6f 72 20 41 52 |ol      | (for AR|
|00001cc0| 41 2c 20 46 61 78 20 73 | 68 6f 75 6c 64 20 6e 6f |A, Fax s|hould no|
|00001cd0| 74 20 75 73 65 20 61 20 | 68 61 6e 64 73 68 61 6b |t use a |handshak|
|00001ce0| 65 20 6f 6e 20 72 65 63 | 65 69 76 69 6e 67 29 0d |e on rec|eiving).|
|00001cf0| 21 20 a5 20 57 31 3a 20 | 20 72 65 70 6f 72 74 20 |! . W1: | report |
|00001d00| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 73 70 65 65 64 |connecti|on speed|
|00001d10| 0d 21 0d 40 4c 61 62 65 | 6c 20 35 35 0d 20 20 57 |.!.@Labe|l 55.  W|
|00001d20| 72 69 74 65 20 22 41 54 | 5e 33 26 4b 33 57 31 5c |rite "AT|^3&K3W1\|
|00001d30| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 72 |r".  Jsr| 100.  r|
|00001d40| 65 74 75 72 6e 0d 0d 21 | 0d 21 20 54 75 6e 69 6e |eturn..!|.! Tunin|
|00001d50| 67 20 74 68 65 20 66 61 | 78 20 6d 6f 64 65 0d 40 |g the fa|x mode.@|
|00001d60| 4c 61 62 65 6c 20 35 36 | 0d 20 20 69 66 53 74 72 |Label 56|.  ifStr|
|00001d70| 20 32 20 35 37 20 22 30 | 22 0d 20 20 69 66 53 74 | 2 57 "0|".  ifSt|
|00001d80| 72 20 32 20 35 37 20 22 | 31 22 0d 20 20 57 72 69 |r 2 57 "|1".  Wri|
|00001d90| 74 65 20 22 41 54 2b 46 | 43 4c 41 53 53 3d 32 5c |te "AT+F|CLASS=2\|
|00001da0| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 47 |r".  Jsr| 100.  G|
|00001db0| 65 74 43 6f 6d 6d 61 6e | 64 20 41 20 22 46 61 78 |etComman|d A "Fax|
|00001dc0| 22 20 22 2b 46 4c 49 44 | 3d 22 0d 20 20 4a 73 72 |" "+FLID|=".  Jsr|
|00001dd0| 20 39 39 0d 20 20 57 72 | 69 74 65 20 22 41 54 2b | 99.  Wr|ite "AT+|
|00001de0| 46 44 43 43 3d 31 2c 33 | 2c 30 2c 32 2c 30 2c 30 |FDCC=1,3|,0,2,0,0|
|00001df0| 2c 30 2c 30 5c 72 22 0d | 20 20 4a 73 72 20 31 30 |,0,0\r".|  Jsr 10|
|00001e00| 30 0d 20 20 47 65 74 43 | 6f 6d 6d 61 6e 64 20 41 |0.  GetC|ommand A|
|00001e10| 20 22 46 61 78 22 20 22 | 2b 46 44 43 43 3d 22 0d | "Fax" "|+FDCC=".|
|00001e20| 20 20 4a 73 72 20 39 39 | 0d 20 20 47 65 74 43 6f |  Jsr 99|.  GetCo|
|00001e30| 6d 6d 61 6e 64 20 41 20 | 22 46 61 78 22 20 22 2b |mmand A |"Fax" "+|
|00001e40| 46 42 4f 52 3d 22 0d 20 | 20 4a 73 72 20 39 39 0d |FBOR=". | Jsr 99.|
|00001e50| 20 20 69 66 53 74 72 20 | 41 20 31 30 33 20 22 30 |  ifStr |A 103 "0|
|00001e60| 22 0d 20 20 57 72 69 74 | 65 20 22 41 54 2b 46 41 |".  Writ|e "AT+FA|
|00001e70| 41 3d 31 3b 2b 46 43 4c | 41 53 53 3d 30 5c 72 22 |A=1;+FCL|ASS=0\r"|
|00001e80| 0d 20 20 4a 75 6d 70 20 | 31 30 30 0d 0d 40 4c 61 |.  Jump |100..@La|
|00001e90| 62 65 6c 20 35 37 0d 20 | 20 57 72 69 74 65 20 22 |bel 57. | Write "|
|00001ea0| 41 54 26 4b 34 2b 46 43 | 4c 41 53 53 3d 31 5c 72 |AT&K4+FC|LASS=1\r|
|00001eb0| 22 0d 20 20 4a 73 72 20 | 31 30 30 0d 20 20 69 66 |".  Jsr |100.  if|
|00001ec0| 53 74 72 20 41 20 35 38 | 20 22 30 22 0d 20 20 57 |Str A 58| "0".  W|
|00001ed0| 72 69 74 65 20 22 41 54 | 2b 46 41 45 3d 31 3b 2b |rite "AT|+FAE=1;+|
|00001ee0| 46 43 4c 41 53 53 3d 30 | 5c 72 22 0d 20 20 4a 73 |FCLASS=0|\r".  Js|
|00001ef0| 72 20 31 30 30 0d 40 4c | 61 62 65 6c 20 35 38 0d |r 100.@L|abel 58.|
|00001f00| 20 20 57 72 69 74 65 20 | 22 41 54 56 30 5c 72 22 |  Write |"ATV0\r"|
|00001f10| 0d 20 20 4a 75 6d 70 20 | 31 31 30 0d 0d 21 0d 21 |.  Jump |110..!.!|
|00001f20| 20 54 68 69 73 20 73 65 | 63 74 69 6f 6e 20 65 6d | This se|ction em|
|00001f30| 69 74 73 20 61 6c 6c 20 | 6d 6f 64 65 6d 20 63 6f |its all |modem co|
|00001f40| 6d 6d 61 6e 64 73 20 73 | 65 6e 74 20 66 72 6f 6d |mmands s|ent from|
|00001f50| 20 74 68 65 20 63 6c 69 | 65 6e 74 20 61 70 70 6c | the cli|ent appl|
|00001f60| 69 63 61 74 69 6f 6e 0d | 21 20 46 6f 72 20 65 61 |ication.|! For ea|
|00001f70| 63 68 20 73 65 74 20 6f | 66 20 63 6f 6d 6d 61 6e |ch set o|f comman|
|00001f80| 64 73 20 74 68 65 20 22 | 4f 4b 22 20 61 6e 73 77 |ds the "|OK" answ|
|00001f90| 65 72 20 69 73 20 61 77 | 61 69 74 65 64 0d 21 0d |er is aw|aited.!.|
|00001fa0| 40 4c 61 62 65 6c 20 36 | 30 0d 20 20 45 6d 69 74 |@Label 6|0.  Emit|
|00001fb0| 53 74 61 72 74 0d 40 4c | 61 62 65 6c 20 36 31 0d |Start.@L|abel 61.|
|00001fc0| 20 20 45 6d 69 74 43 6f | 6d 6d 61 6e 64 20 36 32 |  EmitCo|mmand 62|
|00001fd0| 0d 20 20 4a 73 72 20 31 | 30 30 0d 20 20 4a 75 6d |.  Jsr 1|00.  Jum|
|00001fe0| 70 20 36 31 0d 40 4c 61 | 62 65 6c 20 36 32 0d 20 |p 61.@La|bel 62. |
|00001ff0| 20 72 65 74 75 72 6e 0d | 21 0d 21 20 54 68 69 73 | return.|!.! This|
|00002000| 20 73 65 63 74 69 6f 6e | 20 69 6e 69 74 69 61 74 | section| initiat|
|00002010| 65 73 20 74 68 65 20 6d | 6f 64 65 6d 20 62 65 66 |es the m|odem bef|
|00002020| 6f 72 65 20 41 4e 53 57 | 45 52 20 61 6e 64 20 4f |ore ANSW|ER and O|
|00002030| 52 49 47 49 4e 41 54 45 | 73 3a 0d 21 20 65 78 74 |RIGINATE|s:.! ext|
|00002040| 65 6e 64 65 64 20 72 65 | 73 70 6f 6e 73 65 73 20 |ended re|sponses |
|00002050| 2b 20 63 6f 6e 6e 65 63 | 74 20 61 74 20 74 68 65 |+ connec|t at the|
|00002060| 20 68 69 67 68 65 73 74 | 20 72 61 74 65 20 2b 20 | highest| rate + |
|00002070| 73 70 65 61 6b 65 72 20 | 63 6f 6e 74 72 6f 6c 20 |speaker |control |
|00002080| 2b 0d 21 20 72 65 73 65 | 74 20 6f 6e 20 44 74 72 |+.! rese|t on Dtr|
|00002090| 20 64 72 6f 70 20 2b 20 | 44 43 44 20 76 61 6c 69 | drop + |DCD vali|
|000020a0| 64 0d 21 20 56 65 72 62 | 61 6c 20 72 65 73 70 6f |d.! Verb|al respo|
|000020b0| 6e 73 65 73 20 6d 6f 64 | 65 2c 20 6e 6f 20 65 63 |nses mod|e, no ec|
|000020c0| 68 6f 0d 21 0d 40 4c 61 | 62 65 6c 20 37 30 0d 20 |ho.!.@La|bel 70. |
|000020d0| 20 57 72 69 74 65 20 22 | 41 54 58 34 4e 31 5e 34 | Write "|ATX4N1^4|
|000020e0| 26 43 31 56 31 45 30 5c | 72 22 0d 20 20 4a 73 72 |&C1V1E0\|r".  Jsr|
|000020f0| 20 31 30 30 0d 20 20 72 | 65 74 75 72 6e 0d 20 0d | 100.  r|eturn. .|
|00002100| 21 0d 21 20 54 68 69 73 | 20 73 65 63 74 69 6f 6e |!.! This| section|
|00002110| 20 73 79 6e 63 72 6f 6e | 69 7a 65 20 74 68 65 20 | syncron|ize the |
|00002120| 6d 6f 64 65 6d 20 61 66 | 74 65 72 20 74 68 65 20 |modem af|ter the |
|00002130| 73 65 72 69 61 6c 20 70 | 6f 72 74 20 73 70 65 65 |serial p|ort spee|
|00002140| 64 20 73 77 69 74 63 68 | 69 6e 67 0d 21 0d 40 4c |d switch|ing.!.@L|
|00002150| 61 62 65 6c 20 38 30 0d | 20 20 43 68 72 44 65 6c |abel 80.|  ChrDel|
|00002160| 61 79 20 31 0d 20 20 57 | 72 69 74 65 20 22 5c 72 |ay 1.  W|rite "\r|
|00002170| 5c 72 22 0d 20 20 50 61 | 75 73 65 20 32 0d 20 20 |\r".  Pa|use 2.  |
|00002180| 57 72 69 74 65 20 22 41 | 54 5c 72 22 0d 20 20 43 |Write "A|T\r".  C|
|00002190| 68 72 44 65 6c 61 79 20 | 30 0d 20 20 4a 73 72 20 |hrDelay |0.  Jsr |
|000021a0| 31 30 30 0d 20 20 72 65 | 74 75 72 6e 0d 21 0d 21 |100.  re|turn.!.!|
|000021b0| 20 50 72 65 70 61 72 65 | 20 74 6f 20 72 65 63 65 | Prepare| to rece|
|000021c0| 69 76 65 20 65 72 72 6f | 72 20 72 65 73 75 6c 74 |ive erro|r result|
|000021d0| 20 63 6f 64 65 73 2c 20 | 73 65 6e 64 20 74 68 65 | codes, |send the|
|000021e0| 20 64 69 61 6c 69 6e 67 | 20 63 6f 6d 6d 61 6e 64 | dialing| command|
|000021f0| 20 61 6e 64 0d 21 20 73 | 65 74 20 74 68 65 20 75 | and.! s|et the u|
|00002200| 73 65 72 27 73 20 68 61 | 6e 64 73 68 61 6b 65 20 |ser's ha|ndshake |
|00002210| 6d 6f 64 65 0d 21 0d 40 | 4c 61 62 65 6c 20 39 30 |mode.!.@|Label 90|
|00002220| 0d 20 20 4d 61 74 63 68 | 43 6c 72 0d 20 20 4d 61 |.  Match|Clr.  Ma|
|00002230| 74 63 68 53 74 72 20 32 | 20 39 31 20 22 4e 4f 20 |tchStr 2| 91 "NO |
|00002240| 44 49 41 4c 54 4f 4e 45 | 5c 72 5c 6e 22 0d 20 20 |DIALTONE|\r\n".  |
|00002250| 4d 61 74 63 68 53 74 72 | 20 33 20 39 32 20 22 42 |MatchStr| 3 92 "B|
|00002260| 55 53 59 5c 72 5c 6e 22 | 0d 20 20 4d 61 74 63 68 |USY\r\n"|.  Match|
|00002270| 53 74 72 20 34 20 39 33 | 20 22 4e 4f 20 43 41 52 |Str 4 93| "NO CAR|
|00002280| 52 49 45 52 5c 72 5c 6e | 22 0d 20 20 4d 61 74 63 |RIER\r\n|".  Matc|
|00002290| 68 53 74 72 20 35 20 39 | 34 20 22 4e 4f 20 41 4e |hStr 5 9|4 "NO AN|
|000022a0| 53 57 45 52 5c 72 5c 6e | 22 0d 20 20 57 72 69 74 |SWER\r\n|".  Writ|
|000022b0| 65 20 22 41 54 44 5e 31 | 5c 72 22 0d 20 20 48 73 |e "ATD^1|\r".  Hs|
|000022c0| 52 65 73 65 74 20 2a 0d | 20 20 72 65 74 75 72 6e |Reset *.|  return|
|000022d0| 0d 20 0d 40 4c 61 62 65 | 6c 20 39 31 0d 20 20 65 |. .@Labe|l 91.  e|
|000022e0| 78 69 74 20 2d 36 30 32 | 30 0d 40 4c 61 62 65 6c |xit -602|0.@Label|
|000022f0| 20 39 32 0d 20 20 65 78 | 69 74 20 2d 36 30 32 32 | 92.  ex|it -6022|
|00002300| 0d 40 4c 61 62 65 6c 20 | 39 33 0d 20 20 65 78 69 |.@Label |93.  exi|
|00002310| 74 20 2d 36 30 32 31 0d | 40 4c 61 62 65 6c 20 39 |t -6021.|@Label 9|
|00002320| 34 0d 20 20 65 78 69 74 | 20 2d 36 30 32 33 0d 21 |4.  exit| -6023.!|
|00002330| 0d 21 20 50 72 6f 63 65 | 73 73 69 6e 67 20 74 68 |.! Proce|ssing th|
|00002340| 65 20 41 54 20 63 6f 6d | 6d 61 6e 64 3a 0d 21 20 |e AT com|mand:.! |
|00002350| 4f 4b 20 2d 3e 20 70 72 | 6f 63 65 65 64 0d 21 20 |OK -> pr|oceed.! |
|00002360| 45 52 52 4f 52 20 6f 72 | 20 54 69 6d 65 4f 75 74 |ERROR or| TimeOut|
|00002370| 20 2d 3e 65 78 69 74 20 | 2d 36 30 31 39 0d 21 20 | ->exit |-6019.! |
|00002380| 49 74 20 63 61 6e 20 62 | 65 20 63 61 6c 6c 65 64 |It can b|e called|
|00002390| 20 41 46 54 45 52 20 74 | 68 65 20 22 57 72 69 74 | AFTER t|he "Writ|
|000023a0| 65 22 20 63 6f 6d 6d 61 | 6e 64 2c 20 73 69 6e 63 |e" comma|nd, sinc|
|000023b0| 65 20 4c 69 6e 65 53 68 | 61 72 65 20 62 75 66 66 |e LineSh|are buff|
|000023c0| 65 72 73 20 69 6e 70 75 | 74 0d 21 0d 40 4c 61 62 |ers inpu|t.!.@Lab|
|000023d0| 65 6c 20 39 39 0d 20 20 | 57 72 69 74 65 20 22 41 |el 99.  |Write "A|
|000023e0| 54 5e 41 5c 72 22 0d 40 | 4c 61 62 65 6c 20 31 30 |T^A\r".@|Label 10|
|000023f0| 30 0d 20 20 4d 61 74 63 | 68 43 6c 72 0d 20 20 4d |0.  Matc|hClr.  M|
|00002400| 61 74 63 68 53 74 72 20 | 31 20 31 30 33 20 22 5c |atchStr |1 103 "\|
|00002410| 72 5c 6e 4f 4b 5c 72 5c | 6e 22 0d 20 20 4d 61 74 |r\nOK\r\|n".  Mat|
|00002420| 63 68 53 74 72 20 32 20 | 31 30 32 20 22 5c 72 5c |chStr 2 |102 "\r\|
|00002430| 6e 45 52 52 4f 52 5c 72 | 5c 6e 22 0d 40 4c 61 62 |nERROR\r|\n".@Lab|
|00002440| 65 6c 20 31 30 31 0d 20 | 20 4d 61 74 63 68 52 65 |el 101. | MatchRe|
|00002450| 61 64 20 32 30 0d 40 4c | 61 62 65 6c 20 31 30 32 |ad 20.@L|abel 102|
|00002460| 0d 20 20 45 78 69 74 20 | 2d 36 30 31 39 0d 40 4c |.  Exit |-6019.@L|
|00002470| 61 62 65 6c 20 31 30 33 | 0d 20 20 72 65 74 75 72 |abel 103|.  retur|
|00002480| 6e 0d 0d 40 4c 61 62 65 | 6c 20 31 31 30 0d 20 20 |n..@Labe|l 110.  |
|00002490| 4d 61 74 63 68 43 6c 72 | 0d 20 20 4d 61 74 63 68 |MatchClr|.  Match|
|000024a0| 53 74 72 20 31 20 31 30 | 33 20 22 30 5c 72 22 0d |Str 1 10|3 "0\r".|
|000024b0| 20 20 4d 61 74 63 68 53 | 74 72 20 32 20 31 30 32 |  MatchS|tr 2 102|
|000024c0| 20 22 34 5c 72 22 0d 20 | 20 4a 75 6d 70 20 31 30 | "4\r". | Jump 10|
|000024d0| 31 0d 20 0d 40 4c 61 62 | 65 6c 20 31 32 30 0d 20 |1. .@Lab|el 120. |
|000024e0| 20 4d 61 74 63 68 43 6c | 72 0d 20 20 4d 61 74 63 | MatchCl|r.  Matc|
|000024f0| 68 53 74 72 20 31 20 31 | 30 33 20 22 5c 72 5c 6e |hStr 1 1|03 "\r\n|
|00002500| 4f 4b 5c 72 5c 6e 22 0d | 20 20 4d 61 74 63 68 53 |OK\r\n".|  MatchS|
|00002510| 74 72 20 32 20 31 30 33 | 20 22 5c 72 5c 6e 45 52 |tr 2 103| "\r\nER|
|00002520| 52 4f 52 5c 72 5c 6e 22 | 0d 20 20 4d 61 74 63 68 |ROR\r\n"|.  Match|
|00002530| 52 65 61 64 20 32 30 0d | 20 20 45 78 69 74 20 2d |Read 20.|  Exit -|
|00002540| 36 30 31 39 0d 20 0d 21 | 54 68 69 73 20 7a 65 72 |6019. .!|This zer|
|00002550| 6f 73 20 6f 75 74 20 61 | 20 6c 6f 63 61 74 69 6f |os out a| locatio|
|00002560| 6e 20 69 6e 20 6d 65 6d | 6f 72 79 20 74 68 61 74 |n in mem|ory that|
|00002570| 0d 21 77 68 65 6e 20 63 | 6c 65 61 72 65 64 2c 20 |.!when c|leared, |
|00002580| 65 6e 61 62 6c 65 73 20 | 53 54 46 20 74 6f 20 73 |enables |STF to s|
|00002590| 65 6e 64 2f 72 65 63 65 | 69 76 65 20 66 61 78 65 |end/rece|ive faxe|
|000025a0| 73 2e 0d 40 4c 61 62 65 | 6c 20 31 33 30 0d 20 20 |s..@Labe|l 130.  |
|000025b0| 4d 61 74 63 68 43 6c 72 | 0d 20 20 57 72 69 74 65 |MatchClr|.  Write|
|000025c0| 20 22 41 54 21 32 30 30 | 30 4d 5c 72 22 0d 20 20 | "AT!200|0M\r".  |
|000025d0| 4d 61 74 63 68 53 74 72 | 20 31 20 31 33 31 20 22 |MatchStr| 1 131 "|
|000025e0| 5c 72 5c 6e 32 30 30 30 | 3a 20 22 0d 20 20 4d 61 |\r\n2000|: ".  Ma|
|000025f0| 74 63 68 52 65 61 64 20 | 32 30 0d 20 20 4a 75 6d |tchRead |20.  Jum|
|00002600| 70 20 31 35 30 0d 20 0d | 40 4c 61 62 65 6c 20 31 |p 150. .|@Label 1|
|00002610| 33 31 0d 20 20 4d 61 74 | 63 68 43 6c 72 0d 20 20 |31.  Mat|chClr.  |
|00002620| 57 72 69 74 65 20 22 30 | 30 22 0d 20 20 4d 61 74 |Write "0|0".  Mat|
|00002630| 63 68 53 74 72 20 31 20 | 31 33 32 20 22 5c 72 5c |chStr 1 |132 "\r\|
|00002640| 6e 32 30 30 31 3a 20 22 | 0d 20 20 4d 61 74 63 68 |n2001: "|.  Match|
|00002650| 52 65 61 64 32 30 0d 20 | 20 4a 75 6d 70 20 31 35 |Read20. | Jump 15|
|00002660| 30 0d 20 0d 40 4c 61 62 | 65 6c 20 31 33 32 0d 20 |0. .@Lab|el 132. |
|00002670| 20 4d 61 74 63 68 43 6c | 72 0d 20 20 57 72 69 74 | MatchCl|r.  Writ|
|00002680| 65 20 22 30 30 22 0d 20 | 20 4d 61 74 63 68 53 74 |e "00". | MatchSt|
|00002690| 72 20 31 20 31 33 33 20 | 22 5c 72 5c 6e 32 30 30 |r 1 133 |"\r\n200|
|000026a0| 32 3a 20 22 0d 20 20 4d | 61 74 63 68 52 65 61 64 |2: ".  M|atchRead|
|000026b0| 20 32 30 0d 20 20 4a 75 | 6d 70 20 31 35 30 0d 20 | 20.  Ju|mp 150. |
|000026c0| 0d 40 4c 61 62 65 6c 20 | 31 33 33 0d 20 20 4d 61 |.@Label |133.  Ma|
|000026d0| 74 63 68 43 6c 72 0d 20 | 20 57 72 69 74 65 20 22 |tchClr. | Write "|
|000026e0| 30 30 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |00".  Ma|tchStr 1|
|000026f0| 20 31 33 34 20 22 5c 72 | 5c 6e 32 30 30 33 3a 20 | 134 "\r|\n2003: |
|00002700| 22 0d 20 20 4d 61 74 63 | 68 52 65 61 64 20 32 30 |".  Matc|hRead 20|
|00002710| 0d 20 20 4a 75 6d 70 20 | 31 35 30 0d 20 0d 40 4c |.  Jump |150. .@L|
|00002720| 61 62 65 6c 20 31 33 34 | 0d 20 20 4d 61 74 63 68 |abel 134|.  Match|
|00002730| 43 6c 72 0d 20 20 57 72 | 69 74 65 20 22 30 30 22 |Clr.  Wr|ite "00"|
|00002740| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 31 20 31 33 |.  Match|Str 1 13|
|00002750| 35 20 22 5c 72 5c 6e 32 | 30 30 34 3a 20 22 0d 20 |5 "\r\n2|004: ". |
|00002760| 20 4d 61 74 63 68 52 65 | 61 64 20 32 30 0d 20 20 | MatchRe|ad 20.  |
|00002770| 4a 75 6d 70 20 31 35 30 | 0d 20 0d 40 4c 61 62 65 |Jump 150|. .@Labe|
|00002780| 6c 20 31 33 35 0d 20 20 | 4d 61 74 63 68 43 6c 72 |l 135.  |MatchClr|
|00002790| 0d 20 20 57 72 69 74 65 | 20 22 20 22 0d 20 20 4a |.  Write| " ".  J|
|000027a0| 73 72 20 31 30 30 0d 20 | 0d 40 4c 61 62 65 6c 20 |sr 100. |.@Label |
|000027b0| 31 33 36 0d 20 20 4d 61 | 74 63 68 43 6c 72 0d 20 |136.  Ma|tchClr. |
|000027c0| 20 57 72 69 74 65 20 22 | 41 54 21 32 30 30 37 4d | Write "|AT!2007M|
|000027d0| 5c 72 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |\r".  Ma|tchStr 1|
|000027e0| 20 31 33 37 20 22 5c 72 | 5c 6e 32 30 30 37 3a 20 | 137 "\r|\n2007: |
|000027f0| 22 0d 20 20 4d 61 74 63 | 68 52 65 61 64 20 32 30 |".  Matc|hRead 20|
|00002800| 0d 20 20 4a 75 6d 70 20 | 31 35 30 0d 20 0d 40 4c |.  Jump |150. .@L|
|00002810| 61 62 65 6c 20 31 33 37 | 0d 20 20 4d 61 74 63 68 |abel 137|.  Match|
|00002820| 43 6c 72 0d 20 20 57 72 | 69 74 65 20 22 30 30 22 |Clr.  Wr|ite "00"|
|00002830| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 31 20 31 33 |.  Match|Str 1 13|
|00002840| 38 20 22 5c 72 5c 6e 32 | 30 30 38 3a 20 22 0d 20 |8 "\r\n2|008: ". |
|00002850| 20 4d 61 74 63 68 52 65 | 61 64 32 30 0d 20 20 4a | MatchRe|ad20.  J|
|00002860| 75 6d 70 20 31 35 30 0d | 20 0d 40 4c 61 62 65 6c |ump 150.| .@Label|
|00002870| 20 31 33 38 0d 20 20 4d | 61 74 63 68 43 6c 72 0d | 138.  M|atchClr.|
|00002880| 20 20 57 72 69 74 65 20 | 22 30 30 22 0d 20 20 4d |  Write |"00".  M|
|00002890| 61 74 63 68 53 74 72 20 | 31 20 31 33 39 20 22 5c |atchStr |1 139 "\|
|000028a0| 72 5c 6e 32 30 30 39 3a | 20 22 0d 20 20 4d 61 74 |r\n2009:| ".  Mat|
|000028b0| 63 68 52 65 61 64 32 30 | 0d 20 20 4a 75 6d 70 20 |chRead20|.  Jump |
|000028c0| 31 35 30 0d 20 0d 40 4c | 61 62 65 6c 20 31 33 39 |150. .@L|abel 139|
|000028d0| 0d 20 20 4d 61 74 63 68 | 43 6c 72 0d 20 20 57 72 |.  Match|Clr.  Wr|
|000028e0| 69 74 65 20 22 30 30 22 | 0d 20 20 4d 61 74 63 68 |ite "00"|.  Match|
|000028f0| 53 74 72 20 31 20 31 34 | 30 20 22 5c 72 5c 6e 32 |Str 1 14|0 "\r\n2|
|00002900| 30 30 41 3a 20 22 0d 20 | 20 4d 61 74 63 68 52 65 |00A: ". | MatchRe|
|00002910| 61 64 32 30 0d 20 20 4a | 75 6d 70 20 31 35 30 0d |ad20.  J|ump 150.|
|00002920| 20 0d 40 4c 61 62 65 6c | 20 31 34 30 0d 20 20 4d | .@Label| 140.  M|
|00002930| 61 74 63 68 43 6c 72 0d | 20 20 57 72 69 74 65 20 |atchClr.|  Write |
|00002940| 22 30 30 22 0d 20 20 4d | 61 74 63 68 53 74 72 20 |"00".  M|atchStr |
|00002950| 31 20 31 34 31 20 22 5c | 72 5c 6e 32 30 30 42 3a |1 141 "\|r\n200B:|
|00002960| 20 22 0d 20 20 4d 61 74 | 63 68 52 65 61 64 32 30 | ".  Mat|chRead20|
|00002970| 0d 20 20 4a 75 6d 70 20 | 31 35 30 0d 20 0d 40 4c |.  Jump |150. .@L|
|00002980| 61 62 65 6c 20 31 34 31 | 0d 20 20 57 72 69 74 65 |abel 141|.  Write|
|00002990| 20 22 20 22 0d 20 20 4a | 73 72 20 31 30 30 0d 20 | " ".  J|sr 100. |
|000029a0| 20 72 65 74 75 72 6e 0d | 20 0d 40 4c 61 62 65 6c | return.| .@Label|
|000029b0| 20 31 35 30 0d 20 20 4e | 6f 74 65 20 22 45 72 72 | 150.  N|ote "Err|
|000029c0| 6f 72 20 63 6c 65 61 72 | 69 6e 67 20 74 68 65 20 |or clear|ing the |
|000029d0| 6d 6f 64 65 6d 27 73 20 | 6d 65 6d 6f 72 79 22 0d |modem's |memory".|
|000029e0| 20 20 50 61 75 73 65 20 | 35 30 0d 20 20 57 72 69 |  Pause |50.  Wri|
|000029f0| 74 65 20 22 20 20 20 22 | 0d 20 20 72 65 74 75 72 |te "   "|.  retur|
|00002a00| 6e 0d 20 0d 21 0d 21 20 | 43 6f 6e 6e 65 63 74 69 |n. .!.! |Connecti|
|00002a10| 6f 6e 2e 20 4f 6e 20 65 | 78 69 74 2c 20 76 61 72 |on. On e|xit, var|
|00002a20| 69 61 62 6c 65 73 20 63 | 6f 6e 74 61 69 6e 3a 0d |iables c|ontain:.|
|00002a30| 21 20 5e 41 20 2d 20 4e | 4f 4e 45 2c 20 44 61 74 |! ^A - N|ONE, Dat|
|00002a40| 61 20 6f 72 20 46 61 78 | 0d 21 20 5e 42 20 2d 20 |a or Fax|.! ^B - |
|00002a50| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 73 70 65 65 64 |connecti|on speed|
|00002a60| 0d 21 20 5e 43 20 2d 20 | 50 52 4f 54 4f 43 4f 4c |.! ^C - |PROTOCOL|
|00002a70| 20 75 73 65 64 0d 40 4c | 61 62 65 6c 20 31 37 35 | used.@L|abel 175|
|00002a80| 0d 20 20 69 66 53 74 72 | 20 32 20 31 39 30 20 22 |.  ifStr| 2 190 "|
|00002a90| 30 22 0d 20 20 69 66 53 | 74 72 20 32 20 31 39 30 |0".  ifS|tr 2 190|
|00002aa0| 20 22 31 22 0d 40 4c 61 | 62 65 6c 20 31 38 30 0d | "1".@La|bel 180.|
|00002ab0| 20 20 53 65 74 56 61 72 | 20 43 20 22 4e 4f 4e 45 |  SetVar| C "NONE|
|00002ac0| 22 0d 20 20 4d 61 74 63 | 68 43 6c 72 0d 20 20 4d |".  Matc|hClr.  M|
|00002ad0| 61 74 63 68 53 74 72 20 | 30 31 20 31 38 32 20 22 |atchStr |01 182 "|
|00002ae0| 52 49 4e 47 5c 72 5c 6e | 22 0d 20 20 4d 61 74 63 |RING\r\n|".  Matc|
|00002af0| 68 53 74 72 20 30 32 20 | 31 38 33 20 22 50 52 4f |hStr 02 |183 "PRO|
|00002b00| 54 4f 43 4f 4c 3a 20 5e | 24 5c 72 5c 6e 22 0d 20 |TOCOL: ^|$\r\n". |
|00002b10| 20 4d 61 74 63 68 53 74 | 72 20 30 33 20 31 38 34 | MatchSt|r 03 184|
|00002b20| 20 22 43 41 52 52 49 45 | 52 20 5e 24 5c 72 5c 6e | "CARRIE|R ^$\r\n|
|00002b30| 22 0d 20 20 4d 61 74 63 | 68 53 74 72 20 30 34 20 |".  Matc|hStr 04 |
|00002b40| 31 38 35 20 22 43 4f 4e | 4e 45 43 54 20 5e 24 5c |185 "CON|NECT ^$\|
|00002b50| 72 5c 6e 22 0d 20 20 4d | 61 74 63 68 53 74 72 20 |r\n".  M|atchStr |
|00002b60| 30 35 20 31 38 36 20 22 | 2b 46 43 4f 4e 5c 72 5c |05 186 "|+FCON\r\|
|00002b70| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 30 36 |n".  Mat|chStr 06|
|00002b80| 20 20 39 31 20 22 4e 4f | 20 44 49 41 4c 54 4f 4e |  91 "NO| DIALTON|
|00002b90| 45 5c 72 5c 6e 22 0d 20 | 20 4d 61 74 63 68 53 74 |E\r\n". | MatchSt|
|00002ba0| 72 20 30 37 20 20 39 32 | 20 22 42 55 53 59 5c 72 |r 07  92| "BUSY\r|
|00002bb0| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 30 |\n".  Ma|tchStr 0|
|00002bc0| 38 20 20 39 33 20 22 4e | 4f 20 43 41 52 52 49 45 |8  93 "N|O CARRIE|
|00002bd0| 52 5c 72 5c 6e 22 0d 20 | 20 4d 61 74 63 68 53 74 |R\r\n". | MatchSt|
|00002be0| 72 20 30 39 20 20 39 34 | 20 22 4e 4f 20 41 4e 53 |r 09  94| "NO ANS|
|00002bf0| 57 45 52 5c 72 5c 6e 22 | 0d 40 4c 61 62 65 6c 20 |WER\r\n"|.@Label |
|00002c00| 31 38 31 0d 20 20 4d 61 | 74 63 68 52 65 61 64 20 |181.  Ma|tchRead |
|00002c10| 31 32 30 30 0d 20 20 53 | 65 74 56 61 72 20 41 20 |1200.  S|etVar A |
|00002c20| 22 4e 4f 4e 45 22 0d 20 | 20 72 65 74 75 72 6e 0d |"NONE". | return.|
|00002c30| 0d 40 4c 61 62 65 6c 20 | 31 38 32 0d 20 20 4e 6f |.@Label |182.  No|
|00002c40| 74 65 20 22 52 69 6e 67 | c9 22 0d 20 20 4a 75 6d |te "Ring|.".  Jum|
|00002c50| 70 20 31 38 31 0d 40 4c | 61 62 65 6c 20 31 38 33 |p 181.@L|abel 183|
|00002c60| 0d 20 20 53 65 74 56 61 | 72 20 43 20 22 5e 24 22 |.  SetVa|r C "^$"|
|00002c70| 0d 20 20 4a 75 6d 70 20 | 31 38 31 0d 40 4c 61 62 |.  Jump |181.@Lab|
|00002c80| 65 6c 20 31 38 34 0d 20 | 20 53 65 74 56 61 72 20 |el 184. | SetVar |
|00002c90| 42 20 22 5e 24 22 0d 20 | 20 4a 75 6d 70 20 31 38 |B "^$". | Jump 18|
|00002ca0| 31 0d 40 4c 61 62 65 6c | 20 31 38 35 0d 20 20 53 |1.@Label| 185.  S|
|00002cb0| 65 74 56 61 72 20 41 20 | 22 44 61 74 61 22 0d 20 |etVar A |"Data". |
|00002cc0| 20 72 65 74 75 72 6e 0d | 40 4c 61 62 65 6c 20 31 | return.|@Label 1|
|00002cd0| 38 36 0d 20 20 53 65 74 | 56 61 72 20 41 20 22 46 |86.  Set|Var A "F|
|00002ce0| 61 78 32 22 0d 20 20 72 | 65 74 75 72 6e 0d 0d 0d |ax2".  r|eturn...|
|00002cf0| 40 4c 61 62 65 6c 20 31 | 39 30 0d 20 20 53 65 74 |@Label 1|90.  Set|
|00002d00| 56 61 72 20 43 20 22 4e | 4f 4e 45 22 0d 20 20 4d |Var C "N|ONE".  M|
|00002d10| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|00002d20| 74 72 20 30 31 20 31 39 | 31 20 22 37 30 5c 72 22 |tr 01 19|1 "70\r"|
|00002d30| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 30 32 20 31 |.  Match|Str 02 1|
|00002d40| 39 33 20 22 37 37 5c 72 | 22 0d 20 20 4d 61 74 63 |93 "77\r|".  Matc|
|00002d50| 68 53 74 72 20 30 33 20 | 31 39 33 20 22 38 30 5c |hStr 03 |193 "80\|
|00002d60| 72 22 0d 0d 20 20 4d 61 | 74 63 68 53 74 72 20 30 |r"..  Ma|tchStr 0|
|00002d70| 34 20 31 39 34 20 22 34 | 37 5c 72 22 0d 20 20 4d |4 194 "4|7\r".  M|
|00002d80| 61 74 63 68 53 74 72 20 | 30 35 20 31 39 35 20 22 |atchStr |05 195 "|
|00002d90| 34 38 5c 72 22 0d 20 20 | 4d 61 74 63 68 53 74 72 |48\r".  |MatchStr|
|00002da0| 20 30 36 20 31 39 36 20 | 22 34 39 5c 72 22 0d 20 | 06 196 |"49\r". |
|00002db0| 20 4d 61 74 63 68 53 74 | 72 20 30 37 20 31 39 37 | MatchSt|r 07 197|
|00002dc0| 20 22 35 30 5c 72 22 0d | 20 20 4d 61 74 63 68 53 | "50\r".|  MatchS|
|00002dd0| 74 72 20 30 38 20 31 39 | 38 20 22 35 31 5c 72 22 |tr 08 19|8 "51\r"|
|00002de0| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 30 39 20 31 |.  Match|Str 09 1|
|00002df0| 39 39 20 22 35 32 5c 72 | 22 0d 0d 20 20 4d 61 74 |99 "52\r|"..  Mat|
|00002e00| 63 68 53 74 72 20 31 30 | 20 32 30 30 20 22 31 36 |chStr 10| 200 "16|
|00002e10| 5c 72 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |\r".  Ma|tchStr 1|
|00002e20| 31 20 32 30 30 20 22 31 | 37 5c 72 22 0d 20 20 4d |1 200 "1|7\r".  M|
|00002e30| 61 74 63 68 53 74 72 20 | 31 32 20 32 30 30 20 22 |atchStr |12 200 "|
|00002e40| 31 38 5c 72 22 0d 0d 20 | 20 4d 61 74 63 68 53 74 |18\r".. | MatchSt|
|00002e50| 72 20 31 33 20 31 39 32 | 20 22 32 5c 72 22 0d 20 |r 13 192| "2\r". |
|00002e60| 20 4d 61 74 63 68 53 74 | 72 20 31 34 20 32 30 31 | MatchSt|r 14 201|
|00002e70| 20 22 31 5c 72 22 0d 20 | 20 4d 61 74 63 68 53 74 | "1\r". | MatchSt|
|00002e80| 72 20 31 35 20 31 39 31 | 20 22 33 33 5c 72 22 0d |r 15 191| "33\r".|
|00002e90| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 31 36 20 39 |.  Match|Str 16 9|
|00002ea0| 31 20 22 36 5c 72 22 0d | 20 20 4d 61 74 63 68 53 |1 "6\r".|  MatchS|
|00002eb0| 74 72 20 31 37 20 39 32 | 20 22 37 5c 72 22 0d 20 |tr 17 92| "7\r". |
|00002ec0| 20 4d 61 74 63 68 53 74 | 72 20 31 38 20 39 33 20 | MatchSt|r 18 93 |
|00002ed0| 22 33 5c 72 22 0d 20 20 | 4d 61 74 63 68 53 74 72 |"3\r".  |MatchStr|
|00002ee0| 20 31 39 20 39 34 20 22 | 38 5c 72 22 0d 0d 40 4c | 19 94 "|8\r"..@L|
|00002ef0| 61 62 65 6c 20 31 39 31 | 0d 20 20 4d 61 74 63 68 |abel 191|.  Match|
|00002f00| 52 65 61 64 20 31 32 30 | 30 0d 20 20 53 65 74 56 |Read 120|0.  SetV|
|00002f10| 61 72 20 41 20 22 4e 4f | 4e 45 22 0d 20 20 72 65 |ar A "NO|NE".  re|
|00002f20| 74 75 72 6e 0d 0d 40 4c | 61 62 65 6c 20 31 39 32 |turn..@L|abel 192|
|00002f30| 0d 20 20 4e 6f 74 65 20 | 22 52 69 6e 67 c9 22 0d |.  Note |"Ring.".|
|00002f40| 20 20 4a 75 6d 70 20 31 | 39 31 0d 0d 40 4c 61 62 |  Jump 1|91..@Lab|
|00002f50| 65 6c 20 31 39 33 0d 20 | 20 53 65 74 56 61 72 20 |el 193. | SetVar |
|00002f60| 43 20 22 52 45 4c 22 0d | 20 20 4a 75 6d 70 20 31 |C "REL".|  Jump 1|
|00002f70| 38 31 0d 0d 40 4c 61 62 | 65 6c 20 31 39 34 0d 20 |81..@Lab|el 194. |
|00002f80| 20 53 65 74 56 61 72 20 | 42 20 22 32 34 30 30 22 | SetVar |B "2400"|
|00002f90| 0d 20 20 4a 75 6d 70 20 | 31 39 31 0d 40 4c 61 62 |.  Jump |191.@Lab|
|00002fa0| 65 6c 20 31 39 35 0d 20 | 20 53 65 74 56 61 72 20 |el 195. | SetVar |
|00002fb0| 42 20 22 34 38 30 30 22 | 0d 20 20 4a 75 6d 70 20 |B "4800"|.  Jump |
|00002fc0| 31 39 31 0d 40 4c 61 62 | 65 6c 20 31 39 36 0d 20 |191.@Lab|el 196. |
|00002fd0| 20 53 65 74 56 61 72 20 | 42 20 22 37 32 30 30 22 | SetVar |B "7200"|
|00002fe0| 0d 20 20 4a 75 6d 70 20 | 31 39 31 0d 40 4c 61 62 |.  Jump |191.@Lab|
|00002ff0| 65 6c 20 31 39 37 0d 20 | 20 53 65 74 56 61 72 20 |el 197. | SetVar |
|00003000| 42 20 22 39 36 30 30 22 | 0d 20 20 4a 75 6d 70 20 |B "9600"|.  Jump |
|00003010| 31 39 31 0d 40 4c 61 62 | 65 6c 20 31 39 38 0d 20 |191.@Lab|el 198. |
|00003020| 20 53 65 74 56 61 72 20 | 42 20 22 31 32 30 30 30 | SetVar |B "12000|
|00003030| 22 0d 20 20 4a 75 6d 70 | 20 31 39 31 0d 40 4c 61 |".  Jump| 191.@La|
|00003040| 62 65 6c 20 31 39 39 0d | 20 20 53 65 74 56 61 72 |bel 199.|  SetVar|
|00003050| 20 42 20 22 31 34 34 30 | 30 22 0d 20 20 4a 75 6d | B "1440|0".  Jum|
|00003060| 70 20 31 39 31 0d 0d 40 | 4c 61 62 65 6c 20 32 30 |p 191..@|Label 20|
|00003070| 30 0d 20 20 53 65 74 56 | 61 72 20 41 20 22 44 61 |0.  SetV|ar A "Da|
|00003080| 74 61 22 0d 20 20 72 65 | 74 75 72 6e 0d 0d 40 4c |ta".  re|turn..@L|
|00003090| 61 62 65 6c 20 32 30 31 | 0d 20 20 53 65 74 56 61 |abel 201|.  SetVa|
|000030a0| 72 20 41 20 22 46 61 78 | 31 22 0d 20 20 72 65 74 |r A "Fax|1".  ret|
|000030b0| 75 72 6e 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |urn.....|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00003110| 00 00 00 02 05 49 63 6f | 6e 0d 02 00 00 00 00 00 |.....Ico|n.......|
|00003120| 00 00 00 00 00 00 40 00 | 00 00 00 00 00 00 00 00 |......@.|........|
|00003130| 1d 53 75 70 72 61 20 56 | 6f 69 63 65 26 46 61 78 |.Supra V|oice&Fax|
|00003140| 31 26 41 52 41 26 44 61 | 74 61 2d 6f 6c 64 02 00 |1&ARA&Da|ta-old..|
|00003150| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 ab 53 d2 db 00 00 | 00 00 00 00 01 ac 00 00 |...S....|........|
|00003180| 17 00 00 00 00 02 11 49 | 63 6f 6e 46 61 6d 69 6c |.......I|conFamil|
|00003190| 79 4d 61 6b 65 72 32 33 | 02 00 00 00 50 41 43 54 |yMaker23|....PACT|
|000031a0| 43 50 43 54 01 00 00 b6 | 01 40 00 00 00 00 d2 20 |CPCT....|.@..... |
|000031b0| 00 00 00 01 63 bb 00 01 | 6c 00 00 00 00 00 00 00 |....c...|l.......|
|000031c0| 00 00 00 00 a9 44 5e 20 | a9 44 5e 2c 00 00 00 00 |.....D^ |.D^,....|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 e0 28 00 0e 00 00 | 00 00 00 00 00 00 00 00 |...(....|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 40 |........|.......@|
|00003200| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 64 20 39 |...H..Mo|naco.d 9|
|00003210| 36 30 30 62 70 73 20 66 | 61 78 20 6d 6f 64 65 6d |600bps f|ax modem|
|00003220| 73 2e 20 53 75 70 00 06 | 00 04 00 3c 00 24 02 6d |s. Sup..|...<.$.m|
|00003230| 02 fd 00 3c 00 24 02 6d | 02 fd a9 65 7c eb 00 00 |...<.$.m|...e|...|
|00003240| 07 db 00 00 07 db 00 00 | 06 6b 01 00 00 00 00 1e |........|.k......|
|00003250| 00 3c 00 24 02 6d 02 fd | 00 3c 00 24 02 6d 02 fd |.<.$.m..|.<.$.m..|
|00003260| 00 00 06 6b 00 00 00 00 | 00 00 00 00 00 00 00 00 |...k....|........|
|00003270| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 a2 |.....n..|.n...>..|
|00003280| f3 68 14 f0 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.h......|.>..MPSR|
|00003290| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000032a0| 03 f0 ff ff 00 00 00 4c | 00 a4 f3 8c 00 00 00 00 |.......L|........|
|000032b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+