44 lines
983 B
TeX
44 lines
983 B
TeX
\installprettytype[PAS][PAS]
|
|
\setupcolors[state=start]
|
|
\setuptyping[option=color]
|
|
\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
|
|
\setuplinenumbering[location=text]
|
|
|
|
\starttext
|
|
\startPAS
|
|
normal { Comment } normal
|
|
normal {$R- compiler directive} normal
|
|
procedure TForm1.Button1.Click(Sender: TObject);
|
|
var // Delphi Comment
|
|
Number, I, X: Integer;
|
|
begin
|
|
Number := 12345 * (2 + 9);
|
|
Caption := 'The number is ' + IntToStr(Number);
|
|
asm
|
|
MOV AX,1234h
|
|
MOV Number,AX
|
|
end;
|
|
X := 10;
|
|
end;
|
|
\stopPAS
|
|
|
|
\startPAS
|
|
My_Variable := _for;
|
|
45My_Variable := _Variable45;
|
|
normal asm green for end normal For END
|
|
normal aSM green foR eNd normal For END
|
|
&for asm green
|
|
end normal
|
|
{bold'bold}normal'blue
|
|
normal'blue{blue}blue'Normal'blue
|
|
asm green'gr{ee}n'{bold bold}green end
|
|
{asm bold end}
|
|
normal'blue'Normal'Blue'nOrmal'bLue'noRmal
|
|
normal {bold*) still bold
|
|
still comment
|
|
comment (* ends} normal
|
|
normal (*bold} still bold
|
|
still comment
|
|
comment { ends*) normal
|
|
\stopPAS
|
|
\stoptext |