pic
c:SetPatch >NIL: ;patch system functions
Addbuffers df0: 10
cd c:
resident c:resident pure
resident c:echo add pure
echo "                             ......................."
echo " Paul Dodd                   ..........RDraw........"
echo "                             ......................."
echo "  "
echo "Checking for bootblock virus"
echo "  "
install df0: check
echo "  "
Sys:System/FastMemFirst ; move C00000 memory to last in list
BindDrivers
SetClock load ;load system time from real time clock (A1000 owners should
              ;replace the SetClock load with Date
FF >NIL: -0 ;speed up Text
resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
resident c:Execute pure
mount newcon:
;
failat 11
run execute s:StartupII ;This lets resident be used for rest of script
wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
;
SYS:System/SetMap gb ;Activate the ()/* on keypad
path ram: c: sys:system s: sys:prefs add ;set path for Workbench
LoadWB delay  ;wait for inhibit to end before continuing
endcli >nil: