Routine: XMSFTP

XMSFTP ;(WASH ISC)/CAP-TCP/IP-FTP Sender ;04/17/2002  11:29

 ;;8.0;MailMan;;Jun 28, 2002

 ;TCP/IP-FTP COMMUNICATIONS

 ;Send file via FTP / File located on another TCP/IP node

FTP K TEST N XMIO S XMIO=$I

 ;Get unique number for file to send

 S (XMSFTP,X)=$G(^XMBX(4.2995,"F",0))+1,^(0)=X

 S FILE="XM"_X_".COM" O FILE:NEW U FILE

 W "$! FTP COM procedure for fetching file from server and sending it",!

 W "$ set noon",!

 W "$ assign/user nla0: sys$output",! ;Turn off echo

 W "$ assign/user sys$input sys$command",!

 ;FTP to Get or Put location

 W "$ FTP=""$TWG$TCP:[NETDIST.USER]FTP",!

 W "$ FTP "

 I $L($G(XMSFTP(1))) W XMSFTP(1),!

 E  W XMSFTP(3),! G PUT

 ;Get file from local network

 S %=$G(XMSFTP(4)) W %,!

 S %=$G(XMSFTP(5)) I $L(%) W %,!

 W "bin",!

 W "get "_$P(XMSFTP(2),U,2)_XMSFTP(2,"F")_" "_XMSFTP(2,"F"),!

 W "close",!

 ;Put file to remote location

 W "open "_XMSFTP(3),! G P

PUT S %=$G(XMSFTP(6)) W %,!

