/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU4.DMS / in.adf / PhoneBook / phonebook.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 13 20 22 61 72 65 78 | 78 72 65 73 2e 62 62 22 |.. "arex|xres.bb"|
|00000010| 00 00 3b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..;*****|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 6e 64 20 |* functi|ons and |
|00000040| 73 74 61 74 65 6d 65 6e | 74 73 20 2a 2a 2a 2a 2a |statemen|ts *****|
|00000050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000070| 2a 2a 2a 2a 2a 2a 00 80 | 08 20 72 65 71 73 69 6e |******..|. reqsin|
|00000080| 67 6c 65 7b 74 69 24 2c | 74 65 78 24 2c 74 65 78 |gle{ti$,|tex$,tex|
|00000090| 32 24 2c 74 65 78 33 24 | 2c 74 65 78 34 7d 00 20 |2$,tex3$|,tex4}. |
|000000a0| 20 c6 01 20 31 2c 32 30 | 30 2c 34 38 2c 30 2c 31 | .. 1,20|0,48,0,1|
|000000b0| 2c 22 54 48 41 4e 4b 53 | 21 22 00 20 20 c5 01 20 |,"THANKS|!".  .. |
|000000c0| 31 2c 38 30 2c 31 38 32 | 2c 34 38 30 2c 36 34 2c |1,80,182|,480,64,|
|000000d0| 24 31 30 30 32 2c 74 69 | 24 2c 31 2c 32 2c 31 00 |$1002,ti|$,1,2,1.|
|000000e0| 20 20 c5 10 20 38 2c 36 | 00 20 20 dd 81 20 dc 96 |  .. 8,6|.  .. ..|
|000000f0| 28 74 65 78 24 2c 35 37 | 29 00 20 20 c5 10 20 38 |(tex$,57|).  .. 8|
|00000100| 2c 31 36 00 20 20 dd 81 | 20 dc 96 28 74 65 78 32 |,16.  ..| ..(tex2|
|00000110| 24 2c 35 37 29 00 20 20 | c5 10 20 38 2c 32 36 00 |$,57).  |.. 8,26.|
|00000120| 20 20 dd 81 20 dc 96 28 | 74 65 78 33 24 2c 35 37 |  .. ..(|tex3$,57|
|00000130| 29 00 00 00 20 20 80 0b | 20 74 69 24 3d 22 41 52 |)...  ..| ti$="AR|
|00000140| 65 78 78 20 45 72 72 6f | 72 22 00 20 20 20 20 c5 |exx Erro|r".    .|
|00000150| 10 20 32 36 36 2c 32 36 | 3a dd 81 20 74 65 78 34 |. 266,26|:.. tex4|
|00000160| 00 20 20 80 c0 00 00 20 | 20 80 bb 00 20 20 20 20 |.  .... | ...    |
|00000170| 80 bb 00 20 20 20 20 20 | 20 77 65 76 2e 6c 3d c5 |...     | wev.l=.|
|00000180| 02 00 20 20 20 20 80 bc | 20 c5 05 3d 31 00 00 20 |..    ..| ..=1.. |
|00000190| 20 20 20 80 0b 20 77 65 | 76 3d 36 34 00 20 20 20 |   .. we|v=64.   |
|000001a0| 20 20 20 80 0b 20 c5 04 | 3d 31 20 80 21 20 80 05 |   .. ..|=1 .! ..|
|000001b0| 20 65 6e 64 66 75 6e 63 | 00 20 20 20 20 80 c0 00 | endfunc|.    ...|
|000001c0| 00 20 20 20 20 80 0b 20 | 65 76 3d 24 34 30 30 00 |.    .. |ev=$400.|
|000001d0| 20 20 20 20 20 20 69 24 | 3d dd 02 00 20 20 20 20 |      i$|=...    |
|000001e0| 20 20 80 0b 20 69 24 3d | dc 86 28 31 33 29 20 80 |  .. i$=|..(13) .|
|000001f0| 21 20 80 05 20 65 6e 64 | 66 75 6e 63 00 20 20 20 |! .. end|func.   |
|00000200| 20 80 c0 00 00 20 20 80 | c7 00 00 65 6e 64 66 75 | ....  .|...endfu|
|00000210| 6e 63 00 20 20 80 2b 20 | c5 01 20 31 3a 80 2c 20 |nc.  .+ |.. 1:., |
|00000220| c5 01 20 30 00 80 02 20 | 80 08 00 3b 2d 2d 2d 2d |.. 0... |...;----|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 00 cf 04 20 30 00 |--------|..... 0.|
|00000280| 00 c6 11 20 80 c5 3a c6 | 18 20 31 2c 32 3a c6 11 |... ..:.|. 1,2:..|
|00000290| 20 34 2c 32 00 c6 02 20 | 30 2c 37 32 2c 31 32 2c | 4,2... |0,72,12,|
|000002a0| 30 2c 31 2c 34 30 2c 32 | 33 39 00 c6 02 20 30 2c |0,1,40,2|39... 0,|
|000002b0| 37 32 2c 32 37 2c 30 2c | 32 2c 34 30 2c 32 33 39 |72,27,0,|2,40,239|
|000002c0| 00 c6 02 20 30 2c 37 32 | 2c 34 33 2c 30 2c 33 2c |... 0,72|,43,0,3,|
|000002d0| 34 30 2c 32 33 39 00 c6 | 02 20 30 2c 37 32 2c 35 |40,239..|. 0,72,5|
|000002e0| 39 2c 30 2c 34 2c 34 30 | 2c 32 33 39 00 00 c6 19 |9,0,4,40|,239....|
|000002f0| 20 30 20 3a c6 17 31 2c | 30 00 00 c6 01 20 30 2c | 0 :..1,|0.... 0,|
|00000300| 38 2c 37 35 2c 30 2c 31 | 30 2c 22 4e 45 57 20 45 |8,75,0,1|0,"NEW E|
|00000310| 4e 54 52 59 22 00 c6 01 | 20 30 2c 39 37 2c 37 35 |NTRY"...| 0,97,75|
|00000320| 2c 30 2c 31 31 2c 22 49 | 3c 22 00 c6 01 20 30 2c |,0,11,"I|<"... 0,|
|00000330| 31 32 39 2c 37 35 2c 30 | 2c 31 32 2c 22 3c 3c 22 |129,75,0|,12,"<<"|
|00000340| 00 c6 01 20 30 2c 31 36 | 31 2c 37 35 2c 30 2c 31 |... 0,16|1,75,0,1|
|00000350| 33 2c 22 3e 3e 22 00 c6 | 01 20 30 2c 31 39 33 2c |3,">>"..|. 0,193,|
|00000360| 37 35 2c 30 2c 31 34 2c | 22 3e 49 22 00 c6 01 20 |75,0,14,|">I"... |
|00000370| 30 2c 32 32 36 2c 37 35 | 2c 30 2c 31 35 2c 22 44 |0,226,75|,0,15,"D|
|00000380| 49 41 4c 22 00 00 c5 32 | 20 33 32 2c 33 32 2c 2d |IAL"...2| 32,32,-|
|00000390| 31 2c 2d 31 00 c5 01 20 | 30 2c 30 2c 32 34 2c 33 |1,-1... |0,0,24,3|
|000003a0| 33 31 2c 39 31 2c 24 31 | 30 30 65 2c 22 4d 59 20 |31,91,$1|00e,"MY |
|000003b0| 50 48 4f 4e 45 20 42 4f | 4f 4b 22 2c 31 2c 32 2c |PHONE BO|OK",1,2,|
|000003c0| 30 00 00 c5 10 20 32 2c | 31 39 3a c5 1d 20 30 3a |0.... 2,|19:.. 0:|
|000003d0| c5 1c 20 31 2c 30 00 dd | 81 20 22 41 64 64 72 65 |.. 1,0..|. "Addre|
|000003e0| 73 73 22 00 c5 10 20 31 | 39 2c 35 30 00 dd 81 20 |ss"... 1|9,50... |
|000003f0| 22 50 68 6f 6e 65 22 00 | c5 10 20 20 32 37 2c 33 |"Phone".|..  27,3|
|00000400| 00 dd 81 20 22 4e 61 6d | 65 22 00 00 73 65 74 75 |... "Nam|e"..setu|
|00000410| 70 72 65 78 78 00 00 80 | 0b 20 fe a7 28 22 74 65 |prexx...|. ..("te|
|00000420| 72 6d 69 6e 75 73 31 22 | 29 20 20 20 20 3b 20 6d |rminus1"|)    ; m|
|00000430| 61 6b 65 20 73 75 72 65 | 20 54 65 72 6d 69 6e 75 |ake sure| Terminu|
|00000440| 73 20 69 73 20 72 75 6e | 6e 69 6e 67 00 20 20 70 |s is run|ning.  p|
|00000450| 6f 72 74 2e 6c 20 3d 20 | e1 01 28 22 50 48 4f 4e |ort.l = |..("PHON|
|00000460| 45 42 4f 4f 4b 22 29 00 | 20 20 80 0b 20 70 6f 72 |EBOOK").|  .. por|
|00000470| 74 2e 6c 00 20 20 20 20 | 6d 73 67 2e 6c 20 3d 20 |t.l.    |msg.l = |
|00000480| ae 01 28 70 6f 72 74 2c | 22 22 2c 22 54 45 52 4d |..(port,|"","TERM|
|00000490| 49 4e 55 53 31 22 29 00 | 00 20 20 20 20 80 0b 20 |INUS1").|.    .. |
|000004a0| 6d 73 67 2e 6c 00 20 20 | 20 20 20 20 20 80 88 00 |msg.l.  |     ...|
|000004b0| 20 20 20 20 80 22 00 20 | 20 20 20 20 20 72 65 71 |    .". |     req|
|000004c0| 73 69 6e 67 6c 65 7b 22 | 53 6f 72 72 79 2e 2e 2e |single{"|Sorry...|
|000004d0| 22 2c 22 43 61 6e 6e 6f | 74 20 63 72 65 61 74 65 |","Canno|t create|
|000004e0| 20 52 65 78 78 4d 73 67 | 2c 20 6e 6f 20 41 52 65 | RexxMsg|, no ARe|
|000004f0| 78 78 20 61 76 61 69 6c | 61 62 6c 65 22 2c 22 22 |xx avail|able",""|
|00000500| 2c 22 22 2c 30 7d 00 20 | 20 20 20 20 20 c6 20 20 |,"",0}. |     .  |
|00000510| 30 2c 31 35 3a c6 0b 20 | 30 2c 31 35 00 20 20 20 |0,15:.. |0,15.   |
|00000520| 20 20 20 ae 02 20 6d 73 | 67 2e 6c 00 20 20 20 20 |   .. ms|g.l.    |
|00000530| 80 c0 00 00 20 20 80 22 | 00 20 20 20 20 72 65 71 |....  ."|.    req|
|00000540| 73 69 6e 67 6c 65 7b 22 | 53 6f 72 72 79 2e 2e 2e |single{"|Sorry...|
|00000550| 22 2c 22 43 61 6e 6e 6f | 74 20 63 72 65 61 74 65 |","Canno|t create|
|00000560| 20 61 20 4d 73 67 50 6f | 72 74 2c 20 6e 6f 20 41 | a MsgPo|rt, no A|
|00000570| 52 65 78 78 20 61 76 61 | 69 6c 61 62 6c 65 22 2c |Rexx ava|ilable",|
|00000580| 22 22 2c 22 22 2c 30 7d | 00 20 20 20 20 c6 20 30 |"","",0}|.    . 0|
|00000590| 2c 31 35 3a c6 0b 20 30 | 2c 31 35 00 20 20 80 c0 |,15:.. 0|,15.  ..|
|000005a0| 00 80 22 00 20 20 72 65 | 71 73 69 6e 67 6c 65 7b |..".  re|qsingle{|
|000005b0| 22 4f 68 20 44 65 61 72 | 2e 2e 2e 2e 22 2c 22 54 |"Oh Dear|....","T|
|000005c0| 65 72 6d 69 6e 75 73 20 | 69 73 20 4e 4f 54 20 6c |erminus |is NOT l|
|000005d0| 6f 61 64 65 64 21 21 2c | 20 6e 6f 20 41 52 65 78 |oaded!!,| no ARex|
|000005e0| 78 20 61 76 61 69 6c 61 | 62 6c 65 22 2c 22 22 2c |x availa|ble","",|
|000005f0| 22 22 2c 30 7d 00 20 20 | c6 20 20 30 2c 31 35 3a |"",0}.  |.  0,15:|
|00000600| c6 0b 20 30 2c 31 35 00 | 80 c0 00 23 6e 75 6d 20 |.. 0,15.|...#num |
|00000610| 3d 20 34 00 00 80 01 2e | 70 65 72 73 6f 6e 00 20 |= 4.....|person. |
|00000620| 69 6e 66 6f 24 5b 23 6e | 75 6d 5d 00 80 02 20 80 |info$[#n|um]... .|
|00000630| 01 00 00 80 04 20 80 b3 | 20 70 65 6f 70 6c 65 2e |..... ..| people.|
|00000640| 70 65 72 73 6f 6e 28 32 | 30 30 29 00 80 ca 20 70 |person(2|00)... p|
|00000650| 65 6f 70 6c 65 28 29 00 | 00 80 0b 20 be 11 20 28 |eople().|... .. (|
|00000660| 30 2c 22 70 68 6f 6e 65 | 62 6f 6f 6b 2e 64 61 74 |0,"phone|book.dat|
|00000670| 61 22 29 00 20 20 be 08 | 20 30 00 20 20 80 0c 20 |a").  ..| 0.  .. |
|00000680| 80 89 20 be 0d 28 30 29 | 00 20 20 20 20 80 0b 20 |.. ..(0)|.    .. |
|00000690| c0 02 20 28 70 65 6f 70 | 6c 65 28 29 29 00 20 20 |.. (peop|le()).  |
|000006a0| 20 20 20 20 80 16 20 69 | 20 3d 20 30 20 80 18 20 |    .. i| = 0 .. |
|000006b0| 23 6e 75 6d 2d 31 3a 5c | 69 6e 66 6f 5b 69 5d 3d |#num-1:\|info[i]=|
|000006c0| dd 01 28 31 32 38 29 3a | 80 17 00 20 20 20 20 80 |..(128):|...    .|
|000006d0| c0 00 20 20 80 c1 00 80 | c0 00 00 c0 04 20 70 65 |..  ....|..... pe|
|000006e0| 6f 70 6c 65 28 29 00 80 | 0b 20 80 89 20 c0 03 20 |ople()..|. .. .. |
|000006f0| 28 70 65 6f 70 6c 65 28 | 29 29 20 80 21 20 c0 02 |(people(|)) .! ..|
|00000700| 20 70 65 6f 70 6c 65 28 | 29 00 00 72 65 66 72 65 | people(|)..refre|
|00000710| 73 68 3a 00 00 20 20 72 | 65 66 20 3d 20 30 00 20 |sh:..  r|ef = 0. |
|00000720| 20 80 16 20 69 20 3d 20 | 30 20 80 18 20 23 6e 75 | .. i = |0 .. #nu|
|00000730| 6d 20 2d 31 00 20 20 20 | 20 c6 1b 20 30 2c 69 2b |m -1.   | .. 0,i+|
|00000740| 31 2c 5c 69 6e 66 6f 5b | 69 5d 3a c6 0b 20 30 2c |1,\info[|i]:.. 0,|
|00000750| 69 2b 31 00 20 20 80 17 | 00 00 20 20 c6 12 20 30 |i+1.  ..|..  .. 0|
|00000760| 2c 31 3a 80 37 20 35 00 | 20 20 80 bb 00 20 20 20 |,1:.7 5.|  ...   |
|00000770| 20 e1 03 00 20 20 20 20 | 72 6d 73 67 2e 6c 20 3d | ...    |rmsg.l =|
|00000780| 20 ae 0c 28 70 6f 72 74 | 29 3a 65 76 2e 6c 3d c5 | ..(port|):ev.l=.|
|00000790| 03 00 20 20 20 20 80 0b | 20 ae 0d 28 72 6d 73 67 |..    ..| ..(rmsg|
|000007a0| 29 20 80 21 20 80 06 20 | 68 61 6e 64 6c 65 72 65 |) .! .. |handlere|
|000007b0| 78 78 00 00 20 20 20 20 | 80 0b 20 65 76 3d 24 32 |xx..    |.. ev=$2|
|000007c0| 30 30 00 20 20 20 20 20 | 20 80 06 20 75 70 64 61 |00.     | .. upda|
|000007d0| 74 65 00 20 20 20 20 20 | 20 80 0b 20 be 12 20 28 |te.     | .. .. (|
|000007e0| 30 2c 22 70 68 6f 6e 65 | 62 6f 6f 6b 2e 64 61 74 |0,"phone|book.dat|
|000007f0| 61 22 29 00 20 20 20 20 | 20 20 20 20 be 07 20 30 |a").    |    .. 0|
|00000800| 00 20 20 20 20 20 20 20 | 20 c0 04 20 70 65 6f 70 |.       | .. peop|
|00000810| 6c 65 28 29 00 20 20 20 | 20 20 20 20 20 80 0c 20 |le().   |     .. |
|00000820| c0 03 20 28 70 65 6f 70 | 6c 65 28 29 29 00 20 20 |.. (peop|le()).  |
|00000830| 20 20 20 20 20 20 20 20 | 80 16 20 69 20 3d 20 30 |        |.. i = 0|
|00000840| 20 80 18 20 23 6e 75 6d | 2d 31 3a 20 dd 82 20 5c | .. #num|-1: .. \|
|00000850| 69 6e 66 6f 5b 69 5d 3a | 80 17 00 20 20 20 20 20 |info[i]:|...     |
|00000860| 20 20 20 80 c1 00 20 20 | 20 20 20 20 20 20 be 02 |   ...  |      ..|
|00000870| 20 30 00 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 | 0.     | ...    |
|00000880| 20 20 80 02 00 20 20 20 | 20 80 c0 00 00 20 20 20 |  ...   | ....   |
|00000890| 20 80 0b 20 65 76 20 3d | 20 36 34 00 20 20 20 20 | .. ev =| 64.    |
|000008a0| 20 20 80 0b 20 c5 04 3d | 23 6e 75 6d 20 80 21 20 |  .. ..=|#num .! |
|000008b0| c6 12 20 30 2c 31 00 20 | 20 20 20 20 20 80 0b 20 |.. 0,1. |     .. |
|000008c0| c5 04 3c 23 6e 75 6d 20 | 80 21 20 c6 12 20 30 2c |..<#num |.! .. 0,|
|000008d0| c5 04 2b 31 00 00 20 20 | 20 20 20 20 80 0e 20 c5 |..+1..  |    .. .|
|000008e0| 04 00 20 20 20 20 20 20 | 20 20 80 0f 20 31 30 00 |..      |  .. 10.|
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 80 06 20 75 70 64 |        |  .. upd|
|00000900| 61 74 65 3a 20 80 0b 20 | c0 02 28 70 65 6f 70 6c |ate: .. |..(peopl|
|00000910| 65 28 29 29 20 80 21 20 | 72 65 66 20 3d 31 00 20 |e()) .! |ref =1. |
|00000920| 20 20 20 20 20 20 20 80 | 0f 20 31 31 00 20 20 20 |       .|. 11.   |
|00000930| 20 20 20 20 20 20 20 80 | 06 20 75 70 64 61 74 65 |       .|. update|
|00000940| 3a 80 0b 20 c0 01 28 70 | 65 6f 70 6c 65 28 29 29 |:.. ..(p|eople())|
|00000950| 20 80 21 20 72 65 66 20 | 3d 20 31 00 20 20 20 20 | .! ref |= 1.    |
|00000960| 20 20 20 20 80 0f 20 31 | 32 00 20 20 20 20 20 20 |    .. 1|2.      |
|00000970| 20 20 20 20 80 06 20 75 | 70 64 61 74 65 3a 80 0b |    .. u|pdate:..|
|00000980| 20 c0 0b 28 70 65 6f 70 | 6c 65 28 29 29 20 80 21 | ..(peop|le()) .!|
|00000990| 20 72 65 66 20 3d 20 31 | 00 20 20 20 20 20 20 20 | ref = 1|.       |
|000009a0| 20 80 0f 20 31 33 00 20 | 20 20 20 20 20 20 20 20 | .. 13. |        |
|000009b0| 20 80 06 20 75 70 64 61 | 74 65 3a 80 0b 20 c0 03 | .. upda|te:.. ..|
|000009c0| 28 70 65 6f 70 6c 65 28 | 29 29 20 80 21 20 72 65 |(people(|)) .! re|
|000009d0| 66 20 3d 20 31 00 20 20 | 20 20 20 20 20 20 80 0f |f = 1.  |      ..|
|000009e0| 20 31 34 00 20 20 20 20 | 20 20 20 20 20 20 80 06 | 14.    |      ..|
|000009f0| 20 75 70 64 61 74 65 3a | 80 0b 20 c0 0c 28 70 65 | update:|.. ..(pe|
|00000a00| 6f 70 6c 65 28 29 29 20 | 80 21 20 72 65 66 20 3d |ople()) |.! ref =|
|00000a10| 20 31 00 20 20 20 20 20 | 20 20 20 80 0f 20 31 35 | 1.     |   .. 15|
|00000a20| 00 20 20 20 20 20 20 20 | 20 20 80 06 20 75 70 64 |.       |  .. upd|
|00000a30| 61 74 65 00 20 20 20 20 | 20 20 20 20 20 63 6f 6d |ate.    |     com|
|00000a40| 64 61 74 61 24 3d 22 22 | 3a 73 65 63 64 61 74 24 |data$=""|:secdat$|
|00000a50| 3d 22 22 3a 80 c8 20 6d | 79 64 61 74 61 00 20 20 |="":.. m|ydata.  |
|00000a60| 20 20 20 20 20 20 20 80 | 06 20 64 6f 72 65 78 78 |       .|. dorexx|
|00000a70| 00 20 20 20 20 20 20 80 | 02 20 80 0e 00 20 20 20 |.      .|. ...   |
|00000a80| 20 80 c0 00 20 20 80 bc | 20 72 65 66 20 3d 20 31 | ...  ..| ref = 1|
|00000a90| 00 00 80 06 20 72 65 66 | 72 65 73 68 00 00 75 70 |.... ref|resh..up|
|00000aa0| 64 61 74 65 3a 00 00 80 | 16 20 69 20 3d 20 30 20 |date:...|. i = 0 |
|00000ab0| 80 18 20 23 6e 75 6d 2d | 31 3a 5c 69 6e 66 6f 5b |.. #num-|1:\info[|
|00000ac0| 69 5d 3d c6 14 28 30 2c | 69 2b 31 29 3a 80 17 3a |i]=..(0,|i+1):..:|
|00000ad0| 80 07 00 00 00 3b 23 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....;#*|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 54 65 72 6d 69 6e |********|* Termin|
|00000af0| 75 73 20 42 42 53 20 64 | 69 61 6c 65 72 20 61 72 |us BBS d|ialer ar|
|00000b00| 65 78 78 20 68 61 6e 64 | 6c 69 6e 67 20 63 6f 64 |exx hand|ling cod|
|00000b10| 65 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 00 64 |e ******|*****..d|
|00000b20| 6f 72 65 78 78 3a 00 80 | 16 20 69 20 3d 20 31 20 |orexx:..|. i = 1 |
|00000b30| 80 18 20 33 00 20 80 1b | 20 73 65 63 64 61 74 24 |.. 3. ..| secdat$|
|00000b40| 00 20 63 6f 6d 64 61 74 | 61 24 3d 63 6f 6d 64 61 |. comdat|a$=comda|
|00000b50| 74 61 24 2b 73 65 63 64 | 61 74 24 00 80 17 20 69 |ta$+secd|at$... i|
|00000b60| 00 00 6e 75 6d 24 3d 5c | 69 6e 66 6f 5b 33 5d 00 |..num$=\|info[3].|
|00000b70| 63 6f 6d 64 61 74 61 24 | 3d 63 6f 6d 64 61 74 61 |comdata$|=comdata|
|00000b80| 24 2b 22 20 27 53 45 4e | 44 20 22 2b dc 86 28 33 |$+" 'SEN|D "+..(3|
|00000b90| 34 29 2b 22 41 54 44 54 | 22 2b 6e 75 6d 24 2b 22 |4)+"ATDT|"+num$+"|
|00000ba0| 5e 4d 22 2b dc 86 28 33 | 34 29 2b 22 27 22 00 ae |^M"+..(3|4)+"'"..|
|00000bb0| 07 20 6d 73 67 2c 63 6f | 6d 64 61 74 61 24 2c 23 |. msg,co|mdata$,#|
|00000bc0| 52 58 43 4f 4d 4d 7c 23 | 52 58 46 46 5f 53 54 52 |RXCOMM|#|RXFF_STR|
|00000bd0| 49 4e 47 7c 23 52 58 46 | 46 5f 52 45 53 55 4c 54 |ING|#RXF|F_RESULT|
|00000be0| 00 00 c5 1f 20 30 00 80 | 07 00 00 68 61 6e 64 6c |.... 0..|...handl|
|00000bf0| 65 72 65 78 78 00 20 20 | 80 0b 20 ae 09 28 72 6d |erexx.  |.. ..(rm|
|00000c00| 73 67 2c 31 29 00 20 20 | 20 20 74 65 78 32 24 3d |sg,1).  |  tex2$=|
|00000c10| 22 45 72 72 6f 72 3a 20 | 22 2b ae 0e 28 ae 09 28 |"Error: |"+..(..(|
|00000c20| 72 6d 73 67 2c 32 29 29 | 00 20 20 20 20 74 65 78 |rmsg,2))|.    tex|
|00000c30| 33 24 3d 22 53 45 56 45 | 52 49 54 59 3a 20 22 00 |3$="SEVE|RITY: ".|
|00000c40| 20 20 20 20 74 65 78 34 | 3d ae 09 28 72 6d 73 67 |    tex4|=..(rmsg|
|00000c50| 2c 31 29 00 20 20 20 20 | 72 65 71 73 69 6e 67 6c |,1).    |reqsingl|
|00000c60| 65 20 7b 22 41 52 65 78 | 78 20 45 72 72 6f 72 22 |e {"ARex|x Error"|
|00000c70| 2c 22 59 6f 75 72 20 53 | 63 72 69 70 74 20 68 61 |,"Your S|cript ha|
|00000c80| 73 20 74 65 72 6d 69 6e | 61 74 65 64 20 77 69 74 |s termin|ated wit|
|00000c90| 68 22 2c 74 65 78 32 24 | 2c 74 65 78 33 24 2c 74 |h",tex2$|,tex3$,t|
|00000ca0| 65 78 34 7d 00 20 20 20 | 20 3b 52 65 74 75 72 6e |ex4}.   | ;Return|
|00000cb0| 00 20 20 20 20 80 c0 00 | 00 20 20 20 20 80 0b 20 |.    ...|.    .. |
|00000cc0| ae 09 28 72 6d 73 67 2c | 32 29 20 3e 20 32 35 36 |..(rmsg,|2) > 256|
|00000cd0| 00 20 20 20 20 20 20 74 | 65 78 32 24 3d ae 0b 28 |.      t|ex2$=..(|
|00000ce0| 72 6d 73 67 29 00 20 20 | 20 20 20 20 72 65 71 73 |rmsg).  |    reqs|
|00000cf0| 69 6e 67 6c 65 7b 22 53 | 63 72 69 70 74 20 52 65 |ingle{"S|cript Re|
|00000d00| 73 75 6c 74 22 2c 22 59 | 6f 75 72 20 53 63 72 69 |sult","Y|our Scri|
|00000d10| 70 74 20 72 65 73 75 6c | 74 20 69 73 22 2c 74 65 |pt resul|t is",te|
|00000d20| 78 32 24 2c 22 22 2c 74 | 65 78 34 7d 00 20 20 20 |x2$,"",t|ex4}.   |
|00000d30| 20 80 c0 00 00 20 20 20 | 20 20 20 ae 08 20 72 6d | ....   |   .. rm|
|00000d40| 73 67 2c 30 2c 30 2c 22 | 41 4c 4c 20 4f 4b 21 22 |sg,0,0,"|ALL OK!"|
|00000d50| 00 00 80 07 00 00 6d 79 | 64 61 74 61 00 00 80 1a |......my|data....|
|00000d60| 2e 73 20 22 41 44 44 52 | 45 53 53 20 27 54 45 52 |.s "ADDR|ESS 'TER|
|00000d70| 4d 49 4e 55 53 31 27 22 | 00 80 1a 2e 73 20 22 20 |MINUS1'"|....s " |
|00000d80| 27 43 4c 53 27 22 00 80 | 1a 2e 73 20 22 20 27 42 |'CLS'"..|..s " 'B|
|00000d90| 45 45 50 27 22 00 00 00 |                         |EEP'"...|        |
+--------+-------------------------+-------------------------+--------+--------+