/*                    RIP-IT! V1.3                         */
/*                         BY                              */
/*                     Star Gazer                          */
/*                  Star Streams BBS                       */
/*                   (214) 938-7115                        */
/*                  FIDO  1:124/6517                       */
/*                  $VER:RIP-IT_V1.3                       */

options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; gc=getchar ; gu=getuser ; qu=query ; gu 1 ; handle=result
gu 28 ; term=result ; gu 27 ; width=result ; gu 55 ; help=result ; changewhere'News'

START:
if help=3 then call QUIT
if help=2 then call QUIT
if help=1 then call QUIT
if width<80 then call FOURTY
if term=0 then call ASCII
if term=1 then call CGFX
if term=2 then call IBM
if term=3 then call AMIGA
if term=4 then call RIP
call CHECK
exit

ASCII:

tr "*0PFILES:RIP-IT!/MENUS80/NEWS/ASCII.MENU80}"
call CHECK
exit

CGFX:

tr "*0PFILES:RIP-IT!/MENUS80/NEWS/CGFX.MENU80}"
call CHECK
exit

IBM:

tr "*0PFILES:RIP-IT!/MENUS80/NEWS/IBM.MENU80}"
call CHECK
exit

AMIGA:

tr "*0PFILES:RIP-IT!/MENUS80/NEWS/AMIGA.MENU80}"
call CHECK
exit

RIP:

tr "*0PFILES:RIP-IT!/MENUS80/NEWS/RIP.MENU80}"
call CHECK
exit

FOURTY:

if term=0 then call ASCIIF
if term=1 then call CGFXF
if term=2 then call IBMF
if term=3 then call AMIGAF
if term=4 then call RIPF
call CHECK
exit


ASCIIF:

tr "*0PFILES:RIP-IT!/MENUS40/NEWS/ASCII.MENU40}"
call CHECK
exit

CGFXF:

tr "*0PFILES:RIP-IT!/MENUS40/NEWS/CGFX.MENU40}"
call CHECK
exit

IBMF:

tr "*0PFILES:RIP-IT!/MENUS40/NEWS/IBM.MENU40}"
call CHECK
exit

AMIGAF:

tr "*0PFILES:RIP-IT!/MENUS40/NEWS/AMIGA.MENU40}"
call CHECK
exit

RIPF:

tr "*0PFILES:RIP-IT!/MENUS40/NEWS/RIP.MENU40}"
call CHECK
exit

QUIT:
exit

CHECK:
    if result~='###PANIC' then return
    tr 'f1n9ccChemist II!n2c9Loss of Carrier!'
    logentry 'No Carrier in RIP-IT!' ; bufferflush
  exit

SYNTAX: ; ERROR: ; IOERR:
    tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl
    tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl
    logentry 'while using RIP-IT!' ; bufferflush
  exit

/* EOF */