perm filename USERLG.SAI[S,AIL] blob
sn#073850 filedate 1973-11-25 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 ENTRY
C00004 ENDMK
C⊗;
ENTRY;
BEGIN
INTERNAL INTEGER PROCEDURE USERLG(INTEGER LOCA; STRING MSG,RSP);
BEGIN "USERLG"
BOOLEAN QUIET,LOGGING,NUMBERS,MINUS,FLAG;
INTEGER S,LGCHAN; STRING FILENAME;
DEFINE CRLF = "('12&'15)";
IF NUMBERS THEN MSG←MSG&"Called from "&CVOS('777777 LAND LOCA)&CRLF;
IF ¬QUIET THEN OUTSTR(MSG);
IF LOGGING THEN OUT(LGCHAN,MSG);
WHILE TRUE DO BEGIN
IF ¬RSP THEN BEGIN
OUTSTR("→"); RSP←INCHRW;
IF RSP="-" THEN RSP←RSP&INCHRW; CLRBUF ;
OUTSTR(CRLF) END;
MINUS←TRUE;
WHILE S←LOP(RSP) DO BEGIN
IF S="Q" THEN QUIET←MINUS ELSE
IF S="N" THEN NUMBERS←MINUS ELSE
IF S="L" THEN BEGIN
IF ¬FILENAME THEN BEGIN
OPEN(LGCHAN←GETCHAN,"DSK",0,0,2,0,0,0);
DO BEGIN
OUTSTR("FILE NAME: ");
FILENAME←INCHWL;
ENTER(LGCHAN,FILENAME,FLAG) END UNTIL ¬FLAG;
OUT(LGCHAN,MSG)
END;
LOGGING←MINUS
END ELSE
IF S≠"-" THEN RETURN(S LOR (3 LSH 18));
IF S="-" THEN MINUS←FALSE ELSE MINUS←TRUE;
END;
END;
END "USERLG";
END