{ (c) 1998 CREEQ <creeq@web.de> }
program Stadtplan;
uses Crt, Graph;
var Z : integer;
    X, Y : integer;
    Gd, Gm : integer;
label 1;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  randomize;
  repeat
    Z := random(2);
    if Z = 0 then outtextxy(X,Y,'\');
    if Z = 1 then outtextxy(X,Y,'/');
    X := X+5;
    if x = 640 then y := y+6;
    if x = 640 then x := 0;
    if y = 600 then goto 1;
  until false;
1:readkey;
  CloseGraph;
end.