home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSPRINTR.PRG
< prev
next >
Wrap
Text File
|
1986-07-16
|
2KB
|
108 lines
* PSPRINTS.PRG
*
* A DBASE II 16BIT COMMAND FILE for printing for various programs in the
* pSSSt 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
*
*
IF moutput = 'P'
STORE 56 TO mpagelen
STORE 1 TO pageno
@ 10,32 SAY 'Printing Now ...'
SET FORMAT TO PRINT
STORE 2 TO mline
STORE '----------------------------------------';
+'----------------------------------------' TO gline
ELSE
ERASE
STORE 20 TO mpagelen
STORE 1 TO mline
ENDIF
IF moutput = 'P'
@ mline, 1 SAY 'Page no. ' + STR(pageno,1)
&header
@ mline,71 SAY gdate
STORE mline + 1 TO mline
ELSE
STORE mline TO line
DO PSPROMPT
ENDIF
STORE mline + 2 TO mline
* --- print the info
STORE 0 TO mpasses
&item1
&item2
&item3
&item4
STORE mline + 1 TO mline
@ mline, 0 SAY gline
STORE mline + 1 TO mline
DO WHILE .NOT. EOF
IF mline > mpagelen
STORE 2 TO mline
IF moutput = "S"
@ 22,23 SAY "- Please Hit Any Key To Continue -"
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE
ELSE
EJECT
STORE pageno + 1 TO pageno
@ mline, 0 SAY 'Page no. ' + STR(pageno,1)
@ mline,72 SAY gdate
STORE mline + 3 To mline
ENDIF
&item1
&item2
&item3
&item4
STORE mline + 1 TO mline
@ mline, 0 SAY gline
STORE mline + 1 TO mline
ENDIF
IF condition <> ' '
IF .NOT. &condition
SKIP
LOOP
ENDIF
ENDIF
&data1
&data2
&data3
&data4
STORE mline + 1 TO mline
STORE mpasses + 1 TO mpasses
SKIP
ENDDO
IF mpasses = 0
&nonethere
ENDIF
DO CASE
CASE moutput = 'S' .AND. mpasses = 0
STORE 0 TO timer
DO WHILE timer < gdelay
STORE timer + 1 TO timer
ENDDO
CASE moutput = "P"
* --- dumps last line out of printer buffer
@ 0, 0 SAY CHR(13)
SET FORMAT TO SCREEN
@ 10, 0 SAY gclearline
CASE moutput = 'S' .AND. mpasses <> 0
@ 22,22 SAY "- Please Strike Any Key To Continue -"
SET CONSOLE OFF
WAIT
SET CONSOLE ON
@ 22, 0 SAY gclearline
ENDCASE
RETURN
* EOF PSPRINTR.PRG