with Instrument; use Instrument; procedure Assia3 is --COMPC HAS THE MINIMAL FRAMEWORK WITH 500 EXECUTABLE ASSIGNMENT STATEME -- 5 PER LINE, YIELDING 503 STATEMENTS AND 106 LINES. A, B, C : Integer := 0; begin Start ("ASSIA3", " 500 Assignment Statements (five per line)"); for I in 1 .. 10000 loop B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; end loop; B := A; C := B; A := B; C := A; B := C; B := A; C := B; A := B; C := A; B := C; Stop; end Assia3;