projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
314dec06e219fb3bd28bfd23feff46b593a56708
[qbasicapps.git]
/
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: svjatoslav@svjatoslav.eu
\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