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

SYS:System/SetMap usa1 ;Activate the ()/* on keypad. USA KEYBOARD.

;SYS:System/SetMap i ;delete this line if USA keyboard. TASTIERA ITALIANA.
;TOGLIERE LA RIGA QUI SOPRA PER LAVORARE CON LA TASTIERA USA

;SYS:Nimm3 -iy ;Invert Y & Z Keys (remove initial semicolon to use Nimm3).
;TOGLIERE IL PUNTO E VIRGOLA INIZIALE SOPRA PER INVERTIRE I TASTI <Y> E <Z>.

SYS:RAMExp
if WARN         ;running on a 512 Kbyte system
   loadwb
   C1-Text
   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 "A500/A2000 I Workbench disk.  Release 1.3 version 34.20*N"
echo "Cloanto C1-Text,  v. 2.0 ITA  -  © Cloanto ® 1987, 1988, 1989."
echo "Tutti i diritti riservati. Riproduzione vietata."

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 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

;wait 1 SEC
;SYS:MJump wcc 570 180
;wait 11 SEC
;SYS:MJump qcc 80 104 ;WBench auto-run C1-Text

SYS:C1-Text ;CLI auto-run C1-Text

endcli >NIL: