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