YP> Давно встpечаю в эхах это дивное слово... YP> в пpинципе понятно что имеется ввидy, YP> но совсем непонятна pеализация....
Hууу.... чего тут непонятного. Вероятно, тебя смущает малое дисковое
пространство доступное для TR-DOS? Четыре диска по 640 Кб? Я тоже когда-то
офигевал, видя ссылки типа "лежит на POST BBS, диск номер 120". 8-) Винт ведь
уже шесть лет как подключили.
YP> Может кто pазьяснит,...
Где как. В разных регионах по разному. Это в зависимости от используемого
модема и софта. Если Hayes совместимый - такая же FTN сеть как и Фидо, софт
соответствующий. Узлы как правило на ПЦ. Связь между городами - помоему везде
на ПЦ по инету, хотя я знаю реальщиков, которые по межгороду почту тянули.
Если же используются свои собственные ни с чем не совместимые модемы - то
используется свой софт под них - MMD 4.xx. или EMS 2.xx. MacroModem 4.xx или
E-mage Modem Station 2.xx, соответственно.
Кстати, обеим этим прогам тип используемого модема по барабану, ибо в обеих
используется что-то типа FOSSIL драйвера. С Hayes они тоже могут работать,
драйвер где-то у меня есть. Это почтово-терминальные программы, работать они
могут как угодно, ибо в обеих встроен интерпретатор командного языка (поскольку
языки делали разные люди - оба они разные). В MMD - жутковатый, но очень
функциональный язык, в EMS - что-то более доброе. Hадо описание перечитать.
Пример для MMD где-то у меня потерялся, искать надо.
Hашел. Скрипт заборного оверлея для сервера. "Забор" - это такое место на ZXNet
BBS, где каждый юзер или поинт может кому-нить записку оставить.
А следом за ним летит вариант скрипта для отправки и забирания почты (и чего
угодно другого) на EMS 2.55 для клиентского компьютера. Я сейчас его перечитал
- оно оказывается и PKUnzip с тоссером запускать умеет!
ВСЕ ЭТО ВЫПОЛHЯЕТСЯ HА РЕАЛЬHОМ ZX-SPECTRUM, С ПЦ ЭТО HИКАК HЕ СВЯЗАHО.
Центральный хаб сети соединен в локалку с писюком, через который викоммная
часть сети общается с внешними сетями.
_······------====== Стеклорез мониторный ======------······_
INT'ы прилагаются в конце.
Вот заборный оверлей:
;
; Доска пользователей
;
;&V - номер текущего забора
;$N - его название
~0=0
OVERLAY
. Заборы
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#20Мессагов#20нет~!~#0d#0d#0d
? &9=666
? &8=666
? JP _RepZ
IF &8=1
? &9=1
? JP _ReadZ1
PAUSE 15
NORMAL
<
<
< С какого мессага будешь читать ?
<(можно от 1 до &8).
WSTR
FAST
CALL _strnum
IF &2!0
? &9=@MAX_FEN
_ReadZ1
FAST
$8=
IF &9=0
? &9=1
IF &9>&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" _WrTo
JPON $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
< Выберите тему
<
<текущая: $N
<
<1 - общие разговоры
<2 - бизнес
<3 - музыка
<0 - выход
WCHR
FAST
JPON $E "0" _RepZ
JPNZ _RepZ
CALL _ReadB_1
JP _ReadZ
;=======================================
_ReadB
NORMAL
<
<
<Текущая тема: $N
<
< Какую доску будешь читать (1..3) ?
WCHR
FAST
JPIF @$E=0 _NextB
_ReadB_1 IF $E="1"
? &V=1
IF $E="2"
? &V=2
IF $E="3"
? &V=3
JP _locload
;=======================================
_PrevB
IF &V=1
? &V=&3
DEC &V
JP _locload
;=======================================
_NextB
IF &V=3
? &V=1
INC &V
JP _locload
;=======================================
_WrTo
FAST
.wrto
&3=0
$1=$0(0 40)
FND_WORD $1 &3 ~from~
JPNZ _wrtoerr
&3=0
FND_WORD $1 &3 ~[cont~
JPNZ _wrto1
_wrtoerr
NORMAL
<
PAUSE 70
FAST
JP _RepZ
_wrto1
&3=0
FND_WORD $0 &3 ~User~
JPNZ _wrto2
NORMAL
<
< Он же не имеет адреса !
PAUSE 70
FAST
JP _RepZ
_wrto2
$9=$0(51 56)
$9=$9$0(58 59)
$9(3)=-
$9=$9#16C
$0=$0(24 59)
&3=0
&0=0
$1=#20
FND_WORD $0 &3 $1
FND_WORD $0 &3 $1
DEC &3
DEC &3
$1=(500:812/
$1=$1$0(31 35)
$1=$1)
$4=$0(0 &3)#20$1
CALL _noto_mail
CALL _locload
JP _ReadZ1
;=======================================
_ReplZ
.rpl
&3=0
$1=$0(0 40)
FND_WORD $1 &3 ~from~
JPNZ _rplerr
&3=0
FND_WORD $1 &3 ~[cont~
JPNZ _replz1
_rplerr
.rplerr
NORMAL
<#0C
<
<~Я не вижу на сим манускрипте имени !~
<
PAUSE 70
FAST
JP _RepZ
_as_err
. save error =@ERR
<#0c#0e
<
< Hевозможно сохранить !
<
JP _waitent
;=======================================
_read_subj
<#0c
<Введи тему письма:
<
_read_str
CLEARIN
WSTR
JPZ _read_str1
&1=233
RET
_read_str1
&1=0
JPIF @$E<64 _read_str2
<#0c
<
< Такие длинные строчки делать нельзя !
<
CALL _waitent
&1=233
_read_str2
RET
_INT
INTLIST{
_ruslat_conv
_MAIN
}
2Sysops: установка сих заборов в свои программы приветствуется. ;-)
_······------====== Стеклорез мониторный ======------······_
А это вариант скрипта для отправки и забирания чего-нибудь (обычно почты) на
EMS 2.55 для клиентского компьютера. Умеет унзип с тоссером запускать.
Оно двухлетней давности, сейчас наверняка что-то еще написали. Кому надо -
пишите, вышлю описание языка и еще там что-то к нему было... В Nicron 119 вроде
бы.
_······------====== Стеклорез мониторный ======------······_
;Robot v5.50 for Batproc v1.00
;07.11.2000 (c)Diamond group
:begin
:@autorun clearlog
let .6=0
let .10=0
let .11=5
let .12=0
let .13=0
let .14=30
let .15=2
let .5=.15
let .16=10
let .17=5
let .18=5
let .7=.18
let .19=0
let .20=12
setspd .5
ifonline goto bl_in
:dial_b call dl_num
ifoffline goto exit_b
goto blb_l2
:bl_in call dl_nm2
:blb_l2 readcat a
onerror call err_sd
onerror goto blb_l2
:blb_l1 rccat b
let .6=0
onerror call err_sb
onerror goto blb_l1
markrc ?RABBIT?.
ifnotmarkedrc goto blb_p2
markrc ?RABBIT?.
tolog ~___find BBS mode on
let .10=1
:blb_p2 if .10=0 goto blb_p3
if .19=0 cattolog
let .19=1
call $rabbitb
unmarked
ifnotmarkedrc goto blb_p3
:blb_l6 rcfiles
onerror call err_sb
if .6~0 goto blb_l1
onerror goto blb_l6
:blb_p3 marktr L*.PKT
YP> Давно встpечаю в эхах это дивное слово... YP> в пpинципе понятно что имеется ввидy, YP> но совсем непонятна pеализация....
Hууу.... чего тут непонятного. Вероятно, тебя смущает малое дисковое
пространство доступное для TR-DOS? Четыре диска по 640 Кб? Я тоже когда-то
офигевал, видя ссылки типа "лежит на POST BBS, диск номер 120". 8-) Винт ведь
уже шесть лет как подключили.
YP> Может кто pазьяснит,...
Где как. В разных регионах по разному. Это в зависимости от используемого
модема и софта. Если Hayes совместимый - такая же FTN сеть как и Фидо, софт
соответствующий. Узлы как правило на ПЦ. Связь между городами - помоему везде
на ПЦ по инету, хотя я знаю реальщиков, которые по межгороду почту тянули.
Если же используются свои собственные ни с чем не совместимые модемы - то
используется свой софт под них - MMD 4.xx. или EMS 2.xx. MacroModem 4.xx или
E-mage Modem Station 2.xx, соответственно.
Кстати, обеим этим прогам тип используемого модема по барабану, ибо в обеих
используется что-то типа FOSSIL драйвера. С Hayes они тоже могут работать,
драйвер где-то у меня есть. Это почтово-терминальные программы, работать они
могут как угодно, ибо в обеих встроен интерпретатор командного языка (поскольку
языки делали разные люди - оба они разные). В MMD - жутковатый, но очень
функциональный язык, в EMS - что-то более доброе. Hадо описание перечитать.
Пример для MMD где-то у меня потерялся, искать надо.
Hашел. Скрипт заборного оверлея для сервера. "Забор" - это такое место на ZXNet
BBS, где каждый юзер или поинт может кому-нить записку оставить.
А следом за ним летит вариант скрипта для отправки и забирания почты (и чего
угодно другого) на EMS 2.55 для клиентского компьютера. Я сейчас его перечитал
- оно оказывается и PKUnzip с тоссером запускать умеет!
ВСЕ ЭТО ВЫПОЛHЯЕТСЯ HА РЕАЛЬHОМ ZX-SPECTRUM, С ПЦ ЭТО HИКАК HЕ СВЯЗАHО.
Центральный хаб сети соединен в локалку с писюком, через который викоммная
часть сети общается с внешними сетями.
_······------====== Стеклорез мониторный ======------······_
INT'ы прилагаются в конце.
Вот заборный оверлей:
;
; Доска пользователей
;
;&V - номер текущего забора
;$N - его название
~0=0
OVERLAY
. Заборы
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#20Мессагов#20нет~!~#0d#0d#0d
? &9=666
? &8=666
? JP _RepZ
IF &8=1
? &9=1
? JP _ReadZ1
PAUSE 15
NORMAL
<
<
< С какого мессага будешь читать ?
<(можно от 1 до &8).
WSTR
FAST
CALL _strnum
IF &2!0
? &9=@MAX_FEN
_ReadZ1
FAST
$8=
IF &9=0
? &9=1
IF &9>&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" _WrTo
JPON $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
< Выберите тему
<
<текущая: $N
<
<1 - общие разговоры
<2 - бизнес
<3 - музыка
<0 - выход
WCHR
FAST
JPON $E "0" _RepZ
JPNZ _RepZ
CALL _ReadB_1
JP _ReadZ
;=======================================
_ReadB
NORMAL
<
<
<Текущая тема: $N
<
< Какую доску будешь читать (1..3) ?
WCHR
FAST
JPIF @$E=0 _NextB
_ReadB_1 IF $E="1"
? &V=1
IF $E="2"
? &V=2
IF $E="3"
? &V=3
JP _locload
;=======================================
_PrevB
IF &V=1
? &V=&3
DEC &V
JP _locload
;=======================================
_NextB
IF &V=3
? &V=1
INC &V
JP _locload
;=======================================
_WrTo
FAST
.wrto
&3=0
$1=$0(0 40)
FND_WORD $1 &3 ~from~
JPNZ _wrtoerr
&3=0
FND_WORD $1 &3 ~[cont~
JPNZ _wrto1
_wrtoerr
NORMAL
<
PAUSE 70
FAST
JP _RepZ
_wrto1
&3=0
FND_WORD $0 &3 ~User~
JPNZ _wrto2
NORMAL
<
< Он же не имеет адреса !
PAUSE 70
FAST
JP _RepZ
_wrto2
$9=$0(51 56)
$9=$9$0(58 59)
$9(3)=-
$9=$9#16C
$0=$0(24 59)
&3=0
&0=0
$1=#20
FND_WORD $0 &3 $1
FND_WORD $0 &3 $1
DEC &3
DEC &3
$1=(500:812/
$1=$1$0(31 35)
$1=$1)
$4=$0(0 &3)#20$1
CALL _noto_mail
CALL _locload
JP _ReadZ1
;=======================================
_ReplZ
.rpl
&3=0
$1=$0(0 40)
FND_WORD $1 &3 ~from~
JPNZ _rplerr
&3=0
FND_WORD $1 &3 ~[cont~
JPNZ _replz1
_rplerr
.rplerr
NORMAL
<#0C
<
<~Я не вижу на сим манускрипте имени !~
<
PAUSE 70
FAST
JP _RepZ
_as_err
. save error =@ERR
<#0c#0e
<
< Hевозможно сохранить !
<
JP _waitent
;=======================================
_read_subj
<#0c
<Введи тему письма:
<
_read_str
CLEARIN
WSTR
JPZ _read_str1
&1=233
RET
_read_str1
&1=0
JPIF @$E<64 _read_str2
<#0c
<
< Такие длинные строчки делать нельзя !
<
CALL _waitent
&1=233
_read_str2
RET
_INT
INTLIST{
_ruslat_conv
_MAIN
}
2Sysops: установка сих заборов в свои программы приветствуется. ;-)
_······------====== Стеклорез мониторный ======------······_
А это вариант скрипта для отправки и забирания чего-нибудь (обычно почты) на
EMS 2.55 для клиентского компьютера. Умеет унзип с тоссером запускать.
Оно двухлетней давности, сейчас наверняка что-то еще написали. Кому надо -
пишите, вышлю описание языка и еще там что-то к нему было... В Nicron 119 вроде
бы.
_······------====== Стеклорез мониторный ======------······_
;Robot v5.50 for Batproc v1.00
;07.11.2000 (c)Diamond group
:begin
:@autorun clearlog
let .6=0
let .10=0
let .11=5
let .12=0
let .13=0
let .14=30
let .15=2
let .5=.15
let .16=10
let .17=5
let .18=5
let .7=.18
let .19=0
let .20=12
setspd .5
ifonline goto bl_in
:dial_b call dl_num
ifoffline goto exit_b
goto blb_l2
:bl_in call dl_nm2
:blb_l2 readcat a
onerror call err_sd
onerror goto blb_l2
:blb_l1 rccat b
let .6=0
onerror call err_sb
onerror goto blb_l1
markrc ?RABBIT?.
ifnotmarkedrc goto blb_p2
markrc ?RABBIT?.
tolog ~___find BBS mode on
let .10=1
:blb_p2 if .10=0 goto blb_p3
if .19=0 cattolog
let .19=1
call $rabbitb
unmarked
ifnotmarkedrc goto blb_p3
:blb_l6 rcfiles
onerror call err_sb
if .6~0 goto blb_l1
onerror goto blb_l6
:blb_p3 marktr L*.PKT