NEWSTACK
QUEUE ' PWD'
QUEUE ' ASCII'
QUEUE ' SENDSITE'
QUEUE ' CD '||PATH
DO I = 1 TO NUMBER_OF_LINES
COUNT = COUNT + 1
PARSE VAR FILELINE.COUNT X1 X2
QUEUE ' PUT '||X1
END
QUEUE ' QUIT'
RETURN
QUEUE ' PWD'
QUEUE ' ASCII'
QUEUE ' SENDSITE'
QUEUE ' CD '||PATH
DO I = 1 TO NUMBER_OF_LINES
COUNT = COUNT + 1
PARSE VAR FILELINE.COUNT X1 X2
QUEUE ' PUT '||X1
END
QUEUE ' QUIT'
RETURN