Program HelloWord
    ...
End Program
                

Method Main()

    Color ( Blue )
		
    SayHello()

    Var WhatIWantToSay As String
    
    WhatIWantToSay = "Hello Again!"
    SaySomething(WhatIWantToSay)

    WhatIWantToSay = "Goodbye!"
    SaySomething(WhatIWantToSay)

End Method
               

    SayHello()
                

Method SayHello()
    // écrit le texte "Hello!" à l'écran lors de l'exécution du programme
    PrintLine ("Hello!")
End Method
                

Define WhatIWantToSay As String  // (signifie "ce que je veux dire")    
                

Define Nom    As String  // variable de type chaîne de caractères
Define Prenom As String  // idem ...
Define Age    As Int     // Integer = nombre entier
                

// LearningProgramm001.kpl :
// première affectation :
WhatIWantToSay = "Hello Again!"

// seconde affectation :
WhatIWantToSay = "Goodbye!"


// affectation de valaurs définissant une personne :
Nom = "Dubois"
Prenom = "Gaëtan"
Age = 12
                

Dim Nom As String = "Dubois"
                

...                
Color ( Blue )               
...
                

Method DessineCarre (X1 As Int, X2 As Int, Y1 As Int, Y2 As Int)
// Cette procédure dessine un carré dont les côté sont parallèles au bords de l'écran
// X1 et X2 sont les coordonnées sur l'axe des abcisses,
// Y1 et Y2 sont les coordonnées sur l'axe des ordonnées.

    // On teste la validite des paramètres : 
    // (Abs est la fonction qui renvoie une valeur absolue) du paramètre qui lui est passé)
    If X1 <> X2 And Y1 <> Y2 And Abs(X1 - X2) = Abs(Y1 - Y2) Then
        Pen (False)
        MoveTo (X1, Y1)
        Pen (True)

        // On trace nos 4 côtés :
        MoveTo (X2, Y1)
        MoveTo (X2, Y2)
        MoveTo (X1, Y2)
        MoveTo (X1, Y1)
    Else
        // Renvoie un message d'erreur :
        Alert ("Ces coordonnnées ne définissent pas un carré !", "Erreur")
    End If

End Method 
                

Program DessineMoiUnCarre

    Method DessineCarre (X1 As Int, X2 As Int, Y1 As Int, Y2 As Int)
        .... (cf le contenu ci-dessus)
    End Method

    Method Main()
        DessineCarre (5, 15, 20, 30) // Dessine un petit carré
        DessineCarre (5, 15, 20, 35) // Renvoie un message d'erreur !
    End Method

End Program                
                

Function Addition (NbrA As Int, NbrB As Int) As Int
    Define Somme As Int
    Somme = Nbra + Nbrb

    Return Somme
End Function

Function AireDuCercle (Rayon As Decimal) As Decimal
    Define Pi As Decimal
    Pi = 3.141592

    Return Pi * Power(Rayon, 2) 
    // Power permet d'élever un nombre à la puissance spécifiée en tant que 2° argument
    // Power (Rayon, 2) = Rayon * Rayon = Rayon "au carré"
End Function
                    

// si l'on souhaite gérer les températures de la journée :
Define Temperature As Int [24]

Temperature [0] = 12 // à minuit
Temperature [1] = 12 // à 01h00
...
Temperature [12] = 19 // à midi
...
                    

// Définition de la structure                    
Structure Bonhomme
   iPosX As Int
   iPosX As Int
   iDir  As Int
   sNom As String
End Structure

// Utilisation de la structure pour gérer un bonhomme :
Define Personnage1 As Bonhomme

Personnage1.iPosX = 150 
Personnage1.iPosY = 250
Personnage1.iDir = 2
Personnage1.sNom = "Jean"
                    

Define NombreBalles As Int = 75
Define NombreAvions As Int = 10
Define Pi As Decimal = 3.14159
                    

     
// boucle Loop simple :
Loop 3
   PrintLine ("Test Loop")
End Loop                            
                    

     
// boucle For : 
For ufoY = 0 To 150
   Delay (10) // attend 10 ms
   MoveSpriteToPoint( "UFO", 50, ufoY )
Next                          
                    

     
// boucle For avec Step: 
For ufoY = 0 To 150 Step 10
   Delay (10) // attend 10 ms
   MoveSpriteToPoint( "UFO", 50, ufoY )
Next                               
                    

    
Define Nbr As Decimal = 1.1

While Nbr < 2
   Nbr = Nbr * 1.1
   PrintLine ("Nbr = " + Nbr)

End While         			
                    

 
Method DessineCarre (X1 As Int, X2 As Int, Y1 As Int, Y2 As Int)
If X1 <> X2 And Y1 <> Y2 And Abs(X1 - X2) = Abs(Y1 - Y2) Then
Pen (False)
MoveTo (X1, Y1)
Pen (True)
MoveTo (X2, Y1)
MoveTo (X2, Y2)
MoveTo (X1, Y2)
MoveTo (X1, Y1)
Else
Alert ("Ces coordonnnées ne définissent pas un carré !", "Erreur")
End If
End Method            
                 

Program ConsoleWrite
    Method Main()
        ShowConsole () //Affiche la console
        ConsoleWrite ("Ce programme ")
        ConsoleWrite ("écrit dans ")
        ConsoleWrite ("la console")
    End Method
End Program
            

Program ConsoleWriteLine
    Method Main()
        ShowConsole () //Affiche la console
        ConsoleWriteLine ("Ceci est un Titre")
        ConsoleWriteLine ("") //Saut de ligne sans texte
        ConsoleWriteLine ("Ceci est du texte,")
        ConsoleWriteLine ("Ceci est du texte.")
    End Method
End Program
            

