Shareware Overload/ShartewareOverload.cdr/database/workdb.zip/MAINTAIN.INV

Text File | 1983-01-04 | 4KB | 110 lines

* maintain.inv 08/18/83
STORE t TO more
DO WHILE more
    STORE CHR(PEEK(063)) TO dr
    ERASE
    STORE '?' TO command
    @ 02,00 SAY '---------------------'
    @ 02,20 SAY '---------------------'
    @ 02,40 SAY '---------------------'
    @ 02,60 SAY '--------------------'
    @ 02,19 SAY '> > > F I L E  M A I N T E N A N C E < < <'
    @ 06,22 SAY '1. Backup data file'
    @ 08,22 SAY '2. Zero shipment and backorder counters'
    @ 10,22 SAY '3. Use browse command'
    @ 12,22 SAY '4. Return to main menu'
    @ 15,00 SAY '--------------------'
    @ 15,20 SAY '--------------------'
    @ 15,40 SAY '--------------------'
    @ 15,60 SAY '--------------------'
    @ 17,22 SAY 'What next'
    @ 17,33 GET command picture '!'
    READ
    DO CASE
        CASE command = '1'
            STORE 'Y' TO doit
            ERASE
            @ 01,05 SAY 'This module makes a backup of the DATA File to another disk'
            @ 03,05 SAY 'Do you want to do a backup of the DATA File (Y/N) ?'
            @ 03,59 GET doit PICTURE '!'
            READ
            IF doit = 'Y'
                @ 03,00
                @ 07,05 SAY 'The DATA File is on drive '+dr+' and you normally backup to drive B'
                @ 09,05 SAY 'Make sure the backup disk is in the drive selected for backup'
                RESET
                STORE 'B' TO bdr
                @ 13,05 SAY 'Which drive selected for backup DATA File ? ' GET bdr PICTURE '!'
                READ
                DO  WHILE @(bdr,'ABCD') = 0
                    @ 13,05 SAY 'Which drive selected for backup DATA File ? ' GET bdr PICTURE '!'
                    READ
                ENDDO while @
                IF bdr <> dr
                    @ 17,05 SAY 'Now copying DATA File from drive '+dr+' to drive '+bdr+ ' '
                    COPY TO &bdr.:stockbak
                ELSE
                    @ 17,05 SAY 'Cant backup to same drive - Aborting'
                    @ 23,00 SAY 'Hit RETURN to Continue'
                    SET CONSOLE OFF
                    WAIT
                    SET CONSOLE ON
                ENDIF not same drive
            ENDIF do backup
        CASE command = '2'
            STORE 'N' TO command
            ERASE
            @ 01,05 SAY 'This Module will zero all order and backorder counters'
            @ 03,05 SAY 'Do you wish to continue (Y/N) ? '
            @ 03,45 GET command picture '!'
            READ
            IF command = 'Y'
                @ 10,10 SAY ' COUNTERS NOW BEING ZEROED FOR VOLUME  '
                GOTO TOP
                DO WHILE .NOT. EOF
                    @ 10,55 SAY disk
                    REPLACE change1 WITH f
                    REPLACE daych1 WITH '        '
                    REPLACE ship WITH 0
                    REPLACE change2 WITH f
                    REPLACE daych2 WITH '        '
                    REPLACE ship WITH 0
                    REPLACE backship WITH 0
                    SKIP
                ENDDO while not eof
            ENDIF command = Y
        CASE COMMAND = '3'
            * browse thru records
            ERASE
            @ 01,12 SAY '***WARNING***  ***WARNING***  ***WARNING***'
            @ 03,13 SAY 'Changes made will be written to the File'
            @ 06,12 SAY 'CTRL-C write current record & go down'
            @ 07,12 SAY 'CTRL-R write current record & go up'
            @ 08,12 SAY 'CTRL-Z/B pans screen left or right'
            @ 09,12 SAY 'CTRL-V toggles Insert on or off'
            @ 10,12 SAY 'CTRL-G Delete character under cursor'
            @ 11,12 SAY 'CTRL-U Delete or Recall current record'
            @ 12,12 SAY 'CTRL-Q exit Dont Write Current record'
            @ 13,12 SAY 'CTRL-W exit and Save all changes'
            * get a starting point in file
            STORE 0 TO stletter
            @ 22,00
            @ 22,12 SAY 'At what volume shall we start browsing'
            @ 22,57 Get stletter
            READ
            * goto starting point or next if no find
            LOCATE for disk = stletter
            IF EOF
                GOTO TOP
            ENDIF EOF
            * browse thru file
            SET ESCAPE OFF
            BROWSE
            SET ESCAPE ON
        CASE (command = '4' .OR. command = 'Q')
            STORE f TO more
    ENDCASE
ENDDO while more
RELEASE ALL
STORE t TO first