home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST217.PRG < prev    next >
Encoding:
Text File  |  1989-10-13  |  1.3 KB  |  65 lines
  1. *******************
  2.  
  3. PROCEDURE Makereport
  4.  
  5.    PARAMETERS _whichsst, _thruwhat, _macarrs, _sput
  6.  
  7.    _withfile = !(PCOUNT() = 0)
  8.  
  9.    IF PCOUNT() != 4
  10.       _sput = .F.
  11.    ENDIF
  12.  
  13.    IF PCOUNT() = 1
  14.       _thruwhat = 1
  15.       IF TYPE("_whichsst") = "A"
  16.          PUBLIC macplus[LEN(_whichsst)+8]
  17.          ACOPY(_whichsst, macplus, 1, LEN(_whichsst), 9)
  18.          _withfile = .F.
  19.       ELSE
  20.          PUBLIC macplus[8]
  21.       ENDIF
  22.       Assignmac()
  23.    ELSEIF PCOUNT() = 2 .OR. PCOUNT() = 0
  24.       PUBLIC macplus[8]
  25.       Assignmac()
  26.    ELSEIF PCOUNT() = 3
  27.       IF TYPE("_macarrs") != "A"
  28.          PUBLIC macplus[8]
  29.       ELSE
  30.          PUBLIC macplus[LEN(_macarrs)+8]
  31.          ACOPY(_macarrs, macplus, 1, LEN(_macarrs), 9)
  32.       ENDIF
  33.       Assignmac()
  34.    ENDIF
  35.  
  36.    IF _withfile 
  37.       IF !FILE(_whichsst + ".SST")
  38.          RETURN
  39.       ENDIF
  40.    ENDIF
  41.  
  42.    ret_area = LTRIM(TRIM(STR(SELECT())))
  43.  
  44.    IF TYPE("allscreens") != "U"
  45.       Pushscreen()
  46.       Savearray("Array1", allscreens)
  47.       Savearray("Array2", allcolor)
  48.       Savearray("Array3", allwindows)
  49.    ELSE
  50.       SAVE SCREEN
  51.    ENDIF
  52.    @ 0,0 CLEAR
  53.    
  54.    SAVE ALL LIKE * TO Holding.sys
  55.  
  56.    Init_rpt(_whichsst, _thruwhat, _sput)
  57.    Cleanrptup()
  58.    IF TYPE("allscreens") != "U"
  59.       Popscreen()
  60.    ELSE
  61.       RESTORE SCREEN
  62.    ENDIF
  63.  
  64. * End of File
  65.