script
change_echo:
        close
        printe '&00'
        Clear (screen)
        Clear (table)
if '[echo2]'='' then
        set [echo2]=[echo]
        set [echo3]=[echo]
        set [idxecho2]=[idxecho1]
        set [idxecho3]=[idxecho1]
endif
if '[echo3]'='' then
        set [echo3]=[echo]
        set [idxecho3]=[idxecho1]
endif

        printe 'Please wait Loading Index Table.....[pointdat]'
maxmsg=table_load('[txtpath][pointdat]')
Open ('[txtpath][curfile]',input)
        Set [sel]=1
if [curfile]='[echo1][pnt]' then
        [echoname]='[echoname1]
ef [curfile]='[echo2][pnt]' 
        [echoname]='[echoname2]'
ef [curfile]='[echo3][pnt]' 
        [echoname]='[echoname3]'
endif
FIDOMNU:
clear (screen)
printe
printe '&00 Current ECHO is now ----> [echoname]     BANK --> [pnt]'
dump

                     Poor Man's Xpress FiDoNet
               ======================================

                {R}ead Forward     {F}rom User Search

                {G}o To Message#   {T}o User Search

                {E}cho Change      {L}ist Titles
                         
                {N}ext Bank        {P}revious Bank
                
               ============ Version 2.0 =============
end
printe
printe 'Active Echos -  [Echoname1]    [Echoname2]    [Echoname3] '
printe
printe 'Command Or <Return> To EXIT:'
get_key user_sel
if user_sel='r'
        goto fidordjmp
ef user_sel='f'
        goto fidosfjmp
ef user_sel='t'
        goto fidotojmp
ef user_sel='n'
        goto nextbank
ef user_sel='p'
        goto prevbank
ef user_sel='l'
        goto fidosublist
ef user_sel='g'
        goto fidojmp
ef user_sel='e'
        set [pnt]='001'
        goto switch
ef user_sel=''
        exit
endif
goto fidomnu

SWITCH:
if [echo]=[echo1] then
     set [echo]=[echo2]
     set curfile='[echo][pnt]'
     set [idxpnt]='[idxecho2]'
     set pointdat='[idxpnt][pnt]'
     goto change_echo
endif
if [echo]=[echo2] then
     set [echo]=[echo3]
     set curfile='[echo][pnt]'
     set [idxpnt]='[idxecho3]'
     set pointdat='[idxpnt][pnt]'
     goto change_echo
endif
if [echo]=[echo3] then
     set [echo]=[echo1]
     set curfile='[echo][pnt]'
     set [idxpnt]='[idxecho1]'
     set pointdat='[idxpnt][pnt]'
     goto change_echo
endif

exit

;
;                       FIDO READ OPTION 
FIDORDJMP:
set [sel]=1
FIDORD:
clear (screen)
if [sel]>[maxmsg] then
        clear (screen)
        printe 'End of Messages -  <Q>uit'
        get_key user_sel
        goto fidomnu
endif
        table1=table_get([sel])
        fnamef=get_word('[table1]',1)
        lnamef=get_word('[table1]',2)
        fnamet=get_word('[table1]',3)
        lnamet=get_word('[table1]',4)
        msgnum=get_word('[table1]',5)
        table1w=get_word('[table1]',6)
        origin=get_word('[table1]',9)
        point [table1w]
GET_MSG:
[chk]=NOTE
if [chk]<[origin] then
        finput fidotxt
        printe '[fidotxt]'
        goto get_msg
endif
finput fidotxt
printe '[fidotxt]'
printe

ENDMSG:
        printe '<A>gain <J>ump <N>ext <P>revious <Q>uit'
        get_key user_sel
if user_sel='q' then
        goto fidomnu
ef user_sel='a' then
        goto fidord
ef user_sel='p' then
        decrease sel 1
        goto fidord
ef user_sel='j' then
        goto fidojmp
endif
if [sel]=0 then
        set [sel]=1
endif
increase sel 1 
goto fidord
; 
;                       FIDO SEARCH FOR
;
FIDOSFJMP:
set [sel]=1
Printe
Printe 'Enter Name of User or <Return> to Exit'
Printe 'Search FROM:'
input search 25
if search='' then
        goto fidomnu
endif

FIDOSF:
        table1=table_get([sel]) 
        fnamef=get_word('[table1]',1)
        lnamef=get_word('[table1]',2)
        temp=get_word('[table1]',5)
        set fullname1='[fnamef] [lnamef]'
if [search]=[fullname1] then
        printe
        printe 'From:[fullname1]               Msg#[temp]'
endif
        increase [sel] 1
if [sel]=[maxmsg] then
        goto endit
endif
goto fidosf
;
;
;                       FIDO JUMP and GOTO
;
FIDOJMP:
printe 'Enter Message <#> or <0> to Exit \ High Message is [maxmsg] '
input [sel] 2 noreturn
clear (screen)
if [sel]>[maxmsg] then
        goto fidomnu
ef [sel]=0 then 
        set [sel]=1
        goto fidord
endif
        table1=table_get([sel]) 
        table1w=get_word('[table1]',6)
        origin=get_word('[table1]',9)
        point [table1w]
GRABIT:
[chk]=NOTE
if [chk]<[origin] then
        finput fidotxt
        printe '[fidotxt]'
        goto grabit
endif
        finput fidotxt
        printe '[fidotxt]'
        printe
goto endmsg
;
;                       Fido Search TO:
;
FIDOTOJMP:
set [sel]=1
Printe
Printe 'Enter Name of User or <Return> to Exit'
Printe 'Search TO:?'
input [search] 25
if [search]='' then
        goto fidomnu
endif
FIDOST:
        table1=table_get([sel]) 
        fnamet=get_word('[table1]',3)
        lnamet=get_word('[table1]',4)
        temp=get_word('[table1]',5)
        set fullname1='[fnamet] [lnamet]'

if [search]=[fullname1] then
        printe
        printe 'To:[fullname1]               Msg#[temp]'
endif
increase sel 1
if [sel]=[maxmsg]
        goto endit
endif
goto fidost

ENDIT:
printe
printe 'End of Search , Press Any Key To Continue'
        get_key user_sel
        goto fidomnu
exit

FIDOSUBLIST:
        set [sel]=0
subloop:
        increase [sel] 1
if [sel]>[maxmsg] then
        goto endit
endif
        table1=table_get([sel]) 
        temp=get_word('[table1]',6)
        point [temp]
        finput fidotxt
printe  '[fidotxt]'
        finput fidotxt
printe  '[fidotxt]'
        finput fidotxt
printe  '[fidotxt]'
printe
goto subloop

NEXTBANK:
if [pnt]='001' then
        if file_exists('[txtpath][echo]002') then
        set [pnt]='002'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
endif
if [pnt]='002' then
        if file_exists('[txtpath][echo]003') then
        set [pnt]='003'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
endif
if [pnt]='003' then
        if file_exists('[txtpath][echo]004') then
        set [pnt]='004'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
endif
if [pnt]='004' then 
        if file_exists('[txtpath][echo]005') then
        set [pnt]='005'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        goto CHANGE_ECHO
endif
goto fidomnu

PREVBANK:
if [pnt]='005' then
        set [pnt]='004'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
ef [pnt]='004' 
        set [pnt]='003'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
ef [pnt]='003' 
        set [pnt]='002'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
ef [pnt]='002' 
        set [pnt]='001'
        set [curfile]='[echo][pnt]'
        set [pointdat]='[idxpnt][pnt]'
        GOTO CHANGE_ECHO
endif
goto fidomnu

