home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / birthday / welcome.scr < prev   
Text File  |  1992-02-15  |  4KB  |  106 lines
  1. script
  2. ;This script is an enhancement to various script
  3. ;files already in existance.  However, it joins together many
  4. ;scripts into one welcome file.  Please call the Rubber City Atari BBS
  5. ;     216-376-0885   24 hours      300/1200/2400 baud.
  6. ;Thank you
  7. clear screen
  8.  
  9. Abort off
  10. define user_selection
  11. define key
  12. define bbsname = 'Rubber City Atari BBS' ; Change to you BBS name
  13. define locate = 'Akron, Ohio' ; Change this to your city and state
  14.  
  15. BACK:
  16. clear screen
  17.  printe
  18.  printe
  19.  printe '\r Welcome to the [BBSNAME] \b' Center
  20.  printe '\g Located in Beautiful [LOCATE] \b' center
  21.  printe
  22.  bell
  23.  
  24.  printe '\r\i VIDEO SELECTION MODE SCREEN \o\b' center
  25.  printe
  26.  printe '\r[BBSNAME]\b is running \rBBS EXPRESS\b, which supports various ' center
  27.  printe 'computer video modes.  \iSelect the mode\o that most closely   ' center
  28.  printe 'matches your combination of computer/communication program:' center
  29.  printe
  30.  printe
  31.  printe '<1> ASCII..........(NO translation or format)        ' center
  32.  printe '<2> \iST MONO VT52\o...(Atari ST with monochrome monitor)' center
  33.  printe '<3> \rST COLOR VT52\b..(Atari ST with COLOR monitor)     ' center
  34.  printe '<4> \iANSI MONO\o......(IBM, etc. Non-color screen)      ' center
  35.  printe '<5> \gANSI COLOR\b.....(IBMs with EGA, VGA, etc.)        ' center
  36.  Printe
  37.  print '                  (You currently are set for '
  38. if &66=1
  39. printe 'ASCII)'
  40. ef &66=2
  41. printe '\i ATARI ST mono \o )'
  42. ef &66=3
  43. printe '\i\r ATARI ST COLOR \o\b )'
  44. ef &66=4
  45. printe '\i ANSI monochrome \o)'
  46. ef &66=5
  47. printe '\i\g ANSI COLOR \o\b )'
  48. endif
  49.  printe
  50.  print '\i MODE \o or \r\i RETURN \o\b to keep Selection:' center
  51.  user_selection = get_key
  52. if user_selection = '' then
  53.    goto welcome
  54. ef user_selection = 1
  55.    translation (1)
  56.    printe 'ASCII'
  57. ef user_selection = 2
  58.    translation (2)
  59.    printe 'ATARI MONO'
  60. ef user_selection = 3
  61.    translation (3)
  62.    printe '\rATARI \gST \rVT52 \gCOLOR\b'
  63. ef user_selection = 4
  64.    translation (4)
  65.    printe 'ANSI monochrome'
  66. ef user_selection = 5
  67.    translation (5)
  68.    printe '\rANSI \gCOLOR\b'
  69. else
  70.    bell
  71.    goto back
  72. endif
  73.  
  74. welcome:
  75.  
  76. clear screen
  77. Abort Run_it
  78. printe
  79. printe
  80. printe ' \g\i                                                          \b\o' center
  81. printe '\g\i  \r------------------------\b  \g/\b\g\\\\\b  \r-------------------------\g  \b\o ' center
  82. printe '\g\i  \r-----------------------\b  \g//\b \g\\\\\b  \r------------------------\g  \b\o ' Center
  83. printe '\g\i  \r----------------------\b  \g//\b   \g\\\\\b  \r-----------------------\g  \b\o ' Center
  84. printe '\g\i  \r---------------------\b  \g//\b     \g\\\\\b  \r----------------------\g  \b\o ' Center
  85. printe '\g\i  \r--------------------\b  \g//\b  BBS  \g\\\\\b  \r---------------------\g  \b\o ' Center
  86. printe '\g\i  \r-------------------\b  \g//\b         \g\\\\\b  \r--------------------\g  \b\o ' Center
  87. printe '\g\i  \r------------------\b  \g//\b           \g\\\\\b  \r-------------------\g  \b\o ' Center
  88. printe '\g\i  \r-----------------\b  \g//\b   Express!  \g\\\\\b  \r------------------\g  \b\o ' Center
  89. printe '\g\i  \r-----------------\b  \g\\\\\b             \g//\b  \r------------------\g  \b\o ' Center
  90. printe '\g\i  \r------------------\b  \g\\\\\b           \g//\b  \r-------------------\g  \b\o ' Center
  91. printe '\g\i  \r-------------------\b  \g\\\\\b   ST    \g//\b  \r--------------------\g  \b\o ' Center
  92. printe '\g\i  \r--------------------\b  \g\\\\\b       \g//\b  \r---------------------\g  \b\o ' Center
  93. printe '\g\i  \r---------------------\b  \g\\\\\b     \g//\b  \r----------------------\g  \b\o ' Center
  94. printe '\g\i  \r----------------------\b  \g\\\\\b   \g//\b  \r-----------------------\g  \b\o ' Center
  95. printe '\g\i  \r-----------------------\b  \g\\\\\b \g//\b  \r------------------------\g  \b\o ' Center
  96. printe '\g\i  \r------------------------\b  \g\\\\\b\g/\b  \r-------------------------\g  \b\o ' Center
  97. printe ' \g\i                                                          \b\o' center
  98. printe 
  99. printe
  100.  
  101. Run_it:
  102. abort off
  103.     Execute 'F:\Menus_80\BirthDay.Com'
  104.  
  105. Exit
  106.