P S %=$G(XMSFTP(7)) I $L(%) H 3 W %,! I $L($G(XMSFTP(7.1))) H 3 W XMSFTP(7.1),!

 W "bin",!

 W "cd nfa0:[IMPORT.MAIL]",!

 ;Need to know directory on remote side

 S %=$G(XMSFTP(8)) I $L(%) W "cd "_%,!

 S %=$G(XMSFTP(2)) I $L(%) W "cd "_%,!

 W "delete "_XMSFTP(2,"F"),!

 W "put nfa0:[EXPORT.MAIL]"_XMSFTP(2,"F"),!

 C FILE

 ;The following code originally spawned off an FTP transaction

 ;immediately when the XMnnn.COM file was created.  It has been

 ;replaced with code in XMRTCP.

 ;S %=$H*86400+$P($H,",",2)+600,%H=%\86400_","_(%#86400) D YX^%DTC S %=$P($P(Y,",")," ",2)_"-"_$P(Y," ")_"-"_$P($P(Y,"@"),", ",2)_":"_$P(Y,"@",2)

 S X=$$FILE(FILE) K FILE,XMTMPFIL

 U XMIO Q

B36 ;Calculate base 36 number

 N %,N,O,I,Z S O=X,%=X#36+1 D N S Y=N

 S %=X\(36)#36+1 D N S Y=N_Y

 S %=X\(36*36)#36+1 D N S Y=N_Y

 S %=X\(36*36*36)#36+1 D N S Y=N_Y

 S X=O Q

N S N=$E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

FILE(X) ;Add record to FTP list

 N DD,DO,DIC,DTOUT,DUOUT,Y

 S DIC="^XMBX(4.2995,",DIC(0)="LF",DIC("DR")="1///"_($H*86400+$P($H,",",2))_";2///"_$S($G(XMDUZ):XMDUZ,1:DUZ)

 D FILE^DICN S %=$G(XMSFTP("IMAGE-PTR")) I % S $P(^XMBX(4.2995,+Y,0),U,4)=%

Q Y

TEST S TEST=1

 ;;XMSFTP(1)=get file IP address (EG   89.0.0.79 - sstu)

 ;;XMSFTP(2)=DOS dir / subdir... Other than default to IMPORT file into

 ;;XMSFTP(2,"F")=File to get (s:\image\nfibpd2.756)

 ;;XMSFTP(3)=put to IP address

 ;;XMSFTP(4)=User ID at origination node

 ;;XMSFTP(5)=User Password at origination node

 ;;XMSFTP(6)=User ID at destination node

 ;;XMSFTP(7)=User Password at destination node

 ;;XMSFTP(8)=FTP IMPORT PATH [VMS has DIR.SUBD..., see XMSFTP(2) for DOS]

 ;To display image on Pete's terminal

 ;>stage

 ;>C:\t\test3 file_name

 ;find differences:  diff file1 file2 (no display=no differences)

XMSFTP    ;(WASH ISC)/CAP-TCP/IP-FTP Sender ;04/17/2002  11:29

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ;TCP/IP-FTP COMMUNICATIONS

 +3       ;Send file via FTP / File located on another TCP/IP node

FTP        KILL TEST

           NEW XMIO

           SET XMIO=$IO

 +1       ;

 +2       ;Get unique number for file to send

 +3        SET (XMSFTP,X)=$GET(^XMBX(4.2995,"F",0))+1

           SET ^(0)=X

 +4       ;

 +5        SET FILE="XM"_X_".COM"

           OPEN FILE:NEW

           USE FILE

 +6        WRITE "$! FTP COM procedure for fetching file from server and sending it",!

 +7        WRITE "$ set noon",!

 +8       ;Turn off echo

           WRITE "$ assign/user nla0: sys$output",!

 +9        WRITE "$ assign/user sys$input sys$command",!

 +10      ;

 +11      ;FTP to Get or Put location

 +12       WRITE "$ FTP=""$TWG$TCP:[NETDIST.USER]FTP",!

 +13       WRITE "$ FTP "

 +14       IF $LENGTH($GET(XMSFTP(1)))

               WRITE XMSFTP(1),!

 +15      IF '$TEST

               WRITE XMSFTP(3),!

               GOTO PUT

 +16      ;

 +17      ;Get file from local network

 +18       SET %=$GET(XMSFTP(4))

           WRITE %,!

 +19       SET %=$GET(XMSFTP(5))

           IF $LENGTH(%)

               WRITE %,!

 +20       WRITE "bin",!

 +21       WRITE "get "_$PIECE(XMSFTP(2),U,2)_XMSFTP(2,"F")_" "_XMSFTP(2,"F"),!

 +22       WRITE "close",!

 +23      ;

 +24      ;Put file to remote location

 +25       WRITE "open "_XMSFTP(3),!

           GOTO P

PUT        SET %=$GET(XMSFTP(6))

           WRITE %,!

P          SET %=$GET(XMSFTP(7))

           IF $LENGTH(%)

               HANG 3

               WRITE %,!

               IF $LENGTH($GET(XMSFTP(7.1)))

                   HANG 3

                   WRITE XMSFTP(7.1),!

 +1        WRITE "bin",!

 +2        WRITE "cd nfa0:[IMPORT.MAIL]",!

 +3       ;

 +4       ;Need to know directory on remote side

 +5        SET %=$GET(XMSFTP(8))

           IF $LENGTH(%)

               WRITE "cd "_%,!

 +6        SET %=$GET(XMSFTP(2))

           IF $LENGTH(%)

               WRITE "cd "_%,!

 +7        WRITE "delete "_XMSFTP(2,"F"),!

 +8        WRITE "put nfa0:[EXPORT.MAIL]"_XMSFTP(2,"F"),!

 +9        CLOSE FILE

 +10      ;

 +11      ;The following code originally spawned off an FTP transaction

 +12      ;immediately when the XMnnn.COM file was created.  It has been

 +13      ;replaced with code in XMRTCP.

 +14      ;

 +15      ;S %=$H*86400+$P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P($H,",",2)+600,%H=%\86400_","_(%#86400) D YX^%DTC S %=$P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P($P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P(Y,",")," ",2)_"-"_$P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P(Y," ")_"-"_$P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P($P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P(Y,"@"),", ",2)_":"_$P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P">P_source.html#xP">P_source.html#xP_source.html#xP">P">P_source.html#xP">P(Y,"@",2)

 +16      ;

 +17       SET X=$$FILE(FILE)

           KILL FILE,XMTMPFIL

 +18       USE XMIO

           QUIT

B36       ;Calculate base 36 number

 +1        NEW %,N,O,I,Z

           SET O=X

           SET %=X#36+1

           DO N

           SET Y=N

 +2        SET %=X\(36)#36+1

           DO N

           SET Y=N_Y

 +3        SET %=X\(36*36)#36+1

           DO N

           SET Y=N_Y

 +4        SET %=X\(36*36*36)#36+1

           DO N

           SET Y=N_Y

 +5        SET X=O

           QUIT

 +6        QUIT

N          SET N=$EXTRACT("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

 +1        QUIT

FILE(X)   ;Add record to FTP list

 +1        NEW DD,DO,DIC,DTOUT,DUOUT,Y

 +2        SET DIC="^XMBX(4.2995,"

           SET DIC(0)="LF"

           SET DIC("DR")="1///"_($HOROLOG*86400+$PIECE($HOROLOG,",",2))_";2///"_$SELECT($GET(XMDUZ):XMDUZ,1:DUZ)

 +3        DO FILE^DICN

           SET %=$GET(XMSFTP("IMAGE-PTR"))

           IF %

               SET $PIECE(^XMBX(4.2995,+Y,0),U,4)=%

 +4        QUIT Y

TEST       SET TEST=1

 +1       ;;XMSFTP(1)=get file IP address (EG   89.0.0.79 - sstu)

 +2       ;;XMSFTP(2)=DOS dir / subdir... Other than default to IMPORT file into

 +3       ;;XMSFTP(2,"F")=File to get (s:\image\nfibpd2.756)

 +4       ;;XMSFTP(3)=put to IP address

 +5       ;;XMSFTP(4)=User ID at origination node

 +6       ;;XMSFTP(5)=User Password at origination node

 +7       ;;XMSFTP(6)=User ID at destination node

 +8       ;;XMSFTP(7)=User Password at destination node

 +9       ;;XMSFTP(8)=FTP IMPORT PATH [VMS has DIR.SUBD..., see XMSFTP(2) for DOS]

 +10       QUIT

 +11      ;

 +12      ;To display image on Pete's terminal

 +13      ;>stage

 +14      ;>C:\t\test3 file_name

 +15      ;

 +16      ;find differences:  diff file1 file2 (no display=no differences)

XMSFTP.m