home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSPRINTP.PRG
< prev
next >
Wrap
Text File
|
1986-08-14
|
3KB
|
98 lines
* PSPRINTP.PRG
*
* A DBASE II 16BIT COMMAND FILE for printing a phone master roster.
*
* 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
*
*
ERASE
STORE 1 TO line
STORE 'P R I N T P H O N E R O S T E R' TO prompt
DO PSPROMPT
USE PSPHONE INDEX PSPHONEI
STORE 56 TO mpagelen
STORE 1 TO pageno
@ 10,32 SAY 'Printing Now ...'
SET FORMAT TO PRINT
STORE 2 TO mline
@ mline, 1 SAY 'Page no. ' + STR(pageno,1)
@ mline,21 SAY 'M A S T E R P H O N E R O S T E R'
@ mline,71 SAY gdate
STORE mline + 3 TO mline
* --- print the info
STORE 0 TO mpasses
@ mline, 0 SAY 'LAST NAME'
@ mline,12 SAY 'FIRST'
@ mline,20 SAY 'RANK'
@ mline,27 SAY 'O/S'
@ mline,33 SAY 'U/#'
@ mline,38 SAY 'TYPE'
@ mline,46 SAY 'LOC'
@ mline,51 SAY 'ST'
@ mline,55 SAY 'SUBJECT'
@ mline,72 SAY 'PHONE'
STORE mline + 1 TO mline
@ mline, 0 SAY '----------------------------------------';
+'----------------------------------------'
STORE mline + 1 TO mline
DO WHILE .NOT. EOF
IF mline > mpagelen
STORE 2 TO mline
EJECT
STORE pageno + 1 TO pageno
@ mline, 0 SAY 'Page no. ' + STR(pageno,1)
@ mline,72 SAY gdate
STORE mline + 3 To mline
@ mline, 0 SAY 'LAST NAME'
@ mline,12 SAY 'FIRST'
@ mline,20 SAY 'RANK'
@ mline,27 SAY 'O/S'
@ mline,33 SAY 'U/#'
@ mline,38 SAY 'TYPE'
@ mline,46 SAY 'LOC'
@ mline,51 SAY 'ST'
@ mline,55 SAY 'SUBJECT'
@ mline,72 SAY 'PHONE'
STORE mline + 1 TO mline
@ mline, 0 SAY '----------------------------------------';
+'----------------------------------------'
STORE mline + 1 TO mline
ENDIF
@ mline, 0 SAY lname
@ mline,12 SAY fname
@ mline,20 SAY rank
@ mline,27 SAY offsym
@ mline,33 SAY unitno
@ mline,38 SAY unitype
@ mline,46 SAY icao
@ mline,51 SAY state
@ mline,55 SAY subject
@ mline,72 SAY avnop + '-' + avnos
STORE mline + 1 TO mline
STORE mpasses + 1 TO mpasses
SKIP
ENDDO
IF mpasses = 0
@ 10, 0 SAY gclearline
STORE 10 TO line
STORE 'There Is No Phone Information Saved' TO prompt
DO PSPROMPT
STORE 0 TO timer
DO WHILE timer < gdelay
STORE timer + 1 to timer
ENDDO
ENDIF
* --- dumps last line out of printer buffer
@ 0, 0 SAY CHR(13)
SET FORMAT TO SCREEN
@ 10, 0 SAY gclearline
RETURN
* EOF PSPRINTP.PRG
@ mline,33 SAY 'U/#