[Coco] Driverwire server

Roger Taylor operator at coco3.com
Sun Mar 15 18:05:26 EDT 2009


At 04:49 PM 3/15/2009, you wrote:
>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

Yea, you can tell I hand typed the example.  I hope the general idea 
is there, though.  Reuse the sector transfer routines already in place.


-- 
Roger Taylor

http://www.wordofthedayonline.com




More information about the Coco mailing list