home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST908.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  3.3 KB  |  138 lines
  1. *******************
  2.  
  3. PROCEDURE Bug_rept
  4.  
  5.    PARAMETERS _p, _l, _v
  6.  
  7.    IF TYPE("scrleft_1") = "U"
  8.       scrleft_1 = "Steve Straley's ToolKit"
  9.       scrleft_2 = "Version 2.0"
  10.    ENDIF
  11.  
  12.    PRIVATE _poprow, _popcol, _temp, _ncolor, _tbug, _pout, _ofile
  13.  
  14.    _poprow = ROW()
  15.    _popcol = COL()
  16.    _ncolor = SETCOLOR()
  17.    _temp = ""
  18.    SETCOLOR(IF((ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))), "W/B", SETCOLOR()))
  19.    IF TYPE("scrcursor") = "U"
  20.       scrcursor = .T.
  21.    ENDIF
  22.    PUSHSCREEN()
  23.    @ 24,00 CLEAR
  24.    @ 24,00 SAY "Would you like a Screen Dump?  "
  25.    _pout = IF( PROMPT(), scr_level - 1, 0 )
  26.    SETCOLOR(_ncolor)
  27.    @ 24,00 CLEAR
  28.    SETCOLOR(IF((ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))), "W/B", SETCOLOR()))
  29.  
  30.    EXTERNAL Aborting
  31.  
  32.    SET KEY 27 TO Aborting
  33.  
  34.    SET SCOREBOARD OFF
  35.    STORE "" TO descript
  36.    IF TYPE("scrdate") = "U"
  37.       scrdate = 6
  38.    ENDIF
  39.    SET CURSOR ON
  40.    SET FUNCTION 10 TO CHR(23)
  41.    CLEAR_AREA(4,4,21,76)
  42.    @ 4,4 TO 21,76 DOUBLE
  43.    @ 5,5 SAY scrleft_1
  44.    @ 5,33 SAY "Bug Report Log"
  45.    @ 5,RIGHT_JUST(scrleft_2, 76) SAY scrleft_2
  46.    @ 6,0 SAY ""
  47.    @ 20,10 SAY "F10 TO Save Report... ESC to QUIT..."
  48.    SETCOLOR(IF((ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))), "W/R", SETCOLOR()))
  49.    _tbug = ""
  50.    _tbug = MEMOEDIT(_tbug, 7,10,16,70,.T.)
  51.  
  52.    IF LASTKEY() = ASC("Y") .OR. LASTKEY() = ASC("y") .OR. LASTKEY() = 27
  53.       SET KEY 27 TO
  54.       KEYBOARD ""
  55.       SET CURSOR (scrcursor)
  56.       SETCOLOR(_ncolor)
  57.       POPSCREEN()
  58.       @ _poprow, _popcol SAY ""
  59.       RETURN
  60.    ENDIF
  61.    SETCOLOR(_ncolor)
  62.    ATSAYGET(20,7, "Would you like this to go to a file or to the printer? ")
  63.    _qaz = PROMPT("FfPp", "File   /File   /Printer/Printer", ".F./.F./.T./.T.")
  64.    RID(20,7, "Would you like this to go to a file or to the printer?         ")
  65.    ATSAYGET(20,10, "   One Moment Please ....")
  66.    IF _qaz
  67.       IF ISPRINTER()
  68.          SET PRINT ON
  69.          SET CONSOLE OFF
  70.          DO Bugdump
  71.          EJECT
  72.          SET CONSOLE ON
  73.          SET PRINT OFF
  74.       ELSE
  75.          _ofile = "BUG" + LTRIM(SUBSTR(STR(SECONDS()),1,5)) + ".TXT"
  76.          SET CONSOLE OFF
  77.          SET ALTER TO (_ofile)
  78.          SET ALTER ON
  79.          DO Bugdump
  80.          CLOSE ALTERNATE
  81.          SET CONSOLE ON
  82.       ENDIF
  83.    ELSE
  84.       _ofile = "BUG" + LTRIM(SUBSTR(STR(SECONDS()),1,5)) + ".TXT"
  85.       SET CONSOLE OFF
  86.       SET ALTER TO (_ofile)
  87.       SET ALTER ON
  88.       DO Bugdump
  89.       CLOSE ALTERNATE
  90.       SET CONSOLE ON
  91.    ENDIF
  92.    SET KEY 27 TO
  93.    SET CURSOR (scrcursor)
  94.    POPSCREEN()
  95.    @ _poprow, _popcol SAY ""
  96.  
  97. ********************
  98.  
  99. PROCEDURE Bugdump
  100.  
  101.    ? FILL_OUT(CENTR("Bug Report"))
  102.    ? 
  103.    ? FILL_OUT(CENTR(PRINTDATE(DATE(), scrdate)))
  104.    ?
  105.    ?
  106.    ? "   The Program Module is: "
  107.    ?? _p
  108.    ? "      The Line Number is: "
  109.    ?? _l
  110.    ? "The Variable Involved is: "
  111.    ?? _v
  112.    ?
  113.    IF !EMPTY(_pout)
  114.       FOR _x = 1 TO 4000 STEP 2
  115.          IF MULTPLE_OF(_x-1, 160)
  116.             ?
  117.          ENDIF
  118.          ?? SUBSTR(allscreens[_pout], _x, 1)
  119.       NEXT
  120.    ENDIF
  121.    ?
  122.    ? "Notes: "
  123.    ? SPACE(5)
  124.    ?? BITSTRIP(_tbug, 5)
  125.    ?
  126.    ? SPACE(5) + REPLICATE("*", 70)
  127.    ?
  128.    ? "Fixed?    (  Yes  /  No  )"
  129.    ?
  130.    ? "Comments =>"
  131.    ?
  132.    FOR qaz = 1 TO 4
  133.       ? SPACE(5) + REPLICATE("_",70)
  134.       ?
  135.    NEXT
  136.  
  137. * End of File
  138.