home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / XTALTF10.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  1.4 KB  |  69 lines
  1.  
  2. /*
  3.     ALTF10:        Tell the beginning user that he can just
  4.             press Alt-F10 to run the MENU script.
  5.             Checks for existence of MENU.XTC
  6.             Also loads the function key.
  7.  
  8.         ALTF10
  9.  
  10.     ALTF10_GENERAL: Like AltF10, but doesn't check anything or load
  11.             the function key.  Expects main script to do these.
  12.  
  13.         ALTF10_GENERAL
  14.  
  15.  
  16.     ALTI_GENERAL:   Like AltF10, but doesn't check anything or load
  17.             the function key.  Expects main script to do these.
  18.             Just tells Joe User about Alt-I.  Used for second
  19.             session Menu front end, etc.
  20.  
  21.         ALTI_GENERAL
  22.  
  23.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  24.     All rights reserved
  25.     For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
  26.  
  27. */
  28.  
  29. include XTWASTE
  30. include XTNOPAUS
  31. include XTPTHFND
  32.  
  33. proc ALTF10
  34.  
  35.     PATH_FIND xtpath, "MENU.XTC"
  36.     if null(NEW_STR) then PATH_FIND xtpath, "MENU.XTS"
  37.     if null(NEW_STR) then exit
  38.  
  39.     proc_win = freewin
  40.  
  41.     NOPAUSE "Press ^AK Alt_F10 ^AN for the v1.x Menu system", proc_win
  42.     WASTE 4
  43.     shut #proc_win
  44.  
  45.     fkey 40, "@do menu", "Use the v1.x Menu system"
  46.  
  47. endproc
  48.  
  49. proc ALTF10_GENERAL
  50.  
  51.     proc_win = freewin
  52.  
  53.     NOPAUSE "Press ^AK Alt_F10 ^AN for your preferred interface", proc_win
  54.     WASTE 4
  55.     shut #proc_win
  56.  
  57. endproc
  58.  
  59. proc ALTI_GENERAL
  60.  
  61.     proc_win = freewin
  62.  
  63.     NOPAUSE "Press ^AK Alt_I ^AN for an index of other sessions", proc_win
  64.     WASTE 4
  65.     shut #proc_win
  66.  
  67. endproc
  68.  
  69.