home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSPRIORY.PRG
< prev
next >
Wrap
Text File
|
1986-07-16
|
4KB
|
119 lines
* PSPRIORY.PRG
*
* A DBASE II 16BIT COMMAND FILE to allow selection of the options of
* the priority management portion of the system
*
* Version 1
* By LTC Denny Hugg
* ANGSC/DOS Andrews AFB MD 16 Jul 1985
*
* Version 2
* modified by Maj Jim McMurry
* ANGSC/DOSC Truax Field, WI 15 Jun 1986
DO WHILE T
RELEASE ALL EXCEPT g*
ERASE
STORE 'p S S S t P R I O R I T Y M A N A G E M E N T' TO heading
DO PSHEADING
STORE chr(95)+chr(95) TO ln
STORE ln+ln+ln+ln+ln TO ln
STORE ln+ln+ln+ln+ln+ln+ln+ln TO ln
STORE 'PRIORITY' TO p1
STORE 'NON-PRIORITY' TO p2
STORE 'VIEW' TO p3
STORE 'PRINT' TO p4
STORE 'RETURN' TO p5
STORE ' '+p1+' '+p2+' '+p3+' '+p4+' '+p5+' ' TO lin
STORE ' (Management By Ordering)' TO y1
STORE ' (Items Moved To Priority List)' TO y2
STORE ' (Priority Items On Screen)' TO y3
STORE ' (Priority Items On Printer)' TO y4
STORE ' (To pSSSt Main Menu)' TO y5
STORE '0010243037' TO col
STORE 1 TO c
STORE '1' TO z
STORE '0' TO mcho
STORE t TO screen
@ 22,0 SAY gline
DO WHILE screen
@ 22,79 SAY lin + y&z
@ 23,VAL($(col,c,2)) GET p&z
CLEAR GETS
SET CONSOLE OFF
STORE '0' TO mcho
DO WHILE ' '<>mcho .AND. .NOT. mcho$'DCKM46'
WAIT TO mcho
ENDDO
SET CONSOLE ON
DO CASE
CASE mcho$('CM6')
IF c#9
STORE c+2 TO c
STORE str(val(z)+1,1) TO z
ELSE
STORE 1 TO c
STORE '1' TO z
ENDIF
CASE mcho$('KD4')
IF c>1
STORE c-2 TO c
STORE str(val(z)-1,1) TO z
ELSE
STORE 9 TO c
STORE '5' TO z
ENDIF
CASE mcho = ' '
STORE f TO screen
LOOP
ENDCASE
ENDDO
@ 22, 0 SAY gclearline
@ 22,79 SAY gclearline
DO CASE
CASE c=1
RELEASE ALL EXCEPT g*
DO PSREORDR
CASE c=3
RELEASE ALL EXCEPT g*
DO PSNONPRI
CASE c=5
RELEASE ALL EXCEPT g*
DO PSVIEWPR
CASE c=7
USE &gsusfile INDEX &gpryindex
STORE 'P' TO moutput
STORE "@ mline,17 SAY 'P R I O R I T Y S U S P E N S E ';
+'I T E M S'" TO header
STORE 'PRINT PRIORITY ITEMS' TO prompt
STORE "@ mline, 0 SAY 'PRTY'" TO item1
STORE "@ mline, 6 SAY 'OPR'" TO item2
STORE "@ mline,12 SAY 'ITEM DESCRIPTION'" TO item3
STORE "@ mline,72 SAY 'DUE DATE'" TO item4
STORE "@ mline, 0 SAY priority" TO data1
STORE "@ mline, 6 SAY opr" TO data2
STORE "@ mline,12 SAY descrip" TO data3
STORE "@ mline,72 SAY duedate" TO data4
STORE "@ 10,28 SAY 'No Priority Items Stored'";
TO nonethere
STORE ' ' TO condition
DO PSPRINTR
USE
CASE c=9
RELEASE ALL EXCEPT g*
RETURN
ENDCASE
STORE f TO screen
ENDDO
*EOF PSPRIORY.PRG item4
STORE "@ mline, 0 SAY priority" TO data1
STORE "@ mline, 6 SAY opr" TO data2
STORE "@ mline,12 SAY descrip" TO data3
STORE "@ mline,72 SAY duedate" TO data4
STORE "@ 10,28 SAY 'No Priority Items Stored'";
TO nonethere
STORE ' ' TO condition
DO PSPRINTR
USE
CASE c=9
RELEASE ALL EXCEPT g*
RETURN