home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / AUTOEXEX.XTS < prev    next >
Text File  |  1990-03-06  |  2KB  |  105 lines
  1.  
  2. genlines off
  3. genlabels off
  4.  
  5. /*
  6.     Crosstalk Mk.4 AUTOEXEX (XVI-loader) startup script
  7.  
  8.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  9.     All rights reserved
  10.     For Crosstalk Mk. 4, v2.0 - 11-20-89 by Sheldon T. Hall
  11. */
  12.  
  13.     ScriptDesc = "Crosstalk XVI front-end startup script"
  14.  
  15. include XTCHRDEF
  16. include XTALTF10
  17. include XTPAUSE
  18. include XTPTHFND    
  19.  
  20.     screen terminal
  21.  
  22.     RECALL_HOME_DIR
  23.  
  24.     if instr(XTPATH, NEW_STR) = 0 then            ...
  25.         XTPATH = NEW_STR + ";" + XTPATH
  26.  
  27.     trap on
  28.     z = error
  29.     load 'XVI$STD'
  30.     z = error
  31.     trap off
  32.  
  33.     fkey 40, '@do AUTOEXEX', 'Start XVI/4'
  34.  
  35.     if not null(arg) then jump DO_IT
  36.  
  37.     if session > 1 then                     ...
  38.         menus on                    : ...
  39.         ALTI_GENERAL                    : ...
  40.         fkey 40, '@do AUTOEXEX DO_IT', 'Start XVI/4'    : ...
  41.         fkey 39, '@quit', 'Quit this session'        : ...
  42.         end
  43.  
  44.     --    PSPOOL will replace this one ...
  45.  
  46.     macro spool "do pspool %0"
  47.  
  48.     --    Normal stuff from here on out
  49.  
  50.     macro prn printer %1
  51.     macro clr clear #16
  52.     macro dr drive %1
  53.     macro end "print : print : print ,, 'Type QUIT to quit Crosstalk'"
  54.     macro lo load %1
  55.     macro menu do xvi
  56.     macro xvi do xvi
  57.     macro sa save %1
  58.     macro sp speed %0
  59.  
  60. label DO_IT
  61.  
  62.     hide #20
  63.     hide #0
  64.  
  65.     e0 = "Error"
  66.     e1 = "Can't find the " + hilite
  67.     e2 = lolite + " subdirectory"
  68.     e3 = lolite + " script"
  69.  
  70.     p1 = "Press " + keylite + " Enter " + lolite + " to end"
  71.  
  72.     STORE_DIR
  73.  
  74.     trap on
  75.  
  76.     cd "\X4XVI"
  77.     if error then                        ...
  78.         PAUSE e0, e1 + "\X4XVI" + e2, p1         : ...
  79.         end
  80.  
  81.     hide #20
  82.  
  83.     menus off
  84.     do "XVI"
  85.     if error then
  86.         if errclass = 21 and errno = 1 then        ...
  87.             PAUSE e0, e1 + "XVI.XTC" + e3, p1    : ...
  88.             menus on                : ...
  89.             end
  90.  
  91.     menus on
  92.  
  93.     RECALL_DIR
  94.  
  95.     if null(NEW_STR) then end
  96.  
  97.     drive left(NEW_STR, 1)
  98.     toss = error
  99.     cd mid(NEW_STR, 3)
  100.     toss = error
  101.     trap off
  102.  
  103.     end ""
  104.  
  105.