!PRINT2.BSI	Used with PRINT1.BSI.   Reads the names of system printers
!		and displays these names on the screen.  Program clears screen
!		from row 2 down and places "SELECT PRINTER" on row two.
!		Program reads "PRTNAM.DAT[1,4]" and displays the printer names
!		names on the screen.  The user makes his choice and the
!		program puts that choice in variable "LPT". 
!
!		   ++INCLUDE PRINT1[1,4]   is placed near head ofprogram.
!		   ++INCLUDE PRINT2[1,4]   is placed in the progam where
!					   the actual execution is desired.
!
!		Note that this routine calls the "ECHO" subroutine.  The
!		user program must call "NOECHO" if NOECHO is needed after
!		PRINT2 has completed.
!
!		Spooler useage is:
!
!			XCALL SPOOL,"DEV:FILNAM.EXT",LPT
!
!		For more information, see PRINT1.BSI, PRINT1.HLP and
!		PRINT1.DOC.   Donated to AMUS by Trinity Gospel Temple,
!		Canton, Ohio.  March, 1985.
!
READ'PRINTERS:
	OPEN #9999,"PRTNAM.DAT[1,4]",RANDOM,RECSIZ9999,FILE9999
	READ #9999,PRTNAMES
	CLOSE #9999
	XCALL ECHO
SHOW'PRINTERS:
	PRINT TAB(2,1);TAB(-1,10);"SELECT PRINTER";
	PRINT TAB(8,5);TAB(-1,10);"Which printer should be used?"
	PRINT""
	FOR PTR1 = 1 TO 8
	    IF PRINTER(PTR1) <> "" &
		PRINT TAB(12); :&
		PRINT PTR1 USING "#"; :&
		PRINT". ";PRT'LOCAT(PTR1) :&
		PTR2 = PTR1
	NEXT PTR1
ASK'FOR'SELECTION:
	PRINT"": PRINT"    Make your selection from the list above.  Verify paper is loaded."
	PRINT"" :INPUT"    Enter the number of the desired printer: ";PTR1
CHECK'FOR'ERROR:
	IF VAL(PTR1)<1 OR VAL(PTR1)>PTR2 &
		PRINT"" : PRINT CHR$(7);"    BAD NUMBER!  USE NUMBERS 1-"; :&
		PRINT PTR2 USING "#"; : PRINT "!" :&
		FOR PTR2 = 1 TO 2000 : NEXT :&
		GOTO SHOW'PRINTERS
	LPT = PRINTER(PTR1)

.