[Coco] Driverwire server

[Darren A]

On 3/15/09, Roger Taylor wrote:
>
> A very crude example where BASIC and the PC server do most of the work.
>
> 10 CLEAR 1000
> 20 A$=STRING$(128,32):B$=A$ ' prefill 256 bytes of ASCII 32 (spaces)
> 30 C$="HTTPGET HTTP://WWW.COCO3.COM"
> 40 MID$(A$,1,LEN(C$))=C$
> 50 DSKO$ 100,0,0,A$,B$ ' send command over port 100
> 60 DSKI$ 0,0,0,A$,B$ ' stream in the HTML file of coco3.com
> 70 D$=A$+B$:PRINT MID$(D$,2,ASC(A$))
> 90 GOTO 60
>

Roger, to fix line 70 so that it will not produce an LS ERROR, it
should be changed to:

70 D$=RIGHT$(A$,127)+B$:PRINT LEFT$(D$,ASC(A$))

Darren