; AGAtron Star Trek Game
;    Startup-Sequence

; Please leave it as it is

PatchNTSC
Cls
Bluestripes
FastMemFirst

Echo "*N*E[1m                        AGAtron PD presents:"
Echo "*E[3m                       *E[4m  The Star Trek Game  *E[0m*N"
Type s/ReadMe

Ask " Wanna read the Docs (in German) ? (Y/N):"
If WARN
 more STDATA:StarTrek.DOC
EndIf

Ask " Wanna see the Intro-Anim ? (Y/N):"
If WARN
 ShowAnim >Nil: TrekGame.preanim +4
EndIf

CheckMem 1500000 
If NOT WARN
 Ask " Enough Memory - Copy DataDisk to RAM: ? (Y/N):"
 If WARN
  Echo "*N Copying Datadisk to RAM: ... *N"
  Copy STDATA: ram: all quiet
  Ask " Please Remove DataDisk, then press <Return>!"
  Assign STDATA: RAM:
 EndIf
 Echo "*N Starting the Game ..."
 FailAt 30000000  ; ahem...
 StarTrek
 FailAt 20
Else
 FailAt 30000000
 CheckMem 600000
 If WARN
  Echo "*N 512K Memory only - Starting Special Version with less Sounds."
  StarTrek512
 Else
  Echo "*N 1MB Memory - Starting the Game ..."
  StarTrek
 EndIf
 FailAt 20
EndIf

Type s/Bye

Show Enterprise.pic

; End of Script