florian
25 years ago
|
@@ -0,0 +1,29 @@
|
|
|
|
+var
|
|
|
|
+ l1,l2 : longint;
|
|
|
|
+ w1,w2 : word;
|
|
|
|
+ b1,b2 : byte;
|
|
|
|
+ b : boolean;
|
|
|
|
+
|
|
|
|
+begin
|
|
|
|
+ if b then
|
|
|
|
+ w1:=w2;
|
|
|
|
+ if b then
|
|
|
|
+ w1:=w2;
|
|
|
|
+ if b then
|
|
|
|
+ begin
|
|
|
|
+ w1:=w2;
|
|
|
|
+ l1:=l2;
|
|
|
|
+ end;
|
|
|
|
+ if b then
|
|
|
|
+ w1:=w2
|
|
|
|
+ else
|
|
|
|
+ w2:=w1;
|
|
|
|
+ {
|
|
|
|
+ if b then
|
|
|
|
+ begin
|
|
|
|
+ w1:=w2;
|
|
|
|
+ l1:=l2;
|
|
|
|
+ b1:=b2;
|
|
|
|
+ end;
|
|
|
|
+ }
|
|
|
|
+end.
|