* POSSCR.CMD
STORE T TO psmore
DO WHILE psmore
RESTORE FROM POSMEM.MEM
DO POSSCR.FAU
SELECT PRIMARY
USE POSTEMP
ERASE
@  0,10 SAY "A LIKELY STORY"
@  0,65 SAY DATE()
@  1,11 SAY "____________________________________________________________"
@  2,10 SAY "|ISBN       |QTY| TITLE                   |PRICE |R|T|AMOUNT |"
@  3,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@  4,10 SAY "|           |   |                         |      | | |       |"
@  5,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@  6,10 SAY "|           |   |                         |      | | |       |"
@  7,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@  8,10 SAY "|           |   |                         |      | | |       |"
@  9,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@ 10,10 SAY "|           |   |                         |      | | |       |"
@ 11,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@ 12,10 SAY "|           |   |                         |      | | |       |"
@ 13,10 SAY "|-----------+---+-------------------------+------+-+-+-------|"
@ 14,10 SAY "|           |   |                         |      | | |       |"
@ 15,10 SAY "'-----------'---'-------------------------'------'-'-'-------'"
@ 16,52 SAY "|SUBTOTAL|         |"
@ 17,52 SAY "|     TAX|         |"
@ 18,52 SAY "|------------------|"
@ 19,52 SAY "|   TOTAL|         |"
@ 20,52 SAY "'------------------'"
SET CONSOLE OFF
STORE 2 TO pscount
STORE 1 TO psrefund
STORE 0 TO pssubtot
STORE 0 TO psnotax
STORE T TO psmain
SET COLON OFF
SET CONSOLE ON
DO WHILE psmain

@ 17, 0 SAY "ENTER A  (S)ALE,  (R)ETURN  OR  (N)O-TAX ITEM"
@ 18, 9 SAY "(T)OTAL SALE   (C)ANCEL   OR  (E)XIT"
SET CONSOLE OFF
WAIT TO pschoice
STORE !(pschoice) TO pschoice
SET CONSOLE ON

DO CASE
   CASE pschoice = 'S'
     *
   CASE pschoice = 'R'
     STORE -1 TO psrefund
   CASE pschoice = 'N'
     STORE 0 TO matax
   CASE pschoice  = 'T'
     STORE F TO psmain
   CASE pschoice = 'C'
     *
   CASE pschoice = 'E'
     STORE F TO psmain
     STORE F TO psmore
     CANCEL
ENDCASE

@ pscount,11 GET psisbn
SELECT SECONDARY
USE INVENT
GOTO TOP
LOCATE FOR isbn = psisbn
SET CONSOLE OFF
IF EOF
   SET CONSOLE ON
   @ 21,10 SAY '*** ISBN NOT IN INVENTORY ***'
   SET CONSOLE OFF
   WAIT
   SET CONSOLE ON
   @ 21,10 SAY '                                 '
   LOOP
ENDIF
SET CONSOLE ON
STORE 1 TO psqty
@ pscount,22 GET psqty
@ pscount,26 SAY title
STORE price TO psprice
@ pscount,53 GET psprice
IF psrefund = -1
   @ pscount,59 SAY 'R'
ENDIF
IF matax = 0
   @ pscount,61 SAY 'N'
   ELSE
      @ pscount,61 SAY 'T'
ENDIF
STORE (psqty*psprice) TO psamount PICTURE 9999.99
@ pscount,63 SAY psamount
IF matax <> 0
  STORE pssubtot+psamount TO pssubtot
  ELSE
    STORE psnotax+psamount TO psnotax
ENDIF
SELECT PRIMARY
APPEND BLANK
  REPLACE zisbn WITH psisbn
  REPLACE zqty WITH psqty
ENDIF psmore
*     insert totaling function here

STORE F TO psmore


ASE pschoice = 'E'
     STORE F TO psmain
     STORE F TO psmore
ENDCASE

@ pscount,11 GET psisbn
SELECT SECONDARY
USE INVENT
GOTO TOP
LOCATE FOR isbn = psisbn
IF EOF
   @ 21,10 SAY '*** ISBN NOT IN INVENTORY ***'
   SET CONSOLE OFF
   WAIT
   SET CONSOLE ON
   LOOP
ENDIF
STORE 1 TO psqty
@ pscount,22 GET psqty
@ pscount,26 SAY title
STORE price TO psprice
@ pscount,52 GET psprice
IF psrefund = -1
   @ pscount,59 SAY 'R'
ENDIF
IF matax