if $mouse eq 2
;if EXISTS Devs:ShortGRAB
;rename Devs:GrabbedMemory Devs:-GrabbedMemory
;rename Devs:ShortGRAB Devs:GrabbedMemory
;endif
;c:FastBoot
;wait 5
c:FastExec FASTVBR CHIPSTART=0x00002000
c:copy >NIL: S:Sys ENV:Sys all
c:copy >NIL: ENVARC:MCP ENV:MCP all
Assign CON: DISMOUNT
Mount CON: from DEVS:KingCON-mountlist
Assign RAW: DISMOUNT
Mount RAW: from DEVS:KingCON-mountlist
SetPatch QUIET
PatchControl
MCP
IPrefs
c:path >NIL: c: sys:rexx sys:Tools sys:rexxc SYS:Utilities S: SYS:System Utils:NoIcons Utils:NetWork Utils:System Utils:System/Executive
NewShell "CON://2000/2000/Shell #%N = '%S'/Auto/Close/NOSIZE/NOMENUS/NOCLOSE/NOICONIFY"
;c:copy >NIL: c:setclock c:diskchange c:runback c:execute c:wait s:GRAB.script ram:
;wait 3
;c:FastBootGRAB
;ram:runback >NIL: ram:execute ram:GRAB.script
;c:rename Devs:GrabbedMemory Devs:ShortGRAB
;c:rename Devs:-GrabbedMemory Devs:GrabbedMemory
EndCli >NIL:
skip end
endif
;c:FastExec FASTVBR CHIPSTART=0x00002000
wait 5
;c:FastExec FASTVBR NOCOLDCAPTURE CHIPSTART=0x00002000
;InitKick
;utils:system/skick devs:kickstarts/kick40068.A1200 ADDMEM 1E000000/1000000/_10 32BIT NOPATCH QUIET
;PrepareEmul A1200
utils:system/skick devs:kickstarts/kick40068.A1200S ADDMEM 1E000000/1000000/_10 32BIT NOPATCH QUIET
;PrepareEmul A1200
;c:FastExec FASTVBR NOCOLDCAPTURE CHIPSTART=0x00002000
;InitKick
c:runback >NIL: c:lowfrag
setpatch QUIET
c:cpu >NIL: cache burst

assign T: ram:t
Version >NIL:
makedir ram:unpack
protect ram:unpack
Assign CON: DISMOUNT
Mount CON: from DEVS:KingCON-mountlist
Assign RAW: DISMOUNT
Mount RAW: from DEVS:KingCON-mountlist
Mount KCON: from DEVS:KingCON-mountlist

;execpatch_881 >NIL:
;FBL >NIL: SLOW
;makedir ram:patterns
copy >NIL: ENVARC: RAM:ENV ALL NOREQ

c:PatchControl
;runback >NIL: c:urouhack WINDOW_TOP=2 WINDOW_BOTTOM=2 WINDOW_LEFT=2 WINDOW_RIGHT=2
c:MCP
runback >NIL: c:PatchObtainBestPenA
IPrefs
ConClip

Mount >NIL: DEVS:DOSDrivers/~(#?.info)
list >NIL: DEVS:Monitors/~(#?.info) to T:M LFORMAT "DEVS:Monitors/%s"
execute T:M
delete >NIL: T:M
SetEnv Workbench $Workbench
SetEnv Kickstart $Kickstart
UnSet Workbench
UnSet Kickstart

sys:prefs/overscan USE
;wait 10

c:NewIcons -1
c:DefIcons

c:assign X11: "Utils:Emulators/X11"
c:path X11:bin add
c:path >NIL: c: sys:rexx sys:Tools sys:rexxc SYS:Utilities S: SYS:System Utils:NoIcons Utils:NetWork Utils:System Utils:System/Executive

rexxmast >NIL:
;c:run >NIL: rx Rexx:DOpus/TwinHandler.rexx

;c:assign >NIL: df0: exists
;if warn
;c:reset
;endif
assign >NIL: df1: exists
if not warn
mfsmount DEVS:DOSDrivers/~(#?.info)
else
c:mfsmount DEVS:DOSDrivers/~(#?.info|df1)
endif
;Mount APIPE: from AmiTCP:devs/APipe-Mountlist

c:copy >NIL: s:ram/#? ram: all
ex GNU:s/User-Startup
c:runback >NIL: c:joymouse
c:LoadWB -debug
AmiTCP:AmiTCP
;c:wait 5
c:runback >NIL: c:a
;wait 2
c:runback >NIL: c:XToolBox
;wait 5
runback >NIL: c:ATB
;rx Utils:SFXUtils/Hippo/ARexx/HiP_zipsmall.rexx

path Utils:System/Executive
Utils:System/Executive
runback Executive <>NIL:
wait 2
Utils:System/Executive
runback >NIL: aload SCA 4 UD 4 NTB NSG LEFT 565 TOP 90 WIDTH 95 HEIGHT 150
wait 5

c:copy c:diskchange c:runback c:execute c:wait s:GRAB.script ram: quiet
wait 2
reqmouse
if $mouse eq 0
wait 3
c:FastBoot Devs:GrabbedMemory GRAB
endif
ram:runback >NIL: ram:execute ram:GRAB.script
c:EndCLI >NIL:
lab end