;
; ------------------------------------------------------------
;
;   PureBasic - Console example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;
    text$  = "Feel the Power of PureBasic!"        ; просто маленькая строка в text$
    dlay   = 4000                                  ; задержка установленная в 4 000

;
;-------- Open our Console --------
;

    OpenConsole()                                  ; Сначала мы должны открыть консоль
    ConsoleTitle ("PureBasic - Console Example:")  ; Теперь мы можем дать открытой консоли  титульное имя ;)                                                  
    EnableGraphicalConsole(1)

;                                                                                                   
;-------- Ask and display the UserName --------
;
    
    ConsoleLocate (18,12)                          ; x y позиция 
    Print ("Please enter your name:   ")           ; Спросить имя
    name$=Input()                                  ; Ждём ввода данных пользователем

    ClearConsole()                                 ; Это очистит экран консоли.
    
    ConsoleLocate (24,10)                          ; x y позиция 
    PrintN ("Welcome "+name$)                      ; Напечатает наш текст и имя пользователя.
    ConsoleLocate (24,12)                          ; x y позиция
    PrintN (text$)                                 ; Напечатает наш текст

    Delay (dlay)                                   ; Ждет заданный момент

;
;-------- Cls and Cycle the Text-BG-Color 0 to 15 --------
;                                                  

    ClearConsole()                                 ; Это очистит экран консоли.
                                                   ; Информация: стандартные цвета (8 для текста, 0 для фона)
    For i = 0 To 15
        ConsoleColor (0,i)                         ; Изменяет цвет фона текста (макс. 15) в каждом цикле         
        ConsoleLocate (24,4+i)                     ; x y позиция 
        Print (text$)                              ; Напечатает наш текст
    Next i

    Delay (dlay)                                   ; Ждет заданный момент

;
;-------- Cls and Cycle the Text-FG-Color 0 to 15 --------
;

    ConsoleColor(0,0)                              ; Установка назад к черному цвету  (0,0) для цвета фона...
    ClearConsole()                                 ; Это очистит экран консоли.
                                                   ; Информация: стандартные цвета (8 для текста, 0 для фона).     For i = 0 To 15
        ConsoleColor (i,0)                         ; Изменяет цвет символов текста (макс. 15) в каждом цикле         
        ConsoleLocate (24,4+i)                     ; x y позиция 
        Print (text$)                              ; Напечатает наш текст
    Next i

    Delay (dlay)                                   ; Ждет заданный момент

;
;-------- Cls and Cycle the Background-Color 0 to 15 --------
;

    For a = 1 To 15
        ConsoleColor(a,a)                          ; Цикл изменения цвета фона...
        ClearConsole()                             ; Это очистит экран консоли.
        ;                                          ; Информация: стандартные цвета (8 для текста, 0 для фона).         For i = 0 To 15
            ConsoleColor (i,a)                     ; Изменяет цвет символов текста (макс. 15) в каждом цикле        
            ConsoleLocate (24,4+i)                 ; x y позиция 
            Print (text$)                          ; Напечатает наш текст
        Next i
        ;
        Delay(dlay/10)                             ; Ждет заданный момент
    Next a    

    ;-------- Exit --------

    CloseConsole()
End