home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMNONAS.PRG < prev    next >
Text File  |  1991-12-13  |  3KB  |  75 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMNONAS.PRG      Copyright: EDON Corporation                                         
  4. *   Date Created: 02/25/91           Language: Clipper S'87                                             
  5. *   Time Created: 17:39:02             Author: Ed Phillips                               
  6. *    Description: Get NONASCII character function for Memscrn.prg
  7. *----------------------------------------------------------------------------
  8.  
  9. FUNCTION NonASCII
  10.    PARAMETERS mrow, mcol
  11.    PRIVATE oldscrn, oldcolor, ret_val, key, r, c
  12.  
  13.    ret_val = ''
  14.    oldscrn = Savescreen(1,0,24,79)
  15.    oldcolor = Setcolor(c_mag)
  16.  
  17.    r = mrow
  18.    c = mcol
  19.  
  20.    DO Nona_scrn
  21.    @ mrow, mcol SAY ''
  22.  
  23.    DO WHILE .T.
  24.       memrow = Row()
  25.       memcol = Col()
  26.  
  27.       key = Inkey(0)
  28.  
  29.       IF key != esc
  30.          IF key = enter
  31.             cur_char = Savescreen(r,c,r,c)
  32.             ret_val = Chr(Bin2w(cur_char))
  33.             @ savrow,savcol SAY ''
  34.             changed = .t.
  35.             EXIT
  36.          ELSEIF key < 32
  37.             DO CtrlKey
  38.          ELSEIF key >= 271
  39.             DO AltKey
  40.          ENDIF
  41.       ELSE
  42.          EXIT
  43.       ENDIF                                      && IF key != esc
  44.    ENDDO                                         && DO WHILE .T.
  45.    Setcolor(oldcolor)
  46.    Restscreen(1,0,24,79,oldscrn)
  47. RETURN (ret_val)
  48.  
  49.  
  50. PROCEDURE Nona_scrn
  51.    Setcolor(c_field)
  52.    Scroll(02,04,20,75,0)
  53.    
  54.    @ 02,04 SAY "┌──────────────────────────────────────────────────────────────────────┐"
  55.    @ 03,04 SAY "│     Position with Cursor keys, <Enter> to Select, <Esc> to cancel    │"
  56.    @ 04,04 SAY "├──────────────────────────────────────────────────────────────────────┤"
  57.    @ 05,04 SAY "│                                                                      │"
  58.    @ 06,04 SAY "│   ┌  ┬  ┐  ─     ╔  ╦  ╗  ═  ╢    ╒  ╕   ╓  ╖   ╤  ╥  ╡   ╫          │"
  59.    @ 07,04 SAY "│                                                                      │"
  60.    @ 08,04 SAY "│   ├  ┼  ┤  │     ╠  ╬  ╣  ║  ╟    ╘  ╛   ╙  ╜   ╧  ╨  ╞   ╪          │"
  61.    @ 09,04 SAY "│                                                                      │"
  62.    @ 10,04 SAY "│   └  ┴  ┘        ╚  ╩  ╝          ⌐     ¬                           │"
  63.    @ 11,04 SAY "│                                                                      │"
  64.    @ 12,04 SAY "│   █  ░  ▒  ▓  ▌  ▐  ▄  ▀  ■    ∙  ·                                 │"
  65.    @ 13,04 SAY "│                                                                      │"
  66.    @ 14,04 SAY "│   α  ß  δ    τ  Γ  ε  π     σ  φ  Φ  Θ  Ω  µ  ⁿ  ∩                  │"
  67.    @ 15,04 SAY "│                                                                      │"
  68.     @ 16,04 SAY "│   ≡  ±  ≥  ≤  ⌠  ⌡  ÷  ≈  °  ½  ¼  √  ²  ∞  ƒ  ª  º                  │"
  69.    @ 17,04 SAY "│                                                                      │"
  70.    @ 18,04 SAY "│                                   "+Chr(26)+"          «  »   │"
  71.    @ 19,04 SAY "│                                                                      │"
  72.    @ 20,04 SAY "└──────────────────────────────────────────────────────────────────────┘"
  73. RETURN
  74. * EOF: Memnonas            
  75.