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