!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)
