home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
s
/
startup-sequence1.3
< prev
next >
Wrap
Text File
|
1994-07-04
|
1KB
|
41 lines
CDPD4:1.3/c/assign c: CDPD4:1.3/c
c:assign sys: cdpd4:1.3
c:assign l: cdpd4:1.3/l
c:assign libs: cdpd4:1.3/libs
c:Assign fonts: cdpd4:1.3/fonts
c:assign devs: cdpd4:1.3/devs
c:assign s: cdpd4:1.3/s
resident >NIL: CLI cdpd4:1.3/L/Shell-Seg SYSTEM PURE add
resident >NIL: cdpd4:1.3/c/Execute PURE
c:mount NEWCON: from cdpd4:1.3/devs/mountlist
c:failat 100
;Addbuffers df0: 10
c:SetPatch >NIL: ;patch system functions
c:cd c:
c:echo "CDTV Workbench disk. Release 1.3.3 version 34.34*N"
Sys:System/FastMemFirst ; move C00000 memory to last in list
c:BindDrivers
c:SetClock load ;load system time from real time clock (A1000 owners should
;replace the SetClock load with Date
;resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
;resident c:Execute pure
;mount newcon:
;
;failat 11
c:run execute s:StartupII ;This lets resident be used for rest of script
c:wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
;
;cdpd4:CDSetMap
c:path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench
assign >NIL: CDPD-Custom: exists
if not warn
execute CDPD-Custom:s/CD-Environment
endif
c:LoadWB delay ;wait for inhibit to end before continuing
c:endcli >NIL: