; This 'Startupfull' was written by I. Smith & P. Webster in 1992
; It is intended to be used with 1 meg of memory or more.
;
; IT IS A PRODIGIOUS INNOVATIONS PRODUCTION
;
; If you want to contact us, then write to :-
;
; PRODIGIOUS INNOVATIONS
; 3 Watson crescent, Eastmoor,
; Wakefield, West Yorkshire.
; England.   WF1 4Qf
; Phone 0924 371480
; This Startup will mount HYPERDRIVE & copy the entire disk to HYPERDRIVE.
Addbuffers df0: 10
c:SetPatch r > nil:
cd c:
Sys:System/FastMemFirst
failat 30
assign rad: exists
if warn
 echo "mounting HYPERDRIVE"
 mount rad:
  if not exists rad:c
  echo "backing up to HYPERDRIVE"
  sys:system/diskcopy df0: to rad: name "HYPERDRIVE"
  rad:c/delete rad:s/startup-sequence
  rad:c/rename from rad:s/startup-fullrad to rad:s/Startup-Sequence
 endif
endif
rad:c/failat 10
rad:c/cd rad:c
rad:c/echo "transfering control to HYPERDRIVE...." noline
assign c: rad:c
assign s: rad:s
assign l: rad:l
assign libs: rad:libs
assign devs: rad:devs
assign fonts: rad:fonts
assign sys: rad:
echo "done"
BindDrivers
SetClock load
FF >nil:
resident CLI L:Shell-Seg SYSTEM pure add
resident c:Execute pure
mount newcon:
failat 11
run execute s:StartupII
SYS:System/SetMap usa1
path ram: c: sys:utilities sys:system s: sys:prefs add
LoadWB delay
break 1 c
newcli con:0/0/2/2/flashy-windows from sys:windstart
changetaskpri 100
cd rad:
delete prof.plonk|plonklow|rea#?|play590|dist#?|Pisound3
endcli