[转帖]在X.BAS中调用XX.BAS（for nc3000)

大豆超人

http://www.ggv.com.cn/wqx/forum/showthread.php?s=&threadid=61692

这帖里好像讲到一点

yoyohenry

10 INPUT"打开的文件名：";A$:IF A$="" THEN END

20 J=2189:FOR I=1 TO LEN(A$)

30 A=ASC(MID$(A$,I,1))

40 IF A-31 THEN POKE J,A:J=J+1

50 NEXT :FOR I=J TO 2200OKE I,0:NEXT

60 CALL 17927

///只是不知为什么 所打开的BAS文件 在运行完成后

WQX自动关机