
;AMINET UPLOADER 3 January 1997 by Kenneth J. McCormick. All Rights Reserved.
lab begin
requestchoice >env:YN "AU  3 JANUARY 1997 BY KENNETH J. McCORMICK. ALL RIGHTS RESERVED" "PROCEED" "YES" "NO"
IF $YN EQ "0"
SKIP FIN
ENDIF
REQUESTFILE >ENV:FILE TITLE="PICK FILE TO UPLOAD TO AMINET"
COPY $FILE TO FTP://FTP.wustl.edu/pub/aminet/new
REQUESTFILE >ENV:FILE TITLE="PICK README FILE TO UPLOAD TO AMINET"
COPY $FILE TO FTP://FTP.wustl.edu/pub/aminet/new
REQUESTCHOICE >ENV:ANS "AMINET UPLOADER" "UPLOAD ANOTHER PROGRAM" "Yes" "No"
if ans$ eq "1"
skip back begin
endif
LAB FIN




