Spectranet

[ardentcrest]

Be nice if you could get the compiler to work with the spectranet.

Code:

10 %open #4,"file","r"
20 %oneof 100
30 INPUT #4,a$
40 PRINT a$
50 GO TO 30
100 %close #4

will not work as it sees the % as an illegal character.

[boriel]

Very good idea, Ardencrest! :!:
However, %open and the like are used to extend Sinclair BASIC.
A more simple Idea will be implement them as functions (and even use ASM). Something like:

Code:

10 DIM handle as Integer;
20 handle = SNetOpen("file", "r"): REM handle is the channel, like #4, but the routine returns its own
30 IF handle = -1 THEN GOTO 3000: END IF: REM Error if -1
35 SNetOneof(100): REM Don't know what it does
40 SNetInput(handle, a$): REM another way could be a$ = SNetRead(handle)
50 PRINT a$
60 GO TO 40
...
100 SNetClose(handle)

I could implement these if you want, but don't own a spectranet.
Do you know if there's an emulator which supports spectranet?

[ardentcrest]

FUSE but you have to load it up

<!-- m --><a class="postlink" href="http://spectrum.alioth.net/doc/index.php/Spectranet_ROM_images">http://spectrum.alioth.net/doc/index.ph ... ROM_images</a><!-- m -->

<!-- m --><a class="postlink" href="http://sourceforge.net/p/fuse-emulator/code/HEAD/tree/trunk/fuse/hacking/spectranet.txt">http://sourceforge.net/p/fuse-emulator/ ... tranet.txt</a><!-- m --> (a how to)

When you get it working make a snapshot so you dont have to redo it all the time. just need to load in the snapshot

[ardentcrest]

I can send you my snapshot. all you have to do is enter your ip address

[boriel]

You mean the emulator snapshot? Is is useful for developing routines?
(I have NO experience at all, so maybe this is an obvious question)

[ardentcrest]

heres my snapshot
unzip load up fuse and load in the file

you can join me on the zx chat <!-- m --><a class="postlink" href="http://www.coldfront.net/tiramisu/tiramisu.swf?channels=#zx">http://www.coldfront.net/tiramisu/tiram ... annels=#zx</a><!-- m -->

[ardentcrest]

most is like the code for the microdrive anything with a % is for the spectranet

10 %fopen #4,"file","r"

spectranet for file open

Code:

20 %oneof 100

no idea

Code:

30 INPUT #4,a$

as with mricrodrive

Code:

40 PRINT a$
50 GO TO 30

normal basic

100 %close #4

as with mricrodrive

[cheveron]

One thing to beware of on a snapshot is that you need to reset the IP address of the virtual Spectranet to the IP address of your real device. As Spectranet has a whole API and uses channels and streams it would seem like a good idea to use that existing functionality, rather than force keywords into BASIC. Much documentation here:

<!-- m --><a class="postlink" href="http://spectrum.alioth.net/doc/index.php/Main_Page">http://spectrum.alioth.net/doc/index.php/Main_Page</a><!-- m -->

[ardentcrest]

Can the compiler do microdrive code

Code:

10 OPEN#4:“m”;1:“digits”
20FORn=1TO15
30PRINT#4;n,n*n
40NEXTn
50
CLOSE#4

and so on

[boriel]

Not yet. In fact the idea, as always is to use asm libraries and not to touch ZX BASIC syntax anymore, since it could extend to other platforms.
So, Open #4 should be translated to handle = OpenChannel(4, "m", 1, "digits") a la C.
We can discuss it, however.

[ardentcrest]

Very good idea, Ardencrest! :!:
However, %open and the like are used to extend Sinclair BASIC.
A more simple Idea will be implement them as functions (and even use ASM). Something like:

Code:

10 DIM handle as Integer;
20 handle = SNetOpen("file", "r"): REM handle is the channel, like #4, but the routine returns its own
30 IF handle = -1 THEN GOTO 3000: END IF: REM Error if -1
35 SNetOneof(100): REM Don't know what it does
40 SNetInput(handle, a$): REM another way could be a$ = SNetRead(handle)
50 PRINT a$
60 GO TO 40
...
100 SNetClose(handle)

I could implement these if you want, but don't own a spectranet.
Do you know if there's an emulator which supports spectranet?

any update an adding the spectranet % to the compiler :wink:

temp.bor:1: illegal character '%'

[IanJ]

Hi all,

To ressurect an old thread, I have the Spectranet card and was wondering if there had been any movement with adding the functionality to the compiler. Maybe it has but I am missing the documentation.

Any help appreciated.

PS. Here's the code I'm trying to compile.....it's a wee webserver.

Code:

4  LET count=0
8  PRINT AT 0,0;"Webserver started"
10 %listen #4,80
20 %control #5
30 PRINT AT 1,0;"Total connections = ";count
40 %accept #5,4
50 PRINT #5;"You are connected to IanJ's ZX Spectrum - Visitor = ";count+1
55 PRINT #5;" "
60 LET count=count+1
70 INPUT #5;a$
90 INPUT #5;a$
100 PRINT AT 7,0;a$
110 PRINT #5;a$
120 INPUT #5;a$
130 PRINT AT 9,0;a$
140 PRINT #5;a$
210 BEEP 0.2,40
220 %close #5
230 %close #4
240 GO TO 10

[ardentcrest]

client

[ardentcrest]

telnet by geusser

[ardentcrest]

Mine

Code:

10 %connect #4,"zxmud.zapto.org",4000
20 %oneof 80
30 print #4;"0"
40 input #4;a$
50 print a$
60 goto 40
80 %close #4

Telnet

download

<!-- m --><a class="postlink" href="http://alistairtesting.no-ip.org/telnet">http://alistairtesting.no-ip.org/telnet</a><!-- m -->