Program ClearConsole
    Method Main()
        ShowConsole () //Affiche la console
		
        ConsoleWriteLine( "Appuyez sur un bouton pour effacer ce texte :" )
        ConsoleReadKey( False ) //Le programme s'arrête et attend que l'utilisateur press une touche ...
		
        ClearConsole ()
    End Method
End Program            
            

...
Set SetConsoleBackgroundColor (Red) // Fond rouge
...
            

Program SetConsoleBulletMode
    Method Main()
        ShowConsole () //Affiche la console
		
        ConsoleWriteLine( "Affichage d'une liste d'animaux familiers :" )
		
        SetConsoleBulletMode( True ) //Passe en mode liste à puce :
		
        ConsoleWriteLine( "Chat")
        ConsoleWriteLine( "Chien")
        ConsoleWriteLine( "Poisson")
		
        SetConsoleBulletMode( False ) //Repasse en mode normal :
		
        ConsoleWriteLine( "C'est tout ...")
		
    End Method
End Program        
            

Program SetConsoleFont
    Method Main()
        ShowConsole () //Affiche la console
		
        ConsoleWriteLine( "Affichage d'une liste d'animaux familiers :" )
		
        SetConsoleFont( "Arial", 15 ) //écrit en Arial, taille 15 :
		
        ConsoleWriteLine( "Chat")
        ConsoleWriteLine( "Chien")
        ConsoleWriteLine( "Poisson")
		
        SetConsoleFont( "Times New Roman", 10 ) //écrit en TMR, taille 10 :
		
        ConsoleWriteLine( "C'est tout ...")
		
    End Method
End Program               
            

Program SetConsoleIndent
    Method Main()
        ShowConsole () // Affiche la console
		
        ConsoleWriteLine( "Affichage d'une liste d'animaux familiers :" )
		
        SetConsoleFontColor (Red)
		
        SetConsoleIndent (5) // on décale de 5 pixels
        ConsoleWriteLine( "Hamster")
		
        SetConsoleIndent (10) // on décale de 10 pixels
        ConsoleWriteLine( "Canari")
		
        SetConsoleIndent (15) // on décale de 15 pixels
        ConsoleWriteLine( "Perruche")

    End Method
End Program        
            

Program SetConsoleTextAlignment
    Method Main()
        ShowConsole () // Affiche la console
		
        SetConsoleFont( "Arial", 12 )
		
        //Le texte est justifié à gauche par défaut :
        ConsoleWriteLine( "Voici un texte justifié à gauche," )
        ConsoleWriteLine( "" )
		
        SetConsoleTextAlignment( "Center" )
        ConsoleWriteLine( "ce texte-ci est centré," )
        ConsoleWriteLine( "" )
		
        SetConsoleTextAlignment( "Right" )
        ConsoleWriteLine( "et celui-ci est justifié à droite !" )
        
        ConsoleWriteLine( "" )
				
    End Method
End Program              
            

	Method Main()

		Define Reponse As Bool
		Define Message As String
		Define Titre   As String
		
		Message = "Voulez-vous exécuter ce programme ?"
		Titre = "Mon Programme"
		Reponse = Confirm (Message, Titre)
		
		If Reponse = True Then
			// ici le code du programme ...
		Else
			// Rien ...
		End If

	End Method

Method Main()
	Define pos As Int
	
	pos = IndexOf ("abcdef", "a")
	PrintLine ("pos = " + pos) // Renvoie 1
	
	pos = IndexOf ("abcdef", "cd")
	PrintLine ("pos = " + pos) // Renvoie 3
		
	pos = IndexOf ("abcdef", "az")
	PrintLine ("pos = " + pos) // Renvoie 0, aucune occurence de "az" trouvée dans "abcdef" ...
End Method
            

Function MonSubString (sChaine As String, iDeb As Int, iLng As Int) As String
// sChaine : variable à découper
// iDeb    : position de départ
// iLng    : longueur 
	
	Define iLgChaine As Int    // Longueur de l'argument "chaine"
	Define i         As Int    // Indice de boucle
	Define sResult   As String // Résultat
		
	iLgChaine = StringLength(sChaine)
	
	/* On rajoute unespace car Substring ne fonctionne pas sur la dernière position d'une chaine
	   Ex : Substring ("test", 4, 1) = "" !!!*/ 
	sChaine = sChaine + " "
	
	sResult = ""
	
	If iDeb > iLgChaine Then
		/* Si la position de début est > à la longueur de la chaîne, 
		   on retourne une chaîne vide */
		Return sResult
	End If
	
	If iLng <= 0 Then
		/* Si la longueur requise est inférieur ou égale à 0
		   on retourne une chaîne vide */
		Return sResult
	End If
	
	For i = 1 To iLgChaine
		If i >= iDeb Then
			// On ajoute les caractères 1 par 1
			sResult = sResult + Substring (sChaine, i, 1)
			
			// Si on atteint la longueur requise, on renvoie sResult
			If StringLength(sResult) = iLng Then
				Return sResult
			End If
		End If
	Next
	
	/* Si on sort de la boucle sans avoir atteint la longueur souhaitée, 
	   on retourne sResult */
	Return (sResult)
	
End Function
            

Function FormatNom (leNom AS STRING) AS STRING

    Define LongueurNom AS INT    // La longueur du nom
    Define Initiale    AS STRING // La première lettre du nom
    Define ResteDuNom  AS STRING // Le reste ...
    
    LongueurNom = StringLength(leNom)
    
    If LongueurNom = 0 Then
        Return ""
    Else
        Initiale = ToUpper(MonSubstring (leNom, 1, 1))
        ResteDuNom = ToLower(MonSubString (leNom, 2, LongueurNom - 1))
        
        Return Initiale + ResteDuNom
    End If
    
End Function