[an error occurred while processing this directive]
|
Определим возможность писать в стиле Паскаль:#define begin {
#define endbeg }
#define end }
#define run {
#define eoj }
#define run1 {
#define end1 }
#define run2 {
#define end2 }
#define run3 {
#define end3 }
#define then
#define runif {
#define endif }
#define runif1 {
#define endif1 }
#define runif2 {
#define endif2 }
PAGE
#define runwhile {
#define endwhile }
#define runwhile1 {
#define endwhile1 }
#define runfor {
#define endfor }
#define runfor1 {
#define endfor1 }
#define runfor2 {
#define endfor2 }
#define runfor3 {
#define endfor3 }
#define rundo {
#define enddo }
#define rundo1 {
#define enddo1 }
#define runelse {
#define endelse }
#define runelse1 {
#define endelse1 }
#define runswitch {
#define endswitch }#define word unsigned int
#define byte unsigned char
#define dword unsigned long#define inc ++
#define dec --#define lne !=
#define leq ==
#define land &&
#define lor ||
#define lnot !#define xor ^
#define and &
#define or |
#define shl <<
#define shr >>
#define cma ~
E-mail: info@telesys.ru