DataMuseum.dk

top - metrics - download

    Length: 4864 (0x1300)
    Types: TextFile
    Names: »AM86EXTR.BAS«

└─⟦57f0389e8⟧ Bits:30005761 SW1611 Access Manager v. 1.0
    └─⟦this⟧ »AM86EXTR.BAS« 

TextFile

REM
REM    VERSION 1.0  December 1, 1982  1658
REM
REM
REM    Copyright (c) 1980, 1981, 1982 Digital Research
REM    Pacific Grove, California
REM
REM    These programs cannot be copied, reproduced, transmitted, 
REM    or distributed except as provided for in writing by Digital
REM    Research.
REM
REM


DEF SETUP(NBUFS,NKEYS,NNSEC,NDATF) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER SETUP,NBUFS,NKEYS,NNSEC,NDATF
FEND


DEF INTUSR(PROGID,ERROPT,TIMOUT) EXTERNAL    REM RETURNS UPDATED PROGID 
					     REM IF INPUT AS -1
	INTEGER INTUSR,PROGID,ERROPT,TIMOUT
FEND


DEF OPNIDX(KEY,IDXNAME,KEYLEN,KEYTYP,DUPFLG) EXTERNAL    REM   RETURNS UPDATED
					     REM KEY IF INPUT AS -1
	INTEGER OPNIDX,KEY,KEYLEN,KEYTYP,DUPFLG
	STRING IDXNAME
FEND


DEF OPRIDX(KEY,IDXNAME,KEYLEN,KEYTYP,DUPFLG) EXTERNAL    REM   RETURNS UPDATED
					     REM KEY IF INPUT AS -1
	INTEGER OPRIDX,KEY,KEYLEN,KEYTYP,DUPFLG
	STRING IDXNAME
FEND


DEF CLSIDX(KEY) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER CLSIDX,KEY
FEND


DEF SAVIDX(KEY) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER SAVIDX,KEY
FEND


DEF ERAIDX(KEY) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER ERAIDX,KEY
FEND


DEF ADDKEY(KEY,FILE,DLOCK,KEYVAL,DRN) EXTERNAL    REM RETURNS RETURN CODE
	INTEGER ADDKEY,KEY,FILE,DLOCK,DRN
	STRING KEYVAL
FEND


DEF DELKEY(KEY,FILE,DLOCK,KEYVAL,DRN) EXTERNAL    REM RETURNS RETURN CODE
	INTEGER DELKEY,KEY,FILE,DLOCK,DRN
	STRING KEYVAL
FEND


DEF UPDPTR(KEY,FILE,DLOCK,KEYVAL,DRN) EXTERNAL    REM RETURNS RETURN CODE
	INTEGER UPDPTR,KEY,FILE,DLOCK,DRN
	STRING KEYVAL
FEND


DEF GETKEY(KEY,FILE,DLOCK,KEYVAL) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER GETKEY,KEY,FILE,DLOCK
	STRING KEYVAL
FEND


DEF SERKEY(KEY,FILE,DLOCK,KEYVAL,IDXVAL) EXTERNAL   REM RETURNS LOWER ORDER DRN
	INTEGER SERKEY,KEY,FILE,DLOCK
	STRING KEYVAL,IDXVAL
FEND


DEF AFTKEY(KEY,FILE,DLOCK,KEYVAL,IDXVAL) EXTERNAL   REM RETURNS LOWER ORDER DRN
	INTEGER AFTKEY,KEY,FILE,DLOCK
	STRING KEYVAL,IDXVAL
FEND


DEF BEFKEY(KEY,FILE,DLOCK,KEYVAL,IDXVAL) EXTERNAL   REM RETURNS LOWER ORDER DRN
	INTEGER BEFKEY,KEY,FILE,DLOCK
	STRING KEYVAL,IDXVAL
FEND


DEF NXTKEY(KEY,FILE,DLOCK,IDXVAL) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER NXTKEY,KEY,FILE,DLOCK
	STRING IDXVAL
