c:SetPatch >NIL: ;patch system functions
Addbuffers df0: 10
cd c:
echo "Total Domination Disk."
echo "     (PD Version)     "
echo
echo "Based on Workbench Disk release 1.3.2"
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 >NIL: 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: add ;set path for Workbench
LoadWB delay  ;wait for inhibit to end before continuing
setclock opt load
endcli >NIL: