76 lines
1.0 KiB
QBasic
Executable File
76 lines
1.0 KiB
QBasic
Executable File
DIM BUF(8192) BYTE
|
|
|
|
CONN=2
|
|
MODE=12
|
|
TRANS=0
|
|
URL$="N:TCP://HOSTNAME-HERE:2077"
|
|
|
|
PROC CONNECT
|
|
PRINT "CONNECTING TO "
|
|
PRINT URL$
|
|
NOPEN CONN,MODE,TRANS,URL$
|
|
NSTATUS CONN
|
|
ENDPROC
|
|
|
|
PROC INTCLR
|
|
POKE $D302, PEEK($D302) & 127
|
|
ENDPROC
|
|
|
|
PROC IN
|
|
@INTCLR
|
|
NSTATUS CONN
|
|
BW = PEEK($02EA)
|
|
WHILE BW
|
|
IF BW > 8192 OR BW < 000
|
|
LN = 8192
|
|
ELSE
|
|
LN = BW
|
|
ENDIF
|
|
|
|
NGET CONN,&BUF,LN
|
|
BPUT #0,&BUF,LN
|
|
BW = BW - LN
|
|
WEND
|
|
ENDPROC
|
|
|
|
PROC OUT
|
|
BUF(1)=PEEK $02FC
|
|
BUF(0)=PEEK $D01F
|
|
POKE $02FC, 255
|
|
NPUT CONN, &BUF, 2
|
|
ENDPROC
|
|
|
|
PROC KEEB
|
|
DO
|
|
IF PEEK($D302) & 128
|
|
@IN
|
|
ENDIF
|
|
|
|
IF PEEK($02EC) = 0
|
|
PRINT "DISCONNECTED"
|
|
NCLOSE CONN
|
|
EXIT
|
|
ENDIF
|
|
|
|
IF PEEK($02FC) <> 255 THEN @OUT
|
|
|
|
IF PEEK($D01F) = 0 THEN EXIT
|
|
LOOP
|
|
ENDPROC
|
|
|
|
POKE 65,0
|
|
POKE 731,1
|
|
@CONNECT
|
|
|
|
IF SErr() <> 1
|
|
NSTATUS 2
|
|
PRINT "CONNECTION ERROR..."; PEEK($02ED)
|
|
NCLOSE 2
|
|
ELSE
|
|
PRINT "CONNECTED!"
|
|
@KEEB
|
|
ENDIF
|
|
|
|
POKE 65,3
|
|
POKE 731,0
|