<<<<<<<<<<<<<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    lprm  [-Pprinter] [ - ] [job #] [user] 

 FUNCTION  lprm  -  removes a job or jobs from a printer's spool queue.  

            A job may be removed only by the owner or a superuser.

 OPTIONS   -Pprinter - specifies queue for printer rather than default printer

                user - attempts to remove all jobs belonging to user

                  -  - removes all jobs that you own

               job # - removes the 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  30184 bytes

2nd     lee    163  30184 bytes

$PROMPT$

 ------------ lprm INTERACTION ---------------------

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

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

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

 # lprm lee

 dfA160 dequeued

 cfA160 dequeued

 dfA163 dequeued

 cfA163 dequeued

 #                                  

 ------------ lpq verify 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

$PROMPT$