<<<<<<<<<<<<<CLEAR PROMPT LINE ONLY>>>>>>>>>>>>>>>>>>>

PRLCLEAN

 ------------ UNIVERSAL INTERACTION ROUTINE ----------------------

INTERACT

 $CMD_PR1$

 $CMD_PR2$

 $CMD_PR3$

 $CMD_PR4$

 $CMD_PR5$

 $CMD_PR6$

$PROMPT$

 U: LCLEAN

 That is correct!

 You've got it on the 2nd try.

 Good, you understand the concept.

$FIRST_F1$

$FIRST_F2$

$FIRST_F3$

$SECOND_F1$

 $SECOND_F2$

$SECOND_F3$

 I will help you this time.        

$PROMPT$

FORGET1

$PROMPT$$ANSWER$

 Observe the result on the terminal.

 -----END INTERACTION ROUTINE--------------------------

**********FOOTER TO REQUEST CONTINUATION**********

PAUSE

If they want to quit, do so

   <<<<< LEFT_CLEAN SUBROUTINE >>>>>>>>>>>>>>>>>>>>>

LNEXT

 Below is a subroutine to paint over the contents of our terminal

 screen and put a prompt in the appropriate place.

ENCORE2

$PROMPT$ 

 This is the routine that draws the terminal

DRAWTERM

                 TERMINAL                

NEXT

 $V1$

 <<<<<<<<<<<<CLEAN INSIDE UPPER BOX ONLY>>>>>>>>>>>>>>>

ENCORE1

 <<<<<<<<<<<<<CLEAR BOTTOM AREA ONLY>>>>>>>>>>>>>>>>>>>

BOTCLEAN

 <<<<<<< Standout Line Procedure >>>>>>>>>>

LINE

TOP1

 SYNTAX     lpq  [-Pprinter] [job #] [user] ... filename(s)

 FUNCTION   lpq  -  examines the spooling area for files sent to 

            off-line printers and prints the status of the specified

            jobs or all jobs associated with a certain user.

 OPTIONS    -Pprinter  -  reports status of jobs sent to printer

                 user  -  prints information about jobs sent by user

                job #  -  prints information about specified job # 

AANVANG

 ------------ lpq INTERACTION ---------------------

             X-------- Obey this limit ---------X

             X-------- Obey this limit ---------X

X-------- Obey this limit ---------X

Jobs waiting on laser1:

Rank    Owner  Job  Total Size

active  smith  159  2645 bytes

1st     lee    160  3184 bytes

Checking laser2

**laser2 PROBABLY NEEDS ATTENTION**

Jobs waiting to be sent to laser2:

no entries

 ------------ lpq user INTERACTION ---------------------

             X-------- Obey this limit ---------X

             X-------- Obey this limit ---------X

X-------- Obey this limit ---------X

Jobs waiting on laser1:

Rank    Owner  Job  Total Size

1st     lee    160  3184 bytes

4th     lee    181  5342 bytes

$PROMPT$

 ------------ lpq job no INTERACTION ---------------------

             X-------- Obey this limit ---------X

             X-------- Obey this limit ---------X

X-------- Obey this limit ---------X

Jobs waiting on laser1:

Rank    Owner  Job  Total Size

4th     lee    181  5342 bytes

$PROMPT$