home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
s
/
startup-sequence
< prev
next >
Wrap
Text File
|
1994-07-04
|
1KB
|
48 lines
CDPD4:c/rmtm ; $$$ Frig this
CDPD4:c/NoReset >nil: ; $$$ Frig this
cdpd4:c/mostra >NIL: cdpd4:s/titlepic.iff nomouse secs 5 fade 2
failat 21 ; The Globals
run >nil: <nil: c:JayMoose19
c:makedir ram:t
c:assign t: ram:t
; The deodorant test.....
c:RightGuard
if WARN
c:assign env: ram:
assign DNET: cdpd4:DNet
path DNET: ADD
mount DPIPE: from DNET:DNet.Mountlist
mount NULL: from DNET:DNet.Mountlist
run >nil: <nil: DNET:DNet -X -h0
wait 6 secs ; CD-ROM wait to save sanity
mount SNET: from DNET:DNet.Mountlist
select >nil: -0 "VCTurboSerNet: <1> Start DNet, <2> use VCSetup" "<3> Click on this when ready" gerbils
execute snet:ram/VCDevices
execute vc:VCStartup
endcli
endif
; Okay, so we don't smell...
c:assign howtocode: cdpd4:text/useful-amiga/howtocode
c:version >NIL: graphics.library 37
if warn
failat 11
c:execute cdpd4:s/startup-sequence1.3
else
c:version >NIL: graphics.library 38
if warn
c:execute cdpd4:s/startup-sequence2.1
else
cdpd4:c/Maxspeed >nil: ; $$$ Frig this
c:execute cdpd4:s/startup-sequence3.0
endif
endif
; Hey, Andreas, check out the startups...