home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 70 / af070a.adf / s / startup-sequence
Text File  |  1995-02-09  |  2KB  |  79 lines
  1. ; Wordworth AFC startup script
  2.  
  3. c:expload >NIL:
  4.  
  5. Addbuffers >NIL: df0: 30
  6. FailAt 21
  7.  
  8. version >NIL: graphics.library 37
  9. IF WARN
  10.    ;less than WB2.04
  11.    echo ""
  12.    echo "Your Amiga requires Workbench 2.04 or above to run Wordworth 3.1"
  13.    echo "The startup will now be aborted!"
  14.    quit
  15. ELSE
  16.    version >NIL: graphics.library 39
  17.    IF WARN
  18.       ;less than WB3.0
  19.       SetPatch QUIET
  20.    ELSE
  21.       ; WB3.0
  22.       SetPatch3.0 QUIET
  23.    ENDIF
  24. ENDIF
  25.  
  26. Path >NIL: RAM: C: S: SYS:System
  27.  
  28. MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  29. Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  30.  
  31. Assign >NIL: ENV: RAM:ENV
  32. Assign >NIL: T: RAM:T
  33. Assign >NIL: CLIPS: RAM:Clipboards
  34. Assign >NIL: PRINTERS: DEVS:Printers
  35. Assign >NIL: LIBS: SYS:Classes ADD
  36. Assign >NIL: KEYMAPS: DEVS:Keymaps
  37.  
  38. IF EXISTS DEVS:Monitors
  39.   IF EXISTS DEVS:Monitors/VGAOnly
  40.     DEVS:Monitors/VGAOnly
  41.   EndIF
  42.  
  43.   C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  44.   Execute T:M
  45.   C:Delete >NIL: T:M
  46. EndIF
  47.  
  48. C:IPrefs
  49.  
  50. SetEnv Workbench $Workbench
  51. SetEnv Kickstart $Kickstart
  52. UnSet Workbench
  53. UnSet Kickstart
  54.  
  55. IF EXISTS s:User-Startup
  56.   execute s:User-Startup
  57. ENDIF
  58.  
  59. c:LoadWB
  60.  
  61. ;Copy the font to ram for speed of use
  62. copy >NIL: SYS:WwFonts/#? ram:WwFonts all
  63.  
  64. echo "*n*n              Wordworth® AFC"
  65. echo " Special coverdisk version for Amiga Format"
  66. echo "©Copyright 1995 Digita International Limited"
  67. echo "*n*n"
  68. echo "Please Wait! Wordworth AFC is loading automatically."
  69. echo "*nThere will be a delay after this message disappears"
  70. echo "before the Wordworth screen appears.*n"
  71.  
  72. ;Run the Wordworth program
  73. cd sys:
  74. run >NIL: SYS:Wordworth
  75.  
  76. c:Wait 15
  77.  
  78. ENDCLI >NIL:
  79.