pr-5984.ch

来自「lwip在ucos上的移植」· CH 代码 · 共 9 行

x: module                        -- line 1
  p:proc (t char (20) varying);  --      2
	  writetext(stdout, t);  --      3
  end p;                         --      4
                                 --      5
  p("Jason Dark.%/");            --      6
  p("Hello World.%/");           --      7
end x;