ppp:
CLS
SCREEN 0
COLOR 15, 1
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
PRINT " Bienvenue dans le programme d'installation de FLOWERS OS"
PRINT " Flowers OS va s'installer dans C:\FLOWERS et occupera"
PRINT " environ 10 Mo d'espace disque"
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT " Attention, si vous possedez une version anterieur de Flowers OS"
PRINT " supprimez la d'abbord pour eviter tout risque de conflit"
LOCATE 23, 1: PRINT "Appuyer sur la touche (S) pour continuer ou (Q) pour quitter"
DO
SELECT CASE INKEY$
CASE CHR$(83), CHR$(115)
GOTO suite
CASE CHR$(113), CHR$(81)
END
END SELECT
LOOP
suite:
COLOR 15, 1
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
LOCATE 10, 16
PRINT " Emplacements des fichiers a installer ?"
LOCATE 11, 16
INPUT " (A:, C:\FICHIER, ect...) : ", path$
SELECT CASE path$
CASE "A:\", "a:\"
path$ = "A:"
CASE "B:\", "b:\"
path$ = "B:"
CASE "C:\", "c:\"
path$ = "C:"
CASE "D:\", "d:\"
path$ = "D:"
CASE "E:\", "e:\"
path$ = "E:"
END SELECT
k1:
CLS
COLOR 15, 1
SHELL "C:"
SHELL "CD\"
SHELL "MD FLOWERS"
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
LOCATE 10, 16
PRINT " Installer les programes principaux de Flowers OS ?"
LOCATE 11, 16
INPUT " (preferences, interface, ect...)       (O/N): ", k1$
SELECT CASE k1$
CASE "O", "o"
SHELL "XCOPY " + path$ + "\BIN C:\FLOWERS"
CASE "N", "n"
GOTO k2
CASE ELSE
GOTO k1
END SELECT
k2:
CLS
COLOR 15, 1
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
LOCATE 4, 16
PRINT " Inserez la disquette 2 si vous installez depuis un lecteur de disquette; "; ""
LOCATE 11, 2
INPUT " Installer la console TX ? (O/N): ", k2$
SELECT CASE k2$
CASE "O", "o"
SHELL "XCOPY " + path$ + "\CONSOLE C:\FLOWERS"
CASE "N", "n"
GOTO k3
CASE ELSE
GOTO k2
END SELECT
CLS
k3:
CLS
COLOR 15, 1
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
LOCATE 4, 2
PRINT " Inserez la disquette 3 si vous installez depuis un lecteur de disquette; "; ""
LOCATE 11, 16
PRINT " Installer les programmes optionels ?"
INPUT " (Explorateur Internet, Notepad, jeux,ect...) : ", k3$
SELECT CASE k3$
CASE "O", "o"
SHELL "XCOPY " + path$ + "\BONUS C:\FLOWERS"
CASE "N", "n"
GOTO k4
CASE ELSE
GOTO k3
END SELECT
CLS
k4:
CLS
COLOR 15, 1
CLS
COLOR 15, 4: PRINT SPACE$(80)
LOCATE 1, 1: PRINT " Programme d'installation de Flowers OS"
PRINT
COLOR 0, 1
PRINT
PRINT " Installation (en theorie) termin‚ !"
SLEEP
COLOR 7, 0
CLS
END







