networking/file2com.bas

   1 ' file -> COM\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 DIM SHARED byte AS STRING * 1\r
   8 OPEN COMMAND$ FOR BINARY AS #1\r
   9 \r
  10 1\r
  11 IF EOF(1) <> 0 THEN GOTO 2\r
  12 GET #1, , byte\r
  13 OUT 1016, ASC(byte)\r
  14 \r
  15 FOR b = 1 TO 10\r
  16   SOUND 0, .05\r
  17 NEXT b\r
  18 GOTO 1\r
  19 2\r
  20 CLOSE #1\r
  21 \r