!
!     RELEVANT SCREEN FORMATS
!
TEXT: FORMAT @(2,0);TEXT1$;_
             @(2,2);TEXT2$;_
             @(2,3);TEXT3$;_
             @(2,4);TEXT4$;(SF)
TEXTTYPE: FORMAT _
          @(STYPCOL,1);(Change color="@E4@");STYPE$,STYPEL;(SF)
TEXTSTATUS: FORMAT _
          @(42,1);(Change color="@E4@");'CANCELLED';(SF)
!
QUERYS: FORMAT @(1,6);(Change color="@B0@");_
               "'PgDn'";(Change color="@E4@");' for STAFF # inquiry or ';_
               (Change color="@B0@");TAB$;(Change color="@E4@");' to enter DOCKET.'
!
2719 FORMAT @(17,5);(SB);_
            'Enter STAFF #';_
            (TP);(SF);'',3;(TP);@(17)
!
!      CODE EXCERPT FOR DRAWING WINDOW
!
     LSTDOCNO$=''
3122 TEXT1$ = 'Last Docket # '+LSTDOCNO$
     TEXT2$ = 'Sale Value:  $'
     TEXT2$ = TEXT2$+STRIP(STR(LSTNET))
     TEXT3$ = 'Tendered:    $'
     TEXT3$ = TEXT3$+STRIP(STR(LSTTEND))
     TEXT4$ = 'Change:       $'
     TEXT4$ = TEXT4$+STRIP(STR(LSTCHANGE))
     IF LSTSTYPE$ NE ''
        IF LSTSTYPE$='1' STYPE$='CASH SALE' & STYPEL=9       ! CASH SALE
        IF LSTSTYPE$='2' STYPE$='ACCOUNT SALE' & STYPEL=12   ! ACCOUNT SALE
        IF LSTSTYPE$='3' STYPE$='RETURN' & STYPEL=6          ! RETURN
        IF LSTSTYPE$='4' STYPE$='LAY-BY' & STYPEL=6          ! LAY-BY
        IF LSTSTYPE$='5' STYPE$='PICK-UP' & STYPEL=7         ! PICK-UP
        IF LSTSTYPE$='6' STYPE$='PAY-OUT' & STYPEL=7         ! PAY-OUT
        IF LSTSTYPE$='7' STYPE$='DEPOSIT' & STYPEL=7         ! DEPOSIT (ORD/INV)
        IF LSTSTYPE$='8' STYPE$='PAYMENT' & STYPEL=7         ! PAYMENT (ORD/INV)
        STYPCOL = (52-STYPEL)/2
     ENDIF
!     
     WCOL = 43
     WROW = 5
     WWDTH = 52
     WHGHT = 8
     WCAPTION$ = 'START A NEW DOCKET'
     PRINT (CREATEWINDOWEX=WCOL,WROW,WWDTH,WHGHT,68,0,WCAPTION$)
     INPUT WHANDL2$
!
     GOSUB INITLOGFONT
!
     PRINT (0) (WALLPAPERCOLOR=255,255,255)
     PRINT (0) (TRANSPARENTCOLOR=251)
!
     PRINT (0) (MAPMODE=4)              ! use QCRT row/column positions
!
     SLFHEIGHT$ = INTELD(0)
     SLFORIENT$ = INTELD(1)
     SLFWEIGHT$ = INTELD(700)            ! BOLD
     SLFFACENAME$ = 'Arial'+'@00@'       ! ARIAL FONT
     PRINT (0,SELECTFONT)                ! SELECT FONT
     PRINT (0) (SETBKMODE=1)             ! SET BACKGROUND MODE TO TRANSPARENT
     PRINT (0) (SETTEXTCOLOR=0,0,0)      ! SET TEXT COLOUR
!
!*****   PAUSE 180        ******** INSERTED THIS LINE TO PRODUCE XPE-2.jpg
!
     IF CAW$ = 'Y'     
        PRINT (0,TEXT)
     ENDIF   
!
     IF CAW$ NE 'Y'     
        PRINT (0) (TEXTOUT=2,0);TEXT1$
        PRINT (0) (TEXTOUT=2,2);TEXT2$
        PRINT (0) (TEXTOUT=2,3);TEXT3$
        PRINT (0) (TEXTOUT=2,4);TEXT4$
     ENDIF   
!
     GOSUB INITLOGFONT
     PRINT (0,SELECTFONT)
!
     PRINT (0,TEXTTYPE)
     IF LSTSTATUS$ = 'X' PRINT (0,TEXTSTATUS)
!
3125 PRINT (0,QUERYS)
     PRINT (0,2719)                      ! SALES ID
     S1$ = SNBR$ & SLNAME$ = SNAME$
     PRINT (0) (EASYSCAN)
3126 INPUT (0) SNBR$
!
     QSTS$ = SUB(STS(0),1,254)