home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-07-15 | 11.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '; Undefined modem driver Version 0.01 07-Nov-1990
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 55 6e 64 65 66 69 | 6e 65 64 20 6d 6f 64 65 |; Undefi|ned mode|
|00000010| 6d 20 64 72 69 76 65 72 | 20 20 20 20 20 20 20 20 |m driver| |
|00000020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000030| 20 20 20 20 56 65 72 73 | 69 6f 6e 20 30 2e 30 31 | Vers|ion 0.01|
|00000040| 20 30 37 2d 4e 6f 76 2d | 31 39 39 30 0a 3b 20 28 | 07-Nov-|1990.; (|
|00000050| 63 29 20 31 39 39 30 20 | 48 75 67 6f 20 46 69 65 |c) 1990 |Hugo Fie|
|00000060| 6e 6e 65 73 0a 0a 6d 6f | 64 65 6d 5f 69 6e 69 74 |nnes..mo|dem_init|
|00000070| 69 61 6c 69 73 65 20 28 | 29 0a 20 20 7b 0a 20 20 |ialise (|). {. |
|00000080| 72 65 74 75 72 6e 28 31 | 29 0a 20 20 7d 0a 0a 6d |return(1|). }..m|
|00000090| 6f 64 65 6d 5f 73 68 75 | 74 64 6f 77 6e 20 28 29 |odem_shu|tdown ()|
|000000a0| 0a 20 20 7b 0a 20 20 72 | 65 74 75 72 6e 28 31 29 |. {. r|eturn(1)|
|000000b0| 0a 20 20 7d 0a 0a 6d 6f | 64 65 6d 5f 63 6f 6e 6e |. }..mo|dem_conn|
|000000c0| 65 63 74 20 28 29 0a 20 | 20 7b 0a 20 20 70 6f 72 |ect (). | {. por|
|000000d0| 74 5f 64 74 72 28 31 29 | 0a 20 20 70 6f 72 74 5f |t_dtr(1)|. port_|
|000000e0| 72 74 73 28 31 29 0a 20 | 20 72 65 74 75 72 6e 28 |rts(1). | return(|
|000000f0| 31 29 0a 20 20 7d 0a 0a | 6d 6f 64 65 6d 5f 64 69 |1). }..|modem_di|
|00000100| 73 63 6f 6e 6e 65 63 74 | 20 28 29 0a 20 20 7b 0a |sconnect| (). {.|
|00000110| 20 20 70 6f 72 74 5f 72 | 74 73 28 30 29 0a 20 20 | port_r|ts(0). |
|00000120| 70 6f 72 74 5f 64 74 72 | 28 30 29 0a 20 20 70 61 |port_dtr|(0). pa|
|00000130| 75 73 65 20 35 30 0a 20 | 20 70 6f 72 74 5f 64 74 |use 50. | port_dt|
|00000140| 72 28 31 29 0a 20 20 70 | 6f 72 74 5f 72 74 73 28 |r(1). p|ort_rts(|
|00000150| 31 29 0a 20 20 7d 0a 0a | 6d 6f 64 65 6d 5f 64 69 |1). }..|modem_di|
|00000160| 61 6c 20 28 73 74 72 69 | 6e 67 20 6e 75 6d 62 65 |al (stri|ng numbe|
|00000170| 72 5b 34 30 5d 2c 69 6e | 74 65 67 65 72 20 68 6f |r[40],in|teger ho|
|00000180| 77 29 0a 20 20 7b 0a 20 | 20 72 65 74 75 72 6e 28 |w). {. | return(|
|00000190| 31 29 0a 20 20 7d 0a 0a | 6d 6f 64 65 6d 5f 61 6e |1). }..|modem_an|
|000001a0| 73 77 65 72 20 28 29 0a | 20 20 7b 0a 20 20 72 65 |swer ().| {. re|
|000001b0| 74 75 72 6e 28 31 29 0a | 20 20 7d 0a 0a 6d 6f 64 |turn(1).| }..mod|
|000001c0| 65 6d 5f 65 72 72 6f 72 | 63 6f 6e 74 72 6f 6c 20 |em_error|control |
|000001d0| 28 73 74 72 69 6e 67 20 | 6f 70 74 69 6f 6e 5b 31 |(string |option[1|
|000001e0| 30 5d 29 0a 20 20 7b 0a | 20 20 72 65 74 75 72 6e |0]). {.| return|
|000001f0| 0a 20 20 7d 0a 0a 6d 6f | 64 65 6d 5f 73 74 61 6e |. }..mo|dem_stan|
|00000200| 64 61 72 64 20 28 73 74 | 72 69 6e 67 20 6f 70 74 |dard (st|ring opt|
|00000210| 69 6f 6e 5b 31 30 5d 29 | 0a 20 20 7b 0a 20 20 69 |ion[10])|. {. i|
|00000220| 66 20 28 63 6f 6d 70 61 | 72 65 69 28 6f 70 74 69 |f (compa|rei(opti|
|00000230| 6f 6e 2c 22 76 32 31 22 | 29 29 0a 20 20 20 20 7b |on,"v21"|)). {|
|00000240| 0a 20 20 20 20 70 6f 72 | 74 5f 74 78 73 70 65 65 |. por|t_txspee|
|00000250| 64 28 33 30 30 29 0a 20 | 20 20 20 70 6f 72 74 5f |d(300). | port_|
|00000260| 72 78 73 70 65 65 64 28 | 33 30 30 29 0a 20 20 20 |rxspeed(|300). |
|00000270| 20 72 65 74 75 72 6e 0a | 20 20 20 20 7d 0a 20 20 | return.| }. |
|00000280| 69 66 20 28 63 6f 6d 70 | 61 72 65 69 28 6f 70 74 |if (comp|arei(opt|
|00000290| 69 6f 6e 2c 22 76 32 32 | 22 29 29 0a 20 20 20 20 |ion,"v22|")). |
|000002a0| 7b 0a 20 20 20 20 70 6f | 72 74 5f 74 78 73 70 65 |{. po|rt_txspe|
|000002b0| 65 64 28 31 32 30 30 29 | 0a 20 20 20 20 70 6f 72 |ed(1200)|. por|
|000002c0| 74 5f 72 78 73 70 65 65 | 64 28 31 32 30 30 29 0a |t_rxspee|d(1200).|
|000002d0| 20 20 20 20 72 65 74 75 | 72 6e 0a 20 20 20 20 7d | retu|rn. }|
|000002e0| 0a 20 20 69 66 20 28 63 | 6f 6d 70 61 72 65 69 28 |. if (c|omparei(|
|000002f0| 6f 70 74 69 6f 6e 2c 22 | 76 32 32 62 69 73 22 29 |option,"|v22bis")|
|00000300| 29 0a 20 20 20 20 7b 0a | 20 20 20 20 70 6f 72 74 |). {.| port|
|00000310| 5f 74 78 73 70 65 65 64 | 28 32 34 30 30 29 0a 20 |_txspeed|(2400). |
|00000320| 20 20 20 70 6f 72 74 5f | 72 78 73 70 65 65 64 28 | port_|rxspeed(|
|00000330| 32 34 30 30 29 0a 20 20 | 20 20 72 65 74 75 72 6e |2400). | return|
|00000340| 0a 20 20 20 20 7d 0a 20 | 20 69 66 20 28 63 6f 6d |. }. | if (com|
|00000350| 70 61 72 65 69 28 6f 70 | 74 69 6f 6e 2c 22 76 33 |parei(op|tion,"v3|
|00000360| 32 22 29 29 0a 20 20 20 | 20 7b 0a 20 20 20 20 70 |2")). | {. p|
|00000370| 6f 72 74 5f 74 78 73 70 | 65 65 64 28 31 39 32 30 |ort_txsp|eed(1920|
|00000380| 30 29 0a 20 20 20 20 70 | 6f 72 74 5f 72 78 73 70 |0). p|ort_rxsp|
|00000390| 65 65 64 28 31 39 32 30 | 30 29 0a 20 20 20 20 72 |eed(1920|0). r|
|000003a0| 65 74 75 72 6e 0a 20 20 | 20 20 7d 0a 20 20 69 66 |eturn. | }. if|
|000003b0| 20 28 63 6f 6d 70 61 72 | 65 69 28 6f 70 74 69 6f | (compar|ei(optio|
|000003c0| 6e 2c 22 68 73 74 22 29 | 29 0a 20 20 20 20 7b 0a |n,"hst")|). {.|
|000003d0| 20 20 20 20 70 6f 72 74 | 5f 74 78 73 70 65 65 64 | port|_txspeed|
|000003e0| 28 31 39 32 30 30 29 0a | 20 20 20 20 70 6f 72 74 |(19200).| port|
|000003f0| 5f 72 78 73 70 65 65 64 | 28 31 39 32 30 30 29 0a |_rxspeed|(19200).|
|00000400| 20 20 20 20 72 65 74 75 | 72 6e 0a 20 20 20 20 7d | retu|rn. }|
|00000410| 0a 20 20 70 72 69 6e 74 | 73 20 22 4d 6f 64 65 6d |. print|s "Modem|
|00000420| 20 73 74 61 6e 64 61 72 | 64 20 22 2b 6f 70 74 69 | standar|d "+opti|
|00000430| 6f 6e 2b 22 20 69 73 20 | 6e 6f 74 20 73 75 70 70 |on+" is |not supp|
|00000440| 6f 72 74 65 64 2e 22 2b | 6e 65 77 6c 69 6e 65 0a |orted."+|newline.|
|00000450| 20 20 7d 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 | }.....|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 3b 20 48 61 79 65 73 20 | 6d 6f 64 65 6d 20 64 72 |; Hayes |modem dr|
|00000810| 69 76 65 72 20 20 20 20 | 20 20 20 20 20 20 20 20 |iver | |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000830| 20 20 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 30 | Vers|ion 1.00|
|00000840| 20 32 39 2d 4e 6f 76 2d | 31 39 39 30 0a 3b 20 28 | 29-Nov-|1990.; (|
|00000850| 63 29 20 31 39 39 30 20 | 48 75 67 6f 20 46 69 65 |c) 1990 |Hugo Fie|
|00000860| 6e 6e 65 73 0a 0a 6d 6f | 64 65 6d 5f 69 6e 69 74 |nnes..mo|dem_init|
|00000870| 69 61 6c 69 73 65 20 28 | 29 0a 20 20 7b 0a 20 20 |ialise (|). {. |
|00000880| 69 6e 74 65 67 65 72 20 | 6f 6c 64 74 78 3d 70 6f |integer |oldtx=po|
|00000890| 72 74 5f 74 78 73 70 65 | 65 64 28 29 2c 6f 6c 64 |rt_txspe|ed(),old|
|000008a0| 72 78 3d 70 6f 72 74 5f | 72 78 73 70 65 65 64 28 |rx=port_|rxspeed(|
|000008b0| 29 0a 0a 20 20 70 6f 72 | 74 5f 74 78 73 70 65 65 |).. por|t_txspee|
|000008c0| 64 28 33 30 30 29 0a 20 | 20 70 6f 72 74 5f 72 78 |d(300). | port_rx|
|000008d0| 73 70 65 65 64 28 33 30 | 30 29 0a 0a 20 20 74 79 |speed(30|0).. ty|
|000008e0| 70 65 20 22 41 54 22 2b | 63 72 0a 20 20 70 61 75 |pe "AT"+|cr. pau|
|000008f0| 73 65 28 35 30 29 0a 20 | 20 70 6f 72 74 5f 72 78 |se(50). | port_rx|
|00000900| 63 6c 65 61 72 28 29 0a | 0a 20 20 74 79 70 65 20 |clear().|. type |
|00000910| 22 41 54 51 30 56 31 45 | 30 58 31 53 30 3d 30 22 |"ATQ0V1E|0X1S0=0"|
|00000920| 2b 63 72 0a 20 20 69 66 | 20 28 77 61 69 74 66 6f |+cr. if| (waitfo|
|00000930| 72 28 22 4f 4b 22 2c 31 | 35 30 29 29 0a 20 20 20 |r("OK",1|50)). |
|00000940| 20 7b 0a 20 20 20 20 70 | 6f 72 74 5f 74 78 73 70 | {. p|ort_txsp|
|00000950| 65 65 64 28 6f 6c 64 74 | 78 29 0a 20 20 20 20 70 |eed(oldt|x). p|
|00000960| 6f 72 74 5f 72 78 73 70 | 65 65 64 28 6f 6c 64 72 |ort_rxsp|eed(oldr|
|00000970| 78 29 0a 20 20 20 20 72 | 65 74 75 72 6e 28 30 29 |x). r|eturn(0)|
|00000980| 0a 20 20 20 20 7d 0a 0a | 20 20 70 6f 72 74 5f 74 |. }..| port_t|
|00000990| 78 73 70 65 65 64 28 6f | 6c 64 74 78 29 0a 20 20 |xspeed(o|ldtx). |
|000009a0| 70 6f 72 74 5f 72 78 73 | 70 65 65 64 28 6f 6c 64 |port_rxs|peed(old|
|000009b0| 72 78 29 0a 20 20 72 65 | 74 75 72 6e 28 31 29 0a |rx). re|turn(1).|
|000009c0| 20 20 7d 0a 0a 6d 6f 64 | 65 6d 5f 73 68 75 74 64 | }..mod|em_shutd|
|000009d0| 6f 77 6e 20 28 29 0a 20 | 20 7b 0a 20 20 72 65 74 |own (). | {. ret|
|000009e0| 75 72 6e 28 31 29 0a 20 | 20 7d 0a 0a 6d 6f 64 65 |urn(1). | }..mode|
|000009f0| 6d 5f 63 6f 6e 6e 65 63 | 74 20 28 29 0a 20 20 7b |m_connec|t (). {|
|00000a00| 0a 20 20 70 6f 72 74 5f | 64 74 72 28 31 29 0a 20 |. port_|dtr(1). |
|00000a10| 20 70 6f 72 74 5f 72 74 | 73 28 31 29 0a 20 20 74 | port_rt|s(1). t|
|00000a20| 79 70 65 20 22 41 54 4f | 22 2b 63 72 0a 0a 20 20 |ype "ATO|"+cr.. |
|00000a30| 72 65 74 75 72 6e 28 5f | 70 72 6f 63 65 73 73 6d |return(_|processm|
|00000a40| 65 73 73 61 67 65 28 22 | 22 29 29 0a 20 20 7d 0a |essage("|")). }.|
|00000a50| 0a 6d 6f 64 65 6d 5f 64 | 69 73 63 6f 6e 6e 65 63 |.modem_d|isconnec|
|00000a60| 74 20 28 29 0a 20 20 7b | 0a 20 20 70 6f 72 74 5f |t (). {|. port_|
|00000a70| 72 74 73 28 30 29 0a 20 | 20 70 6f 72 74 5f 64 74 |rts(0). | port_dt|
|00000a80| 72 28 30 29 0a 20 20 70 | 61 75 73 65 20 35 30 0a |r(0). p|ause 50.|
|00000a90| 20 20 70 6f 72 74 5f 64 | 74 72 28 31 29 0a 20 20 | port_d|tr(1). |
|00000aa0| 70 6f 72 74 5f 72 74 73 | 28 31 29 0a 20 20 74 79 |port_rts|(1). ty|
|00000ab0| 70 65 20 63 72 0a 20 20 | 7d 0a 0a 6d 6f 64 65 6d |pe cr. |}..modem|
|00000ac0| 5f 64 69 61 6c 20 28 73 | 74 72 69 6e 67 20 6e 75 |_dial (s|tring nu|
|00000ad0| 6d 62 65 72 5b 34 30 5d | 2c 69 6e 74 65 67 65 72 |mber[40]|,integer|
|00000ae0| 20 68 6f 77 29 0a 20 20 | 7b 0a 20 20 73 74 72 69 | how). |{. stri|
|00000af0| 6e 67 20 64 69 61 6c 74 | 79 70 65 5b 31 5d 0a 0a |ng dialt|ype[1]..|
|00000b00| 20 20 70 6f 72 74 5f 64 | 74 72 28 31 29 0a 20 20 | port_d|tr(1). |
|00000b10| 70 6f 72 74 5f 72 74 73 | 28 31 29 0a 0a 20 20 69 |port_rts|(1).. i|
|00000b20| 66 20 28 68 6f 77 3d 3d | 30 29 0a 20 20 20 20 7b |f (how==|0). {|
|00000b30| 0a 20 20 20 20 64 69 61 | 6c 74 79 70 65 3d 22 50 |. dia|ltype="P|
|00000b40| 22 0a 20 20 20 20 7d 0a | 20 20 65 6c 73 65 0a 20 |". }.| else. |
|00000b50| 20 20 20 7b 0a 20 20 20 | 20 64 69 61 6c 74 79 70 | {. | dialtyp|
|00000b60| 65 3d 22 54 22 0a 20 20 | 20 20 7d 0a 0a 20 20 74 |e="T". | }.. t|
|00000b70| 79 70 65 20 22 41 54 44 | 22 2b 64 69 61 6c 74 79 |ype "ATD|"+dialty|
|00000b80| 70 65 2b 6e 75 6d 62 65 | 72 2b 63 72 0a 0a 20 20 |pe+numbe|r+cr.. |
|00000b90| 72 65 74 75 72 6e 28 5f | 70 72 6f 63 65 73 73 6d |return(_|processm|
|00000ba0| 65 73 73 61 67 65 28 22 | 22 29 29 0a 20 20 7d 0a |essage("|")). }.|
|00000bb0| 0a 6d 6f 64 65 6d 5f 61 | 6e 73 77 65 72 20 28 29 |.modem_a|nswer ()|
|00000bc0| 0a 20 20 7b 20 20 0a 20 | 20 73 74 72 69 6e 67 20 |. { . | string |
|00000bd0| 72 65 73 70 6f 6e 73 65 | 5b 33 30 5d 0a 0a 20 20 |response|[30].. |
|00000be0| 74 79 70 65 20 22 41 54 | 53 30 3d 31 22 2b 63 72 |type "AT|S0=1"+cr|
|00000bf0| 0a 0a 20 20 72 65 70 65 | 61 74 0a 20 20 20 20 7b |.. repe|at. {|
|00000c00| 0a 20 20 20 20 72 65 73 | 70 6f 6e 73 65 3d 24 6d |. res|ponse=$m|
|00000c10| 6f 64 65 6d 69 6e 70 75 | 74 28 33 30 2c 6d 6f 64 |odeminpu|t(30,mod|
|00000c20| 65 6d 5f 72 65 70 6c 79 | 77 61 69 74 29 0a 20 20 |em_reply|wait). |
|00000c30| 20 20 7d 0a 20 20 75 6e | 74 69 6c 28 73 74 72 63 | }. un|til(strc|
|00000c40| 6d 70 28 24 6c 65 66 74 | 28 72 65 73 70 6f 6e 73 |mp($left|(respons|
|00000c50| 65 2c 37 29 2c 22 43 4f | 4e 4e 45 43 54 22 29 3d |e,7),"CO|NNECT")=|
|00000c60| 3d 30 29 0a 0a 20 20 72 | 65 74 75 72 6e 28 5f 70 |=0).. r|eturn(_p|
|00000c70| 72 6f 63 65 73 73 6d 65 | 73 73 61 67 65 28 72 65 |rocessme|ssage(re|
|00000c80| 73 70 6f 6e 73 65 29 29 | 0a 20 20 7d 0a 0a 6d 6f |sponse))|. }..mo|
|00000c90| 64 65 6d 5f 65 72 72 6f | 72 63 6f 6e 74 72 6f 6c |dem_erro|rcontrol|
|00000ca0| 20 28 73 74 72 69 6e 67 | 20 6f 70 74 69 6f 6e 5b | (string| option[|
|00000cb0| 31 30 5d 29 0a 20 20 7b | 0a 20 20 72 65 74 75 72 |10]). {|. retur|
|00000cc0| 6e 0a 20 20 7d 0a 0a 6d | 6f 64 65 6d 5f 73 74 61 |n. }..m|odem_sta|
|00000cd0| 6e 64 61 72 64 20 28 73 | 74 72 69 6e 67 20 6f 70 |ndard (s|tring op|
|00000ce0| 74 69 6f 6e 5b 31 30 5d | 29 0a 20 20 7b 0a 20 20 |tion[10]|). {. |
|00000cf0| 69 66 20 28 63 6f 6d 70 | 61 72 65 69 28 6f 70 74 |if (comp|arei(opt|
|00000d00| 69 6f 6e 2c 22 76 32 31 | 22 29 29 0a 20 20 20 20 |ion,"v21|")). |
|00000d10| 7b 0a 20 20 20 20 70 6f | 72 74 5f 74 78 73 70 65 |{. po|rt_txspe|
|00000d20| 65 64 28 33 30 30 29 0a | 20 20 20 20 70 6f 72 74 |ed(300).| port|
|00000d30| 5f 72 78 73 70 65 65 64 | 28 33 30 30 29 0a 20 20 |_rxspeed|(300). |
|00000d40| 20 20 72 65 74 75 72 6e | 0a 20 20 20 20 7d 0a 20 | return|. }. |
|00000d50| 20 69 66 20 28 63 6f 6d | 70 61 72 65 69 28 6f 70 | if (com|parei(op|
|00000d60| 74 69 6f 6e 2c 22 76 32 | 32 22 29 29 0a 20 20 20 |tion,"v2|2")). |
|00000d70| 20 7b 0a 20 20 20 20 70 | 6f 72 74 5f 74 78 73 70 | {. p|ort_txsp|
|00000d80| 65 65 64 28 31 32 30 30 | 29 0a 20 20 20 20 70 6f |eed(1200|). po|
|00000d90| 72 74 5f 72 78 73 70 65 | 65 64 28 31 32 30 30 29 |rt_rxspe|ed(1200)|
|00000da0| 0a 20 20 20 20 72 65 74 | 75 72 6e 0a 20 20 20 20 |. ret|urn. |
|00000db0| 7d 0a 20 20 69 66 20 28 | 63 6f 6d 70 61 72 65 69 |}. if (|comparei|
|00000dc0| 28 6f 70 74 69 6f 6e 2c | 22 76 32 32 62 69 73 22 |(option,|"v22bis"|
|00000dd0| 29 29 0a 20 20 20 20 7b | 0a 20 20 20 20 70 6f 72 |)). {|. por|
|00000de0| 74 5f 74 78 73 70 65 65 | 64 28 32 34 30 30 29 0a |t_txspee|d(2400).|
|00000df0| 20 20 20 20 70 6f 72 74 | 5f 72 78 73 70 65 65 64 | port|_rxspeed|
|00000e00| 28 32 34 30 30 29 0a 20 | 20 20 20 72 65 74 75 72 |(2400). | retur|
|00000e10| 6e 0a 20 20 20 20 7d 0a | 20 20 69 66 20 28 63 6f |n. }.| if (co|
|00000e20| 6d 70 61 72 65 69 28 6f | 70 74 69 6f 6e 2c 22 76 |mparei(o|ption,"v|
|00000e30| 32 37 22 29 29 0a 20 20 | 20 20 7b 0a 20 20 20 20 |27")). | {. |
|00000e40| 70 6f 72 74 5f 74 78 73 | 70 65 65 64 28 34 38 30 |port_txs|peed(480|
|00000e50| 30 29 0a 20 20 20 20 70 | 6f 72 74 5f 72 78 73 70 |0). p|ort_rxsp|
|00000e60| 65 65 64 28 34 38 30 30 | 29 0a 20 20 20 20 72 65 |eed(4800|). re|
|00000e70| 74 75 72 6e 0a 20 20 20 | 20 7d 0a 20 20 69 66 20 |turn. | }. if |
|00000e80| 28 63 6f 6d 70 61 72 65 | 69 28 6f 70 74 69 6f 6e |(compare|i(option|
|00000e90| 2c 22 76 33 32 22 29 29 | 0a 20 20 20 20 7b 0a 20 |,"v32"))|. {. |
|00000ea0| 20 20 20 70 6f 72 74 5f | 74 78 73 70 65 65 64 28 | port_|txspeed(|
|00000eb0| 39 36 30 30 29 0a 20 20 | 20 20 70 6f 72 74 5f 72 |9600). | port_r|
|00000ec0| 78 73 70 65 65 64 28 39 | 36 30 30 29 0a 20 20 20 |xspeed(9|600). |
|00000ed0| 20 72 65 74 75 72 6e 0a | 20 20 20 20 7d 0a 20 20 | return.| }. |
|00000ee0| 69 66 20 28 63 6f 6d 70 | 61 72 65 69 28 6f 70 74 |if (comp|arei(opt|
|00000ef0| 69 6f 6e 2c 22 76 33 32 | 62 69 73 22 29 29 0a 20 |ion,"v32|bis")). |
|00000f00| 20 20 20 7b 0a 20 20 20 | 20 70 6f 72 74 5f 74 78 | {. | port_tx|
|00000f10| 73 70 65 65 64 28 31 39 | 32 30 30 29 0a 20 20 20 |speed(19|200). |
|00000f20| 20 70 6f 72 74 5f 72 78 | 73 70 65 65 64 28 31 39 | port_rx|speed(19|
|00000f30| 32 30 30 29 0a 20 20 20 | 20 72 65 74 75 72 6e 0a |200). | return.|
|00000f40| 20 20 20 20 7d 0a 20 20 | 70 72 69 6e 74 73 20 22 | }. |prints "|
|00000f50| 4d 6f 64 65 6d 20 73 74 | 61 6e 64 61 72 64 20 22 |Modem st|andard "|
|00000f60| 2b 6f 70 74 69 6f 6e 2b | 22 20 69 73 20 6e 6f 74 |+option+|" is not|
|00000f70| 20 73 75 70 70 6f 72 74 | 65 64 2e 22 2b 6e 65 77 | support|ed."+new|
|00000f80| 6c 69 6e 65 0a 20 20 7d | 0a 0a 5f 70 72 6f 63 65 |line. }|.._proce|
|00000f90| 73 73 6d 65 73 73 61 67 | 65 20 28 73 74 72 69 6e |ssmessag|e (strin|
|00000fa0| 67 20 61 6c 72 65 61 64 | 79 5b 33 30 5d 29 0a 20 |g alread|y[30]). |
|00000fb0| 20 7b 0a 20 20 73 74 72 | 69 6e 67 20 72 65 74 63 | {. str|ing retc|
|00000fc0| 6f 64 65 5b 33 30 5d 0a | 0a 20 20 69 66 20 28 6c |ode[30].|. if (l|
|00000fd0| 65 6e 28 61 6c 72 65 61 | 64 79 29 3d 3d 30 29 0a |en(alrea|dy)==0).|
|00000fe0| 20 20 20 20 7b 0a 20 20 | 20 20 3b 20 57 61 69 74 | {. | ; Wait|
|00000ff0| 20 66 6f 72 20 6d 65 73 | 73 61 67 65 0a 20 20 20 | for mes|sage. |
|00001000| 20 72 65 74 63 6f 64 65 | 3d 24 6d 6f 64 65 6d 69 | retcode|=$modemi|
|00001010| 6e 70 75 74 28 33 30 2c | 6d 6f 64 65 6d 5f 72 65 |nput(30,|modem_re|
|00001020| 70 6c 79 77 61 69 74 29 | 0a 20 20 20 20 69 66 20 |plywait)|. if |
|00001030| 28 6c 65 6e 28 72 65 74 | 63 6f 64 65 29 3d 3d 30 |(len(ret|code)==0|
|00001040| 29 0a 20 20 20 20 20 20 | 7b 0a 20 20 20 20 20 20 |). |{. |
|00001050| 72 65 74 63 6f 64 65 3d | 24 6d 6f 64 65 6d 69 6e |retcode=|$modemin|
|00001060| 70 75 74 28 33 30 2c 6d | 6f 64 65 6d 5f 72 65 70 |put(30,m|odem_rep|
|00001070| 6c 79 77 61 69 74 29 0a | 20 20 20 20 20 20 7d 0a |lywait).| }.|
|00001080| 20 20 20 20 7d 0a 20 20 | 65 6c 73 65 0a 20 20 20 | }. |else. |
|00001090| 20 7b 0a 20 20 20 20 72 | 65 74 63 6f 64 65 3d 61 | {. r|etcode=a|
|000010a0| 6c 72 65 61 64 79 0a 20 | 20 20 20 7d 0a 0a 20 20 |lready. | }.. |
|000010b0| 69 66 20 28 63 6f 6d 70 | 61 72 65 28 72 65 74 63 |if (comp|are(retc|
|000010c0| 6f 64 65 2c 22 43 4f 4e | 4e 45 43 54 22 29 29 0a |ode,"CON|NECT")).|
|000010d0| 20 20 20 20 7b 0a 20 20 | 20 20 72 65 74 63 6f 64 | {. | retcod|
|000010e0| 65 3d 22 43 4f 4e 4e 45 | 43 54 20 33 30 30 22 0a |e="CONNE|CT 300".|
|000010f0| 20 20 20 20 7d 0a 20 20 | 69 66 20 28 63 6f 6d 70 | }. |if (comp|
|00001100| 61 72 65 28 24 6c 65 66 | 74 28 72 65 74 63 6f 64 |are($lef|t(retcod|
|00001110| 65 2c 37 29 2c 22 43 4f | 4e 4e 45 43 54 22 29 29 |e,7),"CO|NNECT"))|
|00001120| 0a 20 20 20 20 7b 0a 20 | 20 20 20 69 6e 74 65 67 |. {. | integ|
|00001130| 65 72 20 62 61 75 64 72 | 61 74 65 2c 74 78 2c 72 |er baudr|ate,tx,r|
|00001140| 78 2c 61 3d 39 0a 20 20 | 20 20 73 74 72 69 6e 67 |x,a=9. | string|
|00001150| 20 72 61 74 65 5b 35 5d | 0a 0a 20 20 20 20 3b 20 | rate[5]|.. ; |
|00001160| 53 74 72 69 70 20 72 61 | 74 65 0a 20 20 20 20 77 |Strip ra|te. w|
|00001170| 68 69 6c 65 28 69 73 64 | 69 67 69 74 28 24 6d 69 |hile(isd|igit($mi|
|00001180| 64 28 72 65 74 63 6f 64 | 65 2c 61 29 29 29 0a 20 |d(retcod|e,a))). |
|00001190| 20 20 20 20 20 7b 0a 20 | 20 20 20 20 20 72 61 74 | {. | rat|
|000011a0| 65 3d 72 61 74 65 2b 24 | 6d 69 64 28 72 65 74 63 |e=rate+$|mid(retc|
|000011b0| 6f 64 65 2c 61 29 0a 20 | 20 20 20 20 20 61 3d 61 |ode,a). | a=a|
|000011c0| 2b 31 0a 20 20 20 20 20 | 20 7d 0a 0a 20 20 20 20 |+1. | }.. |
|000011d0| 62 61 75 64 72 61 74 65 | 3d 76 61 6c 28 72 61 74 |baudrate|=val(rat|
|000011e0| 65 29 0a 20 20 20 20 69 | 66 20 28 62 61 75 64 72 |e). i|f (baudr|
|000011f0| 61 74 65 3d 3d 31 32 37 | 35 20 7c 7c 20 62 61 75 |ate==127|5 || bau|
|00001200| 64 72 61 74 65 3d 3d 37 | 35 31 32 29 0a 20 20 20 |drate==7|512). |
|00001210| 20 20 20 7b 0a 20 20 20 | 20 20 20 74 78 3d 37 35 | {. | tx=75|
|00001220| 0a 20 20 20 20 20 20 72 | 78 3d 31 32 30 30 0a 20 |. r|x=1200. |
|00001230| 20 20 20 20 20 7d 0a 20 | 20 20 20 65 6c 73 65 0a | }. | else.|
|00001240| 20 20 20 20 20 20 7b 0a | 20 20 20 20 20 20 74 78 | {.| tx|
|00001250| 3d 62 61 75 64 72 61 74 | 65 0a 20 20 20 20 20 20 |=baudrat|e. |
|00001260| 72 78 3d 62 61 75 64 72 | 61 74 65 0a 20 20 20 20 |rx=baudr|ate. |
|00001270| 20 20 7d 0a 20 20 20 20 | 70 6f 72 74 5f 74 78 73 | }. |port_txs|
|00001280| 70 65 65 64 28 74 78 29 | 0a 20 20 20 20 70 6f 72 |peed(tx)|. por|
|00001290| 74 5f 72 78 73 70 65 65 | 64 28 72 78 29 0a 20 20 |t_rxspee|d(rx). |
|000012a0| 20 20 72 65 74 75 72 6e | 28 31 29 0a 20 20 20 20 | return|(1). |
|000012b0| 7d 0a 0a 20 20 6d 6f 64 | 65 6d 5f 64 69 73 63 6f |}.. mod|em_disco|
|000012c0| 6e 6e 65 63 74 28 29 0a | 20 20 72 65 74 75 72 6e |nnect().| return|
|000012d0| 28 30 29 3b 0a 20 20 7d | 0a 00 00 00 00 00 00 00 |(0);. }|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 3b 20 48 53 54 20 6d 6f | 64 65 6d 20 64 72 69 76 |; HST mo|dem driv|
|00001410| 65 72 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |er | |
|00001420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001430| 20 20 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 31 | Vers|ion 1.01|
|00001440| 20 31 39 2d 4e 6f 76 2d | 31 39 39 30 0a 3b 20 28 | 19-Nov-|1990.; (|
|00001450| 63 29 20 31 39 39 30 20 | 48 75 67 6f 20 46 69 65 |c) 1990 |Hugo Fie|
|00001460| 6e 6e 65 73 0a 0a 6d 6f | 64 65 6d 5f 69 6e 69 74 |nnes..mo|dem_init|
|00001470| 69 61 6c 69 73 65 20 28 | 29 0a 20 20 7b 20 20 20 |ialise (|). { |
|00001480| 20 20 20 20 0a 20 20 69 | 6e 74 65 67 65 72 20 6f | . i|nteger o|
|00001490| 6c 64 74 78 3d 70 6f 72 | 74 5f 74 78 73 70 65 65 |ldtx=por|t_txspee|
|000014a0| 64 28 29 2c 6f 6c 64 72 | 78 3d 70 6f 72 74 5f 72 |d(),oldr|x=port_r|
|000014b0| 78 73 70 65 65 64 28 29 | 0a 0a 20 20 70 6f 72 74 |xspeed()|.. port|
|000014c0| 5f 74 78 73 70 65 65 64 | 28 31 39 32 30 30 29 0a |_txspeed|(19200).|
|000014d0| 20 20 70 6f 72 74 5f 72 | 78 73 70 65 65 64 28 31 | port_r|xspeed(1|
|000014e0| 39 32 30 30 29 0a 0a 20 | 20 74 79 70 65 20 22 41 |9200).. | type "A|
|000014f0| 54 51 30 56 31 45 30 58 | 34 53 30 3d 30 26 42 31 |TQ0V1E0X|4S0=0&B1|
|00001500| 26 4d 34 26 4b 32 26 4e | 30 26 52 32 26 49 30 26 |&M4&K2&N|0&R2&I0&|
|00001510| 48 31 26 41 31 22 2b 63 | 72 0a 20 20 69 66 20 28 |H1&A1"+c|r. if (|
|00001520| 77 61 69 74 66 6f 72 28 | 22 4f 4b 22 2c 31 35 30 |waitfor(|"OK",150|
|00001530| 29 29 0a 20 20 20 20 7b | 0a 20 20 20 20 70 6f 72 |)). {|. por|
|00001540| 74 5f 74 78 73 70 65 65 | 64 28 6f 6c 64 74 78 29 |t_txspee|d(oldtx)|
|00001550| 0a 20 20 20 20 70 6f 72 | 74 5f 72 78 73 70 65 65 |. por|t_rxspee|
|00001560| 64 28 6f 6c 64 72 78 29 | 0a 20 20 20 20 72 65 74 |d(oldrx)|. ret|
|00001570| 75 72 6e 28 30 29 0a 20 | 20 20 20 7d 0a 0a 20 20 |urn(0). | }.. |
|00001580| 70 6f 72 74 5f 74 78 73 | 70 65 65 64 28 6f 6c 64 |port_txs|peed(old|
|00001590| 74 78 29 0a 20 20 70 6f | 72 74 5f 72 78 73 70 65 |tx). po|rt_rxspe|
|000015a0| 65 64 28 6f 6c 64 72 78 | 29 0a 20 20 72 65 74 75 |ed(oldrx|). retu|
|000015b0| 72 6e 28 31 29 0a 20 20 | 7d 0a 20 20 20 20 20 20 |rn(1). |}. |
|000015c0| 20 20 20 20 20 0a 6d 6f | 64 65 6d 5f 73 68 75 74 | .mo|dem_shut|
|000015d0| 64 6f 77 6e 20 28 29 0a | 20 20 7b 0a 20 20 72 65 |down ().| {. re|
|000015e0| 74 75 72 6e 28 31 29 0a | 20 20 7d 0a 0a 6d 6f 64 |turn(1).| }..mod|
|000015f0| 65 6d 5f 63 6f 6e 6e 65 | 63 74 20 28 29 0a 20 20 |em_conne|ct (). |
|00001600| 7b 20 20 20 20 20 20 20 | 20 20 20 20 20 0a 20 20 |{ | . |
|00001610| 70 6f 72 74 5f 64 74 72 | 28 31 29 0a 20 20 70 6f |port_dtr|(1). po|
|00001620| 72 74 5f 72 74 73 28 31 | 29 0a 20 20 74 79 70 65 |rt_rts(1|). type|
|00001630| 20 22 41 54 44 22 2b 63 | 72 0a 0a 20 20 72 65 74 | "ATD"+c|r.. ret|
|00001640| 75 72 6e 28 5f 70 72 6f | 63 65 73 73 6d 65 73 73 |urn(_pro|cessmess|
|00001650| 61 67 65 28 22 22 29 29 | 0a 20 20 7d 0a 0a 6d 6f |age(""))|. }..mo|
|00001660| 64 65 6d 5f 64 69 73 63 | 6f 6e 6e 65 63 74 20 28 |dem_disc|onnect (|
|00001670| 29 0a 20 20 7b 0a 20 20 | 74 79 70 65 20 63 72 20 |). {. |type cr |
|00001680| 0a 20 20 70 61 75 73 65 | 20 31 30 0a 20 20 70 6f |. pause| 10. po|
|00001690| 72 74 5f 72 74 73 28 30 | 29 0a 20 20 70 6f 72 74 |rt_rts(0|). port|
|000016a0| 5f 64 74 72 28 30 29 0a | 20 20 70 61 75 73 65 20 |_dtr(0).| pause |
|000016b0| 35 30 0a 20 20 70 6f 72 | 74 5f 64 74 72 28 31 29 |50. por|t_dtr(1)|
|000016c0| 0a 20 20 70 6f 72 74 5f | 72 74 73 28 31 29 0a 20 |. port_|rts(1). |
|000016d0| 20 70 61 75 73 65 20 31 | 30 0a 20 20 74 79 70 65 | pause 1|0. type|
|000016e0| 20 63 72 0a 20 20 7d 0a | 0a 6d 6f 64 65 6d 5f 64 | cr. }.|.modem_d|
|000016f0| 69 61 6c 20 28 73 74 72 | 69 6e 67 20 6e 75 6d 62 |ial (str|ing numb|
|00001700| 65 72 5b 34 30 5d 2c 69 | 6e 74 65 67 65 72 20 68 |er[40],i|nteger h|
|00001710| 6f 77 29 0a 20 20 7b 20 | 20 20 20 20 20 20 20 20 |ow). { | |
|00001720| 20 0a 20 20 73 74 72 69 | 6e 67 20 64 69 61 6c 74 | . stri|ng dialt|
|00001730| 79 70 65 5b 31 5d 0a 0a | 20 20 70 6f 72 74 5f 64 |ype[1]..| port_d|
|00001740| 74 72 28 31 29 0a 20 20 | 70 6f 72 74 5f 72 74 73 |tr(1). |port_rts|
|00001750| 28 31 29 0a 0a 20 20 69 | 66 20 28 68 6f 77 3d 3d |(1).. i|f (how==|
|00001760| 30 29 0a 20 20 20 20 7b | 0a 20 20 20 20 64 69 61 |0). {|. dia|
|00001770| 6c 74 79 70 65 3d 22 50 | 22 0a 20 20 20 20 7d 0a |ltype="P|". }.|
|00001780| 20 20 65 6c 73 65 0a 20 | 20 20 20 7b 0a 20 20 20 | else. | {. |
|00001790| 20 64 69 61 6c 74 79 70 | 65 3d 22 54 22 0a 20 20 | dialtyp|e="T". |
|000017a0| 20 20 7d 0a 0a 20 20 70 | 6f 72 74 5f 72 78 63 6c | }.. p|ort_rxcl|
|000017b0| 65 61 72 28 29 0a 20 20 | 74 79 70 65 20 22 41 54 |ear(). |type "AT|
|000017c0| 44 22 2b 64 69 61 6c 74 | 79 70 65 2b 6e 75 6d 62 |D"+dialt|ype+numb|
|000017d0| 65 72 2b 63 72 0a 0a 20 | 20 72 65 74 75 72 6e 28 |er+cr.. | return(|
|000017e0| 5f 70 72 6f 63 65 73 73 | 6d 65 73 73 61 67 65 28 |_process|message(|
|000017f0| 22 22 29 29 0a 20 20 7d | 0a 0a 6d 6f 64 65 6d 5f |"")). }|..modem_|
|00001800| 61 6e 73 77 65 72 20 28 | 29 0a 20 20 7b 20 20 0a |answer (|). { .|
|00001810| 20 20 73 74 72 69 6e 67 | 20 72 65 73 70 6f 6e 73 | string| respons|
|00001820| 65 5b 33 30 5d 0a 0a 20 | 20 74 79 70 65 20 22 41 |e[30].. | type "A|
|00001830| 54 53 30 3d 31 22 2b 63 | 72 0a 0a 20 20 72 65 70 |TS0=1"+c|r.. rep|
|00001840| 65 61 74 0a 20 20 20 20 | 7b 0a 20 20 20 20 72 65 |eat. |{. re|
|00001850| 73 70 6f 6e 73 65 3d 24 | 6d 6f 64 65 6d 69 6e 70 |sponse=$|modeminp|
|00001860| 75 74 28 33 30 2c 6d 6f | 64 65 6d 5f 72 65 70 6c |ut(30,mo|dem_repl|
|00001870| 79 77 61 69 74 29 0a 20 | 20 20 20 7d 0a 20 20 75 |ywait). | }. u|
|00001880| 6e 74 69 6c 28 73 74 72 | 63 6d 70 28 24 6c 65 66 |ntil(str|cmp($lef|
|00001890| 74 28 72 65 73 70 6f 6e | 73 65 2c 37 29 2c 22 43 |t(respon|se,7),"C|
|000018a0| 4f 4e 4e 45 43 54 22 29 | 3d 3d 30 29 0a 0a 20 20 |ONNECT")|==0).. |
|000018b0| 72 65 74 75 72 6e 28 5f | 70 72 6f 63 65 73 73 6d |return(_|processm|
|000018c0| 65 73 73 61 67 65 28 72 | 65 73 70 6f 6e 73 65 29 |essage(r|esponse)|
|000018d0| 29 0a 20 20 7d 0a 0a 6d | 6f 64 65 6d 5f 65 72 72 |). }..m|odem_err|
|000018e0| 6f 72 63 6f 6e 74 72 6f | 6c 20 28 73 74 72 69 6e |orcontro|l (strin|
|000018f0| 67 20 6f 70 74 69 6f 6e | 5b 31 30 5d 29 0a 20 20 |g option|[10]). |
|00001900| 7b 0a 20 20 73 65 74 28 | 6c 69 6e 6b 6c 65 76 65 |{. set(|linkleve|
|00001910| 6c 2c 6e 6f 6e 65 29 0a | 0a 20 20 69 66 20 28 63 |l,none).|. if (c|
|00001920| 6f 6d 70 61 72 65 69 28 | 6f 70 74 69 6f 6e 2c 22 |omparei(|option,"|
|00001930| 6f 66 66 22 29 29 0a 20 | 20 20 20 7b 0a 20 20 20 |off")). | {. |
|00001940| 20 74 79 70 65 28 22 41 | 54 26 4d 30 22 2b 63 72 | type("A|T&M0"+cr|
|00001950| 29 0a 20 20 20 20 7d 20 | 20 20 20 20 20 20 20 20 |). } | |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001970| 20 20 0a 0a 20 20 69 66 | 20 28 63 6f 6d 70 61 72 | .. if| (compar|
|00001980| 65 69 28 24 6c 65 66 74 | 28 6f 70 74 69 6f 6e 2c |ei($left|(option,|
|00001990| 33 29 2c 22 6d 6e 70 22 | 29 29 0a 20 20 20 20 7b |3),"mnp"|)). {|
|000019a0| 0a 20 20 20 20 69 6e 74 | 65 67 65 72 20 6c 65 76 |. int|eger lev|
|000019b0| 65 6c 3d 76 61 6c 28 24 | 6d 69 64 28 6f 70 74 69 |el=val($|mid(opti|
|000019c0| 6f 6e 2c 34 2c 31 29 29 | 0a 20 0a 20 20 20 20 69 |on,4,1))|. . i|
|000019d0| 66 20 28 6c 65 76 65 6c | 3e 3d 35 29 0a 20 20 20 |f (level|>=5). |
|000019e0| 20 20 20 7b 0a 20 20 20 | 20 20 20 74 79 70 65 28 | {. | type(|
|000019f0| 22 41 54 26 4d 34 26 4b | 32 22 2b 63 72 29 0a 20 |"AT&M4&K|2"+cr). |
|00001a00| 20 20 20 20 20 7d 0a 20 | 20 20 20 65 6c 73 65 0a | }. | else.|
|00001a10| 20 20 20 20 20 20 7b 0a | 20 20 20 20 20 20 74 79 | {.| ty|
|00001a20| 70 65 28 22 41 54 26 4d | 34 26 4b 30 22 2b 63 72 |pe("AT&M|4&K0"+cr|
|00001a30| 29 0a 20 20 20 20 20 20 | 7d 0a 20 20 20 20 7d 0a |). |}. }.|
|00001a40| 0a 20 20 69 66 20 28 63 | 6f 6d 70 61 72 65 69 28 |. if (c|omparei(|
|00001a50| 6f 70 74 69 6f 6e 2c 22 | 76 61 73 73 63 6f 6d 22 |option,"|vasscom"|
|00001a60| 29 29 0a 20 20 20 20 7b | 0a 20 20 20 20 74 79 70 |)). {|. typ|
|00001a70| 65 28 22 41 54 26 4d 30 | 22 2b 63 72 29 0a 20 20 |e("AT&M0|"+cr). |
|00001a80| 20 20 73 65 74 28 6c 69 | 6e 6b 6c 65 76 65 6c 2c | set(li|nklevel,|
|00001a90| 76 61 73 73 63 6f 6d 29 | 0a 20 20 20 20 7d 0a 0a |vasscom)|. }..|
|00001aa0| 20 20 77 61 69 74 66 6f | 72 28 22 4f 4b 22 2b 24 | waitfo|r("OK"+$|
|00001ab0| 63 68 72 28 31 33 29 2b | 24 63 68 72 28 31 30 29 |chr(13)+|$chr(10)|
|00001ac0| 2c 31 30 30 29 0a 20 20 | 70 61 75 73 65 28 35 30 |,100). |pause(50|
|00001ad0| 29 0a 20 20 7d 0a 0a 6d | 6f 64 65 6d 5f 73 74 61 |). }..m|odem_sta|
|00001ae0| 6e 64 61 72 64 20 28 73 | 74 72 69 6e 67 20 6f 70 |ndard (s|tring op|
|00001af0| 74 69 6f 6e 5b 31 30 5d | 29 0a 20 20 7b 20 20 20 |tion[10]|). { |
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 0a 20 20 69 6e 74 | | . int|
|00001b20| 65 67 65 72 20 6e 75 6d | 62 65 72 3d 76 61 6c 28 |eger num|ber=val(|
|00001b30| 6f 70 74 69 6f 6e 29 0a | 0a 20 20 69 66 20 28 63 |option).|. if (c|
|00001b40| 6f 6d 70 61 72 65 69 28 | 6f 70 74 69 6f 6e 2c 22 |omparei(|option,"|
|00001b50| 76 32 31 22 29 20 7c 7c | 20 6e 75 6d 62 65 72 3d |v21") ||| number=|
|00001b60| 3d 33 30 30 29 0a 20 20 | 20 20 7b 0a 20 20 20 20 |=300). | {. |
|00001b70| 74 79 70 65 20 22 41 54 | 26 4e 31 22 2b 63 72 0a |type "AT|&N1"+cr.|
|00001b80| 20 20 20 20 77 61 69 74 | 66 6f 72 28 22 4f 4b 22 | wait|for("OK"|
|00001b90| 2b 24 63 68 72 28 31 33 | 29 2b 24 63 68 72 28 31 |+$chr(13|)+$chr(1|
|00001ba0| 30 29 2c 31 30 30 29 0a | 20 20 20 20 72 65 74 75 |0),100).| retu|
|00001bb0| 72 6e 0a 20 20 20 20 7d | 0a 20 20 69 66 20 28 63 |rn. }|. if (c|
|00001bc0| 6f 6d 70 61 72 65 69 28 | 6f 70 74 69 6f 6e 2c 22 |omparei(|option,"|
|00001bd0| 76 32 32 22 29 20 7c 7c | 20 6e 75 6d 62 65 72 3d |v22") ||| number=|
|00001be0| 3d 31 32 30 30 29 0a 20 | 20 20 20 7b 0a 20 20 20 |=1200). | {. |
|00001bf0| 20 74 79 70 65 20 22 41 | 54 26 4e 32 22 2b 63 72 | type "A|T&N2"+cr|
|00001c00| 0a 20 20 20 20 77 61 69 | 74 66 6f 72 28 22 4f 4b |. wai|tfor("OK|
|00001c10| 22 2b 24 63 68 72 28 31 | 33 29 2b 24 63 68 72 28 |"+$chr(1|3)+$chr(|
|00001c20| 31 30 29 2c 31 30 30 29 | 0a 20 20 20 20 72 65 74 |10),100)|. ret|
|00001c30| 75 72 6e 0a 20 20 20 20 | 7d 0a 20 20 69 66 20 28 |urn. |}. if (|
|00001c40| 63 6f 6d 70 61 72 65 69 | 28 6f 70 74 69 6f 6e 2c |comparei|(option,|
|00001c50| 22 76 32 32 62 69 73 22 | 29 20 7c 7c 20 6e 75 6d |"v22bis"|) || num|
|00001c60| 62 65 72 3d 3d 32 34 30 | 30 29 0a 20 20 20 20 7b |ber==240|0). {|
|00001c70| 0a 20 20 20 20 74 79 70 | 65 20 22 41 54 26 4e 33 |. typ|e "AT&N3|
|00001c80| 22 2b 63 72 0a 20 20 20 | 20 77 61 69 74 66 6f 72 |"+cr. | waitfor|
|00001c90| 28 22 4f 4b 22 2b 24 63 | 68 72 28 31 33 29 2b 24 |("OK"+$c|hr(13)+$|
|00001ca0| 63 68 72 28 31 30 29 2c | 31 30 30 29 0a 20 20 20 |chr(10),|100). |
|00001cb0| 20 72 65 74 75 72 6e 0a | 20 20 20 20 7d 0a 20 20 | return.| }. |
|00001cc0| 69 66 20 28 63 6f 6d 70 | 61 72 65 69 28 6f 70 74 |if (comp|arei(opt|
|00001cd0| 69 6f 6e 2c 22 76 32 37 | 22 29 20 7c 7c 20 6e 75 |ion,"v27|") || nu|
|00001ce0| 6d 62 65 72 3d 34 38 30 | 30 29 0a 20 20 20 20 7b |mber=480|0). {|
|00001cf0| 0a 20 20 20 20 74 79 70 | 65 20 22 41 54 26 4e 34 |. typ|e "AT&N4|
|00001d00| 22 2b 63 72 0a 20 20 20 | 20 77 61 69 74 66 6f 72 |"+cr. | waitfor|
|00001d10| 28 22 4f 4b 22 2b 24 63 | 68 72 28 31 33 29 2b 24 |("OK"+$c|hr(13)+$|
|00001d20| 63 68 72 28 31 30 29 2c | 31 30 30 29 0a 20 20 20 |chr(10),|100). |
|00001d30| 20 72 65 74 75 72 6e 0a | 20 20 20 20 7d 0a 20 20 | return.| }. |
|00001d40| 69 66 20 28 6e 75 6d 62 | 65 72 3d 37 32 30 30 29 |if (numb|er=7200)|
|00001d50| 0a 20 20 20 20 7b 0a 20 | 20 20 20 74 79 70 65 20 |. {. | type |
|00001d60| 22 41 54 26 4e 35 22 2b | 63 72 0a 20 20 20 20 77 |"AT&N5"+|cr. w|
|00001d70| 61 69 74 66 6f 72 28 22 | 4f 4b 22 2b 24 63 68 72 |aitfor("|OK"+$chr|
|00001d80| 28 31 33 29 2b 24 63 68 | 72 28 31 30 29 2c 31 30 |(13)+$ch|r(10),10|
|00001d90| 30 29 0a 20 20 20 20 72 | 65 74 75 72 6e 0a 20 20 |0). r|eturn. |
|00001da0| 20 20 7d 0a 20 20 69 66 | 20 28 63 6f 6d 70 61 72 | }. if| (compar|
|00001db0| 65 69 28 6f 70 74 69 6f | 6e 2c 22 76 33 32 22 29 |ei(optio|n,"v32")|
|00001dc0| 20 7c 7c 20 6e 75 6d 62 | 65 72 3d 39 36 30 30 29 | || numb|er=9600)|
|00001dd0| 0a 20 20 20 20 7b 0a 20 | 20 20 20 74 79 70 65 20 |. {. | type |
|00001de0| 22 41 54 26 4e 36 22 2b | 63 72 0a 20 20 20 20 77 |"AT&N6"+|cr. w|
|00001df0| 61 69 74 66 6f 72 28 22 | 4f 4b 22 2b 24 63 68 72 |aitfor("|OK"+$chr|
|00001e00| 28 31 33 29 2b 24 63 68 | 72 28 31 30 29 2c 31 30 |(13)+$ch|r(10),10|
|00001e10| 30 29 0a 20 20 20 20 72 | 65 74 75 72 6e 0a 20 20 |0). r|eturn. |
|00001e20| 20 20 7d 0a 20 20 69 66 | 20 28 63 6f 6d 70 61 72 | }. if| (compar|
|00001e30| 65 69 28 6f 70 74 69 6f | 6e 2c 22 68 73 74 22 29 |ei(optio|n,"hst")|
|00001e40| 20 7c 7c 20 63 6f 6d 70 | 61 72 65 69 28 6f 70 74 | || comp|arei(opt|
|00001e50| 69 6f 6e 2c 22 66 61 73 | 74 65 73 74 22 29 20 7c |ion,"fas|test") ||
|00001e60| 7c 20 6e 75 6d 62 65 72 | 3d 31 39 32 30 30 29 0a || number|=19200).|
|00001e70| 20 20 20 20 7b 0a 20 20 | 20 20 74 79 70 65 20 22 | {. | type "|
|00001e80| 41 54 26 4e 30 22 2b 63 | 72 0a 20 20 20 20 77 61 |AT&N0"+c|r. wa|
|00001e90| 69 74 66 6f 72 28 22 4f | 4b 22 2b 24 63 68 72 28 |itfor("O|K"+$chr(|
|00001ea0| 31 33 29 2b 24 63 68 72 | 28 31 30 29 2c 31 30 30 |13)+$chr|(10),100|
|00001eb0| 29 0a 20 20 20 20 72 65 | 74 75 72 6e 0a 20 20 20 |). re|turn. |
|00001ec0| 20 7d 0a 20 20 70 72 69 | 6e 74 73 20 22 4d 6f 64 | }. pri|nts "Mod|
|00001ed0| 65 6d 20 73 74 61 6e 64 | 61 72 64 20 22 2b 6f 70 |em stand|ard "+op|
|00001ee0| 74 69 6f 6e 2b 22 20 69 | 73 20 6e 6f 74 20 73 75 |tion+" i|s not su|
|00001ef0| 70 70 6f 72 74 65 64 2e | 22 2b 6e 65 77 6c 69 6e |pported.|"+newlin|
|00001f00| 65 0a 20 20 7d 0a 0a 5f | 70 72 6f 63 65 73 73 6d |e. }.._|processm|
|00001f10| 65 73 73 61 67 65 20 28 | 73 74 72 69 6e 67 20 61 |essage (|string a|
|00001f20| 6c 72 65 61 64 79 5b 33 | 30 5d 29 0a 20 20 7b 0a |lready[3|0]). {.|
|00001f30| 20 20 73 74 72 69 6e 67 | 20 72 65 74 63 6f 64 65 | string| retcode|
|00001f40| 5b 33 30 5d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |[30]. | |
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f60| 20 20 20 20 20 20 20 20 | 0a 20 20 69 66 20 28 6c | |. if (l|
|00001f70| 65 6e 28 61 6c 72 65 61 | 64 79 29 3d 3d 30 29 0a |en(alrea|dy)==0).|
|00001f80| 20 20 20 20 7b 0a 20 20 | 20 20 3b 20 57 61 69 74 | {. | ; Wait|
|00001f90| 20 66 6f 72 20 6d 65 73 | 73 61 67 65 0a 20 20 20 | for mes|sage. |
|00001fa0| 20 72 65 74 63 6f 64 65 | 3d 24 6d 6f 64 65 6d 69 | retcode|=$modemi|
|00001fb0| 6e 70 75 74 28 33 30 2c | 6d 6f 64 65 6d 5f 72 65 |nput(30,|modem_re|
|00001fc0| 70 6c 79 77 61 69 74 29 | 0a 20 20 20 20 69 66 20 |plywait)|. if |
|00001fd0| 28 6c 65 6e 28 72 65 74 | 63 6f 64 65 29 3d 3d 30 |(len(ret|code)==0|
|00001fe0| 29 0a 20 20 20 20 20 20 | 7b 0a 20 20 20 20 20 20 |). |{. |
|00001ff0| 72 65 74 63 6f 64 65 3d | 24 6d 6f 64 65 6d 69 6e |retcode=|$modemin|
|00002000| 70 75 74 28 33 30 2c 6d | 6f 64 65 6d 5f 72 65 70 |put(30,m|odem_rep|
|00002010| 6c 79 77 61 69 74 29 0a | 20 20 20 20 20 20 7d 0a |lywait).| }.|
|00002020| 20 20 20 20 7d 0a 20 20 | 65 6c 73 65 0a 20 20 20 | }. |else. |
|00002030| 20 7b 0a 20 20 20 20 72 | 65 74 63 6f 64 65 3d 61 | {. r|etcode=a|
|00002040| 6c 72 65 61 64 79 0a 20 | 20 20 20 7d 0a 0a 20 20 |lready. | }.. |
|00002050| 69 66 20 28 63 6f 6d 70 | 61 72 65 28 24 6c 65 66 |if (comp|are($lef|
|00002060| 74 28 72 65 74 63 6f 64 | 65 2c 37 29 2c 22 43 4f |t(retcod|e,7),"CO|
|00002070| 4e 4e 45 43 54 22 29 29 | 0a 20 20 20 20 7b 0a 20 |NNECT"))|. {. |
|00002080| 20 20 20 72 65 74 75 72 | 6e 28 31 29 0a 20 20 20 | retur|n(1). |
|00002090| 20 7d 0a 0a 20 20 6d 6f | 64 65 6d 5f 64 69 73 63 | }.. mo|dem_disc|
|000020a0| 6f 6e 6e 65 63 74 28 29 | 0a 20 20 72 65 74 75 72 |onnect()|. retur|
|000020b0| 6e 28 30 29 3b 0a 20 20 | 7d 0a 00 00 00 00 00 00 |n(0);. |}.......|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 3b 20 44 61 63 6f 6d 20 | 44 53 4c 32 31 32 33 41 |; Dacom |DSL2123A|
|00002410| 44 20 6d 6f 64 65 6d 20 | 64 72 69 76 65 72 20 20 |D modem |driver |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002430| 20 20 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 30 | Vers|ion 1.00|
|00002440| 20 32 39 2d 4e 6f 76 2d | 31 39 39 30 0a 3b 20 28 | 29-Nov-|1990.; (|
|00002450| 63 29 20 31 39 39 30 20 | 48 75 67 6f 20 46 69 65 |c) 1990 |Hugo Fie|
|00002460| 6e 6e 65 73 0a 20 20 0a | 6d 6f 64 65 6d 5f 69 6e |nnes. .|modem_in|
|00002470| 69 74 69 61 6c 69 73 65 | 20 28 29 0a 20 20 7b 20 |itialise| (). { |
|00002480| 20 20 20 20 20 20 0a 20 | 20 70 6f 72 74 5f 74 78 | . | port_tx|
|00002490| 73 70 65 65 64 28 31 32 | 30 30 29 0a 20 20 70 6f |speed(12|00). po|
|000024a0| 72 74 5f 72 78 73 70 65 | 65 64 28 31 32 30 30 29 |rt_rxspe|ed(1200)|
|000024b0| 0a 0a 20 20 74 79 70 65 | 20 63 72 2b 22 4e 50 22 |.. type| cr+"NP"|
|000024c0| 2b 63 72 0a 20 20 70 61 | 75 73 65 28 32 35 29 0a |+cr. pa|use(25).|
|000024d0| 20 20 74 79 70 65 20 22 | 52 45 53 45 54 22 2b 63 | type "|RESET"+c|
|000024e0| 72 0a 20 20 69 66 20 28 | 77 61 69 74 66 6f 72 28 |r. if (|waitfor(|
|000024f0| 22 26 2b 2b 2b 22 2c 31 | 30 30 29 29 0a 20 20 20 |"&+++",1|00)). |
|00002500| 20 7b 0a 20 20 20 20 72 | 65 74 75 72 6e 28 30 29 | {. r|eturn(0)|
|00002510| 0a 20 20 20 20 7d 0a 20 | 20 70 61 75 73 65 28 32 |. }. | pause(2|
|00002520| 35 29 0a 20 20 74 79 70 | 65 20 22 4e 50 22 2b 63 |5). typ|e "NP"+c|
|00002530| 72 0a 20 20 69 66 20 28 | 77 61 69 74 66 6f 72 28 |r. if (|waitfor(|
|00002540| 22 26 2b 2b 2b 22 2c 31 | 30 30 29 29 0a 20 20 20 |"&+++",1|00)). |
|00002550| 20 7b 0a 20 20 20 20 72 | 65 74 75 72 6e 28 30 29 | {. r|eturn(0)|
|00002560| 0a 20 20 20 20 7d 0a 20 | 20 70 61 75 73 65 28 32 |. }. | pause(2|
|00002570| 35 29 0a 20 20 72 65 74 | 75 72 6e 28 31 29 0a 20 |5). ret|urn(1). |
|00002580| 20 7d 0a 20 20 20 20 20 | 20 20 20 20 20 20 0a 6d | }. | .m|
|00002590| 6f 64 65 6d 5f 73 68 75 | 74 64 6f 77 6e 20 28 29 |odem_shu|tdown ()|
|000025a0| 0a 20 20 7b 0a 20 20 72 | 65 74 75 72 6e 28 31 29 |. {. r|eturn(1)|
|000025b0| 0a 20 20 7d 0a 0a 6d 6f | 64 65 6d 5f 63 6f 6e 6e |. }..mo|dem_conn|
|000025c0| 65 63 74 20 28 29 0a 20 | 20 7b 20 20 20 20 20 20 |ect (). | { |
|000025d0| 20 20 20 20 20 20 0a 20 | 20 73 74 72 69 6e 67 20 | . | string |
|000025e0| 72 65 70 6c 79 5b 32 30 | 5d 0a 0a 20 20 70 6f 72 |reply[20|].. por|
|000025f0| 74 5f 64 74 72 28 31 29 | 0a 20 20 70 6f 72 74 5f |t_dtr(1)|. port_|
|00002600| 72 74 73 28 31 29 0a 20 | 20 0a 20 20 69 66 20 28 |rts(1). | . if (|
|00002610| 70 6f 72 74 5f 74 78 73 | 70 65 65 64 28 29 3d 3d |port_txs|peed()==|
|00002620| 37 35 20 26 26 20 70 6f | 72 74 5f 72 78 73 70 65 |75 && po|rt_rxspe|
|00002630| 65 64 28 29 3d 3d 31 32 | 30 30 29 0a 20 20 20 20 |ed()==12|00). |
|00002640| 7b 0a 20 20 20 20 3b 20 | 56 32 33 20 6f 72 69 67 |{. ; |V23 orig|
|00002650| 69 6e 61 74 65 20 6d 6f | 64 65 0a 20 20 20 20 70 |inate mo|de. p|
|00002660| 6f 72 74 5f 74 78 73 70 | 65 65 64 28 31 32 30 30 |ort_txsp|eed(1200|
|00002670| 29 0a 20 20 20 20 70 6f | 72 74 5f 72 78 73 70 65 |). po|rt_rxspe|
|00002680| 65 64 28 31 32 30 30 29 | 0a 20 20 20 20 74 79 70 |ed(1200)|. typ|
|00002690| 65 20 22 56 32 33 54 22 | 2b 63 72 0a 20 20 20 20 |e "V23T"|+cr. |
|000026a0| 70 61 75 73 65 28 32 35 | 29 0a 20 20 20 20 74 79 |pause(25|). ty|
|000026b0| 70 65 20 22 54 22 2b 63 | 72 0a 20 20 20 20 7d 0a |pe "T"+c|r. }.|
|000026c0| 0a 20 20 69 66 20 28 70 | 6f 72 74 5f 74 78 73 70 |. if (p|ort_txsp|
|000026d0| 65 65 64 28 29 3d 3d 33 | 30 30 20 26 26 20 70 6f |eed()==3|00 && po|
|000026e0| 72 74 5f 72 78 73 70 65 | 65 64 28 29 3d 3d 33 30 |rt_rxspe|ed()==30|
|000026f0| 30 29 0a 20 20 20 20 7b | 0a 20 20 20 20 3b 20 56 |0). {|. ; V|
|00002700| 32 31 20 6f 72 69 67 69 | 6e 61 74 65 20 6d 6f 64 |21 origi|nate mod|
|00002710| 65 0a 20 20 20 20 70 6f | 72 74 5f 74 78 73 70 65 |e. po|rt_txspe|
|00002720| 65 64 28 31 32 30 30 29 | 0a 20 20 20 20 70 6f 72 |ed(1200)|. por|
|00002730| 74 5f 72 78 73 70 65 65 | 64 28 31 32 30 30 29 0a |t_rxspee|d(1200).|
|00002740| 20 20 20 20 74 79 70 65 | 20 22 56 32 31 54 22 2b | type| "V21T"+|
|00002750| 63 72 0a 20 20 20 20 70 | 61 75 73 65 28 32 35 29 |cr. p|ause(25)|
|00002760| 0a 20 20 20 20 74 79 70 | 65 20 22 54 22 2b 63 72 |. typ|e "T"+cr|
|00002770| 0a 20 20 20 20 7d 0a 0a | 20 20 3b 20 57 61 69 74 |. }..| ; Wait|
|00002780| 20 66 6f 72 20 74 68 65 | 20 26 57 41 54 20 73 74 | for the| &WAT st|
|00002790| 72 69 6e 67 0a 20 20 72 | 65 70 6c 79 3d 24 6d 6f |ring. r|eply=$mo|
|000027a0| 64 65 6d 69 6e 70 75 74 | 28 33 30 2c 6d 6f 64 65 |deminput|(30,mode|
|000027b0| 6d 5f 72 65 70 6c 79 77 | 61 69 74 29 0a 20 20 77 |m_replyw|ait). w|
|000027c0| 68 69 6c 65 28 63 6f 6d | 70 61 72 65 28 24 6c 65 |hile(com|pare($le|
|000027d0| 66 74 28 72 65 70 6c 79 | 2c 34 29 2c 22 26 57 41 |ft(reply|,4),"&WA|
|000027e0| 54 22 29 3d 3d 30 29 0a | 20 20 20 20 7b 0a 20 20 |T")==0).| {. |
|000027f0| 20 20 72 65 70 6c 79 3d | 24 6d 6f 64 65 6d 69 6e | reply=|$modemin|
|00002800| 70 75 74 28 33 30 2c 6d | 6f 64 65 6d 5f 72 65 70 |put(30,m|odem_rep|
|00002810| 6c 79 77 61 69 74 29 0a | 20 20 20 20 7d 0a 0a 20 |lywait).| }.. |
|00002820| 20 72 65 74 75 72 6e 28 | 5f 70 72 6f 63 65 73 73 | return(|_process|
|00002830| 6d 65 73 73 61 67 65 28 | 29 29 0a 20 20 7d 0a 0a |message(|)). }..|
|00002840| 6d 6f 64 65 6d 5f 64 69 | 73 63 6f 6e 6e 65 63 74 |modem_di|sconnect|
|00002850| 20 28 29 0a 20 20 7b 0a | 20 20 70 6f 72 74 5f 72 | (). {.| port_r|
|00002860| 74 73 28 30 29 0a 20 20 | 70 6f 72 74 5f 64 74 72 |ts(0). |port_dtr|
|00002870| 28 30 29 0a 20 20 70 61 | 75 73 65 20 35 30 0a 20 |(0). pa|use 50. |
|00002880| 20 70 6f 72 74 5f 64 74 | 72 28 31 29 0a 20 20 70 | port_dt|r(1). p|
|00002890| 6f 72 74 5f 72 74 73 28 | 31 29 0a 20 20 74 79 70 |ort_rts(|1). typ|
|000028a0| 65 20 24 63 68 72 28 31 | 29 2b 24 63 68 72 28 31 |e $chr(1|)+$chr(1|
|000028b0| 29 2b 24 63 68 72 28 31 | 29 2b 24 63 68 72 28 31 |)+$chr(1|)+$chr(1|
|000028c0| 29 0a 20 20 7d 0a 0a 6d | 6f 64 65 6d 5f 64 69 61 |). }..m|odem_dia|
|000028d0| 6c 20 28 73 74 72 69 6e | 67 20 6e 75 6d 62 65 72 |l (strin|g number|
|000028e0| 5b 34 30 5d 2c 69 6e 74 | 65 67 65 72 20 68 6f 77 |[40],int|eger how|
|000028f0| 29 0a 20 20 7b 20 20 20 | 20 20 20 20 20 20 20 0a |). { | .|
|00002900| 20 20 73 74 72 69 6e 67 | 20 6e 65 77 6e 75 6d 62 | string| newnumb|
|00002910| 65 72 5b 34 30 5d 3d 22 | 22 2c 72 65 70 6c 79 5b |er[40]="|",reply[|
|00002920| 34 35 5d 0a 20 20 69 6e | 74 65 67 65 72 20 61 0a |45]. in|teger a.|
|00002930| 0a 20 20 70 6f 72 74 5f | 64 74 72 28 31 29 0a 20 |. port_|dtr(1). |
|00002940| 20 70 6f 72 74 5f 72 74 | 73 28 31 29 0a 20 20 20 | port_rt|s(1). |
|00002950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002960| 0a 20 20 69 66 20 28 70 | 6f 72 74 5f 74 78 73 70 |. if (p|ort_txsp|
|00002970| 65 65 64 28 29 3d 3d 37 | 35 20 26 26 20 70 6f 72 |eed()==7|5 && por|
|00002980| 74 5f 72 78 73 70 65 65 | 64 28 29 3d 3d 31 32 30 |t_rxspee|d()==120|
|00002990| 30 29 0a 20 20 20 20 7b | 0a 20 20 20 20 3b 20 56 |0). {|. ; V|
|000029a0| 32 33 20 6f 72 69 67 69 | 6e 61 74 65 20 6d 6f 64 |23 origi|nate mod|
|000029b0| 65 0a 20 20 20 20 70 6f | 72 74 5f 74 78 73 70 65 |e. po|rt_txspe|
|000029c0| 65 64 28 31 32 30 30 29 | 0a 20 20 20 20 70 6f 72 |ed(1200)|. por|
|000029d0| 74 5f 72 78 73 70 65 65 | 64 28 31 32 30 30 29 0a |t_rxspee|d(1200).|
|000029e0| 20 20 20 20 74 79 70 65 | 20 22 56 32 33 54 22 2b | type| "V23T"+|
|000029f0| 63 72 0a 20 20 20 20 70 | 61 75 73 65 28 32 35 29 |cr. p|ause(25)|
|00002a00| 0a 20 20 20 20 7d 0a 0a | 20 20 69 66 20 28 70 6f |. }..| if (po|
|00002a10| 72 74 5f 74 78 73 70 65 | 65 64 28 29 3d 3d 33 30 |rt_txspe|ed()==30|
|00002a20| 30 20 26 26 20 70 6f 72 | 74 5f 72 78 73 70 65 65 |0 && por|t_rxspee|
|00002a30| 64 28 29 3d 3d 33 30 30 | 29 0a 20 20 20 20 7b 0a |d()==300|). {.|
|00002a40| 20 20 20 20 3b 20 56 32 | 31 20 6f 72 69 67 69 6e | ; V2|1 origin|
|00002a50| 61 74 65 20 6d 6f 64 65 | 0a 20 20 20 20 70 6f 72 |ate mode|. por|
|00002a60| 74 5f 74 78 73 70 65 65 | 64 28 31 32 30 30 29 0a |t_txspee|d(1200).|
|00002a70| 20 20 20 20 70 6f 72 74 | 5f 72 78 73 70 65 65 64 | port|_rxspeed|
|00002a80| 28 31 32 30 30 29 0a 20 | 20 20 20 74 79 70 65 20 |(1200). | type |
|00002a90| 22 56 32 31 54 22 2b 63 | 72 0a 20 20 20 20 70 61 |"V21T"+c|r. pa|
|00002aa0| 75 73 65 28 32 35 29 0a | 20 20 20 20 7d 0a 0a 20 |use(25).| }.. |
|00002ab0| 20 66 6f 72 20 61 3d 31 | 20 74 6f 20 6c 65 6e 28 | for a=1| to len(|
|00002ac0| 6e 75 6d 62 65 72 29 0a | 20 20 20 20 7b 0a 20 20 |number).| {. |
|00002ad0| 20 20 69 66 20 28 69 6e | 73 74 72 28 22 2d 2c 3b | if (in|str("-,;|
|00002ae0| 22 2c 24 6d 69 64 28 6e | 75 6d 62 65 72 2c 61 29 |",$mid(n|umber,a)|
|00002af0| 29 29 0a 20 20 20 20 20 | 20 7b 0a 20 20 20 20 20 |)). | {. |
|00002b00| 20 6e 65 77 6e 75 6d 62 | 65 72 3d 6e 65 77 6e 75 | newnumb|er=newnu|
|00002b10| 6d 62 65 72 2b 22 3b 22 | 0a 20 20 20 20 20 20 7d |mber+";"|. }|
|00002b20| 0a 20 20 20 20 69 66 20 | 28 69 73 64 69 67 69 74 |. if |(isdigit|
|00002b30| 28 24 6d 69 64 28 6e 75 | 6d 62 65 72 2c 61 29 29 |($mid(nu|mber,a))|
|00002b40| 29 0a 20 20 20 20 20 20 | 7b 0a 20 20 20 20 20 20 |). |{. |
|00002b50| 6e 65 77 6e 75 6d 62 65 | 72 3d 6e 65 77 6e 75 6d |newnumbe|r=newnum|
|00002b60| 62 65 72 2b 24 6d 69 64 | 28 6e 75 6d 62 65 72 2c |ber+$mid|(number,|
|00002b70| 61 29 0a 20 20 20 20 20 | 20 7d 0a 20 20 20 20 7d |a). | }. }|
|00002b80| 0a 0a 20 20 69 66 20 28 | 68 6f 77 3d 3d 30 29 0a |.. if (|how==0).|
|00002b90| 20 20 20 20 7b 0a 20 20 | 20 20 74 79 70 65 20 22 | {. | type "|
|00002ba0| 50 4c 53 22 2b 63 72 0a | 20 20 20 20 7d 0a 20 20 |PLS"+cr.| }. |
|00002bb0| 65 6c 73 65 0a 20 20 20 | 20 7b 0a 20 20 20 20 74 |else. | {. t|
|00002bc0| 79 70 65 20 22 54 4f 4e | 22 2b 63 72 0a 20 20 20 |ype "TON|"+cr. |
|00002bd0| 20 7d 20 20 20 20 20 20 | 20 20 20 20 20 20 0a 20 | } | . |
|00002be0| 20 70 61 75 73 65 28 32 | 35 29 0a 0a 20 20 74 79 | pause(2|5).. ty|
|00002bf0| 70 65 20 6e 65 77 6e 75 | 6d 62 65 72 2b 63 72 0a |pe newnu|mber+cr.|
+--------+-------------------------+-------------------------+--------+--------+
