� variable% 256

,� Create text file Pipe:$.Data in PipeFS

file%=�"Pipe:$.Data"
$ �#file%,"The file clicked was "
8 �#file%,�ReadSystemVariable("Dummy$File",variable%)
�#file%
	*SetType Pipe:$.Data Text


� Send to !Edit
*Filer_Run Pipe:$.Data



*Unset Dummy$File
�
:
.� �ReadSystemVariable(variable$,variable%)
�
"� ----------------------------
"�  Reads the value of a string
�  system variable
"� ----------------------------
�

� len%
:ș "OS_ReadVarVal",variable$,variable%,256,,3 � ,,len%
variable%?len%=13
=$variable%


�

00000000  0d 00 01 13 de 20 76 61  72 69 61 62 6c 65 25 20  |..... variable% |
00000010  32 35 36 0d 00 02 04 0d  00 03 2c f4 20 43 72 65  |256.......,. Cre|
00000020  61 74 65 20 74 65 78 74  20 66 69 6c 65 20 50 69  |ate text file Pi|
00000030  70 65 3a 24 2e 44 61 74  61 20 69 6e 20 50 69 70  |pe:$.Data in Pip|
00000040  65 46 53 0d 00 04 04 0d  00 05 18 66 69 6c 65 25  |eFS........file%|
00000050  3d ae 22 50 69 70 65 3a  24 2e 44 61 74 61 22 0d  |=."Pipe:$.Data".|
00000060  00 06 24 20 d5 23 66 69  6c 65 25 2c 22 54 68 65  |..$ .#file%,"The|
00000070  20 66 69 6c 65 20 63 6c  69 63 6b 65 64 20 77 61  | file clicked wa|
00000080  73 20 22 0d 00 07 38 20  d5 23 66 69 6c 65 25 2c  |s "...8 .#file%,|
00000090  a4 52 65 61 64 53 79 73  74 65 6d 56 61 72 69 61  |.ReadSystemVaria|
000000a0  62 6c 65 28 22 44 75 6d  6d 79 24 46 69 6c 65 22  |ble("Dummy$File"|
000000b0  2c 76 61 72 69 61 62 6c  65 25 29 0d 00 08 0b d9  |,variable%).....|
000000c0  23 66 69 6c 65 25 0d 00  09 1d 2a 53 65 74 54 79  |#file%....*SetTy|
000000d0  70 65 20 50 69 70 65 3a  24 2e 44 61 74 61 20 54  |pe Pipe:$.Data T|
000000e0  65 78 74 0d 00 0a 04 0d  00 0b 13 f4 20 53 65 6e  |ext......... Sen|
000000f0  64 20 74 6f 20 21 45 64  69 74 0d 00 0c 1a 2a 46  |d to !Edit....*F|
00000100  69 6c 65 72 5f 52 75 6e  20 50 69 70 65 3a 24 2e  |iler_Run Pipe:$.|
00000110  44 61 74 61 0d 00 0d 04  0d 00 0e 04 0d 00 0f 15  |Data............|
00000120  2a 55 6e 73 65 74 20 44  75 6d 6d 79 24 46 69 6c  |*Unset Dummy$Fil|
00000130  65 0d 00 10 05 e0 0d 00  11 05 3a 0d 00 12 2e dd  |e.........:.....|
00000140  20 a4 52 65 61 64 53 79  73 74 65 6d 56 61 72 69  | .ReadSystemVari|
00000150  61 62 6c 65 28 76 61 72  69 61 62 6c 65 24 2c 76  |able(variable$,v|
00000160  61 72 69 61 62 6c 65 25  29 0d 00 13 05 f4 0d 00  |ariable%).......|
00000170  14 22 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.". ------------|
00000180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000190  0d 00 15 22 f4 20 20 52  65 61 64 73 20 74 68 65  |...".  Reads the|
000001a0  20 76 61 6c 75 65 20 6f  66 20 61 20 73 74 72 69  | value of a stri|
000001b0  6e 67 0d 00 16 16 f4 20  20 73 79 73 74 65 6d 20  |ng.....  system |
000001c0  76 61 72 69 61 62 6c 65  0d 00 17 22 f4 20 2d 2d  |variable...". --|
000001d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000001e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 18 05 f4 0d  |----------......|
000001f0  00 19 0a ea 20 6c 65 6e  25 0d 00 1a 3a c8 99 20  |.... len%...:.. |
00000200  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
00000210  76 61 72 69 61 62 6c 65  24 2c 76 61 72 69 61 62  |variable$,variab|
00000220  6c 65 25 2c 32 35 36 2c  2c 33 20 b8 20 2c 2c 6c  |le%,256,,3 . ,,l|
00000230  65 6e 25 0d 00 1b 15 76  61 72 69 61 62 6c 65 25  |en%....variable%|
00000240  3f 6c 65 6e 25 3d 31 33  0d 00 1c 0f 3d 24 76 61  |?len%=13....=$va|
00000250  72 69 61 62 6c 65 25 0d  00 1d 04 0d 00 1e 04 0d  |riable%.........|
00000260  ff                                                |.|
00000261