home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / AUTOEXEC.XTS < prev    next >
Text File  |  1990-03-06  |  917b  |  54 lines
  1.  
  2. genlines off
  3. genlabels off
  4.  
  5. /*
  6.     Crosstalk Mk.4 AUTOEXEC (non-MENU) startup script
  7.  
  8.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  9.     All rights reserved
  10.     For Crosstalk Mk. 4, v2.0 - 10-19-89 by Sheldon T. Hall
  11. */
  12.  
  13.     ScriptDesc = "Command mode startup script"
  14.  
  15. include XTPTHFND    
  16.  
  17.     RECALL_HOME_DIR
  18.  
  19.     if instr(XTPATH, NEW_STR) = 0 then            ...
  20.         XTPATH = NEW_STR + ";" + XTPATH
  21.  
  22.     trap on
  23.     z = error
  24.     load 'NORMAL'
  25.     z = error
  26.     name ''
  27.     z = error
  28.     trap off
  29.  
  30.     fkey 40, chr(27), ""
  31.  
  32.     if session > 1 then end ""
  33.  
  34.     screen status
  35.     hide #0
  36.  
  37.     --    PSPOOL will replace this one ...
  38.  
  39.     macro spool "do pspool %0"
  40.  
  41.     --    Normal stuff from here on out
  42.  
  43.     macro prn printer %1
  44.     macro clr clear #16
  45.     macro dr drive %1
  46.     macro end "print : print : print ,, 'Type QUIT to quit Crosstalk'"
  47.     macro lo load %1
  48.     macro menu do menu
  49.     macro sa save %1
  50.     macro sp speed %0
  51.  
  52.     end ""
  53.  
  54.