home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST75.PRG < prev    next >
Encoding:
Text File  |  1989-08-13  |  3.0 KB  |  89 lines
  1. ********************
  2.  
  3. FUNCTION Begin_way
  4.  
  5.    PARAMETERS a_row, a_col, the_way, padding, ttitles, alter_file
  6.  
  7.    IF PCOUNT() < 5
  8.       RETURN(.F.)
  9.    ELSEIF PCOUNT() = 5
  10.       alter_file = ""
  11.    ELSEIF TYPE("a_row")+TYPE("a_col")+TYPE("the_way")+TYPE("padding")+;
  12.           TYPE("ttitles")+TYPE("alter_file") != "NNNNAC"
  13.       RETURN(.F.)
  14.    ELSEIF EMPTY(the_way)
  15.       RETURN(.F.)    && This is another addition by Joe Booth
  16.    ENDIF
  17.  
  18.    scrprnt = IF( TYPE("scrprnt") = "U", .T., scrprnt)
  19.  
  20.    DO CASE
  21.    CASE the_way = 1
  22.       CLEAR SCREEN
  23.       Pushscreen()
  24.       Header_p(ttitles, the_way, padding)
  25.       RETURN(.T.)
  26.  
  27.    CASE the_way = 2
  28.       CLEAR SCREEN
  29.       Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  30.       IF Qwait("Q", "Press Any Key to Begin Printing or Q to QUIT", a_row + 1, a_col + 5)
  31.          Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  32.          RETURN(.F.)
  33.       ELSE
  34.          Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  35.          IF !ISPRINTER() .AND. scrprnt
  36.             Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  37.             @ a_row+1,a_col + 5 SAY "Printer NOT on-line.  Press any key to RETURN"
  38.             INKEY(0)
  39.             Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  40.             RETURN(.F.)
  41.          ENDIF
  42.          Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  43.          @ a_row + 1, a_col + 5 SAY "    Printing Beginning.  Press ESC to Abort"
  44.          SET PRINT ON
  45.          SET CONSOLE OFF
  46.          Header_p(ttitles, the_way, padding)
  47.          RETURN(.T.)
  48.       ENDIF
  49.  
  50.    OTHERWISE
  51.       Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  52.       DO WHILE FILE(alter_file) .OR. EMPTY(alter_file)
  53.          Rid(a_row + 1, a_col + 3, SPACE(55))
  54.          @ a_row + 1, a_col + 3 SAY "  " + alter_file + " is already on the disk.  Overwrite? "
  55.          IF Prompt()
  56.             EXIT
  57.          ENDIF
  58.          alter_file = Fill_out(alter_file, 13)
  59.          @ a_row + 1, a_col + 3 SAY SPACE(55)
  60.          @ a_row + 1, a_col + 3 SAY "Enter new file name => " GET alter_file PICT "XXXXXXXXXXXXX"
  61.          Sjsread()
  62.          IF LASTKEY() = 27 .OR. EMPTY(print_file)
  63.             KEYBOARD "Q"
  64.             EXIT
  65.          ENDIF
  66.          alter_file = TRIM(alter_file)
  67.       ENDDO
  68.       @ a_row + 1, a_col + 3 SAY SPACE(55)
  69.       @ a_row + 1, a_col + 7 SAY "Press Any Key to Begin Printing or Q to QUIT"
  70.       IF Qwait("Q")
  71.          Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  72.          RETURN(.F.)
  73.       ELSE
  74.          Popscreen(a_row, a_col, a_row + 2, a_col + 60)
  75.          Pushscreen(a_row, a_col, a_row + 2, a_col + 60,.T.,.T.)
  76.          say_what = "Now Printing " + TRIM(alter_file) + " To Disk.  One Moment Please."
  77.          @ a_row + 1, Center(say_what, a_col + 30) SAY say_what
  78.          SET CONSOLE OFF
  79.          SET ALTERNATE TO (alter_file)
  80.          SET ALTERNATE ON
  81.          Header_p(ttitles, the_way, padding)
  82.          RETURN(.T.)
  83.       ENDIF
  84.    ENDCASE
  85.    
  86. * End of File
  87.  
  88.  
  89.