�SOUND 1,-30,100,2

ș"OS_GetEnv" � A$
(
2� A%=0 � 2
<  param$=�param(A$)
F
  Ȏ A% �
P   � 0: � param$<>"BASIC" �
Z   � 1: � param$<>"-quit" �
d"   � 2: � �param$,"ip-up")=0 �
n  �
x�
�
� param$=�param(A$) : � driver
�param$=�param(A$) : � port
�param$=�param(A$) : � speed
�
�"param$=�param(A$) : � local IP
�!�("Set Inet$LocalIP "+param$)
�Q� OSCLI("Set Inet$HostName "+param$) : REM should try to resolve to a name...
�
�#param$=�param(A$) : � remote IP
�"�("Set Inet$RemoteIP "+param$)
�
��



ݤparam(� A$)


�B$,C%

"C%=�A$," ")

,� C%>0 �

6  B$=�A$,C%-1)

@  A$=�A$,C%+1)

J�

T  B$=A$

^  A$=""

h�

r=B$
�

00000000  0d 00 0a 16 f4 53 4f 55  4e 44 20 31 2c 2d 33 30  |.....SOUND 1,-30|
00000010  2c 31 30 30 2c 32 0d 00  14 04 0d 00 1e 16 c8 99  |,100,2..........|
00000020  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 41 24  |"OS_GetEnv" . A$|
00000030  0d 00 28 04 0d 00 32 0e  e3 20 41 25 3d 30 20 b8  |..(...2.. A%=0 .|
00000040  20 32 0d 00 3c 17 20 20  70 61 72 61 6d 24 3d a4  | 2..<.  param$=.|
00000050  70 61 72 61 6d 28 41 24  29 0d 00 46 0d 20 20 c8  |param(A$)..F.  .|
00000060  8e 20 41 25 20 ca 0d 00  50 1f 20 20 20 c9 20 30  |. A% ...P.   . 0|
00000070  3a 20 e7 20 70 61 72 61  6d 24 3c 3e 22 42 41 53  |: . param$<>"BAS|
00000080  49 43 22 20 e0 0d 00 5a  1f 20 20 20 c9 20 31 3a  |IC" ...Z.   . 1:|
00000090  20 e7 20 70 61 72 61 6d  24 3c 3e 22 2d 71 75 69  | . param$<>"-qui|
000000a0  74 22 20 e0 0d 00 64 22  20 20 20 c9 20 32 3a 20  |t" ...d"   . 2: |
000000b0  e7 20 a7 70 61 72 61 6d  24 2c 22 69 70 2d 75 70  |. .param$,"ip-up|
000000c0  22 29 3d 30 20 e0 0d 00  6e 07 20 20 cb 0d 00 78  |")=0 ...n.  ...x|
000000d0  05 ed 0d 00 82 04 0d 00  8c 20 70 61 72 61 6d 24  |......... param$|
000000e0  3d a4 70 61 72 61 6d 28  41 24 29 20 3a 20 f4 20  |=.param(A$) : . |
000000f0  64 72 69 76 65 72 0d 00  96 1e 70 61 72 61 6d 24  |driver....param$|
00000100  3d a4 70 61 72 61 6d 28  41 24 29 20 3a 20 f4 20  |=.param(A$) : . |
00000110  70 6f 72 74 0d 00 a0 1f  70 61 72 61 6d 24 3d a4  |port....param$=.|
00000120  70 61 72 61 6d 28 41 24  29 20 3a 20 f4 20 73 70  |param(A$) : . sp|
00000130  65 65 64 0d 00 aa 04 0d  00 b4 22 70 61 72 61 6d  |eed......."param|
00000140  24 3d a4 70 61 72 61 6d  28 41 24 29 20 3a 20 f4  |$=.param(A$) : .|
00000150  20 6c 6f 63 61 6c 20 49  50 0d 00 be 21 ff 28 22  | local IP...!.("|
00000160  53 65 74 20 49 6e 65 74  24 4c 6f 63 61 6c 49 50  |Set Inet$LocalIP|
00000170  20 22 2b 70 61 72 61 6d  24 29 0d 00 c8 51 f4 20  | "+param$)...Q. |
00000180  4f 53 43 4c 49 28 22 53  65 74 20 49 6e 65 74 24  |OSCLI("Set Inet$|
00000190  48 6f 73 74 4e 61 6d 65  20 22 2b 70 61 72 61 6d  |HostName "+param|
000001a0  24 29 20 3a 20 52 45 4d  20 73 68 6f 75 6c 64 20  |$) : REM should |
000001b0  74 72 79 20 74 6f 20 72  65 73 6f 6c 76 65 20 74  |try to resolve t|
000001c0  6f 20 61 20 6e 61 6d 65  2e 2e 2e 0d 00 d2 04 0d  |o a name........|
000001d0  00 dc 23 70 61 72 61 6d  24 3d a4 70 61 72 61 6d  |..#param$=.param|
000001e0  28 41 24 29 20 3a 20 f4  20 72 65 6d 6f 74 65 20  |(A$) : . remote |
000001f0  49 50 0d 00 e6 22 ff 28  22 53 65 74 20 49 6e 65  |IP...".("Set Ine|
00000200  74 24 52 65 6d 6f 74 65  49 50 20 22 2b 70 61 72  |t$RemoteIP "+par|
00000210  61 6d 24 29 0d 00 f0 04  0d 00 fa 05 e0 0d 01 04  |am$)............|
00000220  04 0d 01 0e 11 dd a4 70  61 72 61 6d 28 f8 20 41  |.......param(. A|
00000230  24 29 0d 01 18 0a ea 42  24 2c 43 25 0d 01 22 0f  |$).....B$,C%..".|
00000240  43 25 3d a7 41 24 2c 22  20 22 29 0d 01 2c 0c e7  |C%=.A$," ")..,..|
00000250  20 43 25 3e 30 20 8c 0d  01 36 12 20 20 42 24 3d  | C%>0 ...6.  B$=|
00000260  c0 41 24 2c 43 25 2d 31  29 0d 01 40 12 20 20 41  |.A$,C%-1)..@.  A|
00000270  24 3d c1 41 24 2c 43 25  2b 31 29 0d 01 4a 05 cc  |$=.A$,C%+1)..J..|
00000280  0d 01 54 0b 20 20 42 24  3d 41 24 0d 01 5e 0b 20  |..T.  B$=A$..^. |
00000290  20 41 24 3d 22 22 0d 01  68 05 cd 0d 01 72 07 3d  | A$=""..h....r.=|
000002a0  42 24 0d ff                                       |B$..|
000002a4