xref: /inferno-os/appl/cmd/pause.b (revision 37da2899f40661e3e9631e497da8dc59b971cbd0) 
1*37da2899SCharles.Forsythimplement Pause;
2*37da2899SCharles.Forsyth#
3*37da2899SCharles.Forsyth# init program to do nothing but pause
4*37da2899SCharles.Forsyth#
5*37da2899SCharles.Forsyth
6*37da2899SCharles.Forsythinclude "sys.m";
7*37da2899SCharles.Forsythinclude "draw.m";
8*37da2899SCharles.Forsyth
9*37da2899SCharles.ForsythPause: module
10*37da2899SCharles.Forsyth{
11*37da2899SCharles.Forsyth	init:	fn(nil: ref Draw->Context, nil: list of string);
12*37da2899SCharles.Forsyth};
13*37da2899SCharles.Forsyth
14*37da2899SCharles.Forsythinit(nil: ref Draw->Context, nil: list of string)
15*37da2899SCharles.Forsyth{
16*37da2899SCharles.Forsyth	<-chan of int;
17*37da2899SCharles.Forsyth}
18