;	Global Effect
;	-------------
;
;	Importado el 16 de Junio de 1992.
;	Por BAD BOY SOFTWARE Inc./Argentina!
;
;	Para Contactar con BAD BOY:
;	PACHECO 2268 Piso 1 Dpto. B' Villa Urquiza(1431)
;	Capital Federal - Mensajes Unicamente: (01) 571-0487
;
;	Unite a mi Red de Distribucion!  Disfruta los exitos 100%
;	No te quedes con la duda! Si otros se unen... Que esperas?
;
addbuffers df0: 25                      ; Lower this for ram problems?
stack 7000                              ; DON'T CHANGE!!!
failat 21

cd ram:
cd global_disk1:

if not exists ram:env
     makedir >nil: ram:env
     endif

if not exists ram:t
     makedir >nil: ram:t
     endif

assign env: ram:env
assign t: ram:t

echo "*NGlobal Effect"
echo "============="
echo "*NImportado el 16 de Junio de 1992 por BAD BOY SOFTWARE Inc."
echo "En Argentina,Lider en Software para C=64,AMIGA y PC!"
echo "*NCONTACTATE LLAMANDO AL:  571-0487" NOLINE

status >env:process command=copper
break <env:process >nil: ?
delete env:process 			; Stops unfortunate copper probs.

run >nil: <nil: global_disk1:c/copper

global_disk1:c/startup			; Build script and get langauge/VM

echo "*N*N*E[1mGame operating.......*N"
execute env:runcommand
delete env:runcommand

status >env:process command=copper
break <env:process >nil: ?
delete env:process			; Remove the copper list stabiliser.

ask "*NContinue CLI? (Type 'n' if not sure) [y/N]:"
if warn
  echo "Leaving initial CLI running."
  quit 0
else
  echo "BAD BOY SOFTWARE (571-0487)/Capital Federal!" NOLINE
  loadwb
  endcli >nil:
  endif
quit 0