home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
cdrom
/
wbcdboot
/
wbcdboot
< prev
next >
Wrap
Text File
|
1977-12-31
|
2KB
|
61 lines
; $VER: WBCDBoot Version 1.03 14/01/95
; This version is slightly faster because of resident de-assigning.
Echo "Zappo CD-Rom WorkBench Startup - Version 1.03"
Echo "By Jam/Carnage © 1995*n"
If Not Exists CD0:
If Exists Sys:Storage/CD0
C:Mount Sys:Storage/CD0
Else
Echo "'CD0' not found in 'Sys:Storage/'"
Ask "Hit enter to exit..."
EndCLI
EndIF
EndIf
If Exists CD0:
Resident C:Assign
Resident C:Execute
Failat 100
CD0:
Assign >NIL: OldSys: Sys:
Assign >NIL: T: Ram:
Assign >NIL: Sys: Cd0:
Assign >NIL: C: Sys:C
Assign >NIL: Libs: SYS:Libs
Assign >NIL: Devs: SYS:Devs
Assign >NIL: L: Sys:L
Assign >NIL: S: Sys:S
Assign >NIL: Fonts: SYS:Fonts
Assign >NIL: Libs: OldSys:Libs Add
Assign >NIL: Devs: OldSys:Devs Add
Resident C:Assign Remove
OldSys:C/RunBack >NIL: OldSys:System/NoFastMem
If Exists S:Startup-Sequence
Execute S:Startup-Sequence
Else
If Exists Startup-Sequence
Execute Startup-Sequence
Else
Echo "No 'Startup-Sequence' on CD0: - Removing assigns..."
OldSys:C/Assign >NIL: C: remove
Resident C:Assign
Assign >NIL: Sys: OldSys:
Assign >NIL: OldSys: remove
Assign >NIL: T: Ram:T/
Assign >NIL: Libs: remove
Assign >NIL: Devs: remove
Assign >NIL: L: remove
Assign >NIL: S: remove
Assign >NIL: Fonts: remove
Resident C:Assign
Cd Sys:
Ask "Hit enter to exit..."
EndCLI
Endif
Endif
Else
Echo "CD not inserted or other failure."
Ask "Hit enter to exit..."
EndIf
EndCLI