[分享]BASIC中调用红外传输文件

qyfcool

见这篇帖子.

http://www.emsky.net/bbs/dispbbs.asp?boardID=13&ID=6342&page=1

现在有电脑用了,上传一下.很小的一个文件,NC3K使用.




代码如下:

0 GOTO 10
5 SleepySoft@163.com
10 FOR I=8205 TO 8222:READ NOKE I,N:NEXT
15 CLEAR:TEXT :INPUT "目录名:/";N$:GRAPH
20 IF PEEK (199)=27 THEN POKE 199,128:END
30 N$="/"+N$
35 N=2189
40 FOR I=1 TO LEN(N$)
50 POKE N,ASC(MID$(N$,I)):N=N+1
60 NEXT
70 POKE N,0:CALL 8205
80 GOTO 15
90 DATA 0,13,5,144,1,96,169,16,133,10,32,226,75,169,155,133,10,96


20句的POKE只是不想切回目录而直接转到时间,不是必须的.

这个软件只是讨论方法,并不是正式软件.

[此贴子已经被作者于2005-6-20 9:36:00编辑过]