MMD4.00: overlay

Dear All. Here, the Post-station hangs in these fences. Such a glitch that The station froze, I can’t find it. People, help as much as you can! Find the glitch! (mine or fatal Mass)... 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" _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 < Выберите тему < 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 ? DISK ~0 UNSEL_ALL SEL $0 JPIF @MARK=0 _locload1 UNSEL_ALL LDFEN $0 UNSEL_ALL RETZ .FENCE ERROR @ERR .break the connection <