%EXTERNALROUTINE INITLOGO
%SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N)
%EXTERNALROUTINESPEC DEFINE(%STRING (63) S)
%EXTERNALROUTINESPEC PERMITFILE(%STRING (63) S)
%EXTERNALROUTINESPEC NEWSMFILE(%STRING (63) S)
%EXTERNALROUTINESPEC CHERISH(%STRING (63) S)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER C,%INTEGERNAME L)
%INTEGER LEN,EUNAD,I
%BYTEINTEGERNAME A
%BYTEINTEGERARRAY EUNBYTE(1:7)
%STRING(6) %NAME EMASUSER
EUNAD=COMREG(16)
EUNBYTE(1)=6
%CYCLE I=2,1,7
EUNBYTE(I)=BYTEINTEGER(EUNAD+I-2)
%REPEAT
EMASUSER==STRING(ADDR(EUNBYTE(1)))
DEFINE('SM04,LOGODIR');NEWSMFILE('LOGODIR,4096')
A==BYTEINTEGER(SMADDR(4,LEN))
A=0
%PRINTTEXT ' LOGODIR NOW EXISTS, LENGTH IS '
WRITE(LEN,6)
NEWLINE
%PRINTTEXT ' NO OF ENTRIES IN MASTER DIRECTORY IS '
WRITE(A,6)
NEWLINE
PERMITFILE('LOGODIR,'.EMASUSER.',8')
PERMITFILE('LOGODIR,,8')
CHERISH('LOGODIR')
%END
%ENDOFFILE