home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / s / startup-sequence < prev    next >
Encoding:
Text File  |  1994-07-04  |  1.1 KB  |  48 lines
  1. CDPD4:c/rmtm                        ; $$$ Frig this
  2. CDPD4:c/NoReset >nil:                    ; $$$ Frig this
  3.  
  4. cdpd4:c/mostra >NIL: cdpd4:s/titlepic.iff nomouse secs 5 fade 2
  5.  
  6. failat 21            ; The Globals
  7. run >nil: <nil: c:JayMoose19
  8. c:makedir ram:t
  9. c:assign t: ram:t
  10.  
  11.                 ; The deodorant test.....
  12. c:RightGuard
  13. if WARN
  14.     c:assign env: ram:
  15.     assign DNET: cdpd4:DNet
  16.     path DNET: ADD
  17.     mount DPIPE: from DNET:DNet.Mountlist
  18.     mount NULL: from DNET:DNet.Mountlist
  19.     run >nil: <nil: DNET:DNet -X -h0
  20.     wait 6 secs ; CD-ROM wait to save sanity
  21.     mount SNET: from DNET:DNet.Mountlist
  22.     select >nil: -0 "VCTurboSerNet: <1> Start DNet, <2> use VCSetup" "<3> Click on this when ready" gerbils
  23.     execute snet:ram/VCDevices
  24.     execute vc:VCStartup
  25.     endcli
  26. endif
  27.  
  28.                 ; Okay, so we don't smell...
  29.  
  30. c:assign howtocode: cdpd4:text/useful-amiga/howtocode
  31.  
  32. c:version >NIL: graphics.library 37
  33. if warn
  34.     failat 11
  35.     c:execute cdpd4:s/startup-sequence1.3     
  36. else
  37.     c:version >NIL: graphics.library 38
  38.     if warn
  39.         c:execute cdpd4:s/startup-sequence2.1
  40.     else
  41.         cdpd4:c/Maxspeed >nil:            ; $$$ Frig this
  42.         c:execute cdpd4:s/startup-sequence3.0        
  43.     endif
  44. endif
  45.  
  46. ; Hey, Andreas, check out the startups...
  47.  
  48.