script
clear (screen)
define maxmsg
define msgnum
define mnu
define origin
define user_sel
define fnamet
define lnamet
define fnamef
define lnamef
define fidotxt
define subject
define chk
define temp
define txtpath='D:\bbs\fidotxt\'
define prgpath='D:\bbs\menus_80\'
define table1
define table2
define table1w
define table2w
define word
define sel
define number
define search
define fullname1
define echoname
define pnt='001'
define pnt2='002'
define pnt3='003'
define pnt4='004'
define pnt5='005'
; Current active Echos
;
define echo1='fidost.'
define idxecho1='indxst.'
define echoname1='Atari ST'
define echo2='fidoibm.'
define idxecho2='indxibm.'
define echoname2='DOS Windows'
define echo3='fidospac.'
define idxecho3='indxspac.'
define echoname3='Space / Nasa'
; Start Up files below
;
define echo='[echo1]'
define idxpnt='[idxecho1]'
define pointdat='[idxpnt][pnt]'
define curfile='[echo][pnt]'
printe '&00'
dump
                            Ver 2.0

             30 Day Trial Period - Then you must Register!

                BoardTroniX! Poor Man's FiDo Express
               ======================================
                  Copyright 1990 by Mike Caldwell
                        All Rights Reserved
 
end
        execute ('[prgpath]fidomain.hlp')
exit

