home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / bbsing / bbs / qrun410.lbr / QBYCK.IZC / QBYCK.INC
Text File  |  1989-11-02  |  1KB  |  40 lines
  1.         'QBYCK.INC
  2.         'version 1.00
  3.         'Lee McEwen 24 July 1989
  4.  
  5.         'Include file for QBBS
  6.  
  7.         '  This file defines the check for the existance of BYE for QBBS
  8.         '  modules.
  9.  
  10.         'Variables:
  11.         ' CMD          = BDOS command
  12.         ' DAT          = BDOS command data
  13.         ' MXML         = location in BYE for maximum time allowed
  14.         ' NULLS        = number of nulls
  15.         ' RES          = BDOS result
  16.         ' SMX          = maximum time allowed (value of MXML)
  17.         '                  (also used as temporary integer)
  18.         ' VERS$        = version number
  19.         ' WRTLOC       = write lock
  20.  
  21.         CMD = 32
  22.         DAT = 241
  23.         RES = 0
  24.         CALL BDOS(CMD,DAT,RES)                  'do bye check
  25.  
  26.         IF RES <> 77_
  27.              THEN PRINT VERS$;_
  28.                   CRLF$;"USE BYE E command":_
  29.                   END
  30.  
  31.         BYE       = PEEK(2) * 256 + PEEK(1) - 2
  32.         BYE       = PEEK(BYE + 1) * 256 + PEEK(BYE) + 6
  33.         NULLS     = BYE + 3
  34.         WRTLOC    = BYE + 6
  35.         LCPTR     = BYE+15
  36.         MXML      = BYE + 18
  37.         SMX       = PEEK(MXML)
  38.  
  39.         'End QBYCHK.INC
  40.