home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-1.DMS / in.adf / S / Startup-sequence < prev   
Encoding:
Text File  |  1992-05-20  |  1.3 KB  |  65 lines
  1. c:setpatch >NIL:
  2. c:version >NIL:
  3. addbuffers >NIL: df0: 15
  4. Failat 21
  5.  
  6. Resident >NIL: C:Execute PURE ADD
  7.  
  8. makedir ram:T ram:Clipboards ram:env ram:env/sys
  9. copy >NIL: ENVARC: ram:env all quiet noreq
  10.  
  11. assign ENV: ram:env
  12. assign T: ram:t ;set up T: directory for scripts
  13. assign CLIPS: ram:clipboards
  14. assign REXX: s:
  15.  
  16. if exists sys:Monitors
  17.     join >NIL: sys:monitors/~(#?.info) as t:mon-start
  18.     execute t:mon-start
  19.     delete >NIL: t:mon-start
  20. endif
  21.  
  22. BindDrivers
  23.  
  24. setenv Workbench $Workbench
  25. setenv Kickstart $Kickstart
  26.  
  27. IPrefs
  28.  
  29. echo "Amiga Release 2.  Kickstart $Kickstart, Workbench $Workbench"
  30. echo "Welcome to HighSpeed Pascal 1.10"
  31.  
  32. conclip
  33.  
  34. mount speak:
  35. mount aux:
  36. mount pipe:
  37.  
  38. path ram: c: sys:hspascal sys:utilities sys:rexxc sys:system s: sys:prefs sys:wbstartup add
  39. if exists sys:tools
  40.     path sys:tools add
  41.     if exists sys:tools/commodities
  42.         path sys:tools/commodities add
  43.     endif
  44. endif
  45.  
  46. ; If this is the initial boot (i.e. keyboard env variable is not set)
  47. ; then execute PickMap which will query for a keymap and set the
  48. ; keyboard env variable.
  49. ; 
  50. ; if keyboard env variable is set, set the keymap
  51. if ${sys/keyboard} NOT EQ "*${sys/keyboard}"
  52.     setmap ${sys/keyboard}
  53. else
  54.     PickMap sys: initial
  55. endif
  56.  
  57. if exists s:user-startup
  58.     execute s:user-startup
  59. endif
  60.  
  61. LoadWB
  62.  
  63. endcli >NIL:
  64.  
  65.