Supports 7 major programming languages:

• Visual Basic
• C++
• C#
• Assembler
• SQL
• Java
• Delphi

• Assembler
• C++
• C#
• Java
• Delphi
• SQL
• Visual Basic

TextIn	PROC

; ->	EAX	Pointer to text record

;	Make buffer empty

	XOR	EDX,EDX
	MOV	[EAX].BufEnd,EDX
	MOV	[EAX].BufPos,EDX

//-----------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ProgressForm.h"
#include "MainForm.h"
//-----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmProgress *fmProgress;
//-----------------------------------------------------------------
__fastcall TfmProgress::TfmProgress(TComponent* Owner)
	: TForm(Owner),FirstCall(true)
{
}
//-----------------------------------------------------------------
void __fastcall TfmProgress::btnCancelClick(TObject *Sender)
{
 if(fmMain)
   fmMain->SetStopped();
 Close();
}
//-----------------------------------------------------------------
void __fastcall TfmProgress::FormCreate(TObject *Sender)
{
HMENU hMenu = GetSystemMenu(Handle, FALSE);
 if(hMenu)
   DeleteMenu(hMenu,SC_CLOSE,MF_BYCOMMAND);
}

//Copyright (C) 2000 Microsoft Corporation.  All rights reserved.

// person.cs
using System;
class Person
{
    private string myName ="N/A";
    private int myAge = 0;

    // Declare a Name property of type string:
    public string Name
    {
        get
        {
           return myName;
        }
        set
        {
           myName = value;
        }
    }

    // Declare an Age property of type int:
    public int Age
    {
        get
        {
           return myAge;
        }
        set
        {
           myAge = value;
        }
    }

    public override string ToString()
    {
        return "Name = " + Name + ", Age = " + Age;
    }

    public static void Main()
    {
        Console.WriteLine("Simple Properties");

        // Create a new Person object:
        Person person = new Person();

        // Print out the name and the age 
        // associated with the person:
        Console.WriteLine("Person details - {0}", person);

                // Set some values on the person object:
        person.Name = "Joe";
        person.Age = 99;
        Console.WriteLine("Person details - {0}", person);

                // Increment the Age property:
        person.Age += 1;
        Console.WriteLine("Person details - {0}", person);
    }
}

import java.io.*;

public class FinallyTest {

    public static void main(String[] args) {

	try {
	    //System.exit(0); 
        // the only thing preventing "finally"
	    throw new EOFException();
	} catch (EOFException e) {
	    e.printStackTrace();
	    throw new ClassCastException();
	} finally {
	    System.out.println("Finally");
	}
    }
}

unit Printers;

{$R-,T-,X+,H+}

interface

uses Windows, WinSpool, SysUtils, Classes, Graphics, Forms;

type
  EPrinter = class(Exception);

  { TPrinter }

  TPrinter = class(TObject)
  private
    property PrinterIndex: Integer read GetPrinterIndex 
    write SetPrinterIndex;
    property Printing: Boolean read FPrinting;
    property Printers: TStrings read GetPrinters;
    property Title: string read FTitle write FTitle;
  end;

implementation

uses Consts;

var
  FPrinter: TPrinter = nil;

function FetchStr(var Str: PChar): PChar;
var
  P: PChar;
begin
  Result := Str;
  if Str = nil then Exit;
  P := Str;
  while P^ = ' ' do Inc(P);
  Result := P;
  while (P^ <> #0) and (P^ <> ',') do Inc(P);
  if P^ = ',' then
  begin
    P^ := #0;
    Inc(P);
  end;
  Str := P;
end;

initialization

finalization
  FPrinter.Free;
end.

CREATE PROCEDURE dbo.sp_Sample
AS

BEGIN

  SELECT T1.*, T2.* FROM Table1 T1
  LEFT JOIN TABLE2 T2 ON(T2.RecordID=T1.RecordID)
  WHERE T2.RecordID > 100
  ORDER BY T1.RecordID

END

' add card to box
Public Sub addCard(card As CC_BJServerCard)
    card_count = card_count + 1
    Set cards(card_count) = card

    card_sum = card_sum + card.value
    If card.title = 1 Then
        soft_comb = True
    End If
    If card_sum > 21 Then
        bust = True
        can_hit = False
    ElseIf card_sum = 21 Then
        can_hit = False
    ElseIf card_sum = 11 And soft_comb Then
        If card_count = 2 And Not splitted Then
            black_jack = True
        End If
        can_hit = False
    End If

    If card_count > 1 Then
        If splitted And cards(1).title = 1
     And cards(2).title <> 1 Then ' Ace
            can_hit = False
        End If
    End If
End Sub