FEND


DEF PRVKEY(KEY,FILE,DLOCK,IDXVAL) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER PRVKEY,KEY,FILE,DLOCK
	STRING IDXVAL
FEND


DEF FRSKEY(KEY,FILE,DLOCK,IDXVAL) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER FRSKEY,KEY,FILE,DLOCK
	STRING IDXVAL
FEND


DEF LASKEY(KEY,FILE,DLOCK,IDXVAL) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER LASKEY,KEY,FILE,DLOCK
	STRING IDXVAL
FEND


DEF NOKEYS(KEY) EXTERNAL    REM RETURNS NUMBER OF ENTRIES IN KEY FILE
	INTEGER NOKEYS,KEY
FEND


DEF NMNODS(KEY) EXTERNAL    REM RETURNS NUMBER OF NODES IN KEY FILE
	INTEGER NMNODS,KEY
FEND


DEF ERRCOD EXTERNAL    REM RETURNS CURRENT VALUE OF ERROR CODE
	INTEGER ERRCOD
FEND


DEF LOKCOD EXTERNAL    REM RETURNS CURRENT VALUE OF DLOCK RETURN CODE
	INTEGER LOKCOD
FEND


DEF SETDAT(DRN) EXTERNAL    REM NO VALUE RETURNED
	INTEGER DRN
FEND


DEF DATVAL EXTERNAL    REM RETURNS HIGHER ORDER DRN (OR DATA FILE SIZE)
	INTEGER DATVAL
FEND


DEF OPNDAT(FILE,DLOCK,FILNAME,RECLEN) EXTERNAL   REM   RETURNS UPDATED FILE IF
						 REM   FILE IS INPUT AS -1
	INTEGER OPNDAT,FILE,DLOCK,RECLEN
	STRING FILNAME
FEND


DEF OPRDAT(FILE,DLOCK,FILNAME,RECLEN) EXTERNAL   REM   RETURNS UPDATED FILE IF
						 REM   FILE IS INPUT AS -1
	INTEGER OPRDAT,FILE,DLOCK,RECLEN
	STRING FILNAME
FEND


DEF CLSDAT(FILE) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER CLSDAT,FILE
FEND


DEF SAVDAT(FILE) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER SAVDAT,FILE
FEND


DEF ERADAT(FILE,DLOCK) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER ERADAT,FILE,DLOCK
FEND


DEF NEWREC(FILE,DLOCK) EXTERNAL    REM RETURNS LOWER ORDER DRN
	INTEGER NEWREC,FILE,DLOCK
FEND


DEF RETREC(FILE,DLOCK,DRN) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER RETREC,FILE,DLOCK,DRN
FEND


DEF GETDFS(FILE) EXTERNAL       REM    RETURNS (LOWER ORDER OF) TOTAL NUMBER 
				REM    OF DATA RECORDS
	INTEGER GETDFS,FILE
FEND


DEF GETDFU(FILE) EXTERNAL       REM    RETURNS (LOWER ORDER OF) NUMBER OF 
				REM    DATA RECORDS IN USE
	INTEGER GETDFU,FILE
FEND


DEF READAT(FILE,DRN,BUFFER) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER READAT,FILE,DRN,BUFFER
FEND


DEF WRTDAT(FILE,DRN,BUFFER) EXTERNAL    REM RETURNS ERROR CODE
	INTEGER WRTDAT,FILE,DRN,BUFFER
FEND


DEF SETLOK(FILE,DLOCK,DRN) EXTERNAL    REM RETURNS LOCK RETURN CODE
	INTEGER SETLOK,FILE,DLOCK,DRN
FEND


DEF FRELOK(FILE,DLOCK,DRN) EXTERNAL    REM RETURNS LOCK RETURN CODE
	INTEGER FRELOK,FILE,DLOCK,DRN
FEND
«eof»