konkursik [1500 downto 0]

#include "dos.z"

function foo(s) { writeln(s + 6); }

function main
{
  integer p;
  string txt = "123456177$";

  p = @p;
  p = p + 4;

  foo(p);
  readkey();
}

function Number: Byte;
asm
    MOV BX, 305o
    MOV CX, 1Eh
@L: DEC BX
    LOOP @L
    ADD BX, 1011b
    XCHG AX, BX
    SUB AX, 10b
end;

class MAIN is
   main is 
      loop 
         #OUT + "175\n" 
      end 
   end
end

var I: Integer;
    O: Integer = 0;
begin
   for I := 1 to Trunc(Pi) do
    O := O + 57;
   O := O + Round(O / 57);
   Application.MessageBox(PChar(IntToStr(O)), '174!',0);
end;

class Konkurs is

  uses

  interface

   print_it is
    do
     print ("170\n")
   end print_it

end class

      PROGRAM HELLO
        PRINT *, '169'
      END

//IMHO ten konkurs nie ma sensu dopóki ktoś nie zaktualizuje listy języków w pierwszym poście, bo zwyczajnie nie wiadomo co juz było a co nie :/

@echo off
goto 1
:1
cls
echo.
echo ˛˛˛
echo ˛°˛°
echo ˛˛˛°
echo ˛°˛°
echo ˛˛˛°

choice/c:a/n /t:a,1 >nul
:2
cls
echo.
echo ˛˛˛   ˛˛˛
echo ˛°    ˛°˛°
echo ˛˛˛°  ˛˛˛°
echo ˛°˛°  ˛°˛°
echo ˛˛˛°  ˛˛˛°

choice/c:a/n /t:a,1 >nul
:3
cls
echo.
echo  ˛°  ˛˛˛   ˛˛˛
echo ˛˛°  ˛°    ˛°˛°
echo  ˛°  ˛˛˛°  ˛˛˛°
echo  ˛°  ˛°˛°  ˛°˛°
echo  ˛°  ˛˛˛°  ˛˛˛°

choice/c:a/n /t:a,1 >nul
pause >nul
:end

to 167
 ht cs
 fd 50 lt 135 fd 25
    pu bk 25 rt 225 fd 60 rt 180 pd
 fd 40 lt 90 fd 50 lt 90 fd 40 lt 90 fd 25 lt 90 fd 40
    pu bk 100 rt 90 bk 25 pd
 fd 50 lt 90 fd 40
end

PRINT "165"
``

1. REM Jestem 164
2. PRINT"164"

/say162 {
  set %a 200
  set %b 38
  /b1 $calc(%a - %b)
}


/b1  /say  2,2  $1-99! | /say  0,2  $1-99 1,1! | /say  2,2  $1-99 1,1!| /say  0,0  1,1 $1-99!

//=====================================
function DisplayNumber_child takes nothing returns nothing

	local texttag tt
	local unit u = udg_uTmpUnit
	local integer currentint = udg_iCurrentInt - 1

	set udg_iCurrentInt = 0
	set udg_uTmpUnit = null

	call DestroyTrigger( GetTriggeringTrigger( ) )


	set tt = CreateTextTagLocBJ( ( I2S(currentint) + "  is a current number" ), OffsetLocation(GetUnitLoc(u), -7.00, 0.00), 0, 10.00, 50.00, 59.00, 92.00, 100.00 )

	call SetTextTagVelocityBJ( tt, 70.00, 90.00 )	
	call TriggerSleepAction( 5.00 )
	call DestroyTextTagBJ( tt )

	set tt = null

endfunction

{
Rozszerzony Hello Word
Wersja 10.0
Copyright (C) by adiblol
}
uses crt;
const lnNull=0; lnEnglish=1; lnPolish=2;
function WriteNumber:Byte;
var liczba:Byte;
begin
asm
mov ah, 100
push ah
mov ah, 50
push ah
mov ah, 9
push ah

mov al, 0
mov cx, 3
@adding:
pop ah
add al, ah
loop @adding
mov liczba, al
end;
WriteNumber := liczba;
end;

function ConvertNumber(liczba:Byte):String;
var l:Byte; s:String;
begin
asm
mov ah, liczba
mov l, ah
end;
Str(l,s);
if l=0 then s := s+' - wygrywa adiblol';
ConvertNumber := s;
end;

procedure PrintAndWait(s:String; k:Byte);
begin
Writeln(s);
if k=1 then Write('Press any key to continue');
if k=2 then Write('Nacisnij dowolny klawisz aby kontynuowac');
readkey;
Writeln;
end;

begin
Writeln('Hello World!');
PrintAndWait(ConvertNumber(WriteNumber), Random(2)+1);
end.

Label1.Caption := IntToStr(StrToInt(IntToStr(StrToInt('157'))));

last = 157


i = 0
while( i < last-1 )
  i = i + 1
wend

WScript.Echo i

using System;

namespace Konkurs.Liczba
{
	///<summary>
	/// Klasa liczby na konkurs ;)
	///</summary>
	struct Liczba
	{
		#region Data
		int Wartosc;
		#endregion
		
		#region Constructors
		/// <summary>
		/// Konstruktor tworzący liczbę z poprzedniej
		/// </summary>
		/// <param name="Poprzednia">Poprzednia liczba z konkursu</param>
		public Liczba(int Poprzednia)
		{
			Wartosc = Poprzednia - 1;
		}
		#endregion
		
		#region Public Methods
		
		///<summary>
		/// Zwraca wartość liczby
		///</summary>
		public int GetValue()
		{
			return Wartosc;
		}
		///<summary>
		/// Wypisuje liczbę
		///</summary>
		public void PrintValue()
		{
			Console.WriteLine(Wartosc);
		}
		
		#endregion
	}
	
	class MainClass
	{
		#region Main
		/// <summary>
		/// Głowna funkcja programu
		/// </summary>
		public static void Main(string[] args)
		{
			int Poprzednia = 156;
			Liczba liczba = new Liczba(Poprzednia);
			liczba.PrintValue();
		}
		#endregion
	}
}

[BITS 32]
[ORG 0x400000]

_start:
      mov ecx, msgWelcome
      mov ebx, 1
      mov eax, 4
      int 0x80
      mov eax, 1
      xor ebx, ebx
      int 0x80


;Dane
msgWelcome    db "JESTEM 154:D:D:D:D",10,13,0

using System;
using System.Drawing;
using System.Windows.Forms;

class Nowa: Form
{
    public static void Main()
    {
        Application.Run(new Nowa());
    }
    public Nowa()
    {
        Font = new Font("TimesNewRoman", 20, FontStyle.Bold);
        Text = "153";
    }
    protected override void OnPaint(PaintEventArgs e)
    {
        Graphics grfx = e.Graphics;
        SizeF size = grfx.MeasureString(Text, Font);
        float x = (ClientSize.Width - size.Width) / 2;
        float y = (ClientSize.Height - size.Height) / 2;
        
        
        grfx.DrawString(Text, Font, new SolidBrush(ForeColor), x, y);
    }
    protected override void OnResize(EventArgs e)
    {
        Invalidate();
    }
}

_root.createTextField("text",_root.getNextHighestDepth(),0,0,100,100);
_root.text.text="152";

$liczba151 = 151;

echo $liczba151;