home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RCHAT300.ZIP / RSB5CHAT.MRG < prev   
Encoding:
Text File  |  1990-08-28  |  2.2 KB  |  49 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB5.BAS to produce RBBSSUB5.BAS
  3. * OLD\RBBSSUB5.BAS:  Date 8-26-1990  Size 91511 bytes
  4. * ------------[ Created 08-28-1990 14:16:22 ]------------
  5. * REPLACING old line(s) by new
  6. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  7. ' $PAGE
  8. '
  9. ' NAME    -- FileSystem
  10. '
  11. ' INPUTS  --       PARAMETER                 MEANING
  12. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  13. '                                 2  L)IST DIRECTORY COMMAND
  14. '                                 3  D)OWNLOAD COMMAND
  15. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  16. '                                 5  U)PLOAD COMMAND
  17. '                                 6  S)CAN DIRECTORY COMMAND
  18. '                                 7  P)ERSONAL FILES COMMAND
  19. '                                 8  N)EW FILES COMMAND
  20. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  21. '
  22. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  23. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  24. '                                3  PROCESS NEXT COMMAND (1200)
  25. '                                4  DENY USER ACCESS (1380)
  26. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  27. '                                6  USER'S TIME EXCEEDED (10553)
  28. '                                7  Carrier DROPPED (10595)
  29. '
  30. ' PURPOSE -- To handle the RBBS-PC file system commands
  31. '
  32.       SUB FileSystem STATIC
  33.       ZFF = ZFileSysParm
  34.       ZFileSysParm = 1
  35. * ------[ first line different ]------
  36.  
  37.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' CHAT0813
  38.  
  39.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  40.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  41.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  42.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  43.                   20400, _  ' U)PLOAD COMMAND HANDLER
  44.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  45.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  46.                   21860, _  ' N)EW FILES COMMAND HANDLER
  47.                   20705     ' RETURN FROM EXTENDED DESCRIPTIONS
  48.       GOTO 21920
  49.