It cost in 1983 $10. You also could by the source code for $50.

I hope this helps

I never saw a copyright message displayed by the program, or any
acknowledgement of the authors. I have no idea where it came from,
whether it was shareware, public domain or what. Someone told me that
there was a version that worked over a network, so maybe it was a demo
from some network manufacturer. As I said, I did a wee web search some
months back to see if I could find a copy or any information about it,
but I didn't have any luck. What impressed me was that it was so
small, compared to today's games anyhow, and that it worked from
4.77MHz 8088 machines up to 386s. I'd love to know if it worked on the
faster machines we have these days, it wouldn't surprise me if it did.

program maze;
const width=25; leng=12;
var  i,j,k,t,b:integer; row:array[1..1000] of integer;
function isolated (i,s:integer):boolean;
var j:integer;
begin
  isolated:=true;
  for j:=s to width do if (row[j]=row[i]) and (i<>j) then isolated:=false
end;
begin
  randomize; b:=width;
  for i:=1 to width do begin write('+--'); row[i]:=i end; writeln('+');
  for i:=1 to leng-1 do begin write('|');
    for j:=1 to width-1 do begin
      if (random(100)<=80) and (row[j]<>row[j+1]) then begin
           write('   '); t:=row[j+1];
           for k:=1 to width do if row[k]=t then row[k]:=row[j]
         end
         else write('  |')
    end;
    writeln('  |');
    for j:=1 to width do begin
      if isolated(j,1) or (random(100)<=50) then write('+  ')
         else begin write('+--'); b:=b+1; row[j]:=b end
    end;
    writeln('+');
  end;
  write('|');
  for j:=1 to width-1 do begin
    if isolated(j,j+1) then begin
         write('   ');t:=row[j+1];
         for k:=1 to width do if row[k]=t then row[k]:=row[j]
       end
       else write('  |')
  end;
  writeln('  |'); for j:=1 to width do write('+--'); write('+')
end.
----------------------------------------------------------------------
Derek Asari   bp 6...@scn.org

procedure makemaze(x,y,d:integer);
var dc:integer;
    nx,ny,nx2,ny2:integer;

begin
     m[x,y]:=1;
     dc:=0;

     repeat

     d:=d and 3;

     nx:=(x+dx[d]) and 127;
     ny:=(y+dy[d]) and 127;
     nx2:=(nx+dx[d]) and 127;
     ny2:=(ny+dy[d]) and 127;

     if m[nx,ny]=0 then
        if m[nx2,ny2]=0 then begin
           m[nx,ny]:=1;
           makemaze(nx2,ny2,random(4));
        end;

     inc(d);
     inc(dc);
     until dc=4;
end;

begin
    dx[0]:=0;dx[1]:=1;dx[2]:=0;dx[3]:=-1;
    dy[0]:=-1;dy[1]:=0;dy[2]:=1;dy[3]:=0;

    for xl:=0 to 127 do
        for yl:=0 to 127 do m[x,y]:=0;

    randomize;
    makemaze(random(128),random(128),random(4));
end.

UNTESTED - ripped out of some old code.

This procedure will make a maze of size 128*128.  As it is it wraps around
off the edges to
the opposide edge but Im sure you get the gist.

--

Mark Vaughan
____________

regards