1*44112Sbosticmodule main; 2*44112Sbosticconst 3*44112Sbostic PI = 3.14159; 4*44112Sbostic N = 10; 5*44112Sbostic MESSAGE = "this is a test"; 6*44112Sbostic CH = 'x'; 7*44112Sbostic S = {1, 3, 5}; 8*44112Sbostic B = true; 9*44112Sbostictype 10*44112Sbostic Color = (RED, BLUE, GREEN); 11*44112Sbosticprocedure p (); 12*44112Sbosticconst 13*44112Sbostic R = RED; 14*44112Sbostictype 15*44112Sbostic T = integer; 16*44112Sbosticvar i : integer; 17*44112Sbosticbegin 18*44112Sbosticend p; 19*44112Sbostic 20*44112Sbosticbegin 21*44112Sbosticend main. 22