Source bin->hex:

	INPUT "Enter FileName to Convert: ",OldFile$
	OPEN OldFile$ FOR INPUT AS #1
	INPUT "Enter Filname to Create: ",NewFile$
	OPEN NewFile$ FOR OUTPUT AS #2 
	EntireFile$ = INPUT$(LOF(1),#1)

	FOR I = 1 TO LOF(1)

	A$ = HEX$(ASC(RIGHT$(LEFT$(EntireFile$,I),1)))
	IF LEN(A$) = 1 THEN
   	   B$ = "0" 
	   PRINT #2,B$;A$;
	ELSE
   	   PRINT #2,A$;
	END IF
	NEXT I
	CLOSE #1
	CLOSE #2




--------------------------------------------------------


Source hex->bin:

	INPUT "Enter FileName to Convert: ",OldFile$
	OPEN OldFile$ FOR INPUT AS #1
	INPUT "Enter Filname to Create: ",NewFile$
	OPEN NewFile$ FOR OUTPUT AS #2 
	EntireFile$ = INPUT$(LOF(1),#1)
	FOR I = 1 TO INT(LOF(1)/2)
	  TALL = I * 2
	  PRINT I
	  A$ = RIGHT$(LEFT$(EntireFile$,TALL),2)

  	  C$=LEFT$(A$,1)
  	  D$=RIGHT$(A$,1)

	    FOR Z=0 TO 15
	      IF C$ = HEX$(Z) THEN  A = Z
	      IF D$ = HEX$(Z) THEN  B = Z
	    NEXT Z

          NR = A*16+B
          PRINT #2,CHR$(NR); 
	NEXT I
 	CLOSE #1
 	CLOSE #2
 

-------------------------------------------------------------------


Source Send:

	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


-----------------------------------------------------------------------


Source Receive:
  
	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  


---------------------------------------------------------------------