[Inquiry] Re: Theme One Program

[Jon Awbrey]

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

TOP.  Note 5

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

{ compiler: turbo pascal, version 5.0, }
{ (c) 1987, 1988 borland international }
{$M 53248,0,655360} { stack and heap   }
{$B+} { boolean complete evaluation on }

{ project: theme
  segment: learner + modeler                         copyright: 1984 - 2003
  version: 1                                                by: jon awbrey }

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

function slate (this: idea): idea;
var here: idea;
begin
 slate := this;
 while permit ('index', clear (nil)) <> nil do here := index (nil)
end;

function chalk (this: idea): idea;
var here: idea;
begin
 chalk := this;
 while permit ('study', clear (nil)) <> nil do here := study (nil)
end;

begin { order }
 order := this;
 here := nil;  flag := nil;  menu := nil;  venu := nil;
 here := just (turn (brush (1, 54, buff ('< load menu files first >'))));
 venu := stage (here);  menu := fore (venu);
 if venu <> nil then
  begin
   flag := clear (match (menu, buff ('index')));
   here := just (chalk (clean (slate (here))))
  end
end;

begin { flint }
 flint := this;
 while permit ('order', clear (nil)) <> nil do here := order (nil)
end;

begin { theme }
 freemin := 4096;     size := 25;        trim := 40;
 assigncrt (con);     reset (con);       rewrite (con);
 checkbreak := true;  checkeof := true;  video (firm);
 here := clean (flint (nil));            close (con)
end.

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o