Design
hcalc2.asc
Associated article: Structured Programming
Tags: Design
_STRUCTURED PROGRAMMING COLUMN_
by Jeff Duntemann
[LISTING ONE]
PROCEDURE TMortgageApp.HandleEvent(VAR Event : TEvent);
{-----------------------------------------------------------------}
{ The following are procedures local to TMortgageApp.HandleEvent: }
{-----------------------------------------------------------------}
PROCEDURE Calculator;
VAR
P: PCalculator;
BEGIN
P := New(PCalculator, Init);
P^.HelpCtx := hcNoContext; { Used to be ...


