; Wordworth AFC startup script
 
c:expload >NIL:

Addbuffers >NIL: df0: 30
FailAt 21

version >NIL: graphics.library 37
IF WARN
   ;less than WB2.04
   echo ""
   echo "Your Amiga requires Workbench 2.04 or above to run Wordworth 3.1"
   echo "The startup will now be aborted!"
   quit
ELSE
   version >NIL: graphics.library 39
   IF WARN
      ;less than WB3.0
      SetPatch QUIET
   ELSE
      ; WB3.0
      SetPatch3.0 QUIET
   ENDIF
ENDIF

Path >NIL: RAM: C: S: SYS:System

MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
Copy >NIL: ENVARC: RAM:ENV ALL NOREQ

Assign >NIL: ENV: RAM:ENV
Assign >NIL: T: RAM:T
Assign >NIL: CLIPS: RAM:Clipboards
Assign >NIL: PRINTERS: DEVS:Printers
Assign >NIL: LIBS: SYS:Classes ADD
Assign >NIL: KEYMAPS: DEVS:Keymaps

IF EXISTS DEVS:Monitors
  IF EXISTS DEVS:Monitors/VGAOnly
    DEVS:Monitors/VGAOnly
  EndIF

  C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  Execute T:M
  C:Delete >NIL: T:M
EndIF

C:IPrefs

SetEnv Workbench $Workbench
SetEnv Kickstart $Kickstart
UnSet Workbench
UnSet Kickstart

IF EXISTS s:User-Startup
  execute s:User-Startup
ENDIF

c:LoadWB

;Copy the font to ram for speed of use
copy >NIL: SYS:WwFonts/#? ram:WwFonts all

echo "*n*n              Wordworth® AFC"
echo " Special coverdisk version for Amiga Format"
echo "©Copyright 1995 Digita International Limited"
echo "*n*n"
echo "Please Wait! Wordworth AFC is loading automatically."
echo "*nThere will be a delay after this message disappears"
echo "before the Wordworth screen appears.*n"

;Run the Wordworth program
cd sys:
run >NIL: SYS:Wordworth

c:Wait 15

ENDCLI >NIL: