home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / AUTOEXED.XTS < prev    next >
Text File  |  1990-03-06  |  919b  |  52 lines
  1.  
  2. genlines off
  3. genlabels off
  4.  
  5. /*
  6.     Crosstalk Mk.4 AUTOEXED (right to dial-dir) 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 = "Dialing Directory 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, '', ''
  31.  
  32.     if session > 1 then        ...
  33.         end "call"
  34.  
  35.     --    PSPOOL will replace this one ...
  36.  
  37.     macro spool "do pspool %0"
  38.  
  39.     --    Normal stuff from here on out
  40.  
  41.     macro prn printer %1
  42.     macro clr clear #16
  43.     macro dr drive %1
  44.     macro end "print : print : print ,, 'Type QUIT to quit Crosstalk'"
  45.     macro lo load %1
  46.     macro menu do menu
  47.     macro sa save %1
  48.     macro sp speed %0
  49.  
  50.     end "call"
  51.  
  52.