clear
;[U`V{definẽeXg
echo $_FILE

undef -all

list ;-d
;define abc?
;#exit

define NONE						;l
define oCg		12				;oCgl
define [h		1234				;[hl
define _u[h	12345678			;_u[hl
define a12345678901234		$oCg	;OK 15
define _12345678901234		$oCg	;OK
define 123456789012345		$oCg	;NG ʎqsȌ`
define 0
define 9
define A
define Z
define a
define z
define _
define _0

;`ϐ->""ilist -d warning\j
echo $x $xyz

;ʎqȂ->̂܂܎cilist -d warning\j
echo $  $1 	 $123



define 
define @		;Sp󔒂܂܂
define A12$34


define q1	"abc		;pĂȂ
define q2	'abc		;pĂȂ
define q3	$qqq;
define q4 	@abc();
define q5	$
define q6	$;
define q7	$a
define q8	$a;
define q9	$-
define q10	$-;
define q11	$@		;Sp
define q12	$@;		;Sp

define z1	$123@abc	;Sp
define z2	@_123@abc()	;Sp
define z3	$123-$abc	;
define z4	@_123@abc()-@abc()	;
define z5	$qqq-@abc()	;
define z6	-@abc()-$qqq	;
define z7 @abc()
define z8 @abc()abc@byte();
define z9 @abc()\
		$abc  \
		@byte();

define z10 ""
define z11 ";";
define z12 "123\n\""
define z13 "123\n\"";
define z14 "123\n\"	;ĂȂ
define z15 "123\n\";	;ĂȂ

define z21 (
define z22 (;
define z23 (		;ĂȂ
define z24 (;		;ĂȂ
define z25 ()		;
define z26 ();		;
define z27 (PQR(1+$2)) 123	;
define z28 ("abc", @aa(1,$2,)) abc;	;

define z30 @		;()Ȃ
define z31 @;		;()Ȃ
define z32 @+		;()Ȃ
define z33 @+;		;()Ȃ
define z34 @abc		;()Ȃ
define z35 @abc;	;()Ȃ
define z36 @abc(	;ĂȂ
define z37 @abc(;	;ĂȂ
define z38 @abc(+	;ĂȂ
define z39 @abc(+;	;ĂȂ
define z40 @abc()+	;
define z41 @abc()+;	;

define z50	e:\ 
define z51	e:\;
define z52	"e:\"
define z53	"e:\";
define z54	"e:\\"
define z55	"e:\\";


define a1234567890123456789012345678901234567890	$oCg	;[U`V{
define _PQRSTUVWXOPQRSTUVWXO	$oCg	;[U`V{
define PQRSTUVWX@PQRSTUVWXO	$oCg	;sȕASp󔒂܂
define PQRSTUVWX,				$oCg	;sȕ
define PQRSTUVWX(				$oCg	;sȕ
define $PQRSTUVWX				$oCg	;sȕ
define @PQRSTUVWX				$oCg	;sȕ
define \PQRSTUVWX				$oCg	;sȕ
define PQRSTUVWX\				$oCg	;sȕ
define PQRSTUVWX					;OK
define _PQRSTUVWX					;OK
define _PQRSTUVWX~					;NG
define str1		"12345" 'abcdsf'
define str2		"12345 \"ABC\" ; \n" 'abcdsf \'123\' ; \n'
define str3 		"123
define str4		1000 ^b 10 '123
define str5		"123"'abc'
define ab+cd
define -123

define	p1	@inc(10, $oCg)
define	p2	@inc(10, $oCg
echo $p1

define _FILE
define _FILE; comment
define _FILE	; comment

 define bb 	@byte($oCg)
 define ww	@word($[h) 	
 define dd	@dword($_u[h)

 define b1 	@byte($b1)
 define ww	@word($[h) 	
 define dd	@dword($_u[h)

echo $NONE
echo $NONE	;
echo $oCg
echo $oCg	;oCgl
print $oCg	;oCgl
trace $oCg	;oCgl

echo $abcdef	;`
echo $a@bc	;sȕ(Sp)

echo $b1	;zQ


		define abc
		define abc
		define abc?
		define abc"
		define abc'd
		definee cdf

define z	$oCg $[h $z	"abcd"	;
echo $z

define dup1	$oCg $[h $dup $oCg

define dup	$dup1	;zQ(WJɌoj

;cout s1

echo $dup1			;zQ
echo $oCg $dup1		;zQ

undef dup
define dup	$dup
echo $dup			;zQ

undef dup
undef dup1
define dup	$oCg $[h $dup $oCg	;zQ(WJɌoj
define dup1	$oCg $[h $dup $_u[h
echo $dup1		;zQ

define dup2	$dup1
echo $dup2		;zQ

define dup10	$dup10
define dup11	$dup10
define dup12	$dup11
define dup13	$dup12
echo $oCg $dup13




echo A= $oCg , 	B= $oCg , 	C= $oCg
echo A= ($oCg-1) , 	B= ($oCg + 	$oCg)

echo A= $oCg , B= $oCg, C=$oCg*2	;OK@$<id>̑Oɋ󔒂͂ȂĂ悢

echo $abc $abc
echo $[h @byte($[h) @byte($[h) @byte(@word($_u[h))

echo @byte($[h, $[h)
echo @byte( 10 ,20, 30 )

echo $str1 $str2
echo $str1$str2; comment
echo $str1+$str2
echo &$$str1


echo $abc
echo $abc?
echo $abc"
echo $abc'd
echo $ $$ $# $1 $2 $* $	$@;
echo 1$A 2
echo "123"$oCg   $oCg"abc"

print $oCg = $oCg
print \$oCg = $oCg	;}NGXP[v

print "\$oCg" "$oCg" $oCg


echo @ @@ @# @1 @2 @* @	@@;
echo # ## #@ #1 #2 #* #	#@;

echo () (()) (@#) ($1) (@)	((@@));

define BYTE	@byte
echo $BYTE(1234)

;define

