;AddMem 200000 2fffff ;Include non auto-config. RAM (e.g. 1 Mb from 200000).
;Remove initial semicolon to use the command.
;Follow expansion manual to set parameters. Copy AddMem to "c" directory.

SYS:System/SetMap usa1 ;USA keyboard.
;Replace "usa1" with NATIONAL KEYBOARD name if necessary
;Other keyboard names: cdn, ch1, ch2, d, dk, e, f, gb, i, is, n, s, usa0, usa2

;SYS:Nimm3 -y ;Invert Y & Z Keys (remove initial semicolon to use Nimm3).
;REMOVE SEMICOLON TO SWAP <Y> AND <Z> KEYS.

assign >NIL: PWrite: exists
if WARN
   echo "*e[33mATTENTION: Original disk name should be restored.*e[31m"
   assign >NIL: "copy of PWrite:" exists
   if NOT WARN
      assign PWrite: "copy of PWrite:"
      endif
   endif

SYS:RAMExp
if WARN         ;running on a 512 Kbyte system
   loadwb
   PWrite:PWrite
   endcli
   endif

Addbuffers df0: 10

assign >NIL: df1: exists
if NOT WARN
   Addbuffers df1: 10
   endif

c:SetPatch >NIL: ;patch system functions

cd c:
echo "Amiga Workbench disk.  Release 1.3.2 version 34.28*N"
echo "Cloanto Personal Write,  v. 3.0 - (C) Cloanto (R) 1987-1991."
echo "        All Rights Reserved. Reproduction Prohibited."
echo ""
echo "                   Released by.. SKID ROW!"

Sys:System/FastMemFirst ;move C00000 memory to last in list
BindDrivers
SetClock >NIL: load ;load system time from real time clock
;                    A1000 owners should replace the SetClock load with Date

if exists SYS:c/FF
   FF >NIL: -0 ;speed up Text
   endif

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)

path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench
LoadWB delay ;wait for inhibit to end before continuing

SYS:RAMExp
if WARN
   endcli >NIL:
   endif

PWrite:PWrite

endcli >NIL: