home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSPHONE.PRG
< prev
next >
Wrap
Text File
|
1986-07-17
|
2KB
|
94 lines
* PSPHONE.PRG
*
* A DBASE II 16BIT COMMAND FILE to allow selection of phone related
* items from master phone menu. Returns to master selection menu
* upon request.
*
* 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 P H O N E S Y S T E M" TO heading
DO PSHEADING
STORE 'INPUT' TO p1
STORE 'EDIT' TO p2
STORE 'SEARCH' TO p3
STORE 'DELETE' TO p4
STORE 'PRINT' TO p5
STORE 'RETURN' TO p6
STORE ' '+p1+' '+p2+' '+p3+' '+p4+' '+p5+' '+p6+' ' TO lin
STORE ' (New Phone Record)' TO y1
STORE ' (An Existing Phone Record)' TO y2
STORE ' (For A Phone Record)' TO y3
STORE ' (An Outdated Phone Record)' TO y4
STORE ' (Master Phone Roster)' TO y5
STORE ' (To pSSSt Main Menu)' TO y6
STORE '000713212936' 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 PSINPUTP
CASE c=3
RELEASE ALL EXCEPT g*
DO PSINPUTP
CASE c=5
RELEASE ALL EXCEPT g*
DO PSSEARCH
CASE c=7
RELEASE ALL EXCEPT g*
DO PSDELETP
CASE c=9
RELEASE ALL EXCEPT g*
DO PSPRINTP
CASE c=11
RELEASE ALL EXCEPT g*
RETURN
ENDCASE
STORE f TO screen
ENDDO T
* --- EOF PSPHONE.PRG