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

assign sel: ""
isnirunning
if warn
set ja 1
skip ende
skip quit
else
;OS 3.5 check
set a "icon.library 44.532"
set b `version icon.library`
if "$b" GE "$a"
;echo "OS3.5"
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 AmigaFuture CD wird nun*"*nText *"NewIcons gestartet!          *"*n"
set start `selector req.sel HILFE Weiter`
if $start eq 0
AFCD: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 Future 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
afcd:c/NewIcons >NIL:
echo >env:Afuturetxt "Text *"Viel Spaß mit dem neuen Gesicht der Amiga Future!*""
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
skip quit
skip ende
endif
endif
lab ende
setenv apcdni $ja
lab quit