' file -> COM
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslavagejenko@gmail.com
 
DIM SHARED byte AS STRING * 1
OPEN COMMAND$ FOR BINARY AS #1

1
IF EOF(1) <> 0 THEN GOTO 2
GET #1, , byte
OUT 1016, ASC(byte)

FOR b = 1 TO 10
  SOUND 0, .05
NEXT b
GOTO 1
2
CLOSE #1