home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / pssst.zip / PSPRINTR.PRG < prev    next >
Text File  |  1986-07-16  |  2KB  |  108 lines
  1. * PSPRINTS.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE for printing for various programs in the
  4. * pSSSt system
  5. *
  6. * Version 1
  7. * By LTC Denny Hugg
  8. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  9. *
  10. * Version 2  
  11. * modified by Maj Jim McMurry
  12. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  13. *
  14. *
  15. IF moutput = 'P'
  16.    STORE 56 TO mpagelen
  17.    STORE 1 TO pageno
  18.    @ 10,32 SAY 'Printing Now ...' 
  19.    SET FORMAT TO PRINT
  20.    STORE 2 TO mline
  21.    STORE '----------------------------------------';
  22.         +'----------------------------------------' TO gline
  23. ELSE
  24.    ERASE
  25.    STORE 20 TO mpagelen
  26.    STORE 1 TO mline
  27. ENDIF
  28. IF moutput = 'P'
  29.    @ mline, 1 SAY 'Page no. ' + STR(pageno,1)
  30.    &header
  31.    @ mline,71 SAY gdate
  32.    STORE mline + 1 TO mline
  33. ELSE
  34.    STORE mline TO line
  35.    DO PSPROMPT
  36. ENDIF
  37. STORE mline + 2 TO mline
  38. * --- print the info
  39. STORE 0 TO mpasses
  40. &item1
  41. &item2
  42. &item3
  43. &item4
  44. STORE mline + 1 TO mline
  45. @ mline, 0 SAY gline
  46. STORE mline + 1 TO mline
  47. DO WHILE .NOT. EOF
  48.    IF mline > mpagelen
  49.       STORE 2 TO mline
  50.       IF moutput = "S"
  51.          @ 22,23 SAY "- Please Hit Any Key To Continue -"
  52.          SET CONSOLE OFF
  53.          WAIT
  54.          SET CONSOLE ON
  55.          ERASE
  56.       ELSE
  57.          EJECT
  58.          STORE pageno + 1 TO pageno
  59.          @ mline, 0 SAY 'Page no. ' + STR(pageno,1)
  60.          @ mline,72 SAY gdate
  61.          STORE mline + 3 To mline
  62.       ENDIF
  63.       &item1
  64.       &item2
  65.       &item3
  66.       &item4
  67.       STORE mline + 1 TO mline
  68.       @ mline, 0 SAY gline
  69.       STORE mline + 1 TO mline
  70.    ENDIF
  71.    IF condition <> ' '
  72.       IF .NOT. &condition
  73.          SKIP
  74.          LOOP
  75.       ENDIF
  76.    ENDIF
  77.    &data1
  78.    &data2
  79.    &data3
  80.    &data4
  81.    STORE mline + 1 TO mline
  82.    STORE mpasses + 1 TO mpasses
  83.    SKIP
  84. ENDDO
  85. IF mpasses = 0
  86.    &nonethere
  87. ENDIF
  88. DO CASE
  89.    CASE moutput = 'S' .AND. mpasses = 0
  90.       STORE 0 TO timer
  91.       DO WHILE timer < gdelay 
  92.          STORE timer + 1 TO timer
  93.       ENDDO
  94.    CASE moutput = "P"
  95.       * --- dumps last line out of printer buffer
  96.       @ 0, 0 SAY CHR(13)
  97.       SET FORMAT TO SCREEN
  98.       @ 10, 0 SAY gclearline
  99.    CASE moutput = 'S' .AND. mpasses <> 0
  100.       @ 22,22 SAY "- Please Strike Any Key To Continue -"
  101.       SET CONSOLE OFF
  102.       WAIT
  103.       SET CONSOLE ON
  104.       @ 22, 0 SAY gclearline
  105. ENDCASE
  106. RETURN
  107. * EOF PSPRINTR.PRG
  108.