home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSJOBTRK.PRG
< prev
next >
Wrap
Text File
|
1986-07-14
|
3KB
|
100 lines
* PSJOBTRK.PRG
*
* A DBASE II 16BIT COMMAND FILE to allow selection of the major
* portions of the jobtrack portion of pssst.
*
* 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
ERASE
STORE "p S S S t J O B T R A C K S Y S T E M" 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 'INPUT' TO p1
STORE 'EDIT' TO p2
STORE 'COMPLETE' TO p3
STORE 'DELETE' TO p4
STORE 'PRINT' TO p5
STORE 'EXIT' TO p6
STORE ' '+p1+' '+p2+' '+p3+' '+p4+' '+p5+' '+p6+' ' TO lin
STORE ' (New Suspense Items)' TO y1
STORE ' (Jobs In Progress)' TO y2
STORE ' (And Move Out Of Suspense File)' TO y3
STORE ' (Jobs No Longer Viable)' TO y4
STORE ' (Susp, Compl, or Del Jobs)' TO y5
STORE ' (From Job Track System)' TO y6
STORE '000713233138' 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#11
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 11 TO c
STORE '6' TO z
ENDIF
CASE mcho = ' '
STORE f TO screen
LOOP
ENDCASE
ENDDO
DO CASE
CASE c=1
RELEASE ALL EXCEPT g*
DO PSINPUTS
CASE c=3
STORE 3 TO gc
RELEASE ALL EXCEPT g*
DO PSEDITS
CASE c=5
STORE 5 TO gc
RELEASE ALL EXCEPT g*
DO PSEDITS
CASE c=7
STORE 7 TO gc
RELEASE ALL EXCEPT g*
DO PSEDITS
CASE c=9
RELEASE ALL EXCEPT g*
DO PSPRINTS
CASE c=11
RELEASE gc
RELEASE ALL EXCEPT g*
RETURN
ENDCASE
STORE f TO screen
ENDDO T
* EOF --- PSJOBTRK.PRG