home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST77.PRG < prev    next >
Encoding:
Text File  |  1989-08-22  |  2.1 KB  |  86 lines
  1. ********************
  2.  
  3. PROCEDURE End_way
  4.  
  5.    PARAMETERS line_no, the_cent, a_row, a_col, a_row2, a_col2, tagline
  6.    
  7.    IF PCOUNT() = 4
  8.       a_row2 = a_row + 2
  9.       a_col2 = a_col + 60
  10.       tagline= .T.
  11.    ELSEIF PCOUNT() = 6
  12.       tagline = .T.
  13.    ENDIF
  14.  
  15.    print_way = IF((TYPE("print_way") != "N"), 1, print_way)
  16.  
  17.    DO CASE
  18.    CASE print_way = 1
  19.       IF tagline
  20.          @ 24,00 SAY "End of Report.  Press Any key to RETURN               "
  21.          INKEY(0)
  22.       ENDIF
  23.    CASE print_way = 2
  24.       SET CONSOLE OFF
  25.       SET PRINT ON
  26.       IF the_cent > 0
  27.          skipping = breakpoint
  28.          DO WHILE skipping <= 55
  29.             ?
  30.             skipping = skipping + 1
  31.          ENDDO
  32.  
  33.          IF tagline
  34.             ? Mess_cent(IF((LASTKEY() = 27), "Partial Report Printed", "End of Report"), the_cent)
  35.          ELSE
  36.             ?
  37.          ENDIF
  38.  
  39.          EJECT
  40.          IF screject
  41.             EJECT
  42.          ENDIF
  43.  
  44.       ENDIF
  45.       SET CONSOLE ON
  46.       SET PRINT OFF
  47.       Clear_area()
  48.       Pushscreen(a_row, a_col - 5, a_row + 2, a_col + 60,.T.,.T.)
  49.       @ a_row + 1, a_col SAY "Requested Information has been Printed.  Any Key to RETURN"
  50.       INKEY(0)
  51.       Popscreen(a_row, a_col - 5, a_row + 2, a_col + 60)
  52.    OTHERWISE
  53.       IF TYPE("the_cent") = "U"
  54.          the_cent = 0
  55.       ENDIF
  56.       IF TYPE("print_file") = "U"
  57.          print_file = ""
  58.       ENDIF
  59.       IF the_cent > 0
  60.          ?
  61.          ?
  62.          IF tagline
  63.             ? Mess_cent("End of Report", the_cent)
  64.          ELSE
  65.             ?
  66.          ENDIF
  67.       ENDIF
  68.  
  69.       SET ALTERNATE OFF
  70.       SET ALTERNATE TO
  71.       CLOSE ALTERNATE
  72.       SET CONSOLE ON
  73.       IF !EMPTY(print_file)
  74.          Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  75.          say_what = TRIM(print_file) + " is now on the disk.  Any key to RETURN"
  76.          @ a_row + 1, Center(say_what, 30) + a_col SAY say_what
  77.          INKEY(0)
  78.          Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  79.       ENDIF
  80.    ENDCASE
  81.    Popscreen(a_row, a_col, a_row2, a_col2)
  82.  
  83. * End of File
  84.  
  85.  
  86.