EnglishРусский  

   ..

   DEBUG

   DELPHI

   debug.g

   embed.ico

   test.g

Ads

Installer and installation software
Commercial and Freeware installers.

source\embed\test.g
 1 /******************************************************************************
 2 *
 3 * Copyright (C) 2008, The Gentee Group. All rights reserved. 
 4 * This file is part of the Gentee open source project - http://www.gentee.com. 
 5 * 
 6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT"). 
 7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS 
 8 * ACCEPTANCE OF THE AGREEMENT.
 9 *
10 * ID: test 17.10.06 0.0.A.
11 *
12 * Author: Alexey Krivonogov ( gentee )
13 *
14 ******************************************************************************/
15 
16 func output( uint param1 param2, str more )
17 {
18    uint l
19    print("\(param1) => \( l = param2) + \(more)\l")
20    l = 61
21 }
22 
23 func test<main>
24 {
25    uint i
26 
27    print( "Привет, World!\l" )
28    fornum i, 10 : print("\(i)*\(i) = \(i*i)\l")
29    getch()
30 }
31