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


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