script
;This script is an enhancement to various script
;files already in existance.  However, it joins together many
;scripts into one welcome file.  Please call the Rubber City Atari BBS
;     216-376-0885   24 hours      300/1200/2400 baud.
;Thank you
clear screen

Abort off
define user_selection
define key
define bbsname = 'Rubber City Atari BBS' ; Change to you BBS name
define locate = 'Akron, Ohio' ; Change this to your city and state

BACK:
clear screen
 printe
 printe
 printe '\r Welcome to the [BBSNAME] \b' Center
 printe '\g Located in Beautiful [LOCATE] \b' center
 printe
 bell

 printe '\r\i VIDEO SELECTION MODE SCREEN \o\b' center
 printe
 printe '\r[BBSNAME]\b is running \rBBS EXPRESS\b, which supports various ' center
 printe 'computer video modes.  \iSelect the mode\o that most closely   ' center
 printe 'matches your combination of computer/communication program:' center
 printe
 printe
 printe '<1> ASCII..........(NO translation or format)        ' center
 printe '<2> \iST MONO VT52\o...(Atari ST with monochrome monitor)' center
 printe '<3> \rST COLOR VT52\b..(Atari ST with COLOR monitor)     ' center
 printe '<4> \iANSI MONO\o......(IBM, etc. Non-color screen)      ' center
 printe '<5> \gANSI COLOR\b.....(IBMs with EGA, VGA, etc.)        ' center
 Printe
 print '                  (You currently are set for '
if &66=1
printe 'ASCII)'
ef &66=2
printe '\i ATARI ST mono \o )'
ef &66=3
printe '\i\r ATARI ST COLOR \o\b )'
ef &66=4
printe '\i ANSI monochrome \o)'
ef &66=5
printe '\i\g ANSI COLOR \o\b )'
endif
 printe
 print '\i MODE \o or \r\i RETURN \o\b to keep Selection:' center
 user_selection = get_key
if user_selection = '' then
   goto welcome
ef user_selection = 1
   translation (1)
   printe 'ASCII'
ef user_selection = 2
   translation (2)
   printe 'ATARI MONO'
ef user_selection = 3
   translation (3)
   printe '\rATARI \gST \rVT52 \gCOLOR\b'
ef user_selection = 4
   translation (4)
   printe 'ANSI monochrome'
ef user_selection = 5
   translation (5)
   printe '\rANSI \gCOLOR\b'
else
   bell
   goto back
endif

welcome:

clear screen
Abort Run_it
printe
printe
printe ' \g\i                                                          \b\o' center
printe '\g\i  \r------------------------\b  \g/\b\g\\\\\b  \r-------------------------\g  \b\o ' center
printe '\g\i  \r-----------------------\b  \g//\b \g\\\\\b  \r------------------------\g  \b\o ' Center
printe '\g\i  \r----------------------\b  \g//\b   \g\\\\\b  \r-----------------------\g  \b\o ' Center
printe '\g\i  \r---------------------\b  \g//\b     \g\\\\\b  \r----------------------\g  \b\o ' Center
printe '\g\i  \r--------------------\b  \g//\b  BBS  \g\\\\\b  \r---------------------\g  \b\o ' Center
printe '\g\i  \r-------------------\b  \g//\b         \g\\\\\b  \r--------------------\g  \b\o ' Center
printe '\g\i  \r------------------\b  \g//\b           \g\\\\\b  \r-------------------\g  \b\o ' Center
printe '\g\i  \r-----------------\b  \g//\b   Express!  \g\\\\\b  \r------------------\g  \b\o ' Center
printe '\g\i  \r-----------------\b  \g\\\\\b             \g//\b  \r------------------\g  \b\o ' Center
printe '\g\i  \r------------------\b  \g\\\\\b           \g//\b  \r-------------------\g  \b\o ' Center
printe '\g\i  \r-------------------\b  \g\\\\\b   ST    \g//\b  \r--------------------\g  \b\o ' Center
printe '\g\i  \r--------------------\b  \g\\\\\b       \g//\b  \r---------------------\g  \b\o ' Center
printe '\g\i  \r---------------------\b  \g\\\\\b     \g//\b  \r----------------------\g  \b\o ' Center
printe '\g\i  \r----------------------\b  \g\\\\\b   \g//\b  \r-----------------------\g  \b\o ' Center
printe '\g\i  \r-----------------------\b  \g\\\\\b \g//\b  \r------------------------\g  \b\o ' Center
printe '\g\i  \r------------------------\b  \g\\\\\b\g/\b  \r-------------------------\g  \b\o ' Center
printe ' \g\i                                                          \b\o' center
printe 
printe

Run_it:
abort off
    Execute 'F:\Menus_80\BirthDay.Com'

Exit