home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / logoff.scr < prev    next >
Text File  |  1993-07-20  |  4KB  |  105 lines
  1. Script
  2.    ABORT OFF
  3.    clear screen
  4.  
  5. ;-------------------------------------------------------------------
  6. ;                   >>>>>> LOGOFF.SCR File <<<<<<
  7. ;                              4-24-88
  8. ;                             By SysOz
  9. ;                     Wonderful World of Oz BBS
  10. ;                      (12/24) (808) 423-3140
  11. ;
  12. ; o  Shows other LOCAL Atari BBS's
  13. ; o  Nice colorfull logoff
  14. ; o  Sets Last Caller Message (use with LOGSTAT.SCR)        (optional)
  15. ;-------------------------------------------------------------------
  16.  
  17.    define In_Str
  18.    define Message
  19.    Define Width =  '&11'
  20.  
  21.    PrintE
  22.    PrintE
  23.    PrintE 'Would You Like To Leave A One-line' Center
  24.    PrintE 'Message For The Next Caller To See?' Center
  25.    PrintE
  26.    Print '(Please Enter \rYes\b or No:) \r===>\b' Center
  27.    input [In_Str] 1 
  28.  
  29.    if [In_Str] = 'Y' then
  30.         Clear screen
  31.         PrintE
  32.         PrintE
  33.         PrintE
  34.         PrintE '<><><><><><><><><><><><><>' Center
  35.         PrintE '\rMessage To The Next Caller\b' Center
  36.         PrintE '<><><><><><><><><><><><><>' Center
  37.         PrintE
  38.         PrintE
  39.         PrintE
  40.         PrintE 'Enter Your 1-line Msg To The Next User:'
  41.         PrintE '---------------------------------------
  42.         Foreground Red
  43.         Print  '---------------------------------------------------------------------->'
  44.         Backspace 70
  45.         Print  '---> '
  46.         Foreground Black
  47.         input [Message] 78                           ;get msg
  48.  
  49.         open C:\MESSAGE.TXT output                   ;open file as output
  50.         Fprint '  Author: &1'                        ;tell who it's from
  51.         Fprint '  Posted: At &23 On &24'             ;tell when
  52.         FprintE
  53.         FprintE [Message]                            ;and thier message
  54.         FprintE
  55.         close
  56.    endif
  57.  
  58.    PrintE
  59.    PrintE
  60.    PrintE
  61.    Print  'Thank You!' Center
  62.    Backspace 10
  63.    PrintE '\rThank You\b!'
  64.    PrintE
  65.    PrintE
  66.    clear screen
  67.    PrintE
  68.    PrintE
  69.    PrintE  '\rAloha\b, &01!' Center
  70.    PrintE
  71.    PrintE  'Thanks for calling' Center
  72.    PrintE
  73.    PrintE '\rYour BBS Name\b' Center              ; Change this to Your BBS Name
  74.    PrintE
  75.    Endif
  76.  
  77.    PrintE '^^^^^^^^^^^^^^^^^^^^^^^^' Center
  78.    PrintE '\rYour City\b, \rYour State\b' Center  ; Enter Your City and State
  79.    PrintE '\r(\b808\r)\b 423\r-\b3140' Center     ; Enter Your BBS Phone #
  80.    PrintE '\g1200\b/\g2400' Center                ; Enter Your Baud Rates
  81.    PrintE '\r47\b Megs Online!' Center            ; Enter Your Megabytes Online
  82.    PrintE '^^^^^^^^^^^^^^^^^^^^^^^^' Center
  83.    PrintE
  84.    PrintE
  85.    PrintE  'Call Back Real Soon!' Center
  86.    PrintE  '\ror\b' Center
  87.    PrintE  'Call These Other Fine Local Boards:' Center
  88.    PrintE
  89.    PrintE '===================================' Center
  90.    PrintE '\rLOCAL HAWAIIAN \b(\r808\b)\r ATARI BOARDS\b' Center
  91.    PrintE '===================================' Center
  92.    PrintE '\rThe Wonderful World of Oz\b' Center
  93.    PrintE 'BBS Express! ST.....<3/24> 423-3140' Center
  94.    PrintE '\g---- \r* \g--- \r* \g--- \r* \g--- \r* \g--- \r* \g----\b' Center
  95.    PrintE '\rC.O.P.E.\b' Center
  96.    PrintE 'FoRem ST............<3/24> 623-4051' Center
  97.    PrintE '\g---- \r* \g--- \r* \g--- \r* \g--- \r* \g--- \r* \g----\b' Center
  98.    PrintE '===================================' Center
  99.    PrintE
  100.    PrintE
  101.    PrintE  'Click.....'
  102.    CLOSE
  103.    ENDIF
  104.    END
  105.    EXITəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə