home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST910.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.9 KB  |  69 lines
  1. *******************
  2.  
  3. PROCEDURE Inkey_pr
  4.  
  5.    PARAMETERS p, l, v
  6.  
  7.    PRIVATE _poprow, _popcol, _ocolor, _iscr, _irow, _icol, _dummy
  8.  
  9.    _poprow = ROW()
  10.    _popcol = COL()
  11.    _ocolor = SETCOLOR()
  12.    _iscr = ""
  13.    _iscr = SAVESCREEN(5,0,14,79)
  14.    SET CURSOR OFF
  15.    SETCOLOR(IF(ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), "W/B", SETCOLOR()))
  16.    IF TYPE("scrcursor") = "U"
  17.       scrcursor = .T.
  18.    ENDIF
  19.    INKEY_SCR()
  20.    STORE 7 TO _irow, _icol
  21.    DO WHILE .T.
  22.       IF _irow > 11 
  23.          CLEAR_AREA(6,4,13,76)
  24.          STORE 7 TO _irow, _icol
  25.          @ _irow, _icol SAY "ASCII value is " + LTRIM(TRIM(STR(_dummy)))
  26.          _icol = 32
  27.       ENDIF
  28.       @ _irow, _icol SAY "<key>"
  29.       _dummy = INKEY(0)
  30.       IF _dummy = 27
  31.          EXIT
  32.       ENDIF
  33.       @ _irow, _icol SAY "ASCII value is " + LTRIM(TRIM(STR(_dummy)))
  34.       _icol = _icol + 25
  35.       IF _icol > 60
  36.          _irow = _irow + 1
  37.          _icol = 7
  38.       ENDIF
  39.    ENDDO
  40.    SETCOLOR(_ocolor)
  41.    SET CURSOR (scrcursor)
  42.    RESTSCREEN(5,0,14,79,_iscr)
  43.    @ _poprow, _popcol SAY ""
  44.  
  45. *********************
  46.  
  47. PROCEDURE Inkey_scr
  48.  
  49.    PRIVATE _qaz
  50.  
  51.    IF TYPE("scrleft_1") = "U"
  52.       scrleft_1 = "Steve Straley's ToolKit"
  53.       scrleft_2 = "Version 2.0"
  54.    ENDIF
  55.    @ 5,4 SAY  "╔══ Inkey Values ════════════════════════════════════════════════════════╗"
  56.    @ 6,4 SAY  "║ &scrleft_1. / &scrleft_2."
  57.    @ ROW(),COL() SAY REPLICATE(CHR(32), 72 - LEN(scrleft_1) - LEN(scrleft_2) - 4)
  58.    @ ROW(),COL() SAY "║"
  59.    FOR _qaz = 7 TO 12
  60.       @ _qaz, 4 SAY "║                                                                        ║"
  61.    NEXT
  62.    @ 13,4 SAY "╚════════════════════════════════════════════════════════════════════════╝"
  63.    @ 14,00 SAY MESS_CENT("Press Any key for Value / ESC to Quit ")
  64.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  65.       SET COLOR TO W/B
  66.    ENDIF
  67.  
  68. * End of File
  69.