Subroutine MFS_SHELL1(CODE, BFS, HANDLE, NAME, FMC, RECORD, STATUS)

/*******************************


÷ VERSION    : 1.0

÷ PURPOSE    :

÷ AUTHOR     :

÷ CREATED    :

÷ PROCEDURES :

*÷ WARNINGS   :

*÷ THEORY OF OPERATION :

÷ REVISION HISTORY           (Most CURRENT first) :

    DATE       IMPLEMENTOR     FUNCTION
  --------     -----------     --------
  MM-DD-YY     initials        Modification

*******************************/

*÷ COMMON Variables           (Terminate with '%') :

*÷ LABELED COMMON Variables   (Terminate with '@') :

*÷ EQUATE Variables           (Terminate with '$') :

EQU RTI$        TO 'Copyright (C) 1990-2023, Revelation Technologies, Inc.'
EQU TRUE$       TO 1
EQU FALSE$      TO 0
EQU YES$        TO 1
EQU NO$         TO 0
EQU OTHERWISE$  TO 1
EQU NULL$       TO ""
EQU SPACE$      TO \20\

$INSERT FILE.SYSTEM.EQUATES
$INSERT FSERRORS_HDR

*÷ MESSAGES called            (Terminate with '$') :

*÷ DECLARED - FUNCTIONS   called :

*÷ DECLARED - SUBROUTINES called :

/*******************************
÷ INDIRECT - FUNCTIONS/SUBROUTINES called if known  (Make COMMENTS) :
*******************************/

*÷÷ PROGRAM TOP

FS = DELETE(BFS,1,1,1)
NEXTFS = FS<1,1,1>
@FILE.ERROR = ""

$INSERT FILE.SYSTEM.ONGOSUB

RETURN

*----------------------------------------------------------------------------
/* Put all the operations to capture in this section.*/
*----------------------------------------------------------------------------

RETURN
*----------------------------------------------------------------------------
/* Media operations */
CREATE.MEDIA:
OPEN.MEDIA:
READ.MEDIA:
WRITE.MEDIA:
CLOSE.MEDIA:

*----------------------------------------------------------------------------
/* File oriented operations */
CLEARFILE:
CREATE.FILE:
DELETE.FILE:
MOVE.FILE:
OPEN.FILE:
REMAKE.FILE:
RENAME.FILE:

*----------------------------------------------------------------------------
/* Select operations */
SELECT:
READNEXT:
CLEARSELECT:

*----------------------------------------------------------------------------
/* Record oriented operations */
READ.RECORD:
READO.RECORD:
WRITE.RECORD:
DELETE.RECORD:

*----------------------------------------------------------------------------
/* Lock operations */
LOCK.RECORD:
UNLOCK.RECORD:

*----------------------------------------------------------------------------
/* Index operations */
CREATE.INDEX:
UPDATE.INDEX:
DELETE.INDEX:
SELECT.INDEX:
READNEXT.INDEX:
RESERVED:

*----------------------------------------------------------------------------
/* Misc calls */
OMNI.SCRIPT:
RECORD.COUNT:

NEXT_FS:

CALL @NEXTFS(CODE, FS, HANDLE, NAME, FMC, RECORD, STATUS)

RETURN

*----------------------------------------------------------------------------
/*
Install, unlock all and flush are called directly, no need to call next FS.
*/
INSTALL:
FLUSH:
UNLOCK.ALL:

STATUS = TRUE$
RETURN