I have a Classic DCAL macro that uses getmode, and it is crashing (fault 10 Error from: 736) if the user presses certain keys such as 'M' or 'C' etc.
Can anybody tell me what is wrong with the following code:
(Full source code is available at http://www.dhsoftware.com.au/source/cover_source.zip).
The code was written very quickly, so I expect I have missed something, but I can't see the problem right now ...
Thanks for any input.
Can anybody tell me what is wrong with the following code:
Code: Select all
if cvr then
res := getmode ('cover', mode, key);
else
res := getmode ('uncover', mode, key);
end;
if res = res_escape then
if key = f9 then
cvr := true;
elsif key = f0 then
cvr := false;
elsif key = s9 then
ShowAbout;
elsif key = s0 then
done := true;
else
beep;
end;
elsif res = res_normal then
!process entities using normal ent_first/ent_get/ent_next loop
end;
(Full source code is available at http://www.dhsoftware.com.au/source/cover_source.zip).
The code was written very quickly, so I expect I have missed something, but I can't see the problem right now ...
Thanks for any input.
David Henderson
dhSoftware - Add-on Macros for DataCAD
dhSoftware - Add-on Macros for DataCAD