; Wordworth Lite 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

;Resident >NIL: C:Assign PURE
;Resident >NIL: C:makedir PURE
;Resident >NIL: C:Copy PURE
;Resident >NIL: C:delete PURE

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

;Resident makedir REMOVE
;Resident delete REMOVE

c:LoadWB

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

ENDCLI >NIL: