pv@polari.UUCP (Paul Varn) (01/13/91)
Macro fur using XYZ.TTP version 2.0 to up/download by pressing function key.
Script uses file selector and dialog boxes to make file selection fast and
easy. Two keypresses will download to default directory.
Macro begins after next line.
------------------CUT BEFORE AND INCLUDING THIS LINE-----------------------
# XYZ2.TTP up/download macro for Uniterm 2.0e and XYZ.TTP version 2.0.
# Name this file to: XYZ2.MAC
# Use command: "%macro('xyz2.mac')" (w/o quotes) on a function key to run.
# Make sure XYZ.TTP (v 2.0 or higher) and XYX2.MAC are in default drive.
# You should have 50k or more space in your system buffer.
# This assumes you want to use XYZ for ZMODEM only. "-p" pause switch
# is always used. If default "dflt" is used, XYZ will download to the
# same drive as it was run from. You might want to edit lines 5 and 10
# to change the default filesector drive. Change the C: between the '' to
# whatever you want. Do not add spaces or "\" marks if you do not specify
# a folder. Add a folder by using: "C:\stuff\". Next line is line 1.
me('XYZ2.TTP ZMODEM. Cancel=option prompts')
if(inp('Enter <RET> for dflt dnload or Cancel')) run('xyz.ttp','-p/r/n') ex( )
if(!inp('Enter <RET> for dwnld, <CAN> for upld')) ju(1)
me('Select Destination for download. Cancel = quit')
w(10) if(!file('C:',' ','Select path for Dwnld')) exit( )
copy(1,'-p ') copy(2,$P) con($1,$2) con($T,'\r\n') copy(1,$T) ec($1)
ec('\r\n') run('xyz.ttp',$1) exit( )
:1
me('Send file ZMODEM. Cancel = quit')
w(10) if(!file('C:',' ','Select File to Send')) exit( )
copy(1,'-u -p ') copy(2,$F) con($1,$2) con($T,'\r\n') copy(1,$T)
run('xyz.ttp',$1) ec('Send file: ') ec($2) ec('\r\n') exit( )
<<<<<<<<<<<<<<<<<<END OF MACRO----------REMOVE THIS LINE AND BELOW>>>>>>>>>>>
SORRY ABOUT THE AWFUL FORMATTING. THIS MAILER WON'T ACCEPT FULL 80 COLUMN.
THERE SHOULD BE 23 LINES IN THE ACTUAL MACRO.