home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST406.PRG < prev    next >
Encoding:
Text File  |  1989-10-02  |  2.9 KB  |  125 lines
  1. ********************
  2.  
  3. FUNCTION Putframe
  4.  
  5.    PARAMETERS _drawtop, _drawleft
  6.  
  7.    PRIVATE drawscr
  8.  
  9.    drawscr = SAVESCREEN(0,0,24,79)
  10.  
  11.    _dcolor = SETCOLOR()
  12.  
  13.    STORE 0 TO temp_top, temp_left, temp_bot, temp_right
  14.  
  15.    SET CURSOR OFF
  16.    DO WHILE .T.
  17.       RESTSCREEN(0,0,24,79,drawscr)
  18.  
  19.       Center_it( _drawtop, "Position cursor with cursor keys for TOP, LEFT corner.")
  20.  
  21.       SETCOLOR("W*+")
  22.       cursor = 0
  23.       curstr = SUBSTR(scrframe, 1, 1)
  24.       trow = 12
  25.       tcol = 40
  26.       tscr = SAVESCREEN(trow, tcol, trow, tcol)
  27.       @ trow, tcol SAY curstr
  28.       DO WHILE .T.
  29.          IF !Drawbox(tscr)
  30.             EXIT
  31.          ENDIF
  32.          tscr = SAVESCREEN(trow, tcol, trow, tcol)
  33.          @ trow, tcol SAY curstr
  34.          @ trow, tcol SAY ""
  35.       ENDDO
  36.       @ trow, tcol SAY curstr
  37.       SETCOLOR(_dcolor)
  38.       STORE trow TO temp_top
  39.       STORE tcol TO temp_left
  40.  
  41.       Center_it( _drawtop, "                                                      ")
  42.       Center_it( _drawtop, "Position cursor with cursor keys for BOTTOM, RIGHT corner.")
  43.  
  44.       SETCOLOR("W*+")
  45.       cursor = 0
  46.       curstr = SUBSTR(scrframe, 5, 1)
  47.       trow = 12
  48.       tcol = 40
  49.       tscr = SAVESCREEN(trow, tcol, trow, tcol)
  50.       @ trow, tcol SAY curstr
  51.       DO WHILE.T.
  52.          IF !Drawbox(tscr)
  53.             EXIT
  54.          ENDIF
  55.          tscr = SAVESCREEN(trow, tcol, trow, tcol)
  56.          @ trow, tcol SAY curstr
  57.          @ trow, tcol SAY ""
  58.       ENDDO
  59.       STORE trow TO temp_bot
  60.       STORE tcol TO temp_right
  61.       _oocolor = SETCOLOR()
  62.       SETCOLOR("W*+")
  63.       @ temp_top, temp_left, temp_bot, temp_right BOX SUBSTR(scrframe,1,8)
  64.       SETCOLOR(_oocolor)
  65.       SET CURSOR ON
  66.       SETCOLOR(_dcolor)
  67.  
  68.       Center_it( _drawtop, "                                                          ")
  69.       Center_it( _drawtop, "Is this what you wanted?  " )
  70.  
  71.       IF !Prompt()
  72.          RESTSCREEN(0,0,24,79,drawscr)
  73.          LOOP
  74.       ENDIF
  75.       EXIT
  76.    ENDDO
  77.    SETCOLOR(_dcolor)
  78.    RETURN( TRANSFORM(temp_top, "99") + "/" + ;
  79.            TRANSFORM(temp_left, "99") + "/" + ;
  80.            TRANSFORM(temp_bot, "99") + "/" + ;
  81.            TRANSFORM(temp_right, "99") )
  82.  
  83. ********************
  84.  
  85. FUNCTION Drawbox
  86.  
  87.    PARAMETERS boxscr
  88.  
  89.    cursor = INKEY(0)
  90.    RESTSCREEN(trow, tcol, trow, tcol, boxscr)
  91.    DO CASE
  92.    CASE cursor = 1
  93.       trow = 1
  94.       tcol = 3
  95.    CASE cursor = 18
  96.       trow = 1
  97.       tcol = 79
  98.    CASE cursor = 3
  99.       trow = 23
  100.       tcol = 79
  101.    CASE cursor = 6
  102.       trow = 23
  103.       tcol = 79
  104.    CASE cursor = 5
  105.       IF trow > 1
  106.          trow = trow - 1
  107.       ENDIF
  108.    CASE cursor = 4
  109.       IF tcol < 78
  110.          tcol = tcol + 1
  111.       ENDIF
  112.    CASE cursor = 19
  113.       IF tcol > 3
  114.          tcol = tcol - 1
  115.       ENDIF
  116.    CASE cursor = 24
  117.       IF trow < 24
  118.          trow = trow + 1
  119.       ENDIF
  120.    CASE cursor = 13 .OR. cursor = 27 .OR. cursor = 32
  121.       RETURN(.F.)
  122.    ENDCASE
  123.    RETURN(.T.)
  124.  
  125.