home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / DWDOOR23.ZIP / DWDOOR.INC < prev    next >
Text File  |  1993-08-25  |  5KB  |  109 lines
  1. $COMPILE EXE                             'Compile your program to an EXE
  2. $CPU 8086                                'Set default CPU type to 8086
  3. $LIB IPRINT ON                           'Include Interpreted print routines
  4. $LIB COM ON                              'Include communications library
  5. $COM 2048                                'Set the comport buffer to 2048
  6. $STACK 7140                              'Set the stack size to 7140 bytes
  7.  
  8. ' Declare our functions and subs
  9.  
  10. DECLARE FUNCTION AnsiColor$(INTEGER)
  11. DECLARE FUNCTION AnsiLocate$(INTEGER,INTEGER)
  12. DECLARE FUNCTION Attr%(INTEGER,INTEGER)
  13. DECLARE FUNCTION Carrier%(INTEGER)
  14. DECLARE FUNCTION Center$(STRING,INTEGER)
  15. DECLARE FUNCTION CommKey$()
  16. DECLARE FUNCTION DCSRLIN%()
  17. DECLARE FUNCTION DPos%()
  18. DECLARE FUNCTION DataLen%(INTEGER)
  19. DECLARE FUNCTION DoorInfo$(STRING)
  20. DECLARE FUNCTION ErrLevel%()
  21. DECLARE FUNCTION Exist%(STRING)
  22. DECLARE FUNCTION GetBaud&(INTEGER)
  23. DECLARE FUNCTION GetExtra$(STRING)
  24. DECLARE FUNCTION InComm$(INTEGER,INTEGER,INTEGER,STRING,INTEGER,STRING,STRING)
  25. DECLARE FUNCTION More%()
  26. DECLARE FUNCTION Parity%(INTEGER)
  27. DECLARE FUNCTION Parm$(STRING,STRING)
  28. DECLARE FUNCTION Scrn2Ansi$(INTEGER,INTEGER,INTEGER,INTEGER)
  29. DECLARE FUNCTION StopBits%(INTEGER)
  30. DECLARE FUNCTION Trim$(STRING)
  31.  
  32. DECLARE SUB CLR()
  33. DECLARE SUB CheckTime()
  34. DECLARE SUB DPrint(STRING)
  35. DECLARE SUB DVGivUp()
  36. DECLARE SUB DVPrint(INTEGER,INTEGER,STRING,INTEGER)
  37. DECLARE SUB DoorInit(STRING)
  38. DECLARE SUB ExitDoor(INTEGER)
  39. DECLARE SUB GetLocalInfo()
  40. DECLARE SUB Help(STRING)
  41. DECLARE SUB Line25()
  42. DECLARE SUB OutComm(INTEGER,INTEGER,STRING)
  43. DECLARE SUB PAUSE()
  44. DECLARE SUB PrintFile(INTEGER,STRING)
  45. DECLARE SUB Script(STRING,STRING,STRING)
  46. DECLARE SUB TestComm()
  47. DECLARE SUB WriteDoorERR(INTEGER,STRING)
  48.  
  49. $LINK "DWDOOR.PBL"                        'Link in the door routines
  50.  
  51. 'Declare our PUBLIC variables
  52.  
  53. PUBLIC Ansi%          ,_   '-1 if ANSI allowed, 0 if not.
  54.        BBS$           ,_   'The BBS name.
  55.        Back%          ,_   'Current background color.
  56.        Baud&          ,_   'The baud rate of ComPort%.
  57.        Beeper&        ,_   'Seconds before beep for no input.
  58.        CR$            ,_   'Carridge return CHR$(13)
  59.        CRLF$          ,_   'Return + Linefeed CHR$(13)+CHR$(10)
  60.        ComInit$       ,_   'Complete string for opening com port.
  61.        ComParity%     ,_   'The parity of ComPort%.
  62.        ComPort%       ,_   'The comport number (1-8).
  63.        Comm%          ,_   'OPENed COM port number.
  64.        DoorHelp$      ,_   'The filename displayed when ? used on command line.
  65.        DoorName$      ,_   'Full Name of door.
  66.        ErrorFile$     ,_   'The filename to write errors to.
  67.        Extra$         ,_   'Extra string of 70 characters or less (optional).
  68.        False%         ,_   'Constant 0
  69.        FirstName$     ,_   'User's First Name.
  70.        Fore%          ,_   'Current foreground color.
  71.        IRQ$           ,_   'The sysop comport IRQ # (2-15 or 0 for none)
  72.        InText$        ,_   'Extra input from the user.
  73.        KBLocal%       ,_   '-1 if LOCAL, 0 if at REMOTE.
  74.        KBTime&        ,_   'KB time-out limit in seconds.
  75.        LBack$         ,_   'CHR$(29)
  76.        LBackSp$       ,_   'Local Backspace.
  77.        LastName$      ,_   'User's Last Name.
  78.        MaxTime&       ,_   'Maximum amount of time in door allowed in secs.
  79.        NormalColor$   ,_   'Resets ANSI color to White on Black.
  80.        Okay%          ,_   '-1 if serial code matches, 0 if not.
  81.        RBack$         ,_   'CHR$(8)
  82.        RBackSp$       ,_   'Remote Backspace.
  83.        Serial$        ,_   'Returned from SERIAL variable in CFG.
  84.        SysopF$        ,_   'The Sysop's First name.
  85.        SysopL$        ,_   'The Sysop's Last name.
  86.        SysopName$     ,_   'The full sysop's name (All Uppercase).
  87.        TimeIn&        ,_   'Time user started program in seconds.
  88.        TimeLeft&      ,_   'Total time left in door in seconds.
  89.        True%          ,_   'Constant -1
  90.        UserName$           'User's full Name (All Uppercase).
  91.  
  92. DEFINT A - Z
  93.  
  94. ' The next 3 variables must be set!
  95.  
  96. DoorName$  = "Demo Door v2.3"             'The name of your door
  97. DoorHelp$  = "DWDOOR.HLP"                 'The Help file to display
  98. ErrorFile$ = "DWDOOR.ERR"                 'The error file to write to
  99.  
  100. 'If you wish to have your own command line options, it is suggested that you
  101. 'parse the command line HERE before sending the CFG filename from the command
  102. 'line to DoorInit$()
  103.  
  104. C$ = COMMAND$
  105. A$ = UCASE$(C$)
  106.  
  107. CALL DoorInit(A$)
  108.  
  109.