ftp.update.uu.se/ftp.update.uu.se.2014.03.zip/ftp.update.uu.se/pub/rainbow/msdos/decus/RB123/opmenu.prg

Text File | 1995-05-28 | 3KB | 139 lines

* Program   : OPMENU.PRG
* Version   : V4.2
* Author(s) : Joe Tomas
* Date      : 01/14/85
* Notice    :
* Called by : <none>
* Call(s)   :
* Notes     : STARTUP PROGRAM FOR POS APPLICATION
*           : DECUS SYMPOSIUM ORDER ENTRY SYSTEM
CLEAR
SET ESCAPE OFF
SET TALK OFF
SET BELL OFF
SET DELIMITER OFF
SET CONFIRM ON
SET HEADING OFF
SET SAFETY OFF
SET INTENSITY OFF
SET SCOREBOARD OFF
STORE 0 TO COUNT
DO SCRNATTR

LOAD PAINT
CALL PAINT WITH "SIGNON.IMG"

SET COLOR TO I+

DO WHILE INKEY()=0
   @ 09,22 SAY '                     '
   @ 09,22 SAY '          A          '
   @ 09,22 SAY '         PAM         '
   @ 09,22 SAY '        POAEM        '
   @ 09,22 SAY '       POIATEM       '
   @ 09,22 SAY '      POINASTEM      '
   @ 09,22 SAY '     POINTAYSTEM     '
   @ 09,22 SAY '    POINT ASYSTEM    '
   @ 09,22 SAY '   POINT OA SYSTEM   '
   @ 09,22 SAY '  POINT OFAE SYSTEM  '
   @ 09,22 SAY ' POINT OF ALE SYSTEM '
   @ 09,22 SAY 'POINT OF SALE SYSTEM '
   STORE 0 TO CNT
   DO WHILE CNT < 20
      STORE CNT+1 TO CNT
   ENDDO
   @ 09,22 SAY ' POINT OF ALE SYSTEM '
   @ 09,22 SAY '  POINT OFAE SYSTEM  '
   @ 09,22 SAY '   POINT OA SYSTEM   '
   @ 09,22 SAY '    POINT ASYSTEM    '
   @ 09,22 SAY '     POINTAYSTEM     '
   @ 09,22 SAY '      POINASTEM      '
   @ 09,22 SAY '       POIATEM       '
   @ 09,22 SAY '        POAEM        '
   @ 09,22 SAY '         PAM         '
   @ 09,22 SAY '          A          '
   @ 09,22 SAY SPACE(20)
   @ 09,22 SAY '          O          '
   @ 09,22 SAY '         POS         '
   @ 09,22 SAY '        P O S        '
   @ 09,22 SAY '       P *O* S       '
   @ 09,22 SAY '      P * O * S      '
   STORE 0 TO CNT
   DO WHILE CNT < 20
      STORE CNT+1 TO CNT
   ENDDO
   @ 09,22 SAY '       P *O* S       '
   @ 09,22 SAY '        P O S        '
   @ 09,22 SAY '         POS         '
   @ 09,22 SAY '          O          '
   @ 09,22 SAY SPACE(20)

ENDDO

@ 09,22 SAY 'POINT OF SALE SYSTEM '

SET COLOR TO
DO WHILE COUNT < 40
   STORE COUNT+1 TO COUNT
ENDDO

DO WHILE .T.
   STORE .T. TO VALID
   CALL PAINT WITH "MAINMENU.IMG"

   MENU = "  "
   SET COLOR TO
   @ 16,39 GET MENU PICTURE '!!'
   READ
   CLEAR GETS

   DO CASE

      CASE MENU = "1"
         DO ALIGN

      CASE MENU = "2"
         DO ORDENTRY

      CASE MENU = "3"
         DO SYSMGR1

      CASE MENU = "E"
         USE
         CLEAR
         QUIT

      CASE MENU = "DT"
         RESTORE FROM CASHTAKE ADDITIVE
         SET COLOR TO +
         @ 20,28 SAY 'RUNNING TOTAL = $'+STR(TOTAL,8,2)
         SET COLOR TO
         STORE 1 TO X
         DO WHILE X < 50
            STORE X+1 TO X
         ENDDO
         @ 20,25 SAY SPACE(40)

      CASE MENU = "99"
         SET ESCAPE ON
         USE
         CANCEL

      CASE MENU = "?1"
         STORE '11' TO KEY
         DO HELP WITH KEY
      CASE MENU = "?2"
         STORE '12' TO KEY
         DO HELP WITH KEY
      CASE MENU = "?3"
         STORE '13' TO KEY
         DO HELP WITH KEY

   OTHERWISE
      @ 23,1
      ?? VBELL3
      STORE "01" TO KEY
      DO HELP WITH KEY
   ENDCASE
ENDDO