1(* 2 * Test program for dbx call command. 3 *) 4 5program calltest (input, output); 6 7type String = array [1..4] of char; 8var global : integer; 9 10procedure p1 ; 11begin 12 writeln(output, 'in p1'); 13 global := 4; 14end; 15 16procedure p2 (frommain : integer); 17begin 18 writeln(output, 'in p2(', frommain:1, ')'); 19 global := 9; 20end; 21 22procedure p3 (s : String; i : integer); 23begin 24 writeln(output, 'in p3(', s, ', ', i:1, ')'); 25 global := 10; 26end; 27 28procedure startup ; 29var 30 mainlocal : integer; 31begin 32 global := 2; 33 mainlocal := 19; 34 p1; 35 p2(mainlocal); 36 p3('test', 3); 37end; 38 39begin 40 startup; 41end. 42