BEGINNING:
 OPEN "com1:9600,n,8,1" FOR INPUT AS #1
 INPUT "Enter Filename to create: " ,FileName$
   IF FileName$ = "" THEN GOTO QUESTION
 OPEN FileName$ FOR OUTPUT AS #2
 INPUT "Enter Length of file to Transfer (Given by Send program): ", LENGTH
   IF LENGTH = 0 GOTO QUESTION
 PRINT "Listening to Serial Port "
 PRINT #2,INPUT$(LENGTH,#1); 
 GOTO QUESTION
   
QUESTION:
 CLOSE #1
 CLOSE #2
 INPUT "Do you want to Trasfer more files? (Y/N) " ,ANSWER$ 
 ANSER$ = LEFT$(UCASE$(ANSWER$),1)
 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  
