;                          ANOTHER.... AF Production
; AF's Alternative - workbench - startup - AF's.A.W.S -
; ©1992-93- AFSOFT - written by Anthony Finnerty
; Altered on 31/12/92 - now loads without wrecking the
; disk drives. Also loads faster - loads in  0:2:34:00 (2min 34sec)
; - not including pic loading and boot.
br c:pvy
af'swb2:c2/ppshow af'swb2:a             ;entered 1/1/93
copy c/copy to ram:
ram:copy c/delete to ram:
ram:copy c/relabel to ram:
ram:copy c/ff to ram:
ram:copy c/echo to ram:
ram:copy c/ask to ram:
ram:copy c/if to ram:
ram:copy c/border to ram:
ram:copy c/cd to ram:
ram:copy c/vec to ram:
ram:copy c/tick to ram:
ram:copy c/mount to ram:
ram:copy c/loadwb to ram:
ram:copy c/brun to ram:
ram:copy c/onlypal1 to ram:
ram:copy c/binddrivers to ram:
ram:copy c/setclock to ram:
ram:copy c/setpatch to ram:
ram:copy c/addbuffers to ram:
ram:copy c/resident to ram:
ram:copy system/fastmemfirst to ram:
ram:copy af'swb2:novirus/kdviii to ram:
ram:ff af'swb2:fonts/vidilores8x8.font
ram:echo "*ec"
ram:onlypal1

ram:border off
ram:echo "*ec"
ram:cd af:
ram:echo "*ec"
ram:vec
ram:copy af'swb2:c2/ppshow to ram:
ram:copy af'swb2:titlescreen to ram:
ram:ppshow ram:titlescreen
ram:cd af:
ram:tick
ram:SetPatch >NIL: ;patch system functions
ram:Addbuffers df0: 10
ram:cd c:
ram:echo "*e[1m*e[37mAF WORKBENCH v6.5*e[0m ©1992-93 AF productions"
ram:echo "*e[42m*e[37m*e[1mMADE IN BRITAIN BY Anthony Finnerty *e[0m"
ram:echo "Read-DOC's for more details."
ram:echo "  "
ram:cd af:
ram:fastmemfirst
ram:BindDrivers
ram:SetClock load ;if there's any A1000 owners out there then God help you!
              ; wow?! I didn't know they existed, thats the computers -
              ;  - not the owners.
ram:FF >NIL: -0 ;speed up Text
ram:resident CLI L:Shell-Seg SYSTEM pure add; Wow, this starts the shell!
ram:resident c:Execute pure
ram:mount newcon:
;
failat 11
run execute s:StartupII ; this lets a thing called resident be used for
                        ; the rest of the script - eh?
wait >NIL: 5 mins ; waits for startup-II to finish (5 mins)
                  ; (it signals to the computer when done) 
;
SYS:system/SetMap gb ;activates us British people on the Keyboard!
path ram: c: sys:Utilities          sys:system s: sys:prefs add ;sets the path for Workbench
ram:copy c:disk.info to ram:
ram:cd af:
ram:LoadWB delay  ;waits for inhibit to end before it will continue

ram:copy af'swb2:c2/dropcloth to ram:
ram:copy af'swb2:backdrop to ram:
ram:brun ram:dropcloth -d 0 -i ram:backdrop
ram:brun ram:KDVIII
af'swb2:blanker
ram:brun c/shortcut


cd ram:
;--------------
delete dropcloth
delete backdrop
delete ppshow
delete titlescreen    ;All this clears up the ram: device
delete ff
delete relabel
delete echo
delete onlypal1
delete ask
delete if
delete border
delete cd
delete vec
delete copy
delete tick
delete mount
delete loadwb
delete brun
delete fastmemfirst
delete binddrivers
delete setclock
delete setpatch
delete addbuffers
delete kdviii
delete resident
delete delete
;--------------
cd af:
endcli

WB1.3 Startup - totaly re-written, system overhaul, whatever you want to
call it, you name it, its be done, well, at least I think it has, but thats
it for now ------->>>>
                        Signed,
                                Anthony Finnerty

-
***WARNING***    - please take note -

If the disks develop a fault which you can't fix then send to:

Mr A Finnerty
16 Hoyle Court Avenue
Baildon, Shipley
West Yorkshire
BD17 6EU

-and they will be replaced free of charge- 1993