Shareware Overload/ShartewareOverload.cdr/database/cubs.zip/ROSTERS.PRG

Text File | 1989-03-31 | 3KB | 144 lines

*ROSTERS.PRG

CLEAR
SET TALK OFF

? '                                 PRINT MENU'
?
?
?
?
? '            1. Print All Rosters              6. Print Den 3  '
?
? '            2. Print Leaders Only             7. Print Den W1 '
?
? '            3. Print All Cubs                 8. Print Den W2 '
?
? '            4. Print Den 1                    9. Not Used   '
?
? '            5. Print Den 2                    0. Exit to Main Menu'
?
?
?
?
WAIT '                           PICK A NUMBER...' TO CHOICE

DO CASE
    CASE CHOICE = '1'
        SELECT 2
        GO TOP
        DO LDRPRINT

        SELECT 1
        GO TOP
        STORE ' ALLCUBS' TO MDEN
        DO CUBPRINT

        SELECT 1
        SET FILTER TO DEN = '1'
        GO TOP
        STORE ' DEN 1' TO MDEN
        DO CUBPRINT

        SELECT 1
        SET FILTER TO DEN = '2'
        GO TOP
        STORE ' DEN 2' TO MDEN
        DO CUBPRINT

        SELECT 1
        SET FILTER TO DEN = '3'
        GO TOP
        STORE ' DEN 3' TO MDEN
        DO CUBPRINT

        SELECT 1
        SET FILTER TO DEN = 'W1'
        GO TOP
        STORE 'DEN W1' TO MDEN
        DO CUBPRINT

        SELECT 1
        SET FILTER TO DEN = 'W2'
        GO TOP
        STORE 'DEN W2' TO MDEN
        DO CUBPRINT

    CASE CHOICE = '2'
        SELECT 2
        GO TOP
        DO LDRPRINT

    CASE CHOICE = '3'
        SELECT 1
        GO TOP
        STORE ' ALLCUBS' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT

    CASE CHOICE = '4'
        SELECT 1
        SET FILTER TO DEN = '1'
        GO TOP
        STORE ' DEN 1' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT

    CASE CHOICE = '5'
        SELECT 1
        SET FILTER TO DEN = '2'
        GO TOP
        STORE ' DEN 2' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT

    CASE CHOICE = '6'
        SELECT 1
        SET FILTER TO DEN = '3'
        GO TOP
        STORE ' DEN 3' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT

    CASE CHOICE = '7'
        SELECT 1
        SET FILTER TO DEN = 'W1'
        GO TOP
        STORE 'DEN W1' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT

    CASE CHOICE = '8'
        SELECT 1
        SET FILTER TO DEN = 'W2'
        GO TOP
        STORE 'DEN W2' TO MDEN
        CLEAR
        ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
        ?
        WAIT ' Press any key to begin printing...'
        DO CUBPRINT
    CASE CHOICE = '9'

    CASE CHOICE = '0'
        RETURN

RELEASE ALL
ENDCASE CHOICE
ENDDO