User-Startup

;FIRST DO SOME SYSTEM PATCHES/CHANGES TO IMPROVE PERFORMANCE/LOOK

;Get a little extra speed from RAM
ramsey nopage noburst nowrap

;Faster Pipes
Resident ADD C:Pipe PURE

;Give RAM: a better icon
copy > NIL: SYS:S/RAM.info TO RAM:Disk.info

;Make fonts a LOT faster
run >nil: Cachefont
;end cachefont

;BEGIN NewIcons
Run <NIL: >NIL: c:NewIcons
;END NewIcons

;Start CGWBPattern
run >nil: CGWBPPatch

;Mount speech synthesis
mount Speak:

;Unassign CON: and RAW: devices to use KCON: and KRAW: instead
assign DISMOUNT con:
assign DISMOUNT raw:
; This mounts KCON and KRAW
;Mount KCON: from DEVS:KingCON-mountlist
Mount CON: from DEVS:KingCON-mountlist
;Mount KRAW: from DEVS:KingCON-mountlist
Mount RAW: from DEVS:KingCON-mountlist

;Starts Arq
run >nil: Arq

;BEGIN RexxReqTools
RXLIB >NIL: rexxreqtools.library 0 -30
;END RexxReqTools

;Use my Multiface card!
mapdevice parallel 0 TO pit 0

;BEGIN DefIcons
DefIcons
;END DefIcons

;BEGIN NEWOBTAINGIRPORT
Run >NIL: System3.1:Voodoo/NewObtainGIRPort
;END NEWOBTAINGIRPORT

;BEGIN CAPREFS
C:CAPrefs >NIL:
;END CAPREFS

;Run UPD
run >NIL: upd -b4096

;Print last boot time, relog
echo
type s:boot.log
echo >s:boot.log "Last login at: " noline
date >>s:boot.log
wait 2

;NOW FOR SOME ASSIGNS
assign sounds: sys:sounds/
assign excellence!: Productivity:excellence! defer
assign doctools: Productivity:excellence!/doctools defer

;BEGIN SAS/C
assign sc: Work:sc
assign lib: sc:lib
assign include: sc:include
assign cxxinclude: sc:cxxinclude
assign autodocs: sc:autodocs
path sc:c add
;END SAS/C

;BEGIN AmiTCP/IP
assign AmiTCP: Work:AmiTCP-4.0
path AmiTCP:bin add
Assign APIPE: Exists > NIL:
IF Warn
Mount APIPE: from AmiTCP:devs/APipe-Mountlist
EndIf
;END AmiTCP/IP

;BEGIN AmiSlate
;assign SlateRexx: Work:AmiTCP-4.0/AmiSlate/SlateRexx
;assign SlateScripts: Work:AmiTCP-4.0/AmiSlate/SlateScripts

;BEGIN JPEG Codec
Assign JPEGTMP: "RAM:"
;END JPEG Codec

;BEGIN MultiFileSystem
;C:MFSMount DEVS:DOSDrivers/~(#?.info)
;END MultiFileSystem

;For mail
assign uulib: sys:uulib/
assign UUMail: dh1:amitcp-4.0/uumail/
;assign SMTPSpoolDir dh1:amitcp-4.0/SMTPSpoolDir/

;BEGIN Blacks Editor
Assign BED: Work:BED
Assign REXX: Work:BED/Rexx ADD
Path BED: ADD
;END Blacks Editor

assign DCC: work:dcc/

;Bring up ZIP drive icon for some disks
run >nil: cd zip:
;End

;BEGIN CLASSACT
Assign >NIL: LIBS: SYS:Classes ADD
;END CLASSACT

;BEGIN GMPlay
assign GM: "Work:GMPlay"
;END GMPlay

;BEGIN PALIS
C:Palis
;END PALIS

;BEGIN MUI
if exists "System3.1:MUI"
assign MUI: "System3.1:MUI"
if exists MUI:Libs
assign add LIBS: MUI:Libs
endif
if exists MUI:Locale
assign add LOCALE: MUI:Locale
endif
version >nil: exec.library 39
if not warn
if exists MUI:Docs
if exists HELP:dummy ; do not remove
endif ; this entry!
assign add HELP: MUI:Docs
endif
endif
endif
;END MUI

Back