home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / XTSHOWFK.XTS < prev    next >
Text File  |  1990-03-06  |  868b  |  41 lines
  1.  
  2. /*
  3.  
  4.     Procedure SHOW_FKEYS:  Used mainly for XVI conversion scripts; opens
  5.         a little window and shows the function key assignments.
  6.  
  7.     SHOW_FKEYS
  8.  
  9.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  10.     All rights reserved
  11.     For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
  12.  
  13. */
  14.  
  15. proc SHOW_FKEYS
  16.  
  17.     sblurb = " ENTER for more, ESC to stop "
  18.     ptr = 0
  19.     win = freewin
  20.     window #win, zone 1, color white on blue
  21.     title #win, " Function key assignments "
  22.     for i = 1 to 40
  23.         print #win, at ptr, 1, keyname(i + 1024);
  24.         print #win, at ptr, 15, fkey(i);
  25.         ptr = ptr + 1
  26.         if ptr = 10 then            ...
  27.             subtitle #win, sblurb        : ...
  28.             zark = stroke            : ...
  29.             if zark = 27 then        ...
  30.                 shut #win        : ...
  31.                 exit            ...
  32.             else                ...
  33.                 subtitle #win, ""    : ...
  34.                 clear #win        : ...
  35.                 ptr = 0
  36.     next
  37.     shut #win
  38.  
  39. endproc
  40.  
  41.