OPEN "com1:9600,n,8,1" AS #1
PRINT #1,"Hi";
BEGINNING:
IF INPUT$(3,#1) = "Hei" THEN
 PRINT #1,"Nl";
 NameLength = VAL(INPUT$(3,#1))
 PRINT #1,"Nn";
 FileName$ = INPUT$(NameLength,#1)
 OPEN FileName$ FOR OUTPUT AS #2
 PRINT #1,"Ll";
 Tall = VAL(INPUT$(3,#1))
 PRINT #1,"Fl";
 FileLength=VAL(INPUT$(Tall,#1))
 PRINT #1,"Fb";
 FOR I=1 TO FileLength
  Byte = VAL(INPUT$(3,#1))
  PRINT #2,CHR$(Byte);
  IF (I/100) = INT(I/100) THEN
   PRINT #1,"ok";
   CLS
   PRINT I;"/";FileLength;SPC(5);INT(I/FileLength*100);"%"
   END IF
  NEXT I
 CLS
 PRINT "Filetransfer completed"
 CLOSE #2
 GOTO BEGINNING
ELSE
 PRINT #1,"Hi";
 GOTO BEGINNING
 END IF