4.3BSD/usr/contrib/icon/port/display1.icn

#  This program tests functions/display.c

global x, y

procedure main()
   local a
   a := 1
   display(,&output)
end