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