pret-pas/test-file/pret-pas_test.tex

30 lines
597 B
TeX
Raw Normal View History

\installprettytype[PAS][PAS]
\setupcolors[state=start]
\setuptyping[option=color]
\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
\setuplinenumbering[location=text]
\starttext
\startPAS
blub { Comment } blub
blub {$R- compiler directive} blub
procedure TForm1.Button1.Click(Sender: TObject);
var // Delphi Comment
2010-09-29 23:37:40 +02:00
Number, I, X: Integer;
begin
2010-09-29 23:37:40 +02:00
Number := 12345 * (2 + 9);
Caption := 'The number is ' + IntToStr(Number);
asm
MOV AX,1234h
MOV Number,AX
end;
X := 10;
end;
\stopPAS
2010-09-29 23:37:40 +02:00
\startPAS
My_Variable := _Variable;
45My_Variable := _Variable45;
&for
\stopPAS
\stoptext