[fpc-pascal] Silly Syntax Games

[L505]

| How about making an International Obfuscated Pascal Code Contest? :)

This program below compiles.. this is a  good way to protect your source code from
being read by other people.
i.e or you could just use C or Perl instead.


program Project1;

{$mode objfpc}{$H+}


{$define Z:= begin }
{$define X:= end }
{$define Y:= procedure }
{$define A:= for }
{$define B:= to }
{$define C:= do }
{$define D:= writeln }
{$define E:= var }
{$define F:= := }
{$define G:= : }
{$define H:= ; }
{$define I:= . }



e
 iLoc g integer h

 Y testing1 h
 Z
  a iLoc f 1 b 60 c
   d('test') h
 X h

Z
 testing1 h
X I