ZxNet...?
ZXNet echo conference «zxnet.soft»
Hello, Yuriy!
13 Sep 02 22:01, Yuriy Prokofiev -> All:
YP> I have been hearing this wonderful word in echoes for a long time...
YP> in principle it is clear what is meant
YP> but the implementation is completely unclear....
Well.... what is unclear here. You're probably confused by the small disk
space available for TR-DOS? Four 640 KB disks? Me too once upon a time
I was shocked to see links like “located on POST BBS, disk number 120”. 8-) It’s a screw
It's been six years since we connected it.
YP> Maybe someone can explain...
Where and how. It's different in different regions. It depends on the one used
modem and software. If Hayes is compatible - the same FTN network as Fido, software
appropriate. The nodes are usually on the PC. Communication between cities - I think everywhere
to the PC on the Internet, although I know real people who delivered mail intercity.
If you use your own modems that are not compatible with anything, then
We use our own software for them - MMD 4.xx. or EMS 2.xx. MacroModem 4.xx or
E-mage Modem Station 2.xx, respectively.
By the way, both of these programs don’t care about the type of modem used, because in both
something like a FOSSIL driver is used. They can work with Hayes too,
I have the driver somewhere. These are postal terminal programs, they workcan do whatever they want, because both have a built-in command language interpreter (since
languages were made by different people - they are both different). In MMD - creepy, but very
functional language, in EMS - something kinder. I need to re-read the description.
I lost the example for MMD somewhere, I need to look for it.
Found it. Fence overlay script for the server. "Fence" is such a place on ZXNet
BBS, where every user or point can leave a note for someone.
And behind it flies a version of the script for sending and receiving mail (and what
anything else) on EMS 2.55 for the client computer. I re-read it now
- it turns out that it can run PKUnzip with tosser!
ALL THIS IS PERFORMED ON THE REAL ZX-SPECTRUM, IT HAS NOTHING TO DO WITH THE PC.
The central hub of the network is connected to a local network with a computer through which the network
part of the network communicates with external networks.
_······------====== Monitor glass cutter ======------······_
INTs are included at the end.
Here's the fence overlay:
;
; User board
;
;&V - current fence number
;$N - its name
~0=0
OVERLAY
. Fences
CP @NAME User
JPZ_locden
FAST
&V=1
CALL_locload
RES %080
_zabor1
<#0C
< Bulletin system v4.1 by Igor K.
_ReadZ
.rd
_ReadZ0 &8=@MAX_FEN
IF &8=0
? $0=#0d#0d#0d#20#20#20#20Messagov#20no~!~#0d#0d#0d
? &9=666
? &8=666? JP_RepZ
IF &8=1
? &9=1
? JP_ReadZ1
PAUSE 15
NORMAL
<
<
&8
? &9=&8
$7=
JPIF @MAX_FEN=0 _ReadZ0
DEC&9
SETFEN &9
PRIFEN $0
$6=$0(0 7)
CP $6 [cont:01
JPNZ_ReadZ1_1
JPIF &9<1 _ReadZ1_1
JP_ReadZ1
_ReadZ1_1 INC &9
SETFEN &9
PRIFEN $5
$6=$5(0 7)
CP $6 [cont:01
JPZ_ReadZ1_2
RES %080
$5=
JP_RepZ
_ReadZ1_2 SET %080
&1=11
&0=@$5-&1
_loops $7=$7$5(&1)
INC&1
DJNZ &0 _loops
$8=~+add~
_RepZ
NORMAL
<#0C;
<[&V/7]: $N
<[&9(3)/&8(3)] $8
<
<$0;
<$7
<
<
<- + = n w a s < > z m q "H" - HELP
RES %071
CLEARIN
WCHR
FAST
SET %071
INT 0
JPON $E "-" _PrevZ "+" _NextZ "=" _RepZ "N" _ReadZ "W" _WritZ "A" _ReplZ "S"
_sel_b "<" _PrevB2 ">" _NextB2 "M" _WrTo
JPON $E "Z"_ReadB2
JPON $E "O" _PrevZ "P" _NextZ "L" _RepZ "1" _ReadZ "2" _WritZ "3" _ReplZ "4"
_sel_b "7" _PrevB2 "6" _NextB2 "8" _WrToJPON $E "5" _ReadB2
JPON $E 13 _NextZ "H" _HelpZa "Q" _rett "0" _rett
JP_RepZ
;
_rett
NORMAL
RET
_HelpZa
CALL_HelpZ
JP_RepZ
_ReadB2
CALL_ReadB
JP_ReadZ
_NextB2
CALL_NextB
JP_ReadZ
_PrevB2
CALL_PrevB
JP_ReadZ
;======================================================
_NextZ JPIF &9=&8 _ReadZ1
INC&9
IF %080=1
? INC&9
IF &9>&8
? &9=&8
JP_ReadZ1
_PrevZ JPIF &9=1 _ReadZ1
DEC&9
JP_ReadZ1
;======================================================
_sel_b
.select subj
NORMAL
<#0C
< Select a topic
<
6 - next board
3
? .entered a large number $E? RET
&2=@$E
&3=0
&9=0
_strnum_1
&4=$E(&3)
INC &3
JPIF &4=13 _strnum_2
JPIF &4<"0" _strnum_3
JPIF &4>"9" _strnum_3
&4=&4-"0"
&9=&9*10+&4
DJNZ &2 _strnum_1
_strnum_2
&2=0
RET
_strnum_3
&2=2
RET
;========================================
_conv_netaddr
$4=@ADDR
; $4=$4(4 7)
; $4=$4(0 1)#2E$4(2 3)
RET
;========================================
_locload
FAST
IF &V=1
? $0=bulb1 z
? $N=~general conversations~
IF &V=2
? $0=bulb2 z
? $N=~business~
IF &V=3
? $0=bulb3 z
? $N=~music~
<#0Cloading...;
.ld &V
IF @DISK!~0
? DISC ~0
UNSEL_ALL
SEL $0
JPIF @MARK=0 _locload1
UNSEL_ALL
LDFEN $0
UNSEL_ALL
RETZ
.FENCE ERROR @ERR
.let's break the bond
<
1595023
markrc >SPENCER
markrc >ALL*
markrc >All*
markrc >all*
markrc >ALL?SPE
markrc >All?SPE
markrc >all?SPE
markrc SPE*
unmarked
return
:masktr marktr >*
marktr >1595023
marktr >SPENCER
marktr >ALL*
marktr >All*
marktr >all*
marktr >ALL?SPE
marktr >All?SPE
marktr >all?SPE
return:blk_ps let .9=.16
let .8=.16
:blkpsl transmit ~.log Goljakov;123~
;Hе забудьте заменить имя и пароль на свои!!!
wait .14
sendcommand
onerror 12 goto nobbs1
onerror goto nobbs2
return
:nobbs1 let .9=.9-1
if .9~0 goto blkpsl
goto no_bbs
:nobbs2 let .8=.8-1
if .8~0 goto blkpsl
:no_bbs if .8=0 transmit ~ERROR!!!~BBS mode not found!!!~.~
if .9=0 transmit ~ERROR!!!~my password not found!!!~.~
let .8=0
return
:blk_pt let .8=.16
let .9=.16
:blkpt sendcommand ~.con post|Post area opened
onerror 12 goto nopst1
onerror goto nopst2
return
:nopst1 let .9=.9-1
if .9~0 goto blk_pt
goto no_pst
:nopst2 let .8=.8-1
if .8~0 goto blk_pt
:no_pst if .8=0 transmit ~.~___ERROR!!!~___BBS mode not found!!!~.~
if .9=0 transmit ~.~___ERROR!!!~___my postbox not found!!!~.~
let .8=0
return
:blk_po let .8=.16
let .9=.16
:blkpo sendcommand ~.con|Area opened
onerror 12 goto nopo1
onerror goto nopo2
return
:nopo1 let .9=.9-1
if .9~0 goto blk_po
goto no_poe
:nopo2 let .8=.8-1
if .8~0 goto blk_po
:no_poe if .8+.9=0 transmit ~.~can't exit out of postbox
let .8=0
return
:err_sd tolog ~.~___ERROR!!! (ERR=`.0`)-
onerror 4 tolog break pressedonerror 5 tolog no your disk
onerror 6 tolog your disk error
let .7 = .7-1
if .7=0 goto exit_b
return
_······------====== Monitor glass cutter ======------······_
Hmm. I threw all kinds of crap here. Oh well, people should know
how it works for us.
* Original written in KHARKOV.SPECTRUM
* also sent to ZX.SPECTRUM
*also sent to REAL.SPECCY
* also sent to ZXNET.SOFT
WBR, Jason.
/*e-mail: jason2000(scary dog)yandex.ru ICQ: 62235830*/
/np:/ *silence*
Hello, Yuriy!
13 Sep 02 22:01, Yuriy Prokofiev -> All:
YP> I have been hearing this wonderful word in echoes for a long time...
YP> in principle it is clear what is meant
YP> but the implementation is completely unclear....
Well.... what is unclear here. You're probably confused by the small disk
space available for TR-DOS? Four 640 KB disks? Me too once upon a time
I was shocked to see links like “located on POST BBS, disk number 120”. 8-) It’s a screw
It's been six years since we connected it.
YP> Maybe someone can explain...
Where and how. It's different in different regions. It depends on the one used
modem and software. If Hayes is compatible - the same FTN network as Fido, software
appropriate. The nodes are usually on the PC. Communication between cities - I think everywhere
to the PC on the Internet, although I know real people who delivered mail intercity.
If you use your own modems that are not compatible with anything, then
We use our own software for them - MMD 4.xx. or EMS 2.xx. MacroModem 4.xx or
E-mage Modem Station 2.xx, respectively.
By the way, both of these programs don’t care about the type of modem used, because in both
something like a FOSSIL driver is used. They can work with Hayes too,
I have the driver somewhere. These are postal terminal programs, they workcan do whatever they want, because both have a built-in command language interpreter (since
languages were made by different people - they are both different). In MMD - creepy, but very
functional language, in EMS - something kinder. I need to re-read the description.
I lost the example for MMD somewhere, I need to look for it.
Found it. Fence overlay script for the server. "Fence" is such a place on ZXNet
BBS, where every user or point can leave a note for someone.
And behind it flies a version of the script for sending and receiving mail (and what
anything else) on EMS 2.55 for the client computer. I re-read it now
- it turns out that it can run PKUnzip with tosser!
ALL THIS IS PERFORMED ON THE REAL ZX-SPECTRUM, IT HAS NOTHING TO DO WITH THE PC.
The central hub of the network is connected to a local network with a computer through which the network
part of the network communicates with external networks.
_······------====== Monitor glass cutter ======------······_
INTs are included at the end.
Here's the fence overlay:
;
; User board
;
;&V - current fence number
;$N - its name
~0=0
OVERLAY
. Fences
CP @NAME User
JPZ_locden
FAST
&V=1
CALL_locload
RES %080
_zabor1
<#0C
< Bulletin system v4.1 by Igor K.
_ReadZ
.rd
_ReadZ0 &8=@MAX_FEN
IF &8=0
? $0=#0d#0d#0d#20#20#20#20Messagov#20no~!~#0d#0d#0d
? &9=666
? &8=666? JP_RepZ
IF &8=1
? &9=1
? JP_ReadZ1
PAUSE 15
NORMAL
<
<
&8
? &9=&8
$7=
JPIF @MAX_FEN=0 _ReadZ0
DEC&9
SETFEN &9
PRIFEN $0
$6=$0(0 7)
CP $6 [cont:01
JPNZ_ReadZ1_1
JPIF &9<1 _ReadZ1_1
JP_ReadZ1
_ReadZ1_1 INC &9
SETFEN &9
PRIFEN $5
$6=$5(0 7)
CP $6 [cont:01
JPZ_ReadZ1_2
RES %080
$5=
JP_RepZ
_ReadZ1_2 SET %080
&1=11
&0=@$5-&1
_loops $7=$7$5(&1)
INC&1
DJNZ &0 _loops
$8=~+add~
_RepZ
NORMAL
<#0C;
<[&V/7]: $N
<[&9(3)/&8(3)] $8
<
<$0;
<$7
<
<
<- + = n w a s < > z m q "H" - HELP
RES %071
CLEARIN
WCHR
FAST
SET %071
INT 0
JPON $E "-" _PrevZ "+" _NextZ "=" _RepZ "N" _ReadZ "W" _WritZ "A" _ReplZ "S"
_sel_b "<" _PrevB2 ">" _NextB2 "M" _WrTo
JPON $E "Z"_ReadB2
JPON $E "O" _PrevZ "P" _NextZ "L" _RepZ "1" _ReadZ "2" _WritZ "3" _ReplZ "4"
_sel_b "7" _PrevB2 "6" _NextB2 "8" _WrToJPON $E "5" _ReadB2
JPON $E 13 _NextZ "H" _HelpZa "Q" _rett "0" _rett
JP_RepZ
;
_rett
NORMAL
RET
_HelpZa
CALL_HelpZ
JP_RepZ
_ReadB2
CALL_ReadB
JP_ReadZ
_NextB2
CALL_NextB
JP_ReadZ
_PrevB2
CALL_PrevB
JP_ReadZ
;======================================================
_NextZ JPIF &9=&8 _ReadZ1
INC&9
IF %080=1
? INC&9
IF &9>&8
? &9=&8
JP_ReadZ1
_PrevZ JPIF &9=1 _ReadZ1
DEC&9
JP_ReadZ1
;======================================================
_sel_b
.select subj
NORMAL
<#0C
< Select a topic
<
6 - next board
3
? .entered a large number $E? RET
&2=@$E
&3=0
&9=0
_strnum_1
&4=$E(&3)
INC &3
JPIF &4=13 _strnum_2
JPIF &4<"0" _strnum_3
JPIF &4>"9" _strnum_3
&4=&4-"0"
&9=&9*10+&4
DJNZ &2 _strnum_1
_strnum_2
&2=0
RET
_strnum_3
&2=2
RET
;========================================
_conv_netaddr
$4=@ADDR
; $4=$4(4 7)
; $4=$4(0 1)#2E$4(2 3)
RET
;========================================
_locload
FAST
IF &V=1
? $0=bulb1 z
? $N=~general conversations~
IF &V=2
? $0=bulb2 z
? $N=~business~
IF &V=3
? $0=bulb3 z
? $N=~music~
<#0Cloading...;
.ld &V
IF @DISK!~0
? DISC ~0
UNSEL_ALL
SEL $0
JPIF @MARK=0 _locload1
UNSEL_ALL
LDFEN $0
UNSEL_ALL
RETZ
.FENCE ERROR @ERR
.let's break the bond
<
1595023
markrc >SPENCER
markrc >ALL*
markrc >All*
markrc >all*
markrc >ALL?SPE
markrc >All?SPE
markrc >all?SPE
markrc SPE*
unmarked
return
:masktr marktr >*
marktr >1595023
marktr >SPENCER
marktr >ALL*
marktr >All*
marktr >all*
marktr >ALL?SPE
marktr >All?SPE
marktr >all?SPE
return:blk_ps let .9=.16
let .8=.16
:blkpsl transmit ~.log Goljakov;123~
;Hе забудьте заменить имя и пароль на свои!!!
wait .14
sendcommand
onerror 12 goto nobbs1
onerror goto nobbs2
return
:nobbs1 let .9=.9-1
if .9~0 goto blkpsl
goto no_bbs
:nobbs2 let .8=.8-1
if .8~0 goto blkpsl
:no_bbs if .8=0 transmit ~ERROR!!!~BBS mode not found!!!~.~
if .9=0 transmit ~ERROR!!!~my password not found!!!~.~
let .8=0
return
:blk_pt let .8=.16
let .9=.16
:blkpt sendcommand ~.con post|Post area opened
onerror 12 goto nopst1
onerror goto nopst2
return
:nopst1 let .9=.9-1
if .9~0 goto blk_pt
goto no_pst
:nopst2 let .8=.8-1
if .8~0 goto blk_pt
:no_pst if .8=0 transmit ~.~___ERROR!!!~___BBS mode not found!!!~.~
if .9=0 transmit ~.~___ERROR!!!~___my postbox not found!!!~.~
let .8=0
return
:blk_po let .8=.16
let .9=.16
:blkpo sendcommand ~.con|Area opened
onerror 12 goto nopo1
onerror goto nopo2
return
:nopo1 let .9=.9-1
if .9~0 goto blk_po
goto no_poe
:nopo2 let .8=.8-1
if .8~0 goto blk_po
:no_poe if .8+.9=0 transmit ~.~can't exit out of postbox
let .8=0
return
:err_sd tolog ~.~___ERROR!!! (ERR=`.0`)-
onerror 4 tolog break pressedonerror 5 tolog no your disk
onerror 6 tolog your disk error
let .7 = .7-1
if .7=0 goto exit_b
return
_······------====== Monitor glass cutter ======------······_
Hmm. I threw all kinds of crap here. Oh well, people should know
how it works for us.
* Original written in KHARKOV.SPECTRUM
* also sent to ZX.SPECTRUM
*also sent to REAL.SPECCY
* also sent to ZXNET.SOFT
WBR, Jason.
/*e-mail: jason2000(scary dog)yandex.ru ICQ: 62235830*/
/np:/ *silence*