BEGINNING:
 OPEN "com1:9600,n,8,1" FOR OUTPUT AS #1
 INPUT "Enter Filename to send: " , FileName$
 IF FileName$ = "" THEN GOTO FINISH
 OPEN FileName$ FOR INPUT AS #2
 LENGTH = LOF(2)
 PRINT "Lenght of File " FileName$ " is " LENGTH ""
 PRINT "Write this to the Receive program "
 INPUT "and hit Enter, or write 'S' to break. " ,IsThisEnter$
 IF IsThisEnter$ = "S" THEN GOTO QUESTION
 PRINT "Sending File Please Wait..."
 PRINT #1,INPUT$(LENGTH,#2);
 PRINT   "          Done         "
 GOTO QUESTION
 
QUESTION:
 CLOSE #1
 CLOSE #2
 INPUT  "Do you want to Send more files? (Y/N) ",ANSWER$
 ANS$ = LEFT$(ANSWER$,1)
 ANSER$ = UCASE$(ANS$)
 IF ANSER$ = "Y" THEN
   GOTO BEGINNING
 ELSEIF ANSER$ = "N" THEN
   GOTO FINISH
 ELSE
   GOTO QUESTION
 END IF
 
FINISH:
 PRINT "Be seeing you."
 PRINT "                 +Warlock+ "
 END


  
