@@ -35,3 +35,9 @@
{$ifndef use_amiga_smartlink}
{$define use_amiga_smartlink}
{$endif}
+
+{
+ $Log
+}
@@ -43,3 +43,9 @@
{$ifndef use_auto_openlib}
{$define use_auto_openlib}
@@ -42,3 +42,8 @@ begin
freeSessionVal := QFreeSession(session);
end.
@@ -104,4 +104,9 @@ begin
CleanUp('all ok',0);
@@ -1244,3 +1244,9 @@ begin
{$endif use_auto_openlib}
END. (* UNIT GTLAYOUT *)
@@ -662,3 +662,9 @@ begin
END. (* UNIT IDENTIFY *)
@@ -84,3 +84,9 @@ Begin
End Else
Writeln ('DisplayID is 0.');
End.
@@ -60,3 +60,9 @@ Begin
Writeln ('Unable to allocate list.');
@@ -90,3 +90,8 @@ Begin
p96PIP_Close(wd);
End Else Writeln ('Unable to open PIP.');
@@ -213,3 +213,7 @@ BEGIN
CleanUp('');
END.
@@ -88,3 +88,7 @@ begin
end;
@@ -62,3 +62,8 @@ Begin
Writeln('No Dimensioninfo.');
End Else Writeln('DisplayID invalid.');
@@ -167,3 +167,7 @@ if sc = nil then CleanUp('Can''t open screen');
@@ -901,3 +901,8 @@ begin
END. (* UNIT PICASSO96API *)
@@ -409,3 +409,8 @@ BEGIN
NIL,@undertag);
CleanUp;
@@ -1160,5 +1160,8 @@ BEGIN
END. (* UNIT REQTOOLS *)
@@ -92,3 +92,4 @@ end.
@@ -1152,6 +1152,7 @@ END.
$Log
}
@@ -368,5 +368,6 @@ END.
@@ -284,3 +284,4 @@ END.
@@ -280,6 +280,7 @@ END.
@@ -103,4 +103,8 @@ begin
Cleanexit('',0);
@@ -74,5 +74,9 @@ begin
END ELSE writeln('Can''t create Application',20);
@@ -122,3 +122,10 @@ begin
end
else writeln('Can''t create application');
@@ -77,4 +77,10 @@ begin
END ELSE writeln(' Cant creat Application' );
@@ -89,4 +89,9 @@ begin
END ELSE writeln(' Cant create Application');
@@ -72,3 +72,9 @@ begin
END ELSE writeln('Can''t create application');
@@ -158,5 +158,10 @@ begin
CleanUp('',0);
@@ -165,4 +165,10 @@ begin
@@ -162,6 +162,11 @@ begin
@@ -166,6 +166,11 @@ begin
CleanExit('',0);
@@ -1475,3 +1475,5 @@ END. (* UNIT TRITON *)
@@ -2679,3 +2679,5 @@ end.