failat 21
assign exists apcd: >NIL:
if warn
requestchoice "Amiga Future ©" "Die CD ist noch nicht angemeldet!*nBitte starten sie zuerst *"Quickstart*" im Hauptverzeichnis" Ende >NIL:
quit
endif

assign sel: ""
isnirunning
if warn
set ja 1
skip ende
;quit
else
;OS 3.5 check
set a "icon.library 40.1"
set b `version icon.library`
if $b GE $a
set ja 1
skip ende ;OS 3.5 -> kein NewIcons nötig
endif
Echo >env:Afuturetxt "Text *"Achtung:*"*nText *"========*"*nText *"NewIcons ist nicht gestartet!*"*nText *"Für die beste Darstellung der*"*nText *"Icons auf der Amiga+ CD wird nun*"*nText *"NewIcons gestartet!          *"*n"
set start `selector req.sel HILFE Weiter`
if $start eq 0
APCD:C/Newicons >NIL:
if not warn
set ja 1 ;letzter Check...
else
set ja 0
endif
else
echo >env:Afuturetxt "Text *"Hilfe*"*nText *"=====*"*nText *"Die Icons auf der Amiga+ CD verwenden das NewIcons System. *"*nText *"Um sie perfekt darzustellen, wird nun NewIcons gestartet. Dies     *"*nText *"geschiet nur TEMPORAER, nach einem Neustart bleibt ihr     *"*nText *"System also das alte. Es wird außerdem nichts auf ihrer    *"*nText *"Festplatte gelöscht oder verändert. Es besteht KEIN Risiko!*"*n"
set start `selector req.sel Starten! Abruch!`
if $start eq 1
APCD:c/NewIcons >NIL:
echo >env:Afuturetxt "Text *"Viel Spaß mit dem neuen Gesicht der Amiga+!*""
set ja 1
selector >NIL: req2.sel "Ihr Amiga Future Team :)"
else
echo >env:Afuturetxt "Text *"Sie können NewIcons jederzeit  *"*nText *"mit diesem Programm aktivieren.*"*n"
set ja 0
selector >NIL: req2.sel "Ihr Amiga Future Team :)"
endif
quit
skip ende
endif
endif
lab ende
setenv apcdni $ja